当前位置：首页 » 手游挂机 » vbs挂机
扩展阅读
天成解说一个人的游戏 2021-03-16 21:51:02
打游戏什么牌子显卡好 2021-03-16 21:51:00
幼儿园爬的游戏有什么作用 2021-03-16 21:50:59

vbs挂机

发布时间: 2021-02-24 17:18:33

Ⅰ 求助!关于打手挂机的问题

Rem 打怪
KeyPress 114 1
Delay 50
Rem 补血兰
IfColor 125 12 424563 2
KeyPress 118 1
Delay 300
EndIf
IfColor 93 12 424563 2
KeyPress 118 1
Delay 300
EndIf
IfColor 70 18 634542 2
KeyPress 117 1
Delay 300
EndIf
Rem 捡物
KeyPress 115 1
Delay 300
Rem 找怪回
MoveTo 0 300
Delay 300
MoveTo 525 435
Delay 300
LeftClick 1
Delay 200
Rem 无药回城答
IfColor 856 736 000000 2
KeyPress 119 1
Delay 300
EndIf
IfColor 825 738 000000 2
KeyPress 119 1
Delay 300
EndIf
Goto 打怪

Ⅱ 求个vbs脚本，实现监测网络连接

感觉你这个监视目的意义不大，按理说拨号连接的属性就可以让电脑在断线后自动重拨，且可以设置重拨次数(最高99)，还可以设置重拨间隔。我觉得够你用的，不就是打游戏吗？

非要什么PING来监视的话，一楼的效果不好，你的思路也不对。用下面这段，直接就知道目标是不是通了。 并且可以监视多个目标，防止一个目标万一不通的时候造成的错误动作。

strMachines = ".com;google.com"
aMachines = split(strMachines, ";")
For Each machine in aMachines
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address = '" & machine & "'")
For Each objStatus in objPing
If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then
WScript.Echo( machine & " 不通")
Else
MsgBox machine & " 通啦"
End If
Next
Next

Ⅲ 熟悉批处理，vbs的说，需要一个游戏的设置，游戏挂机，掉线会音乐提醒

试试我的vbs代码：

'══代══码══开══始════
set fso=CreateObject("Scripting.FileSystemObject")
set dt1=CreateObject("Scripting.Dictionary")
set dt2=CreateObject("Scripting.Dictionary")
set fw=fso.createtextfile("差异记录.txt",2)
set fd=fso.getfolder("D:\网络游戏")
set fds=fd.subfolders
for each d in fds
dt1.add d.name,d.name
next
set fd=fso.getfolder("E:\网络游戏")
set fds=fd.subfolders
for each d in fds
dt2.add d.name,d.name
next
fw.writeline "====两盘中共有的项目：===="
its2=dt2.items
for i=0 to dt2.count-1
if dt1.exists(its2(i))=true then
fw.writeline its2(i)
end if
next
'Coded By escortmnm from VBS团队
'══代══码══结══束════

Ⅳ 热血江湖按键精灵挂机(脚本高手)进

KeyPress 114 1
Delay 50
IfColor 58 24 5a4542 0
KeyPress 117 1
Delay 800
EndIf
IfColor 76 10 393852 0
KeyPress 115 1
Delay 800
EndIf
这个是QE的群脚本 网上下个按键精灵 然后把脚本添加进去
F3是技能 F6是蓝 启动热键自己可以设置的

Ⅳ 游戏里的挂机脚本一般都是怎么写的的啊，别告诉我是按键精灵- -

简单的有按键抄精灵，难点的有，VB之类的，易语言也是。不过后面的都可以做游戏外G了。而按键精灵貌似只能跑跑脚本，按键精灵不是有录制功能吗？
那些编程里面，按键精灵还是最简单的。要学难得就自己学VB，或者C语言，E语言好了。
----------
你那个是什么游戏，会把按键精灵给做掉？

Ⅵ 怎么样用vbscript或者按键精灵实现自动化游戏

看你想怎么做,像有规律性的操作都是可以用vbs做成脚本自动跑的,一般的RPG游戏前面升级都是做任务的,一个接任务框一个完成框,然后就是副本,通过找字,找图或找色应该是可以的.

Ⅶ 机战按键精灵近战挂机脚本，在教教我怎么用。我不懂按键精灵

