USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (ActiveX/Controles/DLL)

Título da Dica:  Criando Um Site (Simples)
Postada em 6/3/2007 por Edinei      Clique aqui para enviar email para o autor  neisjb@hotmail.com
'Vá em Project, Components, escolha "Microsoft Winsock Control 6"
'RENOMEIE ELE PARA  sck    

'No Form Coloque


Private Sub Form_Load()
    sck.LocalPort = 80
    sck.Listen
End Sub

Private Sub Form_Terminate()
    sck.Close
End Sub

Private Sub sck_ConnectionRequest(ByVal requestID As Long)
    Dim Pag As String
    sck.Close
    sck.LocalPort = 80
    sck.Accept requestID
    DoEvents
    
    Pag = "<html>" & vbCrLf
    Pag = Pag & "<head>" & vbCrLf
    Pag = Pag & "<title></title>" & vbCrLf
    Pag = Pag & "</head>" & vbCrLf
    Pag = Pag & "<body bgcolor='blue' text='silver'>" & vbCrLf
    Pag = Pag & "   <h1 align='center'>Edinei Enrique Ricardo.</h1>" & vbCrLf
    Pag = Pag & "   <marquee behavior='Alternate' bgcolor='yellow'><font size='7' color='red'>Estamos no Ar    Galera...</font></marquee>" & vbCrLf
    Pag = Pag & "</body>" & vbCrLf
    Pag = Pag & "</html>"
    
    sck.SendData Pag 'Envia a página para o Browser
    
    DoEvents: DoEvents: DoEvents
    
    sck.Close
    sck.LocalPort = 80
    sck.Listen
End Sub

'PARA ACESSAR DIGITE NO NAVEGADOR SEU IP ASSIM ,
'     http:// Coloque aqui o Ip da maquina
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página