帖子239&精华0&积分240&豌豆0 &阅读权限30&在线时间79 小时&注册时间&最后登录&
【按键精灵脚本大全】
以下为搜集到的各种作用的脚本,希望对大家有所帮助,呵呵
【挂机脚本】
KeyPress 120 1
Delay 1000
Gosub 保护
VBSCall FindColorEx(20,103,320,274,&,1,x,y)
If x&=0 and y&=0
& & MoveTo x y
& & Delay 200
& & LeftDoubleClick 1
& & Delay 200
KeyPress 120 1
MoveTo 703 464
LeftClick 1
Delay 1000
Gosub 保护
VBSCall FindColorEx(20,103,320,274,&,1,x,y)
If x&=0 and y&=0
& & MoveTo x y
& & Delay 200
& & LeftDoubleClick 1
& & Delay 200
MoveTo 703 464
LeftClick 1
Gosub 保护
IfColor 998 722 a56e3a 0
& & MoveTo 208 752
& & Delay 1000
& & LeftClick 1
& & Delay 3000
Gosub 保护
& & VBSCall FindCenterColor(16,17,775,394,&ff0000&,x,y)
& & If x&=0 and y&=0
& && &&&KeyPress 112 1
& && &&&MoveTo x y
& && &&&Gosub 打怪步骤
& && &&&Gosub 拣物
& && &&&MoveTo 221 306
& && &&&LeftClick 1
& && &&&Delay 700
& && &&&Gosub 保护
& && &&&LeftClick 1
& && &&&Delay 700
& && &&&Gosub 保护
& && &&&LeftClick 1
& && &&&Delay 700
& && &&&Gosub 保护
& && &&&LeftClick 1
& && &&&Delay 700
& && &&&Gosub 保护
& && &&&LeftClick 1
& && &&&Delay 700
& && &&&Gosub 保护
& && &&&MoveTo 245 69
& && &&&LeftClick 1
& && &&&Delay 1000
& && &&&Gosub 保护
& && &&&MoveTo 605 12
& && &&&LeftClick 1
& && &&&Delay 1000
& && &&&Gosub 保护
& && &&&MoveTo 245 69
& && &&&LeftClick 1
& && &&&Delay 1000
& && &&&Gosub 保护
& && &&&MoveTo 605 12
& && &&&LeftClick 1
& && &&&Delay 1000
& && &&&Gosub 保护
& && &&&MoveTo 245 69
& && &&&LeftClick 1
& && &&&Delay 1000
& && &&&Gosub 保护
& && &&&MoveTo 605 12
& && &&&LeftClick 1
& && &&&Delay 1000
& && &&&Gosub 保护
Sub 打怪步骤
& & KeyDown 17 1
& & KeyPress 87 1
& & KeyUp 17 1
& & Delay 50
& & LeftClick 1
& & Delay 1500
Return 打怪步骤
& & IfColor 80 446 52525a 0
& && &&&MoveTo 778 16
& && &&&Delay 30
& && &&&KeyDown 112 1
& && &&&Delay 500
& && &&&KeyUp 112 1
Return 加血
& & For 15
& && &&&VBSCall FindColorEx(16,17,775,394,&05ffff&,1,0.9,x,y)
& && &&&If x&=0 and y&=0
& && && && &x0=x+100
& && && && &MoveTo x y
& && && && &Delay 100
& && && && &LeftClick 1
& && && && &Delay 500
& && && && &KeyPress 192 1
& && &&&Else
& && && && &Delay 50
& && &&&EndIf
& & EndFor
Return 拣物
& & IfColor 121 26 b5bdbd 0
& && &&&KeyDown 18 1
& && &&&KeyPress 88 1
& && &&&KeyUp 18 1
& && &&&Delay 300
& && &&&MoveTo 424 353
& && &&&Delay 30
& && &&&LeftClick 1
& && &&&Delay 60000
& && &&&MoveTo 406 464
& && &&&Delay 30
& && &&&LeftClick 1
& && &&&Delay 5000
& && &&&MoveTo 401 440
& && &&&Delay 30
& && &&&LeftClick 1
& && &&&Delay 6000
& && &&&MoveTo 648 461
& && &&&Delay 50
& && &&&RightClick 1
& & IfColor 79 487 5a636b 0
& && &&&KeyDown 18 1
& && &&&KeyPress 88 1
& && &&&KeyUp 18 1
& && &&&Delay 300
& && &&&MoveTo 424 353
& && &&&Delay 30
& && &&&LeftClick 1
& & IfColor 77 461 5a636b 0
& && &&&KeyDown 18 1
& && &&&KeyPress 88 1
& && &&&KeyUp 18 1
& && &&&Delay 300
& && &&&MoveTo 424 353
& && &&&Delay 30
& && &&&LeftClick 1
& && &&&Delay 300000
& && &&&MoveTo 406 464
& && &&&Delay 30
& && &&&LeftClick 1
& && &&&Delay 5000
& && &&&MoveTo 401 440
& && &&&Delay 30
& && &&&LeftClick 1
& && &&&Delay 5000
& && &&&MoveTo 648 461
& && &&&Delay 50
& && &&&RightClick 1
Return 保护
//大小地图比例
VBS scale=30
//小地图上的最大距离，可以保证人物与怪在一个屏幕
//人怪相邻时的距离
//纪录停步时间
//表示移动方向上的偏移,左，下，右，上
VBS dim dirt(4,2)
VBS dirt(0,0)=-30
VBS dirt(0,1)=0
VBS dirt(1,0)=0
VBS dirt(1,1)=80
VBS dirt(2,0)=30
VBS dirt(2,1)=0
VBS dirt(3,0)=0
VBS dirt(3,1)=-30
VBS dim dirt2(4,2)
VBS dirt2(0,0)=-100
VBS dirt2(0,1)=0
VBS dirt2(1,0)=0
VBS dirt2(1,1)=150
VBS dirt2(2,0)=100
VBS dirt2(2,1)=0
VBS dirt2(3,0)=0
VBS dirt2(3,1)=-100
//打怪时鼠标的偏移量，从站的位置开始,从左开始
VBS dim fight(8,2)
VBS fight(0,0)=-40
VBS fight(0,1)=-40
VBS fight(1,0)=-25
VBS fight(1,1)=25
VBS fight(2,0)=5
VBS fight(2,1)=19
VBS fight(3,0)=25
VBS fight(3,1)=25
VBS fight(4,0)=35
VBS fight(4,1)=-20
VBS fight(5,0)=30
VBS fight(5,1)=-30
VBS fight(6,0)=0
VBS fight(6,1)=-50
VBS fight(7,0)=-30
VBS fight(7,1)=-30
//定义一个随机数
VBS rand=5
//小地图上人物坐标，此坐标固定
VBS role_x0=739
VBS role_y0=59
//大地图上人物站立位置，此坐标固定，取两脚之间的一点
VBS stand_x=390
VBS stand_y=210
VBS role_x1=390
VBS role_y1=140
//小地图上表示怪物的一点颜色为#0000FF
//小地图位置:左上角680,0& && &&&左下角680,120& && &&&右下角800,120& && &&&右上角800,0
//=====================寻找身边是否有怪==========================
VBSCall Call FindCenterColor(role_x0-d,role_y0-d,role_x0+d,role_y0+d,&0000FF&,monster_x0,monster_y0)
If monster_x0&=680 and monster_y0&=0
& & //在身边直接打怪
& & //八个打怪的方向，从左开始，逆时针打过来
& & If role_x0&monster_x0 and role_y0-d&monster_y0 and role_y0+d&monster_y0
& && &&&iii=0
& & If role_x0&monster_x0 and role_y0&monster_y0
& && &&&iii=1
& & If role_x0-d&monster_x0 and role_x0+d&monster_x0 and role_y0&monster_y0
& && &&&iii=2
& & If role_x0&monster_x0 and role_y0&monster_y0
& && &&&iii=3
& & If role_x0&monster_x0 and role_y0-d&monster_y0 and role_y0+d&monster_y0
& && &&&iii=4
& & If role_x0&monster_x0 and role_y0&monster_y0
& && &&&iii=5
& & If role_x0-d&monster_x0 and role_x0+d&monster_x0 and role_y0&monster_y0
& && &&&iii=6
& & If role_x0&monster_x0 and role_y0&monster_y0
& && &&&iii=7
& & click_x=stand_x+fight(iii,0)
& & click_y=stand_y+fight(iii,1)
& & If iii=2
& && &&&click_x=stand_x
& && &&&click_y=stand_y
& & MoveTo click_x click_y
& & LeftClick 1
& & Delay 500
& & Goto 杀怪
//========================寻找小地图上怪物坐标===========================
VBSCall Call GetCursorPos(x,y)
VBSCall new_color=GetPixelColor(x,y)
VBSCall Call FindCenterColor(680,0,800,120,&0000FF&,monster_x0,monster_y0)
If monster_x0&=680 and monster_y0&=0
& & If monster_x0&role_x0 and monster_y0&=role_y0
& && &&&//朝怪方向移动，怪在左上侧
& && &&&click_x=stand_x-50
& && &&&click_y=stand_y-50
& & If monster_x0&=role_x0 and monster_y0&role_y0
& && &&&//朝怪方向移动，怪在左下侧
& && &&&click_x=stand_x-50
& && &&&click_y=stand_y+50
& & If monster_x0&=role_x0 and monster_y0&role_y0
& && &&&//朝怪方向移动，怪在右上侧
& && &&&click_x=stand_x+50
& && &&&click_y=stand_y-50
& & If monster_x0&role_x0 and monster_y0&=role_y0
& && &&&//朝怪方向移动，怪在右下侧
& && &&&click_x=stand_x+50
& && &&&click_y=stand_y+50
& & MoveTo click_x click_y
& & LeftClick 1
& & Delay 1000
& & //路径上有障碍,这样3秒之后还站在原地，随机变向
& & If t&=3
& && &&&t=0
& && &&&VBSCall Call GetCursorPos(x,y)
& && &&&VBSCall new_color=GetPixelColor(x,y)
& && &&&If new_color=old_color
& && && && &VBSCall Call rnd=Rnd
& && && && &If rnd&=0 and rnd&0.25
& && && && && & old_color=new_color
& && && && && & click_x=stand_x-50
& && && && && & click_y=stand_y-50
& && && && &EndIf
& && && && &If rnd&=0.25 and rnd&0.5
& && && && && & old_color=new_color
& && && && && & click_x=stand_x-50
& && && && && & click_y=stand_y+50
& && && && &EndIf
& && && && &If rnd&=0.5 and rnd&0.75
& && && && && & old_color=new_color
& && && && && & click_x=stand_x+50
& && && && && & click_y=stand_y-50
& && && && &EndIf
& && && && &If rnd&=0.75 and rnd&=1
& && && && && & old_color=new_color
& && && && && & click_x=stand_x+50
& && && && && & click_y=stand_y+50
& && && && &EndIf
& && && && &MoveTo click_x click_y
& && && && &RightDown 1
& && && && &Delay 1000
& && && && &RightUp 1
& && &&&EndIf
& && &&&old_color=new_color
& & //=====================没怪跑路===========================
& & click_x=stand_x+dirt2(ii,0)
& & click_y=stand_y+dirt2(ii,1)
& & MoveTo click_x click_y
& & //LeftClick 1 走方式
& & RightDown 1
& & Delay 1000
& & RightUp 1
& & tt=tt+1
& & //路上遇到障碍，随机变道
& & If tt&=2
& && &&&tt=0
& && &&&VBSCall Call GetCursorPos(x,y)
& && &&&VBSCall new_color=GetPixelColor(x,y)
& && &&&If new_color=old_color
& && && && &ii=ii+1
& && && && &If ii&=4
& && && && && & VBSCall Call rnd=Rnd
& && && && && & If rnd&=0 and rnd&0.25
& && && && && && &&&ii=0
& && && && && & EndIf
& && && && && & If rnd&=0.25 and rnd&0.5
& && && && && && &&&ii=1
& && && && && & EndIf
& && && && && & If rnd&=0.5 and rnd&0.75
& && && && && && &&&ii=2
& && && && && & EndIf
& && && && && & If rnd&=0.75 and rnd&=1
& && && && && && &&&ii=3
& && && && && & EndIf
& && && && &EndIf
& && &&&EndIf
& && &&&old_color=new_color
//==================拾取金币=============================
VBSCall Call FindColor(stand_x-100,stand_y-100,stand_x+100,stand_y+100,&00FFFF&,x,y)
If x&=0 and y&=0
& & MoveTo x y
& & LeftClick 1
& & Delay 1000
& & Goto 拾金
【识别人物的脚本】
//汉字高度位置
VBS word_top=579
VBS word_buttom=591
//数字高度位置
VBS num_top=581
VBS num_buttom=590
//找出第一个汉字前面的黑块位置。
VBSCall Call FindColor(7,word_top,7,word_buttom,&000000&,x0,y)
& & VBSCall Call FindColor(8,word_top,8,word_buttom,&000000&,x0,y)
Rem 跳过所有的汉字
VBSCall Call FindColor(x,word_top,x,word_buttom,&FFFFFF&,x1,y)
& & x=x+12
& & Goto 跳过所有的汉字
//x0为最右边一个汉字右边的黑块
//初始化map_x,map_y坐标为0
//确定计算哪个坐标,遇到分割符:kk=2
//VBSCall Call MessageBox(CStr(x0))
//x0修改为第一个数字左边的黑块
Rem 获得下一个数字
//--------判断各个数字---------------
If GetPixelColor(x0+2,num_top+1)=&FFFFFF& and GetPixelColor(x0+3,num_top+1)=&FFFFFF& and&&GetPixelColor(x0+4,num_top+1)=&FFFFFF& and GetPixelColor(x0+1,num_top+2)=&FFFFFF& and GetPixelColor(x0+5,num_top+2)=&FFFFFF& and GetPixelColor(x0+5,num_top+3)=&FFFFFF& and GetPixelColor(x0+1,num_top+3)=&000000& and GetPixelColor(x0+3,num_top+4)=&FFFFFF& and GetPixelColor(x0+4,num_top+4)=&FFFFFF& and GetPixelColor(x0+2,num_top+4)=&000000&
& & value=3
& & //数字2
& & If GetPixelColor(x0+1,num_top+2)=&FFFFFF& and GetPixelColor(x0+5,num_top+2)=&FFFFFF& and&&GetPixelColor(x0+1,num_top+3)=&FFFFFF& and GetPixelColor(x0+5,num_top+3)=&FFFFFF& and GetPixelColor(x0+1,num_top+4)=&000000& and GetPixelColor(x0+4,num_top+4)=&FFFFFF& and GetPixelColor(x0+3,num_top+5)=&FFFFFF& and GetPixelColor(x0+2,num_top+6)=&FFFFFF& and GetPixelColor(x0+1,num_top+7)=&FFFFFF&
& && &&&value=2
& && &&&//数字1
& && &&&If GetPixelColor(x0+2,num_top+1)=&000000& and GetPixelColor(x0+3,num_top+1)=&FFFFFF& and&&GetPixelColor(x0+2,num_top+2)=&FFFFFF& and GetPixelColor(x0+3,num_top+3)=&FFFFFF& and GetPixelColor(x0+3,num_top+4)=&FFFFFF& and GetPixelColor(x0+3,num_top+5)=&FFFFFF& and GetPixelColor(x0+3,num_top+6)=&FFFFFF&
& && && && &value=1
& && &&&Else
& && && && &//数字9
& && && && &If GetPixelColor(x0+1,num_top+5)=&000000& and GetPixelColor(x0+2,num_top+5)=&FFFFFF& and&&GetPixelColor(x0+3,num_top+5)=&FFFFFF& and GetPixelColor(x0+4,num_top+5)=&FFFFFF& and GetPixelColor(x0+1,num_top+7)=&000000& and GetPixelColor(x0+2,num_top+7)=&FFFFFF&
& && && && && & value=9
& && && && &Else
& && && && && & //数字8
& && && && && & If GetPixelColor(x0+2,num_top+4)=&FFFFFF& and GetPixelColor(x0+1,num_top+5)=&FFFFFF& and&&GetPixelColor(x0+1,num_top+6)=&FFFFFF& and GetPixelColor(x0+1,num_top+7)=&FFFFFF& and&&GetPixelColor(x0+5,num_top+2)=&FFFFFF& and GetPixelColor(x0+5,num_top+3)=&FFFFFF&
& && && && && && &&&value=8
& && && && && & Else
& && && && && && &&&//数字7
& && && && && && &&&If GetPixelColor(x0+1,num_top+2)=&FFFFFF& and GetPixelColor(x0+4,num_top+2)=&FFFFFF& and&&GetPixelColor(x0+3,num_top+4)=&FFFFFF& and GetPixelColor(x0+3,num_top+5)=&FFFFFF&
& && && && && && && && &value=7
& && && && && && &&&Else
& && && && && && && && &//数字4
& && && && && && && && &If GetPixelColor(x0+3,num_top+2)=&FFFFFF& and GetPixelColor(x0+2,num_top+3)=&FFFFFF& and&&GetPixelColor(x0+2,num_top+4)=&FFFFFF& and GetPixelColor(x0+1,num_top+5)=&FFFFFF&
& && && && && && && && && & value=4
& && && && && && && && &Else
& && && && && && && && && & //数字6
& && && && && && && && && & If GetPixelColor(x0+2,num_top+4)=&FFFFFF& and GetPixelColor(x0+1,num_top+5)=&FFFFFF& and&&GetPixelColor(x0+1,num_top+6)=&FFFFFF& and GetPixelColor(x0+1,num_top+7)=&FFFFFF& and&&GetPixelColor(x0+4,num_top+2)=&FFFFFF&
& && && && && && && && && && &&&value=6
& && && && && && && && && & Else
& && && && && && && && && && &&&//数字5
& && && && && && && && && && &&&If GetPixelColor(x0+1,num_top+1)=&FFFFFF& and GetPixelColor(x0+2,num_top+1)=&FFFFFF& and&&GetPixelColor(x0+3,num_top+1)=&FFFFFF& and GetPixelColor(x0+4,num_top+1)=&FFFFFF& and&&GetPixelColor(x0+5,num_top+1)=&FFFFFF& and&&GetPixelColor(x0+1,num_top+2)=&FFFFFF&
& && && && && && && && && && && && &value=5
& && && && && && && && && && &&&Else
& && && && && && && && && && && && &//数字0
& && && && && && && && && && && && &If GetPixelColor(x0+1,num_top+2)=&FFFFFF& and GetPixelColor(x0+1,num_top+3)=&FFFFFF& and&&GetPixelColor(x0+1,num_top+4)=&FFFFFF& and GetPixelColor(x0+5,num_top+2)=&FFFFFF& and&&GetPixelColor(x0+5,num_top+3)=&FFFFFF& and&&GetPixelColor(x0+5,num_top+4)=&FFFFFF&
& && && && && && && && && && && && && & value=0
& && && && && && && && && && && && &Else
& && && && && && && && && && && && && & //分隔符:
& && && && && && && && && && && && && & If GetPixelColor(x0+3,num_top+2)=&000000& and GetPixelColor(x0+2,num_top+3)=&000000& and GetPixelColor(x0+3,num_top+3)=&FFFFFF& and GetPixelColor(x0+4,num_top+3)=&000000& and GetPixelColor(x0+3,num_top+7)=&000000& and GetPixelColor(x0+3,num_top+8)=&FFFFFF&
& && && && && && && && && && && && && && &&&value=10
& && && && && && && && && && && && && && &&&kk=2
& && && && && && && && && && && && && & Else
& && && && && && && && && && && && && && &&&value=-1
& && && && && && && && && && && && && & EndIf
& && && && && && && && && && && && &EndIf
& && && && && && && && && && &&&EndIf
& && && && && && && && && & EndIf
& && && && && && && && &EndIf
& && && && && && &&&EndIf
& && && && && & EndIf
& && && && &EndIf
& && &&&EndIf
If value=-1
& & If map_x&0 and map_y&0
& && &&&Goto 坐标已确定
& && &&&VBSCall Call MessageBox(&无法获得坐标&)
& && &&&Goto 程序结束
If value&=0 and value&=9
& & If kk=1
& && &&&map_x=map_x*10+value
& && &&&map_y=map_y*10+value
Goto 获得下一个数字
Rem 坐标已确定
VBSCall Call MessageBox(CStr(map_x*10000+map_y))
Rem 程序结束
【挖矿脚本】
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★使用说明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓
//*由于采用了图形分辨，请使用按键5.7以上版本。
//*挖矿和丢矿，回城补充 存矿 没时间写。
//*循环设为循环1次.F11开始，F12中止.
//*请根据自己的实际情况 填写变量.如 负重 10为 10%
//*鼠标放人物脚下（以左键点击人物不走动为准），然后再按F11开始.
//*包裹下方 放随即和修复油~和修理脚本同时使用
//*可能脚本有错误 请大家测试.修正
//〓〓〓〓〓〓〓〓〓〓〓〓〓★玩家自定义变量★〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓
VBS fuzhong=20
//负重多余百分之多少时检测
VBS hui=20
//低血回城%设置,不想要此功能就把它尽量设低点吧~。
VBS baoman=1
//包裹满则自动回城，1为激活，0为关闭。
VBS guanji=1
//自动停止挂机时，1为回城后自动退出游戏关闭电脑（XP系统）,0为待在城里打坐。
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★主程序★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓〓
Rem 开始挂机
VBS dim savestring,filename
VBS filename=&日志/全自动挖矿日志.txt&
VBS savestring=&开始挖矿。。。（请定期删除日志文件~）&
Gosub 写入日志
VBSCall Call GetCursorPos(fx,fy)
//记录鼠标在人物脚下的位置坐标
VBS savestring=&开始挖矿。。。&
Gosub 写入日志
If baoman=1
& & Gosub 包满处理
MoveTo x y
RightDown 1
Delay 5000
RightClick 0
LeftClick 3
Delay 120000
MoveTo 763 326
RightDown 1
Delay 5000
RightClick 0
LeftClick 3
Delay 120000
MoveTo 10 400
RightDown 1
Delay 5000
RightClick 0
LeftClick 3
Delay 120000
MoveTo 780 10
RightDown 1
Delay 5000
RightClick 0
LeftClick 3
Delay 120000
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★子程序★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓〓
Sub 包满处理
& & IfColor fuzhong/100*72+666 566 efd68c 0
& && &&&MoveTo 694 399
& && &&&Delay 80
& && &&&LeftClick 1
& && &&&Delay 32
& && &&&SayString 哈哈，包包满了，仍掉垃圾~~~~~~~~
& && &&&Delay 64
& && &&&KeyPress 13 1
& && &&&Delay 512
& && &&&VBS savestring=&包满仍掉垃圾。。。&
& && &&&Gosub 写入日志
& && &&&Delay 500
& && &&&For 30
& && && && &VBSCall FindPic(0,0,800,600,&1.bmp&,0.9,x,y)
& && && && &//区域找图 为区域范围&&&1.bmp&为图片名（路径）&&0.9为找图的相似度 x,y为找到图片后的坐标变量
& && && && &If x&=0 and y&=0
& && && && && & //如果找到颜色
& && && && && & x0=x+10
& && && && && & y0=y+10
& && && && && & //图中心坐标
& && && && && & MoveTo x0 y0
& && && && && & //移动图中心坐标
& && && && && & Delay 50
& && && && && & //延时
& && && && && & LeftClick 1
& && && && && & //左键单击
& && && && && & MoveTo 550 80
& && && && && & //移动到外部区域
& && && && && & Delay 50
& && && && && & //延时
& && && && && & LeftClick 1
& && && && && & //左键单击
& && && && &EndIf
& && &&&EndFor
& && &&&MoveTo 694 399
& && &&&Delay 80
& && &&&LeftClick 1
& && &&&Delay 32
& && &&&SayString 处理完毕
& && &&&Delay 64
& && &&&KeyPress 13 1
& && &&&Delay 512
& && &&&VBS savestring=&处理完毕&
& && &&&Goto 开始
Return 包满处理
Sub 写入日志
& & VBS dim file,f1,fileexist,savestring,filename
& & VBS Const ForWriting=2
& & VBS Const ForAppending=8
& & VBS set file = CreateObject(&Scripting.FileSystemObject&)
& & VBS fileexist=file.FileExists(filename)
& & If fileexist=-1
& && &&&Goto append
& & VBS Set f1 =file.CreateTextFile(filename,ForWriting)
& & VBS f1.Close
& & Rem append
& & VBS Set f1 =file.OpenTextFile(filename,ForAppending)
& & VBS savestring=Cstr(Year(Now))+&年&+Cstr(Month(Now))+&月&+Cstr(Day(Now))+&日&+Cstr(Hour(Now))+&时&+Cstr(Minute(Now))+&分&+Cstr(Second(Now))+&秒 &+savestring
& & VBS f1.WriteLine(savestring)
& & VBS f1.Close
Return 写入日志
【召唤英雄脚本】
Description=英雄的召唤
BeginHotkey=106
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=0
StopHotkeyMod=0
EnableWindow=legend of mir2
[CallBack]
SaveMousePos
MoveTo 647 463
LeftClick 1
RestoreMousePos
【英雄状态信息判断脚本】
Description=英雄状态信息
BeginHotkey=109
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=0
StopHotkeyMod=0
EnableWindow=legend of mir2
[CallBack]
SaveMousePos
MoveTo 675 465
LeftClick 1
RestoreMousePos
// 打开英雄状态信息，前提条件，先招出英雄！
【使用英雄包裹物品脚本】
Description=英雄包裹
BeginHotkey=107
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=0
StopHotkeyMod=0
EnableWindow=legend of mir2
[CallBack]
SaveMousePos
MoveTo 700 462
LeftClick 1
RestoreMousePos
【自动切换雷达图脚本】
Description=切换雷达图
BeginHotkey=9
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=0
StopHotkeyMod=0
EnableWindow=legend of mir2
[CallBack]
SaveMousePos
MoveTo 232 458
LeftClick 1
RestoreMousePos
【游戏小退脚本】
Description=退出游戏
BeginHotkey=81
BeginHotkeyMod=4
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=0
StopHotkeyMod=0
EnableWindow=legend of mir2
[CallBack]
MoveTo 427 351
LeftClick 1
// 重复一下，防止网络卡，按了无效！
MoveTo 427 351
LeftClick 1
【物品转移脚本】
Description=物品转移
BeginHotkey=77
BeginHotkeyMod=4
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=0
StopHotkeyMod=0
EnableWindow=legend of mir2
[CallBack]
Rem ZhuanYi
// 等待按键
If K=CInt(&37&)
& & // 左方向箭，用来交易传物
& & VBSCall Call GetCursorPos(ZhuanYi_X,ZhuanYi_Y)
& & Gosub ZY_ME
& & // 转去处理程序段
If K=CInt(&38&)
& & // 上方向箭，用来交易传物
& & VBSCall Call GetCursorPos(ZhuanYi_X,ZhuanYi_Y)
& & Gosub ZY_JiaoYi
& & // 转去处理程序段
If K=CInt(&39&)
& & // 右方向箭，用来交易传物
& & VBSCall Call GetCursorPos(ZhuanYi_X,ZhuanYi_Y)
& & Gosub ZY_HERO
& & // 转去处理程序段
If K=CInt(&40&)
& & // 下方向箭，用来交易传物
& & VBSCall Call GetCursorPos(ZhuanYi_X,ZhuanYi_Y)
& & Gosub ZY_CunMaiXiu
& & // 转去处理程序段
If K=CInt(&27&)
& & KeyPress 27 1
& & KeyPress 13 1
& & SayString 本次脚本运行结束！
& & Delay 3000
& & KeyPress 27 1
// 按了ESC键结束脚本！
Goto ZhuanYi
Sub ZY_HERO
& & // 传物品给英雄包裹的过程
& & MoveTo ZhuanYi_X ZhuanYi_Y
& & LeftClick 1
& & MoveTo 90 40
& & LeftClick 1
& & // 鼠标所指物品将放入英雄状态条（即左上角，不要被摭挡）!
& & MoveTo ZhuanYi_X ZhuanYi_Y
Return ZY_HERO
Sub ZhuanYi_JiaoYi
& & // 传物品到交易栏的过程
& & MoveTo ZhuanYi_X ZhuanYi_Y
& & LeftClick 1
& & MoveTo 500 235
& & LeftClick 1
& & // 鼠标所指物品将放入英雄状态条（即左上角，不要被摭挡）!
& & MoveTo ZhuanYi_X ZhuanYi_Y
Return ZhuanYi_JiaoYi
& & // 传物品给主角包裹的过程
& & MoveTo ZhuanYi_X ZhuanYi_Y
& & LeftClick 1
& & MoveTo 415 425
& & LeftClick 1
& & // 鼠标所指物品将放入英雄状态条（即左上角，不要被摭挡）!
& & MoveTo ZhuanYi_X ZhuanYi_Y
Return ZY_ME
Sub ZY_CunMaiXiu
& & // 传物品由包裹到存、卖、修的过程
& & MoveTo ZhuanYi_X ZhuanYi_Y
& & LeftClick 1
& & MoveTo 320 270
& & LeftClick 1
& & // 鼠标所指物品将放入卖、特修、存仓库栏做指定处理!
& & Delay 500
& & MoveTo 360 330
& & LeftClick 1
& & MoveTo ZhuanYi_X ZhuanYi_Y
Return ZY_CunMaiXiu
【英雄一键合击脚本】
Description=英雄合击
BeginHotkey=20
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=0
StopHotkeyMod=0
EnableWindow=legend of mir2
[CallBack]
KeyPress 27 1
KeyPress 13 1
SayString 按ESC可取消合击....
Rem HJ_X_Y
// 等待按键
If K=CInt(&27&)
& & Goto END
If K=CInt(&88&)
& & // KEY为“X”字母键
& & VBSCall Call GetCursorPos(HJ_X,HJ_Y)
& & Goto HJ
Goto HJ_X_Y
MoveTo HJ_X HJ_Y
KeyDown 17 1
KeyDown 83 1
KeyUp 83 1
KeyUp 17 1
KeyPress 27 1
KeyPress 27 1
KeyPress 13 1
SayString !屏幕合击释放坐标为：[
SayString HJ_X
SayString ,
SayString HJ_Y
SayString ]
KeyPress 13 1
帖子1936&精华0&积分2214&豌豆0 &阅读权限40&在线时间2508 小时&注册时间&最后登录&
我真的不喜欢你，你喜欢我什么，我改还不行么？！
帖子1844&精华0&积分5205&豌豆3898 &阅读权限70&在线时间1194 小时&注册时间&最后登录&
帖子850&精华0&积分862&豌豆10 &阅读权限40&在线时间855 小时&注册时间&最后登录&
好东东，先顶一个。
帖子182&精华0&积分222&豌豆0 &阅读权限30&在线时间103 小时&注册时间&最后登录&
就是啊,效果如何~~
帖子2841&精华0&积分2836&豌豆0 &阅读权限50&在线时间239 小时&注册时间&最后登录&
哇哇哇，顶一个先
帖子4814&精华0&积分5192&豌豆0 &阅读权限70&在线时间261 小时&注册时间&最后登录&
不明白你这个！
我几时才出合击呀！
帖子127&精华0&积分143&豌豆0 &阅读权限30&在线时间43 小时&注册时间&最后登录&
不知道怎么用，有详细介绍的吗？
帖子109&精华0&积分112&豌豆0 &阅读权限30&在线时间94 小时&注册时间&最后登录&
顶起来虽然我对这个不熟悉，但是你的脚本来了晚上我就下个精灵研究下哟！
帖子239&精华0&积分240&豌豆0 &阅读权限30&在线时间79 小时&注册时间&最后登录&
挖矿的没试过~~~
其他的都能用 还可以
帖子1653&精华0&积分1931&豌豆10 &阅读权限40&在线时间411 小时&注册时间&最后登录&
哦，不知道一个小时能挂到多少经验
帖子1043&精华0&积分1094&豌豆0 &阅读权限40&在线时间361 小时&注册时间&最后登录&
帖子421&精华0&积分520&豌豆0 &阅读权限30&在线时间216 小时&注册时间&最后登录&
怎么用呀老大
帖子1696&精华0&积分1757&豌豆0 &阅读权限40&在线时间1131 小时&注册时间&最后登录&
先收藏起来，慢慢看
帖子564&精华0&积分713&豌豆0 &阅读权限40&在线时间387 小时&注册时间&最后登录&
脚本倒是挺多的。
[通过 QQ、MSN 分享给朋友]