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?
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
otra forma de apretar el boton es poniendo el nombre del formulario html:
obj.Document.Forms.forma.submit.Click
pero yo probe tu ejemplo y funciona bien, salvo que saque la ultima linea y la puse en un boton, de esa forma funciona.
porque me sale una advertencia de que esta bloqueando los activex y cuando se la deshabilite ahi funciona el click, pero sino es como que no anda.
O podés hacerle focus y hacer click.
WebBrowser1.Document.All("Button").focus
WebBrowser1.Document.activeElement.Click