Private Sub wsk_Connect(Index As Integer)
' If eR <> vbNullString Then
wsk(Index).SendData "GET http://" & Host.text & " HTTP/1.0" & vbCrLf
'List1.AddItem "GET http://" & Host.text & " HTTP/1.0" & vbCrLf
' eR = vbNullString
' Else
wsk(Index).SendData "GET http://" & Host.text & " HTTP/1.0" & vbCrLf
' List1.AddItem "GET http://" & Host.text & " HTTP/1.0" & vbCrLf
' End If
wsk(Index).SendData "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)" & vbCrLf
' List1.AddItem "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)" & vbCrLf
wsk(Index).SendData "Host: " & Host.text & vbCrLf
'List1.AddItem "Host: " & Host.text & vbCrLf
wsk(Index).SendData "Accept: text" & vbCrLf
'List1.AddItem "Accept: text" & vbCrLf
wsk(Index).SendData "Accept-Language: ru;q=1.0,en;q=0.9" & vbCrLf
'List1.AddItem "Accept-Language: ru;q=1.0,en;q=0.9" & vbCrLf
wsk(Index).SendData "Proxy Connection: Keep-Alive" & vbCrLf & vbCrLf
'List1.AddItem "Proxy Connection: Keep-Alive" & vbCrLf & vbCrLf
end sub
Сейчас этот форум просматривают: AhrefsBot, Yandex-бот и гости: 34