[已解决]如何退出这个程序的循环~!
本帖最后由 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
如何退出这个循环.谢谢了 回复 1# xx44t10
首先得问你:
什么情况下退出循环? 循环运行一次? 2次?
还是接到退出循环指令为止? 回复 2# user3000
循环一次怎么退出?
循环二次怎么退出?
应该怎么退出这个循环指令呢? 举个例吧. 回复 3# xx44t10
都中级会员了, 这些入门级的问题应该要自己尝试并努力去解决了!
$count = 0
While 1
Sleep (100) ; 适当加延迟可降低CPU的占用率
$count += 1
msgbox(0, 'While 循环信息', '当前第 ' & $count & ' 次循环! ')
if $count = 2 then exitloop
wend
$count = 0
do
Sleep (100) ; 适当加延迟可降低CPU的占用率
$count += 1
msgbox(0, 'Do 循环信息', '当前第 ' & $count & ' 次循环! ')
until $count = 2
For $i = 1 to 2
msgbox(0, 'For 循环信息', '当前第 ' & $count & ' 次循环! ')
next 回复 4# user3000
以前又不经常用au3 我是半桶水呀.看来我还是得努力学习啊..谢谢你了.
页:
[1]