回复 7# cashiba
#AccAu3Wrapper_UseX64=n ;是否编译为64位程序(y/n)
#NoTrayIcon
#include<IE.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 859, 548, 192, 114)
$oie = _IECreateEmbedded()
GUICtrlCreateObj($oIE, 0, 0, 857, 545)
GUISetState(@SW_SHOW)
_IENavigate($oie ,"http://www.autoitx.com")
_IELinkClickByText($oie ,"登录")
Do
$user = _IEGetObjByName($oie ,"username")
$pass = _IEGetObjByName($oie ,"password")
$submitbtn = _IEGetObjByName($oie ,"loginsubmit")
Until IsObj($user)
$user.value = "testname"
$pass.value = "testpass"
$submitbtn.click
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
|