本帖最后由 xx44t10 于 2012-4-28 23:54 编辑 #include <WindowsConstants.au3>
#include <IE.au3>
$Form1 = GUICreate("内嵌IE",300, 200,400,400,$WS_POPUP, $WS_EX_TOOLWINDOW); *****注意窗口扩展样式*****
$oIE = ObjCreate("Shell.Explorer.2");
GUICtrlCreateObj($oIE, -12, -17, 300, 200) ;对上面的对象设置大小
GUIRegisterMsg($WM_NCHITTEST, "WM_NCHITTEST") ;*****使窗口能移动*****
GUISetState(@SW_SHOW);显示gui
#EndRegion ### END Koda GUI section ###
While 1 ;循环
$oIE.navigate("http://www.2345.com")
Sleep ("2000")
js(FileRead("jquery-1.6.1.min.js"))
js("$('#search1').val('歌词')")
js("$('.sbutton').click()")
Sleep(100)
WinClose("百度搜索_歌词","")
WinClose("百度搜索_歌词","")
Sleep(100)
WinClose("","google")
WEnd;
exit
;*****
Func WM_NCHITTEST($hGui, $iMsg, $iwParam, $ilParam)
If ($hGui = $hGui) And ($iMsg = $WM_NCHITTEST) Then Return $HTCAPTION
EndFunc ;=>使窗口能移动函数
;*****
Func js($script)
$oIE.document.parentWindow.execscript($script)
EndFunc
jquery-1.6.1.min.js的代码是:把au3后缀名改为js
如何退出这个循环.谢谢了 |