我刚玩没几天 复制一个给你 希望有用~~~~~~~~~
1.首先要选择职业 0近战 1远战
2.要把显示人物名字的选项关闭
3.可以使用带加PW的4号核心
4.脚本支持两个技能 放的时候最好一个用PW的 一个用EN的
5.XP技能从右到左1,2,3 根据喜好自己修改用哪种XP 默认1
6.F1红 F2 F3技能 F8回城卷
7.最好关闭与按键无关的其他软件 避免出现游戏变卡 影响脚本正常运行

//F1红 F2 F3技能 F8回城卷
VBS dim hp,m,n,a,b,c,d,e,f,g,h,i,j,k,l,q,r
VBS dim ye,zidongzhaoguai,zidongjianwu,xp
VBS m=85:n=10
VBS a="":b="":e="":f="":g="":h="":i="":j="":k="":l="":q="":r=""
VBS c=0:d=0
VBS dim jn1,jn2
VBS jn1=0:jn2=0
UserVar ye=1 选择职业 0近战 1远战
UserVar hp=50 红量<%多少时,补红
UserVar zidongzhaoguai=1 0定点刷怪 1自动刷怪
UserVar zidongjianwu=1 0不自动捡物 1自动捡物
UserVar xp=1 选择使用哪种XP技能,从右到左1,2,3
Rem 机战
Gosub 找怪
Gosub 攻击怪
Gosub 补红
Gosub 捡钱
Gosub 捡熟练度
Gosub 捡流星
Gosub 捡粉红水晶
Gosub 捡蓝水晶x
Gosub 捡聚态水晶
Gosub 检测xp
Gosub 无弹回城
Gosub 拒绝交易
Gosub 同意组队
Gosub 关闭推荐任务
Gosub 关闭导师界面
Delay 32
Goto 机战
Sub 找怪
If zidongzhaoguai=1
VBSCall FindColorEx(85,140,855,480,"303b8",1,0.8,x,y)
If x<0 and y<0
Delay 32
VBS c=c+1
If c>4
Delay 225
MoveTo 510 500
LeftClick 1
Gosub 快速找怪
VBSCall FindColorEx(85,140,855,480,"303b8",1,0.8,x,y)
If x<0 and y<0
Delay 520
MoveTo 100 330
LeftClick 1
Gosub 快速找怪
VBSCall FindColorEx(85,140,855,480,"303b8",1,0.8,x,y)
If x<0 and y<0
Delay 520
MoveTo 510 200
LeftClick 1
Gosub 快速找怪
VBSCall FindColorEx(85,140,855,480,"303b8",1,0.8,x,y)
If x<0 and y<0
Delay 520
MoveTo 920 330
LeftClick 1
Gosub 快速找怪
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
Return
Sub 攻击怪
VBSCall FindColorEx(479,49,922,399,"303b8",1,0.8,x,y)
If x>=0 and y>=0
VBS c=0
MoveTo x-20 y+20
LeftClick 1
Delay 32
Gosub 攻击
VBSCall FindColorEx(479,339,922,650,"303b8",1,0.8,x,y)
If x>=0 and y>=0
VBS c=0
MoveTo x-20 y-20
LeftClick 1
Delay 32
Gosub 攻击
VBSCall FindColorEx(99,339,479,658,"303b8",1,0.8,x,y)
If x>=0 and y>=0
VBS c=0
MoveTo x+20 y-20
LeftClick 1
Delay 32
Gosub 攻击
VBSCall FindColorEx(83,85,479,399,"303b8",1,0.8,x,y)
If x>=0 and y>=0
VBS c=0
MoveTo x+20 y+20
LeftClick 1
Delay 32
Gosub 攻击
EndIf
EndIf
EndIf
EndIf
Return
Sub 攻击
VBSCall FindColorEx(35,100,920,510,"303b8",1,0.8,x,y)
If x>=0 and y>=0
MoveTo x+n y+m
RightClick 1
Gosub 技能1
Gosub 技能2
Else
VBSCall FindColorEx(35,100,920,510,"303b8",1,0.8,x,y)
If x>=0 and y>=0
MoveTo x+n y+m-n
RightClick 1
EndIf
EndIf
Return
Sub 快速找怪
VBSCall FindColorEx(313,10,315,12,"0",1,0.8,x,y)
If x<0 and y<0
KeyDown 17 1
LeftClick 1
KeyUp 17 1
EndIf
Return
Sub 技能1
IfColor 139 45 ae21 2
Delay 32
VBS jn1=jn1+1
If jn1>=4
KeyPress 113 1
VBS jn1=0
EndIf
EndIf
Return
Sub 技能2
IfColor 139 45 ae21 2
Delay 32
VBS jn2=jn2+1
If jn2>=8
KeyPress 114 1
VBS jn2=0
EndIf
EndIf
Return
Sub 补红
IfColor hp*1.13+121 31 313033 2
KeyPress 112 1
EndIf
Return
Sub 捡钱
If zidongjianwu=1
VBSCall FindColorEx(35,100,920,520,"45b0c9",1,0.8,x1,y1)
If x1>=0 and y1>=0
VBS a=x1:b=y1
VBSCall FindColorEx(a+5,b-50,a+45,b-30,"ffff",1,0.8,x2,y2)
If x2>=0 and y2>=0
MoveTo a b
Delay 32
LeftClick 1
VBS a="":b=""
EndIf
EndIf
EndIf
Return
Sub 捡熟练度
If zidongjianwu=1
VBSCall FindColorEx(35,100,920,520,"ad497f",1,0.8,x1,y1)
If x1>=0 and y1>=0
VBS e=x1:f=y1
VBSCall FindColorEx(e+5,f-50,e+45,f-30,"ffff",1,0.8,x2,y2)
If x2>=0 and y2>=0
MoveTo e f
Delay 32
LeftClick 1
VBS e="":f=""
EndIf
EndIf
EndIf
Return
Sub 捡流星
If zidongjianwu=1
VBSCall FindColorEx(35,100,920,520,"106d21",1,0.8,x1,y1)
If x1>=0 and y1>=0
VBS g=x1:h=y1
VBSCall FindColorEx(g-5,h-25,g+45,h-5,"ffff",1,0.8,x2,y2)
If x2>=0 and y2>=0
MoveTo g h
Delay 32
LeftClick 1
VBS g="":h=""
EndIf
EndIf
EndIf
Return
Sub 捡粉红水晶
If zidongjianwu=1
VBSCall FindColorEx(35,100,920,520,"8b16ab",1,0.8,x1,y1)
If x1>=0 and y1>=0
VBS i=x1:j=y1
VBSCall FindColorEx(i-5,j-30,i+45,j-10,"ffff",1,0.8,x2,y2)
If x2>=0 and y2>=0
MoveTo i j
Delay 32
LeftClick 1
VBS i="":j=""
EndIf
EndIf
EndIf
Return
Sub 捡蓝水晶
If zidongjianwu=1
VBSCall FindColorEx(35,100,920,520,"ffb783",1,0.8,x1,y1)
If x1>=0 and y1>=0
VBS k=x1:l=y1
VBSCall FindColorEx(k-5,l-45,k+45,l-8,"ffff",1,0.8,x2,y2)
If x2>=0 and y2>=0
MoveTo k l
Delay 32
LeftClick 1
VBS k="":l=""
EndIf
EndIf
EndIf
Return
Sub 捡聚态水晶
If zidongjianwu=1
VBSCall FindColorEx(35,100,920,520,"94f729",1,0.8,x1,y1)
If x1>=0 and y1>=0
VBS q=x1:r=y1
VBSCall FindColorEx(q-5,r-30,q+5,r-20,"ffff",1,0.8,x2,y2)
If x2>=0 and y2>=0
MoveTo g h
Delay 32
LeftClick 1
VBS q="":r=""
EndIf
EndIf
EndIf
Return
Sub 检测xp
VBSCall FindColorEx(800,500,900,550,"cdb886",1,0.8,x,y)
If x>=0 and y>=0
Gosub xp1
Gosub xp2
Gosub xp3
EndIf
Return
Sub xp1
If xp=1
MoveTo 935 540
Delay 32
LeftClick 1
EndIf
Return
Sub xp2
If xp=2
MoveTo 881 547
Delay 32
LeftClick 1
EndIf
Return
Sub xp3
If xp=3
MoveTo 812 551
Delay 32
LeftClick 1
EndIf
Return
Sub 无弹回城
If ye=1
VBSCall FindColorEx(575,6,580,10,"101010",1,0.8,x,y)
If x<0 and y<0
Delay 32
VBS d=d+1
If d=6
KeyPress 119 1
EndIf
EndIf
EndIf
Return
Sub 拒绝交易
VBSCall FindColorEx(133,312,135,314,"ffffff",1,0.8,x1,y1)
VBSCall FindColorEx(311,389,313,391,"916e23",1,0.8,x2,y2)
VBSCall FindColorEx(326,233,328,235,"8b6ff",1,0.8,x3,y3)
If x1>=0 and y1>=0 and x2>=0 and y2>=0 and x3>=0 and y3>=0
MoveTo 312 390
Delay 32
LeftClick 1
EndIf
Return
Sub 同意组队
VBSCall FindColorEx(270,232,275,238,"c7ff",1,0.8,x1,y1)
VBSCall FindColorEx(220,393,225,396,"aeff",1,0.8,x2,y2)
If x1>=0 and y1>=0 and x2>=0 and y2>=0
MoveTo 223 394
Delay 32
LeftClick 1
EndIf
Return
Sub 关闭推荐任务
VBSCall FindColorEx(905,236,907,238,"c7ff",1,0.8,x1,y1)
VBSCall FindColorEx(605,234,607,236,"c3ff",1,0.8,x2,y2)
If x1>=0 and y1>=0 and x2>=0 and y2>=0
MoveTo 906 237
Delay 32
LeftClick 1
EndIf
Return
Sub 关闭导师界面
VBSCall FindColorEx(269,180,271,182,"c3f7",1,0.8,x1,y1)
VBSCall FindColorEx(276,175,278,177,"dec7b5",1,0.8,x2,y2)
If x1>=0 and y1>=0 and x2>=0 and y2>=0
MoveTo 270 181
Delay 32
LeftClick 1
EndIf
Return

