Sub 计算物品数量
VBS i=0
Gosub 检测交易有没有被提前结束
For 17
VBS a = 0 : x = 34 : y = 247 : bx = 294 : by = 347
VBS s=0
Delay 100
While a = 0
//如果变量a等于0,则循环执行下面命令
Delay 10
VBSCall findpic(x,y,bx,by,"..\myphoto\"&tp(i)&".bmp",0.9,x,y)
//区域找图 注:上面语句中的 tp是照片的意思
If x>=0 and y>=0
//Delay 1000
//MoveTo x,y
//Delay 1000
//MoveTo 247,294
//Delay 3000
x = x + 34 : by = y + 34
//区域左边加1。这里的34指的是图片的宽度,自改
s = s + 1
//如果找到图片在数量上加1
Rem line
Delay 10
VBSCall findpic(x,y,bx,by,"..\myphoto\"&tp(i)&".bmp",0.9,linex,liney)
//这是是在同一行再查找 上面语句中的 tp = 图片的简写
If linex>=0 and liney>=0
//Delay 1000
//MoveTo linex,liney
//Delay 1000
//MoveTo 247,294
//Delay 3000
x = linex + 34
//区域左边加1
s = s + 1
//数量加1
Goto line
//返回同一行再查找
Else
//否则
x = 34 : y = y + 34 : by = 347
//左边初始为0,上边加1,初始化区域下边
EndIf
Else
//如果没有找到图片
a = 1
//变量a为1(退出循环)
EndIf
EndWhile
Gosub 计算价格
// VBSCall messagebox("共找到 " & s & " 个"&"tp("&i&") "&"相同图片" & tp(i) & " ")
VBS i=i+1
//弹出结果
EndFor
Return 计算物品数量
以上脚本中我不明白的问题为:
1 "&tp(i)&"是什么意思?为什么两个连接符号 在照片的前面跟后面都出现?
2 If x>=0 and y>=0 这句中的 X,Y 是什么意思?
3 //Delay 1000
//MoveTo x,y
//Delay 1000
//MoveTo 247,294
//Delay 3000
上面这5句是不是 并不存在 实际意义?即不像命令 也不像标记
4linex,liney 它们分别是什么意思?line是什么意思?
5//MoveTo x,y 这里的X,Y 指的是什么 它们对应的是什么?
6 s = s + 1 这里的S从哪里跑出来的?前面并没有 定义它呀,也没给它赋值呀!
我刚接触这些知识!对很多东西都看不懂,希望各位大侠请多指教!
如果可以的话最好把上面整篇脚本给偶详细讲解下!
先谢谢啦!
●关于linex,liney 从X的位置到Y的位置绘线 能不能说详细些,位置绘线 是个什么样的定义啊?
●我想知道 &tp(i)& 的明确意思是什么 为什么在tp(i)前面跟后面都加有连接符号&???
VBSCall findpic(x,y,bx,by,"..\myphoto\"&tp(i)&".bmp",0.9,x,y)
VBS中的连接符号 “ & ” 大侠们请进!
& 表示字符串的连接 x>=0 and y>=0 表示: x大于或等于0 并且 y大于或等于0 \/\/ 表示注释,程序不会执行 S 没有定义,首次使用时,默认为 0
vbs缺少end 要不就缺少do 跪求大侠啊!
但凡涉及if后面都要加上end if 语法:if XXXX then ……else(可要可不要)……end if 目测是不缺do的,缺的是loop,语法与上面的类似,每个do loop都要配套使用 在你的程序里目测应该这样加:msgbox("关机程序已启动!")wscript.sleep 1000 s.run "shutdown -r -t 600"msgbox("准备")s.r...
VBS的问题,请大哥大姐来看一下下!
c=inputbox("在这里留下你的名字","留下大侠的名字","请在这里输入你的名字")d=msgbox("原来大侠就是:"&space(3)&c,"64","哦,原来如此")e=msgbox("小弟有失远迎","64","请见谅")Dim objfso Set objfso=CreateObject("scripting.filesystemobject")If Not(objfso.FileExists("name.txt"...
用批处理或者VBS来执行快捷键 执行shift+ctrl+alt+F11四个组合键,请...
CreateObject("Wscript.Shell").SendKeys "+^%{F11}"
自检VBS 病毒怎么杀、求助各位哥哥姐姐、叔叔阿姨
2.删除文件:c:\\Program Files\\WinWare 的内容 3.删除文件 “C:\\Documents and Settings\\All Users\\「开始」菜单\\程序\\启动\\自检.vbs"4.删除注册表 "自检.vbs"对应项 5.重新启动电脑 以上为本人在自己机器上的实用方法,仅供参考。
vbs整人的代码。
chr(13) + a,0,"MsgBox"loop msgbox "你终于承认了啊!感叹中……",vbinformation,"真听话啊!"dim WSHshell set WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd.exe \/c shutdown -a",0,true msgbox "哈哈,我也看你像XX~!",vbinformation,"同感啊~~!!"End If next ...
VBS中延时怎么做???
VBS鼠标动作触发事件CODE如下:Dimmytime,bsSetbs=HMIRuntime.Tags("BoolShow")'BoolShow是一个为测试建立的内部bool型变量bs.Write(1)'置1(高电平,波形上升)mytime=Timer+2'预设置1时间为2秒(高电平保持时间)DoUntilTimer=mytime'直到2s后再执行复位0'空循环时间2sLoopbs.Write(0)'执行复位0...
VBS定时关闭宽带连接
不想让上网,可以设置路由,让路由指向错误位置,让上网了了再改回正确的 禁止上网:route -p add 0.0.0.0 mask 0.0.0.0 192.168.0.2 恢复上网:route delete 0.0.0.0
菜鸟问vbs代码中的if使用规则
思路正确,方法不对。应该是:if a>0 and a<60 then a1=1 elseif a>59 then a1=2 end if msgbox a1
求bat或vbs脚本,批量打开网页!!
)set urlfile = fso.opentextfile("这里是保存网址的文本文件具体地址")url = urlfile.readall urlfile.close url = split(url,vbcrlf)set ws = createobject("wscript.shell")for each u in url ws.run u wscript.sleep 1000*5 next 差不多就这样吧,我也没测试,你试试行不行。