VBWEB - Simulando um WebServer(HTTP)

USUÁRIO: SENHA:

SALVAR LOGIN ?


	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