- Код: Выделить всё
Dim HTML As System.Net.WebRequest = System.Net.WebRequest.Create(URL)
HTML.Method = "POST"
Dim PostData As String = "&HandTrade=1"
Dim encoding As New System.Text.ASCIIEncoding
Dim byte1 As Byte() = encoding.GetBytes(PostData)
HTML.ContentType = "application/x-www-form-urlencoded"
HTML.ContentLength = PostData.Length
Dim newStream As System.IO.Stream
Try
newStream = HTML.GetRequestStream()
Catch ex As Exception
GetWebResponse = -1 ' Признак, что ошибка сервера
Exit Function
End Try
newStream.Write(byte1, 0, byte1.Length)
Итак, на некоторых компьютерах все работает ОК а на других (в частности, на КПК) последняя строка вызывает следующую ошибку:
An unhandled exception of type 'System.Net.Sockets.SocketException' occurred in System.dll
Additional information: A blocking operation is currently executing
Насколько я понимаю, связано это с тем, что сокет "не до конца открылся" на момент newStream.Write.
Как отследить State сокета?
Цель сего мероприятия - закинуть в форму данные методом POST и получить в String ответ сервера (страницу). К сожалению, не могу использовать WebClient, т.к. его нету в VB.Net for Smart Devices.
Заранее спасибо!
