怎么用按键精灵2014快速制作游戏脚本_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
怎么用按键精灵2014快速制作游戏脚本
上传于|0|0|暂无简介
阅读已结束，如果下载本文需要使用0下载券
想免费下载更多文档？
定制HR最喜欢的简历
你可能喜欢------分隔线----------------------------
◎ 阅读说明
DOWNLOAD EXPLANATION
推荐使用第三方专业下载工具下载本站软件，使用 WinRAR v3.10 以上版本解压本站软件。
如果这个软件总是不能下载的请点击报告错误,谢谢合作!!
下载本站资源，如果服务器暂不能下载请过一段时间重试！
如果遇到什么问题，请咨询网站在线客服QQ获取帮助
本站提供的资源来源网络收集，仅供学习研究之用切勿用于商业用途，请下载24小时内删除。脚本怎么在另一个游戏窗口同时运行阿 _ 综合讨论 - 按键精灵论坛
腾讯微博：
软件版本：2014.05软件大小：76.8M更新时间：2-21
软件版本：3.2.5软件大小：62.5M更新时间：06-06
软件版本：1.2.7软件大小：29.2M更新时间：06-19
软件版本：1.1.0软件大小：12.3M更新时间：12-29
查看: 1320|回复: 19
本帖最后由 zpdk 于
07:22 编辑 这个后台脚本 可以在2个窗口上运行要是开3个CPU就暴满了动不了求老大门帮我改改
Call Thread2Sub Thread2
Call 注册()
Set dm = createobject("dm.dmsoft")
dm.SetPath "附件\"
dm.SetDict 0,"字库\1.txt"
Call 绑定()
Call 全部()End SubSub 全部
Call 家园()
Call 开始()
Call 家园2()
Call 开始()
Call 家园3()
Call 开始()
Call 家园4()
Call 开始()
Call 家园5()
Call 开始()
Call 家园6()
Call 开始()
Call 家园7()
Call 开始()
Call 家园8()
Call 开始()
Call 家园9()
Call 开始()
Call 家园10()
Call 开始()End SubCall 退出1()Delay 300Call 全部()Call 退出2()Delay 300Call 全部()MessageBox "顺和家园刷玩了。"Sub 注册()
PutAttachment "c:\test_game", "*.*"
PutAttachment ".\Plugin" ,"RegDll.dll"
Call Plugin.RegDll.Reg("c:\test_game\dm.dll")
set dm = createobject("dm.dmsoft")End SubSub 绑定()
yujian = dm.GetMousePointWindow()
//↑得到窗口句柄
dm_ret = dm.BindWindow(yujian,"dx2", "windows2", "windows", "0")
//↑开始绑定
If dm_ret = 0 Then
MessageBox "绑定失败！"
ExitScript
End IfEnd SubSub 家园()
dm_ret = dm.FindPic(0, 0, 240, 320, "26.bmp", "000000", 0.9, 0, x, y)
If x > 0 then
dm.MoveTo x, y
dm.LeftClick
dm_ret = dm.FindPic(0, 0, 240, 320, "26.bmp", "000000", 0.9, 0, x, y)
If x > 0 then
dm_ret = dm.FindStrFast(0,0,240, 360, "好", "ffffff-000000", 0.9, x, y)
If x >= 0 then
dm.MoveTo x+24,y+35
dm.LeftClick
dm_ret = dm.FindStrFast(0,0,240, 360, "好", "ffffff-000000", 0.9, x, y)
If x >= 0 then
dm.MoveTo x+24,y+35
dm.LeftClick
delay 100End SubSub 开始()
dm_ret = dm.FindStrFast(0,0,240, 360, "园", "ffffff-0ff-000000", 0.9, x, y)
If x > 0 then
dm.MoveTo x,y
dm.LeftClick
dm_ret = dm.FindStrFast(0,0,240, 360, "园", "ffffff-0ff-000000", 0.9, x, y)
If x > 0 then
delay 1600
dm_ret = dm.FindStrFast(0,0,240, 360, "管家", "ffffff-000000", 0.9, x, y)
If x > 0 then
dm.MoveTo x+5,y+15
dm.LeftClick
dm_ret = dm.FindStrFast(0,0,240, 360, "交", "ffffff-0ff-000000", 0.9, x, y)
If x > 0 then
dm.MoveTo x,y
dm.LeftClick
dm_ret = dm.FindStrFast(0,0,240, 360, "交", "ffffff-0ff-000000", 0.9, x, y)
If x > 0 then
dm_ret = dm.FindStrFast(0,0,240, 360, "煮", "ffffff-0ff-000000", 0.9, x, y)
If x > 0 then
dm.MoveTo x,y
dm.LeftClick
dm_ret = dm.FindStrFast(0,0,240, 360, "煮", "ffffff-0ff-000000", 0.9, x, y)
If x > 0 then
dm_ret = dm.FindStrFast(0,0,240, 360, "成", "ffffff-0ff-000000", 0.9, x, y)
If x > 0 then
dm.MoveTo x-35,y+3
dm.LeftClick
dm_ret = dm.FindStrFast(0,0,240, 360, "成", "ffffff-0ff-000000", 0.9, x, y)
If x > 0 then
delay 200End SubSub 家园2()
dm_ret = dm.FindPic(0, 0, 240, 320, "26.bmp", "000000", 0.9, 0, x, y)
If x > 0 then
dm.MoveTo x, y
dm.LeftClick
dm_ret = dm.FindPic(0, 0, 240, 320, "26.bmp", "000000", 0.9, 0, x, y)
If x > 0 then
dm_ret = dm.FindStrFast(0,0,240, 360, "好", "ffffff-000000", 0.9, x, y)
If x >= 0 then
dm.MoveTo x+20,y+55
dm.LeftClick
End SubSub 家园3()
dm_ret = dm.FindPic(0, 0, 240, 320, "26.bmp", "000000", 0.9, 0, x, y)
If x > 0 then
dm.MoveTo x, y
dm.LeftClick
dm_ret = dm.FindPic(0, 0, 240, 320, "26.bmp", "000000", 0.9, 0, x, y)
If x > 0 then
dm_ret = dm.FindStrFast(0,0,240, 360, "好", "ffffff-000000", 0.9, x, y)
If x >= 0 then
dm.MoveTo x,y+80
dm.LeftClick
End SubSub 家园4()
dm_ret = dm.FindPic(0, 0, 240, 320, "26.bmp", "000000", 0.9, 0, x, y)
If x > 0 then
dm.MoveTo x, y
dm.LeftClick
dm_ret = dm.FindPic(0, 0, 240, 320, "26.bmp", "000000", 0.9, 0, x, y)
If x > 0 then
dm_ret = dm.FindStrFast(0,0,240, 360, "好", "ffffff-000000", 0.9, x, y)
If x >= 0 then
dm.MoveTo x,y+105
dm.LeftClick
End SubSub 家园5()
dm_ret = dm.FindPic(0, 0, 240, 320, "26.bmp", "000000", 0.9, 0, x, y)
If x > 0 then
dm.MoveTo x, y
dm.LeftClick
dm_ret = dm.FindPic(0, 0, 240, 320, "26.bmp", "000000", 0.9, 0, x, y)
If x > 0 then
dm_ret = dm.FindStrFast(0,0,240, 360, "好", "ffffff-000000", 0.9, x, y)
If x >= 0 then
dm.MoveTo x,y+130
dm.LeftClick
delay 200End SubSub 家园6()
dm_ret = dm.FindPic(0, 0, 240, 320, "26.bmp", "000000", 0.9, 0, x, y)
If x > 0 then
dm.MoveTo x, y
dm.LeftClick
dm_ret = dm.FindPic(0, 0, 240, 320, "26.bmp", "000000", 0.9, 0, x, y)
If x > 0 then
dm_ret = dm.FindStrFast(0,0,240, 360, "好", "ffffff-000000", 0.9, x, y)
If x >= 0 then
dm.MoveTo x,y+154
dm.LeftClick
End SubSub 家园7()
dm_ret = dm.FindPic(0, 0, 240, 320, "26.bmp", "000000", 0.9, 0, x, y)
If x > 0 then
dm.MoveTo x,y
dm.LeftClick
dm_ret = dm.FindPic(0, 0, 240, 320, "26.bmp", "000000", 0.9, 0, x, y)
If x > 0 then
dm_ret = dm.FindStrFast(0,0,240, 360, "好", "ffffff-000000", 0.9, x, y)
If x >= 0 then
dm.MoveTo x,y+178
dm.LeftClick
delay 200End SubSub 家园8()
dm_ret = dm.FindPic(0, 0, 240, 320, "26.bmp", "000000", 0.9, 0, x, y)
If x > 0 then
dm.MoveTo x, y
dm.LeftClick
dm_ret = dm.FindPic(0, 0, 240, 320, "26.bmp", "000000", 0.9, 0, x, y)
If x > 0 then
dm_ret = dm.FindStrFast(0,0,240, 360, "好", "ffffff-000000", 0.9, x, y)
If x >= 0 then
dm.MoveTo x,y+202
dm.LeftClick
delay 200End SubSub 家园9()
dm_ret = dm.FindPic(0, 0, 240, 320, "26.bmp", "000000", 0.9, 0, x, y)
If x > 0 then
dm.MoveTo x, y
dm.LeftClick
dm_ret = dm.FindPic(0, 0, 240, 320, "26.bmp", "000000", 0.9, 0, x, y)
If x > 0 then
dm_ret = dm.FindStrFast(0,0,240, 360, "好", "ffffff-000000", 0.9, x, y)
If x >= 0 then
dm.MoveTo x+2,y+226
dm.LeftClick
delay 200End SubSub 家园10()
dm_ret = dm.FindPic(0, 0, 240, 320, "26.bmp", "000000", 0.9, 0, x, y)
If x > 0 then
dm.MoveTo x, y
dm.LeftClick
dm_ret = dm.FindPic(0, 0, 240, 320, "26.bmp", "000000", 0.9, 0, x, y)
If x > 0 then
dm_ret = dm.FindStrFast(0,0,240, 360, "好", "ffffff-000000", 0.9, x, y)
If x >= 0 then
dm.MoveTo x,y+250
dm.LeftClick
delay 200End SubSub 家园11()Rem a
dm_ret = dm.FindPic(0, 0, 240, 320, "26.bmp", "000000", 0.9, 0, x, y)
If x > 0 then
dm.MoveTo x, y
dm.LeftClick
dm_ret = dm.FindPic(0, 0, 240, 320, "26.bmp", "000000", 0.9, 0, x, y)
If x > 0 then
dm_ret = dm.FindStrFast(0,0,240, 360, "好", "ffffff-000000", 0.9, x, y)
If x >= 0 then
dm.MoveTo x,y+270
dm.LeftClick
delay 200End SubSub 退出1()
dm_ret = dm.FindPic(0,0,,"10.bmp",".9,0,intX,intY)
If intX >= 0 and intY >= 0 Then
MoveTo intX, intY
dm_ret = dm.FindPic(0,0,,"11.bmp",".9,0,intX,intY)
If intX >= 0 and intY >= 0 Then
MoveTo intX, intY
dm_ret = dm.FindPic(0,0,,"12.bmp",".9,0,intX,intY)
If intX >= 0 and intY >= 0 Then
MoveTo intX, intY
dm_ret = dm.FindPic(0,0,,"13.bmp",".9,0,intX,intY)
If intX >= 0 and intY >= 0 Then
MoveTo intX, intY
dm_ret = dm.FindPic(0,0,,"18.bmp",".9,0,intX,intY)
If intX >= 0 and intY >= 0 Then
MoveTo intX, intY
dm_ret = dm.FindStr(0,0,240,360,"仙","000",0.9,x,y)
dm.MoveTo x,y
dm_ret = dm.FindStr(0,0,240,360,"仙","000",0.9,x,y)
dm.MoveTo x,y
Delay 1000
dm_ret = dm.FindPic(0,0,,"15.bmp",".9,0,intX,intY)
If intX >= 0 and intY >= 0 Then
MoveTo intX+20, intY+77
dm_ret = dm.FindPic(0,0,,"16.bmp",".9,0,intX,intY)
If intX >= 0 and intY >= 0 Then
MoveTo intX, intY
Delay 3200
dm_ret = dm.FindStr(0,0,240,360,"您","0000ff-.9,x,y)
If x >0 then
dm.MoveTo x,y
dm.LeftClick
dm_ret = dm.FindStr(0,0,240,360,"您","0000ff-.9,x,y)
WendEnd SubSub 退出2()
dm_ret = dm.FindPic(0,0,,"10.bmp",".9,0,intX,intY)
If intX >= 0 and intY >= 0 Then
MoveTo intX, intY
dm_ret = dm.FindPic(0,0,,"11.bmp",".9,0,intX,intY)
If intX >= 0 and intY >= 0 Then
MoveTo intX, intY
dm_ret = dm.FindPic(0,0,,"12.bmp",".9,0,intX,intY)
If intX >= 0 and intY >= 0 Then
MoveTo intX, intY
dm_ret = dm.FindPic(0,0,,"13.bmp",".9,0,intX,intY)
If intX >= 0 and intY >= 0 Then
MoveTo intX, intY
dm_ret = dm.FindPic(0,0,,"18.bmp",".9,0,intX,intY)
If intX >= 0 and intY >= 0 Then
MoveTo intX, intY
dm_ret = dm.FindStr(0,0,240,360,"仙","000",0.9,x,y)
dm.MoveTo x,y
dm_ret = dm.FindStr(0,0,240,360,"仙","000",0.9,x,y)
dm_ret = dm.FindPic(0,0,,"15.bmp",".9,0,intX,intY)
If intX >= 0 and intY >= 0 Then
MoveTo intX+100, intY+120
dm_ret = dm.FindPic(0,0,,"16.bmp",".9,0,intX,intY)
If intX >= 0 and intY >= 0 Then
MoveTo intX, intY
Delay 3200
dm_ret = dm.FindStr(0,0,240,360,"您","0000ff-.9,x,y)
If x >0 then
dm.MoveTo x,y
dm.LeftClick
dm_ret = dm.FindStr(0,0,240,360,"您","0000ff-.9,x,y)
WendEnd Sub
学有所成学有所成勋章，新手步入按键学堂的第一枚勋章按键精灵开发者2级可通过提升认证等级来升级勋章：
本帖最后由 4133789 于
07:58 编辑 脚本内容还真长呐。。。好吧，简单讲，就是使用多线程，或者在脚本的控制栏，就是设置启动快捷键的地方，把禁止脚本重复运行给关闭就好了。你的脚本卡，大概你因为你用了第二种方法吧《表示用手机实在是没有看到你的beginthread》，表示你可以用第一种方法：多线程试试看。
QQ 简化操作,快乐生活-接单:办公脚本:网页,软件自动操作,游戏脚本,自动喊话,自动任务.前后后台多开.
学有所成学有所成勋章，新手步入按键学堂的第一枚勋章按键精灵开发者2级可通过提升认证等级来升级勋章：
本帖最后由 4133789 于
07:51 编辑 怎么自动回复两次，编辑掉。。。
QQ 简化操作,快乐生活-接单:办公脚本:网页,软件自动操作,游戏脚本,自动喊话,自动任务.前后后台多开.
按键元老资深按键用户的尊贵荣誉勋章学有所成学有所成勋章，新手步入按键学堂的第一枚勋章QUI设计大师QUI设计大师龙年勋章（360天）龙年纪念勋章（360天）小编勋章感谢你为按键精灵教科书做出的贡献按键精灵开发者6级可通过提升认证等级来升级勋章：
这么长啊 好历害哦
<font color="#33789 发表于
07:50 脚本内容还真长呐。。。好吧，简单讲，就是使用多线程，或者在脚本的控制栏，就是设置启动快捷键的地方，把 ...摁摁
谢谢啊 是啊 我用了第2个- -。多线程我不会 。找图的时候卡找不到他也会很卡CUP慢慢的涨高
<font color="#365 发表于
07:53 妹的
这么长啊 好历害哦我也想写少点 ，可是不会啊- -
找图的时候 延时加多点，比如说1秒的延时。这样CPU就不会那么卡了。如果是循环找图的延时少，或者没有延时，CPU升的很快的。
按键精灵开发者5级可通过提升认证等级来升级勋章：学有所成学有所成勋章，新手步入按键学堂的第一枚勋章
<font color="#365 发表于
07:53 妹的
这么长啊 好历害哦什么时候有课讲啊
我想吃白食
上次的call我没有听懂
承接各类游戏(2D,3D,网页)脚 本,(挂机,打怪,喊话,任务);办公脚本
按键精灵开发者5级可通过提升认证等级来升级勋章：学有所成学有所成勋章，新手步入按键学堂的第一枚勋章
QQ: 发表于
09:19 什么时候有课讲啊
我想吃白食
上次的call我没有听懂记得通知下哦
论坛出个帖子我就知道了
或者你发一个群里的群邮件
承接各类游戏(2D,3D,网页)脚 本,(挂机,打怪,喊话,任务);办公脚本
发帖高手鼓励积极回复，但注意不要灌水哦学有所成学有所成勋章，新手步入按键学堂的第一枚勋章
按键精灵开发者2级可通过提升认证等级来升级勋章：学有所成学有所成勋章，新手步入按键学堂的第一枚勋章
这个确实厉害 - - 这么长。。。
按键精灵开发者6级（新浪V认证）通过新浪微博加V后自动发放，并替换普通的认证6级勋章。 微博达人（90天）完成新浪微博加V的奖励，结合活动不定期开放申请。学有所成学有所成勋章，新手步入按键学堂的第一枚勋章小编勋章感谢你为按键精灵教科书做出的贡献黄瓜勋章（永久）体验商业小精灵活动的奖励认证考霸（90天）参加考霸活动，对认证考了十次以上用户的鼓励
脚本内容真长呐！佩服，很功夫。
★承接:自动化办公、网页操作类脚本、VB程序设计、DLL插件制做等，点击QQ详谈★加QQ:
xzbyw 发表于
15:44 脚本内容真长呐！佩服，很功夫。我不会写。教教我
按键精灵开发者2级可通过提升认证等级来升级勋章：
代码长而繁琐 这厉害什么..短而简.又能实现功能才叫厉害
目前暂时承接网页游戏脚本..价格按难度功能来算(谈好价格先付定金)..如果实在很简单可以免费做..QQ:
都说风凉话- - 。哎
wangqiqi21
找图找字太频繁，换种思路精简一下 试试
承接各种游戏脚本，只接模拟类脚本 非内存， 简单脚本 请联系QQ:
wangqiqi21 发表于
08:09 找图找字太频繁，换种思路精简一下 试试换哪种啊。
呵呵 哪天得看看 `~~~~
精灵糖果 发表于
01:34 代码长而繁琐 这厉害什么..短而简.又能实现功能才叫厉害都 说反话你这都看不懂吗？
hhhhh999 发表于
08:35 找图的时候 延时加多点，比如说1秒的延时。这样CPU就不会那么卡了。如果是循环找图的延时少，或者没有延时 ...我加了啊。我买了一个人的wai挂他延迟都30毫秒CPU都不会涨不知道是怎么弄的