#INCLUDE Once "../TSNE_V2.bi"
Sub TSNE_Disconnect (Byval V_TSNEID As Uinteger)
Print "Verbindung wurde beendet!"
End Sub
Sub TSNE_Connect (Byval V_TSNEID As Uinteger)
Dim T_ZuSenden As String
T_ZuSenden += "GET /index.html HTTP/1.1" & Chr(13, 10)
T_ZuSenden += "Host: www.google.de" & Chr(13, 10)
T_ZuSenden += "Connection: close" & Chr(13, 10)
T_ZuSenden += Chr(13, 10)
Dim T_GuruCode As Long
T_GuruCode = TSNE_Data_Send(V_TSNEID, T_ZuSenden)
If T_GuruCode <> 0 Then
If T_GuruCode <> 0 Then
Print "["; T_GuruCode; "] "; TSNE_GetGURUCode(T_GuruCode)
TSNE_Disconnect(V_TSNEID)
Else
Print "Versand erfolgreich!"
End If
End Sub
Sub TSNE_NewData (Byval V_TSNEID As Uinteger, Byref V_Data As String)
Print V_Data
End Sub
Dim T_TSNEID As Uinteger
Dim T_GuruCode As Long
T_GuruCode = TSNE_Create_Client(T_TSNEID, "www.google.de", 80, @TSNE_Disconnect, @TSNE_Connected, @TSNE_NewData)
If T_GuruCode <> 0 Then
Print "["; T_GuruCode; "] "; TSNE_GetGURUCode(T_GuruCode)
End -1
End If
Print "Erfolgreich!"
Print "Warte auf Zustandsänderung..."
TSNE_WaitClose(T_TSNEID)
Sleep
End 0