|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Criando Um Site (Simples)
|
 |
|
|
|
Postada em 6/3/2007 por Edinei
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
|
|
|
|
|
