Lapo Posted April 20, 2006 Share Posted April 20, 2006 expandcollapse popup#include<IE.au3> $oIE = _IECreate() _IENavigate($oIE, "http://www.tin.it") getFormS() sleep(100) $oForm= _IEFormGetObjByIndex($oIE, 1) $oQuery = _IEFormElementGetObjByName($oForm, "USER") $oQuery2 = _IEFormElementGetObjByName($oForm, "PASS") _IEFormElementSetValue($oQuery, "Myusername") _IEFormElementSetValue($oQuery2, "Mypassword") Sleep(100) ;;;;;;; $oIE.document.all.Act_Login.Click sleep(1500) func getForms() $oDoc = _IEDocumentGetObj($oIE) $forms = _IEFormGetCollection($oDoc) For $form in $forms ; MsgBox(262144, "", "Form name: " & $form.name & @CRLF) _FWrite(@TempDir & "\Forms.tmp","Form name: " & $form.name & @CRLF) $fes = _IEFormElementGetCollection($form) For $fe in $fes ;MsgBox(262144, "",@Tab & $fe.name & @TAB & "Type: " & $fe.type & @CRLF) _FWrite(@TempDir & "\tmp.tmp",$form.name & @Tab & $fe.name & @TAB & "Type: " & $fe.type & @CRLF) Next Next endFunc Func _FWrite($temp1,$text) $file = FileOpen($temp1, 1) If $file = -1 Then MsgBox(0, "Error", "Unable to open file.") Exit EndIf FileWrite($file, $text & @CRLF) FileClose($file) EndFunc run("notepad "& @TempDir & "\tmp.tmp" ) run("notepad "& @TempDir & "\Forms.tmp" ) Link to comment Share on other sites More sharing options...
Lapo Posted April 20, 2006 Author Share Posted April 20, 2006 By index : expandcollapse popup#include <IE.au3> $oIE = _IECreate() $oIE.visible = 0 sleep(500) _IENavigate($oIE, "http://www.libero.it/") $oIE.visible = 1 sleep(100) $oDoc = _IEDocumentGetObj($oIE) ;$oForm = _IEFormGetObjByName($oIE, "webmail") $oForm= _IEFormGetObjByIndex($oIE, 8); Zero based index Sleep(500) $oQuery = _IEFormElementGetObjByName($oForm, "Username") $oQuery2 = _IEFormElementGetObjByName($oForm, "Password") $oButton = _IEFormElementGetObjByName($oForm, "Act_Login") ;$oButton = _IEFormElementGetObjByName($oForm, "Entra") ;sleep(1000) $indx =_IEFormElementGetObjByIndex($oForm,1) $indx2 =_IEFormElementGetObjByIndex($oForm,2); @libero $indx3 =_IEFormElementGetObjByIndex($oForm,3) $indx4 =_IEFormElementGetObjByIndex($oForm,4) ;MsgBox(262144, "", $indx) _IEFormElementSetValue($indx, "myUSER") _IEFormElementSetValue($indx3, "myPASS") _IEFormElementSetValue($indx2, "libero") Sleep(500) ;;;;;;;$oIE.document.all.Act_Login.Click $oDoc = _IEDocumentGetObj($oIE) $forms = _IEFormGetCollection($oDoc) For $form in $forms ; MsgBox(262144, "", "Form name: " & $form.name & @CRLF) _FWrite(@TempDir & "\Forms.tmp","Form name: " & $form.name & @CRLF) $fes = _IEFormElementGetCollection($form) For $fe in $fes ;MsgBox(262144, "",@Tab & $fe.name & @TAB & "Type: " & $fe.type & @CRLF) _FWrite(@TempDir & "\Forms.tmp",$form.name & @Tab & $fe.name & @TAB & "Type: " & $fe.type & @CRLF) Next Next Func _FWrite($temp1,$text) $file = FileOpen($temp1, 1) If $file = -1 Then MsgBox(0, "Error", "Unable to open file.") Exit EndIf FileWrite($file, $text & @CRLF) FileClose($file) EndFunc run("notepad "& @TempDir & "\Forms.tmp" ) Link to comment Share on other sites More sharing options...
Lakes Posted April 20, 2006 Share Posted April 20, 2006 By index : expandcollapse popup#include <IE.au3> $oIE = _IECreate() $oIE.visible = 0 sleep(500) _IENavigate($oIE, "http://www.libero.it/") $oIE.visible = 1 sleep(100) $oDoc = _IEDocumentGetObj($oIE) ;$oForm = _IEFormGetObjByName($oIE, "webmail") $oForm= _IEFormGetObjByIndex($oIE, 8); Zero based index Sleep(500) $oQuery = _IEFormElementGetObjByName($oForm, "Username") $oQuery2 = _IEFormElementGetObjByName($oForm, "Password") $oButton = _IEFormElementGetObjByName($oForm, "Act_Login") ;$oButton = _IEFormElementGetObjByName($oForm, "Entra") ;sleep(1000) $indx =_IEFormElementGetObjByIndex($oForm,1) $indx2 =_IEFormElementGetObjByIndex($oForm,2); @libero $indx3 =_IEFormElementGetObjByIndex($oForm,3) $indx4 =_IEFormElementGetObjByIndex($oForm,4) ;MsgBox(262144, "", $indx) _IEFormElementSetValue($indx, "myUSER") _IEFormElementSetValue($indx3, "myPASS") _IEFormElementSetValue($indx2, "libero") Sleep(500) ;;;;;;;$oIE.document.all.Act_Login.Click $oDoc = _IEDocumentGetObj($oIE) $forms = _IEFormGetCollection($oDoc) For $form in $forms ; MsgBox(262144, "", "Form name: " & $form.name & @CRLF) _FWrite(@TempDir & "\Forms.tmp","Form name: " & $form.name & @CRLF) $fes = _IEFormElementGetCollection($form) For $fe in $fes ;MsgBox(262144, "",@Tab & $fe.name & @TAB & "Type: " & $fe.type & @CRLF) _FWrite(@TempDir & "\Forms.tmp",$form.name & @Tab & $fe.name & @TAB & "Type: " & $fe.type & @CRLF) Next Next Func _FWrite($temp1,$text) $file = FileOpen($temp1, 1) If $file = -1 Then MsgBox(0, "Error", "Unable to open file.") Exit EndIf FileWrite($file, $text & @CRLF) FileClose($file) EndFunc run("notepad "& @TempDir & "\Forms.tmp" ) Changed this _IENavigate($oIE, "http://www.libero.it/") to this _IENavigate($oIE, "http://www.channel4.com/4money/ontv/deal_or_no_deal/freetoenter.html") and I get the error shown here.. Thanks! 2015 - Still no flying cars, instead blankets with sleeves. Link to comment Share on other sites More sharing options...
Valuater Posted April 20, 2006 Share Posted April 20, 2006 (edited) Have you seen this????its gets all of that and much, much morehttp://www.autoitscript.com/forum/index.ph...68&hl=Valuater#8) Edited April 20, 2006 by Valuater Link to comment Share on other sites More sharing options...
Lakes Posted April 20, 2006 Share Posted April 20, 2006 Have you seen this????its gets all of that and much, much morehttp://www.autoitscript.com/forum/index.ph...68&hl=Valuater#8)I`ll give the latest version another try, last time it froze on me...Thanks! 2015 - Still no flying cars, instead blankets with sleeves. Link to comment Share on other sites More sharing options...
Lapo Posted April 21, 2006 Author Share Posted April 21, 2006 (edited) and I get the error shown here.. BY INDEX : (i have tried 0 and 1 ) expandcollapse popup#include <IE.au3> $oIE = _IECreate() $oIE.visible = 0 sleep(500) _IENavigate($oIE, "http://www.channel4.com/4money/ontv/deal_or_no_deal/freetoenter.html") $oIE.visible = 1 sleep(5000) $oDoc = _IEDocumentGetObj($oIE) ;;;;;;;;;;;;;$oForm= _IEFormGetObjByIndex($oIE, 1); Zero based index $oForm= _IEFormGetObjByIndex($oIE, 0); Zero based index Sleep(500) ;;;;;;;$oIE.document.all.Act_Login.Click $oDoc = _IEDocumentGetObj($oIE) $forms = _IEFormGetCollection($oDoc) For $form in $forms ; MsgBox(262144, "", "Form name: " & $form.name & @CRLF) _FWrite(@TempDir & "\Forms.tmp","Form name: " & $form.name & @CRLF) $fes = _IEFormElementGetCollection($form) For $fe in $fes ;MsgBox(262144, "",@Tab & $fe.name & @TAB & "Type: " & $fe.type & @CRLF) _FWrite(@TempDir & "\Type.tmp",$form.name & @Tab & $fe.name & @TAB & "Type: " & $fe.type & @CRLF) Next Next Func _FWrite($temp1,$text) $file = FileOpen($temp1, 1) If $file = -1 Then MsgBox(0, "Error", "Unable to open file.") Exit EndIf FileWrite($file, $text & @CRLF) FileClose($file) EndFunc run("notepad "& @TempDir & "\Forms.tmp" ) run("notepad "& @TempDir & "\Type.tmp" ) Edited April 21, 2006 by Lapo Link to comment Share on other sites More sharing options...
Lapo Posted April 21, 2006 Author Share Posted April 21, 2006 I`ll give the latest version another try, last time it froze on me...Here on a win98se too >>> user.exe ERROR Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now