本帖最后由 爱上老公 于 2015-5-15 22:46 编辑
本来想用CE读下内存的，但CE一附加游戏就退出了，看来是有检测的，条条大路通罗马，内存不行，就上图色吧
由于对游戏不熟，所以写的很简单，就做了一个打怪，加红蓝，捡银票和银两，这个游戏我大概看了一下，界面文字
没有偏色，其实功能可以扩展（比如自动任务什么的），很适合我们这些刚入门的人去深究！{:soso_e112:}
下面是.EXE文件，可以直接用，屏幕800*600|1280*760|1280*800都可以，窗口模式，其他分别率没有测试
变量 窗口句柄,线程句柄1,线程句柄2
功能 退出_点击()
线程关闭("加红蓝","")
线程关闭("打怪","")
热键销毁("热键0")
热键销毁("热键1")
退出()
结束
功能 倩女幽魂2_初始化()
窗口句柄=窗口查找("倩女幽魂2Online 版本[207555] 服务器[河鼓震] 角色ID[1017620310]")
变量 窗口句柄1=窗口获取自我句柄()
变量 bret=窗口是否存在(窗口句柄)
如果(bret==假)
消息框("没有开启游戏!3秒后退出脚本!")
等待(3000)
窗口关闭(窗口句柄1)
否则
窗口激活(窗口句柄)
窗口设置位置(窗口句柄,0,0)
结束
结束
功能 加红蓝()
变量 药品加血键码=获取键码(下拉框获取文本("下拉框0"))
变量 技能加血键码=获取键码(下拉框获取文本("下拉框1"))
变量 药品加蓝键码=获取键码(下拉框获取文本("下拉框2"))
变量 药品加血比=编辑框获取文本("编辑框0")*0.01
变量 技能加血比=编辑框获取文本("编辑框1")*0.01
变量 药品加蓝比=编辑框获取文本("编辑框2")*0.01
变量 血条起始x=87
变量 血条终点x=199
变量 血条总长=血条终点x-血条起始x
变量 加血点1=血条起始x+血条总长*药品加血比
变量 加血点2=血条起始x+血条总长*技能加血比
变量 加蓝点=血条起始x+血条总长*药品加蓝比
循环(真)
等待(100)
变量 是否加血1=血蓝判断(加血点1,"D41D1D-000000| BB1616-000000|A90606-000000")
等待(100)
如果(是否加血1<0)
键盘按键(药品加血键码)
结束
等待(100)
变量 是否加血2=血蓝判断(加血点2,"D41D1D-000000| BB1616-000000|A90606-000000")
等待(100)
如果(是否加血2<0)
键盘按键(技能加血键码)
结束
等待(100)
变量 是否加蓝=血蓝判断(加蓝点,"47C0E5-000000|2181BB-000000|0E618A-000000")
等待(100)
如果(是否加蓝<0)
键盘按键(药品加蓝键码)
结束
结束
结束
功能 打怪()
变量 宽,高,x,y
窗口获取大小(窗口句柄,宽,高)
变量 打怪技能键码=获取键码(下拉框获取文本("下拉框3"))
变量 个数=列表框获取选项个数("列表框0")
变量 要打怪集合=数组()
循环(真)
遍历(变量 i = 0; i < 个数; i++)
要打怪集合=列表框获取文本("列表框0",i)
等待(50)
变量 识别怪物 = 识字(宽/3,5,宽*2/3,80,"ffffff-000000",1.0)
等待(100)
如果(识别怪物==""||识别怪物=="死亡"&要打怪集合||识别怪物!=要打怪集合)
键盘按下(17)
等待(50)
键盘按下(9)
等待(50)
键盘弹起(9)
等待(50)
键盘弹起(17)
否则
键盘按键(打怪技能键码)
结束
结束
变量 牛牛 = 找字(30,30,宽-30,高-30,"银票|银两","ffffff-000000",1.0,x,y)
如果(牛牛>=0)
鼠标移动(x+5,y+4)
等待(500)
鼠标左键单击()
等待(3000)
结束
结束
结束
功能 血蓝判断(参数1,参数2)
变量 x,y
变量 s=找色(参数1,47,230,107,参数2,1.0,0,x,y)
返回 s
结束
功能 获取键码(按键)
变量 键值=-1
选择(按键)
条件 "F1"
键值=112
条件 "F2"
键值=113
条件 "F3"
键值=114
条件 "F4"
键值=115
条件 "F5"
键值=116
条件 "F6"
键值=117
条件 "F7"
键值=118
条件 "F8"
键值=119
条件 "F9"
键值=120
条件 "F10"
键值=121
条件 "F11"
键值=122
条件 "1"
键值=49
条件 "2"
键值=50
条件 "3"
键值=51
条件 "4"
键值=52
条件 "5"
键值=53
条件 "6"
键值=54
条件 "7"
键值=55
条件 "8"
键值=56
条件 "9"
键值=57
结束
返回 键值
结束
功能 按钮0_点击()
变量 路径=获取资源路径("rc:mv11.txt")
变量 宽,高
变量 怪物集=数组()
字库设置("rc:mv11.txt",0)
等待(2000)
鼠标移动(43,15)
等待(50)
鼠标左键单击()
窗口获取大小(窗口句柄,宽,高)
下拉框选项清空("下拉框4")
遍历(变量 i = 0; i < 6; i++)
键盘按下(17)
等待(50)
键盘按下(9)
等待(50)
键盘弹起(9)
等待(50)
键盘弹起(17)
等待(100)
变量 识别怪物 = 识字(宽/3,5,宽*2/3,80,"ffffff-000000",1.0)
等待(50)
变量 索引=数组值查找(怪物集,识别怪物,1)
如果(索引==-1)
数组追加元素(怪物集,识别怪物)
结束
结束
变量 种类数=数组大小(怪物集)
遍历(变量 j = 0; j < 种类数; j++)
等待(5)
下拉框增加文本("下拉框4",怪物集[j])
结束
数组清空(怪物集)
列表框选项清空("列表框0")
结束
功能 下拉框4_选择改变()
变量 指定怪=下拉框获取选项文本("下拉框4",下拉框获取选项("下拉框4"))
列表框增加文本("列表框0",指定怪)
结束
功能 热键0_热键()
线程句柄1=线程开启("加红蓝","")
线程句柄2=线程开启("打怪","")
结束
功能 热键1_热键()
线程暂停(线程句柄2)
结束
功能 按钮1_点击()
遍历(变量 i = 0; i < 7; i++)
文件写配置("下拉框选项","选项"&i,下拉框获取选项("下拉框"&i),"D:\\脚本配置.ini")
结束
遍历(变量 j = 0; j < 3; j++)
文件写配置("编辑框文本","文本"&j,编辑框获取文本("编辑框"&j),"D:\\脚本配置.ini")
结束
结束
功能 按钮2_点击()
遍历(变量 j = 0; j < 7; j++)
下拉框设置选项("下拉框"&j,文件读配置("下拉框选项","选项"&j,"D:\\脚本配置.ini"))
结束
遍历(变量 i = 0; i < 3; i++)
编辑框设置文本("编辑框"&i,文件读配置("编辑框文本","文本"&i,"D:\\脚本配置.ini"))
结束
变量 热键码1=热键设置键码("热键0",获取键码(下拉框获取文本("下拉框5")),"")
变量 热键码2=热键设置键码("热键1",获取键码(下拉框获取文本("下拉框6")),"")
热键注册("热键0")
热键注册("热键1")
控件显示("热键0",假)
控件显示("热键1",假)
结束
|
/2 
发表于 2015-5-15 22:35:31
楼主
