- UID
- 37873
- 帖子
- 496
- 积分
- 349
- 紫菀
- 0 朵
- 花瓣
- 610 片
- 花蕊
- 80 朵
- 野草莓
- 16 个
- 蒲公英
- 21 朵
- 社区等级
- 16 级
- 在线时间
- 206 小时
- 注册时间
- 2008-6-8
- 登录状态
-
当前离线
|
楼主
发表于 2009-5-20 22:37
| 只看该作者
把我自己做的自动刷蜡烛软件提供给大家看看,可以让大家也学学按键啊。
将下面的东西复制到记事本上,然后将记事本存在按键精灵软件里的script文件夹里.......
[General]
Description=速度刷蜡烛
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=1
AutoRun=0
[Repeat]
Type=1
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=.
【功能说明】.
本脚本主要是运用了按键精灵里的找图打怪例子,找到NPC的点,然后移动鼠标
.
【使用说明】.
这个例子无法直接试用,供大家学习参考。.
.
【作者介绍】.
摘自兄弟论坛,帖子网址:.
http://bbs.vrbrothers.com/viewthread.php?tid=20488.
作者: 峨眉山区的天才刷免爆 .
.
[Script]
Plugin hwnd=Window.Find(0,"QQ幻想")
Plugin Window.Active(hwnd)
//需要先得到可以发送按键消息的窗口
Plugin hwnd = Window.GetKeyFocusWnd()
Plugin Window.Move(hwnd,0,0)
For -1
Rem star
MoveTo 894,567
Delay 100
LeftClick 1
Delay 100
Plugin Window.SendString(hwnd,"刷蜡烛卖")
Rem 数字
Randomize
//得到 1~99 之间的一个随机数
x = Int((99 * Rnd) + 1)
//判断这个数字是否2位数字,如果不是2位数字,就重新生成
If x<10
Goto 数字
EndIf
SayString x
Delay 109
KeyPress 13,1
Delay 63
KeyPress 13,1
Delay 1828
KeyPress 13,1
Delay 2000
VBSCall FindPic(0,0,1024,768,"力.bmp",0.9,x,y)
//区域找图 0,0,1024,768为区域范围 "神盾.bmp"为图片名(路径) 1为找图的相似度 x,y为找到图片后的坐标变量
If x>=0 and y>=0
MoveTo 526 452
Delay 5
LeftClick 1
MoveTo 879 695
Delay 100
LeftClick 1
Goto shanhao
EndIf
KeyPress 40,1
Delay 250
KeyPress 13,1
Delay 1032
KeyPress 40,1
Delay 219
KeyPress 13,1
Delay 4000
MoveTo 591 349
Delay 10
LeftClick 1
Delay 1000
VBSCall FindPic(0,0,1024,768,"容大胖子.bmp",0.9,x,y)
//区域找图 0,0,1024,768为区域范围 "神盾.bmp"为图片名(路径) 1为找图的相似度 x,y为找到图片后的坐标变量
If x>=0 and y>=0
MoveTo x-169 y+111
Delay 5
LeftClick 1
Else
Goto shanhao
EndIf
Delay 1000
VBSCall FindPic(0,0,1024,768,"容大胖子.bmp",0.9,x,y)
//区域找图 0,0,1024,768为区域范围 "神盾.bmp"为图片名(路径) 1为找图的相似度 x,y为找到图片后的坐标变量
If x>=0 and y>=0
MoveTo x+12 y+51
Delay 5
LeftClick 1
EndIf
Delay 2000
KeyPress 40,1
Delay 20
KeyPress 40,1
Delay 20
KeyPress 40,1
Delay 20
KeyPress 40,1
Delay 20
KeyPress 13,1
Delay 20
KeyPress 13,1
Rem 建号
Delay 20
KeyPress 13,1
Delay 200
KeyPress 13,1
Delay 200
KeyPress 13,1
VBSCall FindPic(0,0,1024,768,"玉.bmp",0.9,x,y)
//区域找图 0,0,1024,768为区域范围 "神盾.bmp"为图片名(路径) 0.9为找图的相似度 x,y为找到图片后的坐标变量
If x>=0 and y>=0
Delay 50
KeyPress 13,1
//回车
Else
Delay 10
EndIf
VBSCall FindPic(0,0,1024,768,"容大胖子.bmp",0.9,x,y)
//区域找图 0,0,1024,768为区域范围 "神盾.bmp"为图片名(路径) 0.9为找图的相似度 x,y为找到图片后的坐标变量
If x>=0 and y>=0
MoveTo x-508 y+275
Delay 50
LeftClick 1
//左键单击进行攻击
EndIf
Delay 2500
LeftClick 1
Delay 2500
VBSCall FindPic(0,0,1024,768,"清.bmp",0.9,x,y)
//区域找图 0,0,1024,768为区域范围 "神盾.bmp"为图片名(路径) 0.9为找图的相似度 x,y为找到图片后的坐标变量
If x>=0 and y>=0
MoveTo x-250,y+100
LeftClick 1
Delay 1500
Else goto 建号
EndIf
LeftClick 1
Delay 1500
LeftClick 1
Delay 1500
VBSCall FindPic(0,0,1024,768,"武.bmp",0.9,x,y)
//区域找图 0,0,1024,768为区域范围 "神盾.bmp"为图片名(路径) 0.9为找图的相似度 x,y为找到图片后的坐标变量
If x>=0 and y>=0
MoveTo x-250,y+270
LeftClick 1
Delay 2500
Else goto 建号
EndIf
LeftClick 1
Delay 2500
LeftClick 1
Delay 2500
MoveTo 69,283
LeftClick 1
Delay 2800
LeftClick 1
Delay 2800
LeftClick 1
Delay 2800
LeftClick 1
Delay 2800
LeftClick 1
Delay 2800
VBSCall FindPic(0,0,1024,768,"考官一.bmp",0.9,x,y)
//区域找图 0,0,1024,768为区域范围 "神盾.bmp"为图片名(路径) 0.9为找图的相似度 x,y为找到图片后的坐标变量
If x>=0 and y>=0
MoveTo x-661 y+75
Delay 50
LeftClick 1
//左键单击进行攻击
Else
Goto shanhao
EndIf
Delay 3000
MoveTo 685,528
Delay 10
LeftClick 1
Delay 1000
KeyPress 13,1
Delay 100
Rem 交任务
KeyPress 13,1
Delay 100
KeyPress 13,1
Delay 100
KeyPress 13,1
Delay 100
MoveTo 738,731
LeftClick 1
Delay 4000
MoveTo 921,529
Delay 50
LeftClick 1
Delay 2300
VBSCall FindPic(0,0,1024,768,"考官一.bmp",0.9,x,y)
//区域找图 0,0,1024,768为区域范围 "神盾.bmp"为图片名(路径) 0.9为找图的相似度 x,y为找到图片后的坐标变量
If x>=0 and y>=0
Delay 10
Else goto 交任务
EndIf
LeftClick 1
Delay 2300
LeftClick 1
Delay 2300
LeftClick 1
Delay 2300
LeftClick 1
Delay 2300
MoveTo 961,289
Delay 10
LeftClick 1
Delay 2600
MoveTo 961,289
Delay 10
LeftClick 1
Delay 2600
MoveTo 961,289
Delay 10
LeftClick 1
Delay 2600
MoveTo 961,289
Delay 10
LeftClick 1
Delay 2600
MoveTo 961,289
Delay 10
LeftClick 1
Delay 2600
MoveTo 961,289
Delay 10
LeftClick 1
Delay 2600
MoveTo 574,142
Delay 10
LeftClick 1
Delay 2500
LeftClick 1
Delay 2500
VBSCall FindPic(0,0,1024,768,"容大胖子.bmp",0.9,x,y)
//区域找图 0,0,1024,768为区域范围 "神盾.bmp"为图片名(路径) 0.9为找图的相似度 x,y为找到图片后的坐标变量
If x>=0 and y>=0
MoveTo x+10 y+100
Delay 50
LeftClick 1
Delay 2000
//左键单击进行攻击
EndIf
KeyPress 13,1
Delay 200
KeyPress 13,1
Delay 200
KeyPress 13,1
Delay 200
VBSCall FindPic(0,0,1024,768,"容大胖子.bmp",0.9,x,y)
//区域找图 0,0,1024,768为区域范围 "神盾.bmp"为图片名(路径) 0.9为找图的相似度 x,y为找到图片后的坐标变量
If x>=0 and y>=0
MoveTo x-7 y-174
Delay 50
LeftClick 1
Delay 2000
//左键单击进行攻击
EndIf
VBSCall FindPic(0,0,1024,768,"容大胖子.bmp",0.9,x,y)
//区域找图 0,0,1024,768为区域范围 "神盾.bmp"为图片名(路径) 0.9为找图的相似度 x,y为找到图片后的坐标变量
If x>=0 and y>=0
MoveTo x+109 y-330
Delay 50
LeftClick 1
Delay 4000
//左键单击进行攻击
EndIf
MoveTo 708,770
Delay 10
LeftClick 1
Delay 1000
MoveTo 873,484
Delay 500
LeftClick 1
Delay 500
MoveTo 546,411
Delay 500
LeftClick 1
Delay 500
Rem shanhao
MoveTo 1012,760
Delay 100
LeftClick 1
Delay 100
MoveTo 553,383
Delay 100
LeftClick 1
Delay 1000
MoveTo 906,650
Delay 100
LeftClick 1
Delay 50
LeftClick 1
Delay 50
KeyPress 13,1
Delay 2000
Rem ==========以上是按键精灵录制的内容==========
EndFor
用该脚本电脑要求是分辨率1280*960,幻想分辨率是1024*768,显示驱动:硬件加速,显示模式:窗口模式
另外,由于不能添加bmp格式的图片,所以我的图片不能上传了,我在一楼教不懂的如何制作图片。 |
-
+12
评分记录
-
|