Imprimir Página - problemas con el metodo submit

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

 
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:

Código

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.

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: maxnet en 1 Agosto 2015, 05:29 am