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