jmfs.net
当前位置:首页>>关于求按键精灵源码,DO循环中,如果找到这个图片就执...的资料>>

求按键精灵源码,DO循环中,如果找到这个图片就执...

Do Do FindPic 0,0,1024,768,"Attachment:\神盾.bmp",0.9,intX,intY'神盾.bmp改成你要找的图片名称 If intX > 0 And intY > 0 Then Call 程序1 Exit Do End If Delay 1000 Loop Call 程序2 Loop Sub 程序1 '你的程序 End Sub Sub 程序2 '你的程...

Rem 标记FindPic 0,0,1024,768,"Attachment:\1.bmp",0.9,intX,intYIf intX = - 1 Then Goto 标记End If//下一个命令

您好,这个非常简单。。可以调用子程序功能,学按键要会举一反三哦。代码如下: dim a a=0 Call a0() Sub a0() while a=0 FindPic 0, 0, 1440, 900,"Attacment:\1.bmp",0.9,aX,aY if ax>0 and ay >0 then delay 1000 moveTo aX,aY delay 1000...

Rem Start 换IP代码XXXXXXX dim n n=0 DO if n>2 then Exit Do if 条件A Then Exit Do Else If 条件B Then GOTO Start End If Else Delay 3000 End If n=n+1 Loop

下面代码在按键精灵9中编译通过: For 50 把循环50次执行的代码放在这里 Next

方法1 i=1 Do For i KeyPress "Down", 5 Next Delay 1000 i=i+1 loop 方法2 For i = 1 To i + 1 For i * 5 KeyPress "Down", 1 Next TracePrint i Delay 1000 Next

i=1while 1 keypress "down", i i=i+1wend这样就可以了,希望我的回答对你有帮助! ^o^

当然行,写上xmlUrl = 找源代码的网页地址Set xmlHttp = CreateObject("Microsoft.XMLHTTP") xmlHttp.Open "Get", xmlUrl, False xmlHttp.Send网页的源代码 = XmlHttp.ResponseText

//只能这样,道理一样 Sub 打开几个() call 第一个() call 第二个() End Sub Sub 第一个() End Sub Sub 第二个() End Sub

Rem q Delay 1000 FindPic 0,0,1024,768,"Attachment:\神盾.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then ExitScript End If Goto q

网站首页 | 网站地图
All rights reserved Powered by www.jmfs.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com