hola tengo este codigo para enviar datos desde internet explorer a mi
programa
el problema que tengo que el metodo submit no me funciona en windows7
ahi otra forma de emular el click del submit?
programa
el problema que tengo que el metodo submit no me funciona en windows7
ahi otra forma de emular el click del submit?
Código (vb) [Seleccionar]
Set obj = CreateObject("internetexplorer.application")
obj.Visible = True
obj.silent = True
Dim strMsg As String
strMsg = "<html><body><form name='forma' action='" & txtip.Text & "/info ' method='POST' enctype='application/x-www-form-urlencoded'>" _
& "<textarea name='datos'>" & "datitos" & "</textarea><input type='hidden' name='comando' value='" & "probando" & "'>" _
& "<input type='hidden' name='fecha' value='" & Format(Now, "hh:mm:ss") & "'>" _
& "<input type='submit' name='submit' value='enviar'>" _
& "<input type='hidden' name='nombreusuario' value='" & Environ("USERNAME") & "'> </form> </body></html>"
Open GetDirectorio(etemporal) & "d.htm" For Output As #1
Print #1, strMsg
Close #1
obj.navigate Replace(GetDirectorio(etemporal), "\", "/") & "d.htm"
Do
DoEvents
Loop While obj.busy = True
obj.document.Forms(0).submit.Click