Hej!
Kan man kolla om en viss websida finns, ex. www.gp.se i vb.
Så man får uppgift om denna sida saknas?
/Jan

Vet inte om det här kan hjälpa men på nåt sätt kopplar du upp
mot sidan och söker igenom indexfilen och kollar om den
innehåller en viss sträng, t.ex The requested URL could not be retrieved eller liknande.

/Hjorten

Du kan kolla det enklast tror jag genom att göra en<br>
HTTP-Request på port 80 för aktuell URL.<br><br>

Får du inte svar inom rimlig tid så finns inte servern<br>
eller så är den tillfälligt nere.<br><br>

Skapa nytt project och infoga en winsock-komponent,<br>
kommandoknapp och textruta<br><br>

<code>

Option Explicit

Private Sub Command1_Click()
Winsock1.Protocol = sckTCPProtocol
Winsock1.RemoteHost = Text1
Winsock1.RemotePort = 80
Winsock1.LocalPort = 80
Winsock1.Connect
End Sub

Private Sub Winsock1_Connect()
Dim utData As String
utData = "GET /index.html HTTP/1.0" & vbCrLf
Winsock1.SendData utData
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim inData As String
Call Winsock1.GetData(inData, vbString, bytesTotal)
MsgBox inData
Winsock1.Close
End Sub

</code>

<br><br>
<h5><font color=000088 face=arial>/[peter.h]</font></h5>

Tack, det funkade bra.

MEN vad används Connect till
Private Sub Winsock1_Connect()
Dim utData As String
utData = "GET /index.html HTTP/1.0" & vbCrLf
Winsock1.SendData utData
End Sub

här hamnar man ju om det blir någon träff
Private Sub Winsock1_Connect()
Dim utData As String
utData = "GET /index.html HTTP/1.0" & vbCrLf
Winsock1.SendData utData
End Sub

Och här om det inte blir någon träff
Winsock1_Error