problemas con el metodo submit

maxnet · 1 Agosto 2015, 05:29 AM

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?

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

seba123neo · 3 Agosto 2015, 17:29 PM

otra forma de apretar el boton es poniendo el nombre del formulario html:

Código (vb) [Seleccionar]

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.

Miseryk · 13 Agosto 2015, 20:42 PM

O podés hacerle focus y hacer click.

Código (vb) [Seleccionar]


WebBrowser1.Document.All("Button").focus
WebBrowser1.Document.activeElement.Click

Test Foro de elhacker.net SMF 2.1

problemas con el metodo submit

maxnet

seba123neo

Miseryk