На форме кнопка и текстбокс
прога делает запрос к серверу и в текстбокс скидывает ответ
На - : Text1.Text = Inet1.GetChunk(1024, icString) появляется эта ошибка.
- Код: Выделить всё
Private Sub Command1_Click()
Dim strURL As String
Dim strToASP As String
Dim strHeader As String
strHeader = "Host: xx.ru" & vbNewLine & _
"Accept: */*" & vbNewLine & _
"Origin: http://xx.ru" & vbNewLine & _
"User-Agent: Mozilla/5.0 (Windows NT 6.3; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/39.0.2171.71 Safari/537.36" & vbNewLine & _
"Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & vbNewLine & _
"Referer: http://xx.ru/xx.html" & vbNewLine & _
"Accept-Encoding: gzip,deflate" & vbNewLine & _
"Accept-Language: ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4" & vbNewLine & vbNewLine
strToASP = "type=5&id=158&EvenOddReception="
strURL = "http://xx.ru/pss_new/func.php"
Inet1.Execute strURL, "POST", strToASP, strHeader
End Sub
Private Sub Inet1_StateChanged(ByVal State As Integer)
Select Case State
Case icResponseCompleted: Text1.Text = Inet1.GetChunk(1024, icString): Inet1.Cancel
Case icError: Beep: Inet1.Cancel:
End Select
End Sub
