Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Sub Form_Load()
'Соединение с прокси
Winsock1.Connect "IP.адрес.прокси.сервера", порт
End Sub
Private Sub Form_Resize()
Text1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub
Private Sub Winsock1_Connect()
Dim sTemp As String
Text1.SelText = "Connected to " & Winsock1.RemoteHostIP & vbCrLf & String$(16, "-") & vbCrLf
' Готовим запрос через прокси
sTemp = "GET http://www25.brinkster.com/msvbasic/default.asp?p=gb HTTP/1.0" & vbCrLf
sTemp = sTemp & "Host: www25.brinkster.com" & vbCrLf
sTemp = sTemp & vbCrLf
' отправляем запрос
Winsock1.SendData sTemp
Text1.SelText = sTemp & vbCrLf & String$(16, "-") & vbCrLf
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim sTemp As String
Winsock1.GetData sTemp, vbString
Text1.SelText = sTemp
End Sub
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Text1.SelText = "-----------ERROR-----------" & vbCrLf & description & vbCrLf & String$(16, "-") & vbCrLf
End Sub
Сейчас этот форум просматривают: AhrefsBot и гости: 9