Ⅷ 魔兽世界挂机

新建 XXX.VBS 文件
复制以下
Dim wshshell
Set wshshell = WSCRIPT.createobject("wscript.shell")
wshshell.appactivate "魔兽世界"
while true
wscript.sleep 3000
wshshell.sendkeys " "
wend
保存,使用时双击就可以了PS：关闭的时候，打开任务管理器，找到wscript.exe结束任务就可以了，关闭WOW是无效的，只适用无人值守电脑的情况 （内容来自NGA： http://bbs.ngacn.cc/read.php?tid=3618810&page=2）

Ⅸ 机战 按键精灵如何挂机

.首先要选择职业 0近战 1远战
2.要把显示人物名字的选项关闭
3.可以使用带加PW的4号核心
4.脚本支持两个技能 放的时候最好一个用PW的 一个用EN的
5.XP技能从右到左1,2,3 根据喜好自己修改用哪种XP 默认1
6.F1红 F2 F3技能 F8回城卷
7.最好关闭与按键无关的其他软件 避免出现游戏变卡 影响脚本正常运行

//F1红 F2 F3技能 F8回城卷
VBS dim hp,m,n,a,b,c,d,e,f,g,h,i,j,k,l,q,r
VBS dim ye,zidongzhaoguai,zidongjianwu,xp
VBS m=85:n=10
VBS a="":b="":e="":f="":g="":h="":i="":j="":k="":l="":q="":r=""
VBS c=0:d=0
VBS dim jn1,jn2
VBS jn1=0:jn2=0
UserVar ye=1 选择职业 0近战 1远战
UserVar hp=50 红量<%多少时,补红
UserVar zidongzhaoguai=1 0定点刷怪 1自动刷怪
UserVar zidongjianwu=1 0不自动捡物 1自动捡物
UserVar xp=1 选择使用哪种XP技能,从右到左1,2,3
Rem 机战
Gosub 找怪
Gosub 攻击怪
Gosub 补红
Gosub 捡钱
Gosub 捡熟练度
Gosub 捡流星
Gosub 捡粉红水晶
Gosub 捡蓝水晶x
Gosub 捡聚态水晶
Gosub 检测xp
Gosub 无弹回城
Gosub 拒绝交易
Gosub 同意组队
Gosub 关闭推荐任务
Gosub 关闭导师界面
Delay 32
Goto 机战
Sub 找怪
If zidongzhaoguai=1
VBSCall FindColorEx(85,140,855,480,"303b8",1,0.8,x,y)
If x<0 and y<0
Delay 32
VBS c=c+1
If c>4
Delay 225
MoveTo 510 500
LeftClick 1
Gosub 快速找怪
VBSCall FindColorEx(85,140,855,480,"303b8",1,0.8,x,y)
If x<0 and y<0
Delay 520
MoveTo 100 330
LeftClick 1
Gosub 快速找怪
VBSCall FindColorEx(85,140,855,480,"303b8",1,0.8,x,y)
If x<0 and y<0
Delay 520
MoveTo 510 200
LeftClick 1
Gosub 快速找怪
VBSCall FindColorEx(85,140,855,480,"303b8",1,0.8,x,y)
If x<0 and y<0
Delay 520
MoveTo 920 330
LeftClick 1
Gosub 快速找怪
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
Return
Sub 攻击怪
VBSCall FindColorEx(479,49,922,399,"303b8",1,0.8,x,y)
If x>=0 and y>=0
VBS c=0
MoveTo x-20 y+20
LeftClick 1
Delay 32
Gosub 攻击
VBSCall FindColorEx(479,339,922,650,"303b8",1,0.8,x,y)
If x>=0 and y>=0
VBS c=0
MoveTo x-20 y-20
LeftClick 1
Delay 32
Gosub 攻击
VBSCall FindColorEx(99,339,479,658,"303b8",1,0.8,x,y)
If x>=0 and y>=0
VBS c=0
MoveTo x+20 y-20
LeftClick 1
Delay 32
Gosub 攻击
VBSCall FindColorEx(83,85,479,399,"303b8",1,0.8,x,y)
If x>=0 and y>=0
VBS c=0
MoveTo x+20 y+20
LeftClick 1
Delay 32
Gosub 攻击
EndIf
EndIf
EndIf
EndIf
Return
Sub 攻击
VBSCall FindColorEx(35,100,920,510,"303b8",1,0.8,x,y)
If x>=0 and y>=0
MoveTo x+n y+m
RightClick 1
Gosub 技能1
Gosub 技能2
Else
VBSCall FindColorEx(35,100,920,510,"303b8",1,0.8,x,y)
If x>=0 and y>=0
MoveTo x+n y+m-n
RightClick 1
EndIf
EndIf
Return
Sub 快速找怪
VBSCall FindColorEx(313,10,315,12,"0",1,0.8,x,y)
If x<0 and y<0
KeyDown 17 1
LeftClick 1
KeyUp 17 1
EndIf
Return
Sub 技能1
IfColor 139 45 ae21 2
Delay 32
VBS jn1=jn1+1
If jn1>=4
KeyPress 113 1
VBS jn1=0
EndIf
EndIf
Return
Sub 技能2
IfColor 139 45 ae21 2
Delay 32
VBS jn2=jn2+1
If jn2>=8
KeyPress 114 1
VBS jn2=0
EndIf
EndIf
Return
Sub 补红
IfColor hp*1.13+121 31 313033 2
KeyPress 112 1
EndIf
Return
Sub 捡钱
If zidongjianwu=1
VBSCall FindColorEx(35,100,920,520,"45b0c9",1,0.8,x1,y1)
If x1>=0 and y1>=0
VBS a=x1:b=y1
VBSCall FindColorEx(a+5,b-50,a+45,b-30,"ffff",1,0.8,x2,y2)
If x2>=0 and y2>=0
MoveTo a b
Delay 32
LeftClick 1
VBS a="":b=""
EndIf
EndIf
EndIf
Return
Sub 捡熟练度
If zidongjianwu=1
VBSCall FindColorEx(35,100,920,520,"ad497f",1,0.8,x1,y1)
If x1>=0 and y1>=0
VBS e=x1:f=y1
VBSCall FindColorEx(e+5,f-50,e+45,f-30,"ffff",1,0.8,x2,y2)
If x2>=0 and y2>=0
MoveTo e f
Delay 32
LeftClick 1
VBS e="":f=""
EndIf
EndIf
EndIf
Return
Sub 捡流星
If zidongjianwu=1
VBSCall FindColorEx(35,100,920,520,"106d21",1,0.8,x1,y1)
If x1>=0 and y1>=0
VBS g=x1:h=y1
VBSCall FindColorEx(g-5,h-25,g+45,h-5,"ffff",1,0.8,x2,y2)
If x2>=0 and y2>=0
MoveTo g h
Delay 32
LeftClick 1
VBS g="":h=""
EndIf
EndIf
EndIf
Return
Sub 捡粉红水晶
If zidongjianwu=1
VBSCall FindColorEx(35,100,920,520,"8b16ab",1,0.8,x1,y1)
If x1>=0 and y1>=0
VBS i=x1:j=y1
VBSCall FindColorEx(i-5,j-30,i+45,j-10,"ffff",1,0.8,x2,y2)
If x2>=0 and y2>=0
MoveTo i j
Delay 32
LeftClick 1
VBS i="":j=""
EndIf
EndIf
EndIf
Return
Sub 捡蓝水晶
If zidongjianwu=1
VBSCall FindColorEx(35,100,920,520,"ffb783",1,0.8,x1,y1)
If x1>=0 and y1>=0
VBS k=x1:l=y1
VBSCall FindColorEx(k-5,l-45,k+45,l-8,"ffff",1,0.8,x2,y2)
If x2>=0 and y2>=0
MoveTo k l
Delay 32
LeftClick 1
VBS k="":l=""
EndIf
EndIf
EndIf
Return
Sub 捡聚态水晶
If zidongjianwu=1
VBSCall FindColorEx(35,100,920,520,"94f729",1,0.8,x1,y1)
If x1>=0 and y1>=0
VBS q=x1:r=y1
VBSCall FindColorEx(q-5,r-30,q+5,r-20,"ffff",1,0.8,x2,y2)
If x2>=0 and y2>=0
MoveTo g h
Delay 32
LeftClick 1
VBS q="":r=""
EndIf
EndIf
EndIf
Return
Sub 检测xp
VBSCall FindColorEx(800,500,900,550,"cdb886",1,0.8,x,y)
If x>=0 and y>=0
Gosub xp1
Gosub xp2
Gosub xp3
EndIf
Return
Sub xp1
If xp=1
MoveTo 935 540
Delay 32
LeftClick 1
EndIf
Return
Sub xp2
If xp=2
MoveTo 881 547
Delay 32
LeftClick 1
EndIf
Return
Sub xp3
If xp=3
MoveTo 812 551
Delay 32
LeftClick 1
EndIf
Return
Sub 无弹回城
If ye=1
VBSCall FindColorEx(575,6,580,10,"101010",1,0.8,x,y)
If x<0 and y<0
Delay 32
VBS d=d+1
If d=6
KeyPress 119 1
EndIf
EndIf
EndIf
Return
Sub 拒绝交易
VBSCall FindColorEx(133,312,135,314,"ffffff",1,0.8,x1,y1)
VBSCall FindColorEx(311,389,313,391,"916e23",1,0.8,x2,y2)
VBSCall FindColorEx(326,233,328,235,"8b6ff",1,0.8,x3,y3)
If x1>=0 and y1>=0 and x2>=0 and y2>=0 and x3>=0 and y3>=0
MoveTo 312 390
Delay 32
LeftClick 1
EndIf
Return
Sub 同意组队
VBSCall FindColorEx(270,232,275,238,"c7ff",1,0.8,x1,y1)
VBSCall FindColorEx(220,393,225,396,"aeff",1,0.8,x2,y2)
If x1>=0 and y1>=0 and x2>=0 and y2>=0
MoveTo 223 394
Delay 32
LeftClick 1
EndIf
Return
Sub 关闭推荐任务
VBSCall FindColorEx(905,236,907,238,"c7ff",1,0.8,x1,y1)
VBSCall FindColorEx(605,234,607,236,"c3ff",1,0.8,x2,y2)
If x1>=0 and y1>=0 and x2>=0 and y2>=0
MoveTo 906 237
Delay 32
LeftClick 1
EndIf
Return
Sub 关闭导师界面
VBSCall FindColorEx(269,180,271,182,"c3f7",1,0.8,x1,y1)
VBSCall FindColorEx(276,175,278,177,"dec7b5",1,0.8,x2,y2)
If x1>=0 and y1>=0 and x2>=0 and y2>=0
MoveTo 270 181
Delay 32
LeftClick 1
EndIf
Return

Ⅹ 有什么和按键精灵类似的也使用VBS的脚本编写环境啊

有个方法发现不了，就是开启神盾保护！
要求要有按键精灵的注册码即会员资格！回
如果是自己不会找图找色，答那是自己不会用，这好办！我教你就会了！
这里是我在按键精灵论坛发的脚本，你参考一下：
http://bbs.vrbrothers.com/viewthread.php?tid=86811

如果仍不明白可以联系我

阅读全文

与vbs挂机相关的内容

本站内容整理源于互联网，如有问题请联系解决。
Copyright design: www.uywang.com since 2013