Estoy obteniendo el siguietne error
Run-time error: 40006
"Wrong protocol or connection state for the requested transaction or request."
esto por que hago lo siguiente
Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim sItemData As String
Dim strdata As String
Dim strOutData As String
Dim strConnect As String
Dim URL As String
Dim Flags As Long
Dim TargetFrame As String
Dim strPostData() As Byte
Dim strHeader
' get data from client
Winsock1(Index).GetData sItemData, vbString
sServerMsg = "Received: " & sItemData & " from " & Winsock1(Index).RemoteHostIP & "(" & sRequestID & ")"
List1.AddItem (sServerMsg)
strdata = sItemData
strdata = Mid(strdata, 6, Len(strdata))
strRequest = "Data=" & strdata
Flags = 0
TargetFrame = ""
URL = "http://calafquen/pagoIVR/PIVR_Inicio.asp"
strPostData = StrConv(strRequest, vbFromUnicode)
strHeader = "content-type: application/x-www-form-urlencoded" & vbCrLf
WebBrowser1.Navigate URL, Flags, TargetFrame, strPostData, strHeader
End Sub
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
Dim strAux1 As String
Dim strCod
Dim HDoc As MSHTML.HTMLDocument
Set HDoc = WebBrowser1.Document
'MsgBox HDoc.URL
If HDoc.URL = "http://calafquen/pagoIVR/pago/ExitoPIVR.asp" Or _
HDoc.URL = "http://calafquen/pagoIVR/pago/FracasoPIVR.asp" Then
strCod = HDoc.body.innerHTML
'MsgBox strCod
If InStr(1, strCod, "Data") > 0 Then
strAux1 = Mid(strCod, InStr(1, strCod, "Data"), Len(strCod))
strDat = Mid(strAux1, 1, InStr(1, strAux1, "<BR>") - 1)
MsgBox strDat
'send data to client
Winsock1(Index).SendData strDat
Exit Sub
end sub
el send data lo hago en el metodo WebBrowser1_NavigateComplete2
si el send data lo hago en Winsock1_DataArrival no tengo problemas pero no se cuando obtengo el resultado esperado de la navegacion.
se entiende...
Gracias.
Caulquier ayuda sirve.
