杭州交通信息网5个美术界名人传记:各路英雄豪杰，谁有傲世OL的外挂，或者可以用的按键精灵挂机脚本？
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/04 23:59:54
注明：不要那种什么只有+血+蓝的垃圾脚本，或是不能用的。外挂不求高级，只求能用。
谢谢！
简单游`我用过啊，可是里面只有4个关于傲世OL的工具，而且都不能用！
都120分了，还没有人来回答？
那个脚本这么长，而且还有错误不能用。
Rem rem HuS黄沙石，ZiS紫沙石,LaS蓝沙石
Rem rem Ju矩石，Ling菱石，Jin晶石
Rem rem Ding锭石，Lin鳞石，Yu御石，Yue跃石
Rem rem Tu土石，Sui碎石,Hua滑石，Tian田石，Shan山石，Shi石英
Rem Fe铁石，Ag铁石，Au铁石，Pt铁石
VBS HuS=1
VBS ZiS=1
VBS LaS=1
VBS Ju=1
VBS Ling=1
VBS Jin=0
VBS Ding=1
VBS Lin=1
VBS Yu=1
VBS Yue=1
VBS Tu=1
VBS Sui=1
VBS Fe=1
VBS Ag=1
VBS Au=1
VBS Pt=0
VBS M=1
VBS N=21
For 900000000
VBS M=1
For 20
VBS intX=-1
VBS intY=-1
If HuS=1 AND M=1
VBSCall FindPic(680,450,950,630,"E:\aoshi\XC_ShaHuang.bmp",0.5,intX,intY)
EndIf
If ZiS=1 AND M=2
VBSCall FindPic(680,450,950,630,"E:\aoshi\XC_ShaZi.bmp",0.5,intX,intY)
EndIf
If LaS=1 AND M=3
VBSCall FindPic(680,450,950,630,"E:\aoshi\XC_ShaLan.bmp",0.5,intX,intY)
EndIf
If Ju=1 AND M=4
VBSCall FindPic(680,450,950,630,"E:\aoshi\ZC_JU.bmp",0.7,intX,intY)
EndIf
If Ling=1 AND M=5
VBSCall FindPic(680,450,950,630,"E:\aoshi\ZC_LING.bmp",0.7,intX,intY)
EndIf
If Jin=1 AND M=6
VBSCall FindPic(680,450,950,630,"E:\aoshi\ZC_JIN.bmp",0.7,intX,intY)
EndIf
If Ding=1 AND M=7
VBSCall FindPic(680,450,950,630,"E:\aoshi\XC_DING.bmp",0.7,intX,intY)
EndIf
If Lin=1 AND M=8
VBSCall FindPic(680,450,950,630,"E:\aoshi\XC_LIN.bmp",0.7,intX,intY)
EndIf
If Yu=1 AND M=9
VBSCall FindPic(680,450,950,630,"E:\aoshi\XC_YU.bmp",0.7,intX,intY)
EndIf
If Yue=1 AND M=10
VBSCall FindPic(680,450,950,630,"E:\aoshi\XC_YUE.bmp",0.7,intX,intY)
EndIf
If Tu=1 AND M=11
VBSCall FindPic(680,450,950,630,"E:\aoshi\ZA_TU.bmp",0.7,intX,intY)
EndIf
If Sui=1 AND M=12
VBSCall FindPic(680,450,950,630,"E:\aoshi\ZA_SUI.bmp",0.7,intX,intY)
EndIf
If Fe=1 AND M=13
VBSCall FindPic(680,450,950,630,"E:\aoshi\ZC_Fe.bmp",0.7,intX,intY)
EndIf
If Ag=1 AND M=14
VBSCall FindPic(680,450,950,630,"E:\aoshi\ZC_Ag.bmp",0.7,intX,intY)
EndIf
If Au=1 AND M=15
VBSCall FindPic(680,450,950,630,"E:\aoshi\ZC_Au.bmp",0.7,intX,intY)
EndIf
If Pt=1 AND M=16
VBSCall FindPic(680,450,950,630,"E:\aoshi\ZC_Pt.bmp",0.7,intX,intY)
EndIf
If intX>0 and intY>0
VBS intX=intX+10
VBS intY=intY+10
MoveTo intX intY
Delay 500
LeftClick 1
Delay 300
MoveTo 576 432
Delay 300
LeftClick 1
Delay 300
EndIf
VBS M=M+1
EndFor
Rem rem 混元无极盒储备
VBSCall FindPic(680,450,950,630,"E:\AOSHI\BS_YG.bmp",0.5,X,Y)
If X>0 AND Y>O
Goto 扔盒子里
EndIf
VBSCall FindPic(680,450,950,630,"E:\AOSHI\BS_SL.bmp",0.5,X,Y)
If X>0 AND Y>O
Goto 扔盒子里
EndIf
VBSCall FindPic(680,450,950,630,"E:\AOSHI\BS_JH.bmp",0.5,X,Y)
If X>0 AND Y>O
Goto 扔盒子里
EndIf
Rem 扔盒子里
If N<21
If X>0 and Y>0
If N<6
VBS XX=845+(N-1)*25
VBS YY=275
EndIf
If N<11 AND N>5
VBS XX=845+(N-6)*25
VBS YY=300
EndIf
If N<16 AND N>10
VBS XX=845+(N-11)*25
VBS YY=325
EndIf
If N<21 AND N>15
VBS XX=845+(N-16)*25
VBS YY=350
EndIf
VBS X=X+10
VBS Y=Y+10
MoveTo X Y
Delay 500
LeftClick 1
Delay 300
MoveTo XX YY
Delay 300
LeftClick 1
Delay 300
VBS N=N+1
EndIf
EndIf
EndFor
桌面的分辨率1152*864，你们先把桌面分辨率打到这样。客户端的窗口是默认的打开位置，不要移动它。注意图里面的背包和混元无极盒的位置，背包右边紧贴客户端窗口的右边框，下边紧贴下面的工具栏。混元无极盒右边紧贴客户端右边框，下边紧贴背包上边。
www.kkwg.com 那里有下载
用“简单游”吧
http://www.jdyou.com/
用“简单游”吧
http://www.jdyou.com/