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

 

  Dicas

  Visual Basic    (Internet)

Título da Dica:  Simulando um WebServer(HTTP)
Postada em 24/10/2003 por [_Chuck_]            
um webserver funciona da seguinte maneira...

um controle winsock aguarda uma conexão pela porta 80(HTTP) e ao receber alguma conexão adivinha o que ele envia.... instruções de HTML

tipo assim... Coloque um controle Winsock com o nome de sck e poste o seguinte código...


Private Sub Form_Load()
    sck.LocalPort = 81
    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 = 81
    sck.Accept requestID
    DoEvents
    
    Pag = "<html>" & vbCrLf
    Pag = Pag & "<head>" & vbCrLf
    Pag = Pag & "<title></title>" & vbCrLf
    Pag = Pag & "</head>" & vbCrLf
    Pag = Pag & "<body bgcolor='Black' text='silver'>" & vbCrLf
    Pag = Pag & "   <h1 align='center'>Este é meu primeiro Servidor WEB</h1>" & vbCrLf
    Pag = Pag & "   <marquee behavior='Alternate' bgcolor='yellow'><font size='7' color='red'>www.urubunegao.kit.net</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 = 81
    sck.Listen
End Sub


rode o programa... abra o internet explorer e digite "http://127.0.0.1:80 sso se você naum estiver em rede e naum estiver conectado na internet.. se estiver... Coloque o seu ip verdadeiro...

Observe que eu utilizei a porta 81... Isso porque ao ligar o PC a porta 80 já aguarda um conexão...

Extras:

para saber qual é o seu ip atual faça o seguinte
MsgBox sck.LocalIP

Valeu??? Qualquer dúvida... mail-me
Maycon Maia [_Chuck_]
 


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