hallo also ich hab ein kleines problem ...
so kann ich url/ connecten und auslesen
aber wie lasse ich etwas auslesen wenn url/tools
ist
kann ich 2 ma get anfrage machen ?
Quellcode
- Private Sub Winsock1_Connect()
- lstLog.AddItem "Connecting to " & txtIP & ":" & txtPort & "..."
- Dim enc_auth As String
- Dim a As String
- enc_auth = EncodeBase64(StrConv(txtUser & ":" & txtPass, vbFromUnicode))
- a = a & "GET / HTTP/1.1" & vbCrLf
- a = a & "Host: 62.143.93.47" & vbCrLf
- a = a & "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.0.5) Gecko/2008120122 Firefox/3.0.5" & vbCrLf
- a = a & "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & vbCrLf
- a = a & "Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3" & vbCrLf
- a = a & "Accept-Encoding: gzip ,deflate" & vbCrLf
- a = a & "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & vbCrLf
- a = a & "Keep-Alive: 300" & vbCrLf
- a = a & "Connection: close" & vbCrLf
- a = a & "Authorization: Basic " & enc_auth & vbCrLf & vbCrLf
- Winsock1.SendData a
- End Sub
so kann ich url/ connecten und auslesen
aber wie lasse ich etwas auslesen wenn url/tools
ist
kann ich 2 ma get anfrage machen ?
