魔域挂机脚本（TC 2.0版本制作）
2.0新增功能：
TC2.0 新增功能 1、新增初始化函数(函数在程序执行时自动执行) 举例: 功能 逻辑型 初始化() 辅助.消息框("我是初始化函数,我在程序开始运行时自动执行") 返回 真 功能结束 2、新增销毁函数(函数在程序退出时自动执行) 举例: 功能 逻辑型 销毁() 辅助.消息框("我是销毁函数,我在程序退出时自动运行") 返回 真 功能结束 3、支持函数上下调用(调用的函数可以在调用之后的代码定义)
功能：魔域挂机，人物，幻兽自动打怪。
使用说明：
1.由于客户端被保护，启动脚本前将客户端手动移动到屏幕坐标（0，0）位置。
2.启动脚本后的3秒时间内，手动激活游戏窗口，否则按键将发送到桌面上。
3.本版本为测试版本，有什么问题，你跟帖。
界面如下：
代码如下：（可根据自己的需求，调整代码）
空间 魔域
整型 线程句柄,选项1,选项2,选项3,选项4,选项5,选项6,选项7,选项8,选项9,选项10,选项11
逻辑型 标识
功能 逻辑型 设置技能()
//人物技能一
选项1=下拉框.得到选项("下拉框0")
//人物技能二
选项2=下拉框.得到选项("下拉框1")
//人物技能三
选项3=下拉框.得到选项("下拉框2")
//人物技能四
选项4=下拉框.得到选项("下拉框3")
//幻兽技能一
选项5=下拉框.得到选项("下拉框4")
//幻兽技能二
选项6=下拉框.得到选项("下拉框5")
//幻兽技能三
选项7=下拉框.得到选项("下拉框6")
///////////////////////////////使用物品
//随机
选项8=下拉框.得到选项("下拉框7")
//记忆之眼
选项9=下拉框.得到选项("下拉框8")
//HP
选项10=下拉框.得到选项("下拉框9")
//MP
选项11=下拉框.得到选项("下拉框10")
返回 真
功能结束
功能 逻辑型 使用物品()
//////使用随机
如果(选项8==0)
键盘.按键(49,1)
如果结束
如果(选项8==1)
键盘.按键(50,1)
如果结束
如果(选项8==2)
键盘.按键(51,1)
如果结束
如果(选项8==3)
键盘.按键(52,1)
如果结束
//////使用记忆之眼
如果(选项9==0)
键盘.按键(49,1)
如果结束
如果(选项9==1)
键盘.按键(50,1)
如果结束
如果(选项9==2)
键盘.按键(51,1)
如果结束
如果(选项9==3)
键盘.按键(52,1)
如果结束
//////使用HP
如果(选项10==0)
键盘.按键(49,1)
如果结束
如果(选项10==1)
键盘.按键(50,1)
如果结束
如果(选项10==2)
键盘.按键(51,1)
如果结束
如果(选项10==3)
键盘.按键(52,1)
如果结束
//////使用MP
如果(选项11==0)
键盘.按键(49,1)
如果结束
如果(选项11==1)
键盘.按键(50,1)
如果结束
如果(选项11==2)
键盘.按键(51,1)
如果结束
如果(选项11==3)
键盘.按键(52,1)
如果结束
返回 真
功能结束
功能 逻辑型 自动打怪()
//人物技能一
如果(选项1==0)
键盘.按键(112,1)
如果结束
如果(选项1==1)
键盘.按键(113,1)
如果结束
如果(选项1==2)
键盘.按键(114,1)
如果结束
如果(选项1==3)
键盘.按键(115,1)
如果结束
如果(选项1==4)
键盘.按键(116,1)
如果结束
如果(选项1==5)
键盘.按键(117,1)
如果结束
如果(选项1==6)
鼠标.右键单击(2)
如果结束
辅助.等待(1000)
//人物技能二
如果(选项2==0)
键盘.按键(112,1)
如果结束
如果(选项2==1)
键盘.按键(113,1)
如果结束
如果(选项2==2)
键盘.按键(114,1)
如果结束
如果(选项2==3)
键盘.按键(115,1)
如果结束
如果(选项2==4)
键盘.按键(116,1)
如果结束
如果(选项2==5)
键盘.按键(117,1)
如果结束
如果(选项2==6)
鼠标.右键单击(2)
如果结束
辅助.等待(1000)
//人物技能三
如果(选项3==0)
键盘.按键(112,1)
如果结束
如果(选项3==1)
键盘.按键(113,1)
如果结束
如果(选项3==2)
键盘.按键(114,1)
如果结束
如果(选项3==3)
键盘.按键(115,1)
如果结束
如果(选项3==4)
键盘.按键(116,1)
如果结束
如果(选项3==5)
键盘.按键(117,1)
如果结束
如果(选项3==6)
鼠标.右键单击(2)
如果结束
辅助.等待(1000)
//人物技能四
如果(选项4==0)
键盘.按键(112,1)
如果结束
如果(选项4==1)
键盘.按键(113,1)
如果结束
如果(选项4==2)
键盘.按键(114,1)
如果结束
如果(选项4==3)
键盘.按键(115,1)
如果结束
如果(选项4==4)
键盘.按键(116,1)
如果结束
如果(选项4==5)
键盘.按键(117,1)
如果结束
如果(选项4==6)
鼠标.右键单击(2)
如果结束
辅助.等待(1000)
//幻兽技能一
如果(选项5==0)
键盘.按键(112,1)
如果结束
如果(选项5==1)
键盘.按键(113,1)
如果结束
如果(选项5==2)
键盘.按键(114,1)
如果结束
如果(选项5==3)
键盘.按键(115,1)
如果结束
如果(选项5==4)
键盘.按键(116,1)
如果结束
如果(选项5==5)
键盘.按键(117,1)
如果结束
如果(选项5==6)
鼠标.右键单击(2)
如果结束
辅助.等待(1000)
//幻兽技能二
如果(选项6==0)
键盘.按键(112,1)
如果结束
如果(选项6==1)
键盘.按键(113,1)
如果结束
如果(选项6==2)
键盘.按键(114,1)
如果结束
如果(选项6==3)
键盘.按键(115,1)
如果结束
如果(选项6==4)
键盘.按键(116,1)
如果结束
如果(选项6==5)
键盘.按键(117,1)
如果结束
如果(选项6==6)
鼠标.右键单击(2)
如果结束
辅助.等待(1000)
//幻兽技能三
如果(选项7==0)
键盘.按键(112,1)
如果结束
如果(选项7==1)
键盘.按键(113,1)
如果结束
如果(选项7==2)
键盘.按键(114,1)
如果结束
如果(选项7==3)
键盘.按键(115,1)
如果结束
如果(选项7==4)
键盘.按键(116,1)
如果结束
如果(选项7==5)
键盘.按键(117,1)
如果结束
如果(选项7==6)
鼠标.右键单击(2)
如果结束
返回 真
功能结束
功能 逻辑型 鼠标找怪()
辅助.等待(3000)
循环(真&&标识)
鼠标.移动(513,176)
辅助.等待(500)
魔域.自动打怪()
鼠标.移动(670,231)
辅助.等待(500)
魔域.自动打怪()
鼠标.移动(718,362)
辅助.等待(500)
魔域.自动打怪()
鼠标.移动(673,501)
辅助.等待(500)
魔域.自动打怪()
鼠标.移动(523,501)
辅助.等待(500)
魔域.自动打怪()
鼠标.移动(392,475)
辅助.等待(500)
魔域.自动打怪()
鼠标.移动(313,362)
辅助.等待(500)
魔域.自动打怪()
鼠标.移动(361,249)
辅助.等待(500)
魔域.自动打怪()
魔域.使用物品()
循环结束
返回 真
功能结束
功能 逻辑型 退出_点击()
标签.设置文本("标签0","程序停止......")
标识 = 假
线程.关闭(线程句柄)
返回 真
功能结束
功能 逻辑型 开始_点击()
魔域.设置分辨率()
标识 = 真
魔域.设置技能()
线程句柄 = 线程.开启("魔域.鼠标找怪","")
标签.设置文本("标签0","程序运行中......")
返回 真
功能结束
功能 逻辑型 初始化()
返回 真
功能结束
功能 逻辑型 销毁()
标识 = 假
线程.关闭(线程句柄)
返回 真
功能结束
功能 逻辑型 设置分辨率()
逻辑型 获得
整型 x,y
获得=系统.获得分辨率(x,y)
如果(x==1440&&y==900)
否则
系统.设置分辨率(1440 ,900)
如果结束
返回 真
功能结束
功能 逻辑型 按钮0_点击()
魔域.设置分辨率()
标识 = 真
魔域.设置技能()
线程句柄 = 线程.开启("魔域.鼠标找怪","")
标签.设置文本("标签0","程序运行中......")
返回 真
功能结束
功能 逻辑型 按钮1_点击()
标签.设置文本("标签0","程序停止......")
标识 = 假
线程.关闭(线程句柄)
返回 真
功能结束
功能 逻辑型 按钮2_点击()
逻辑型 是否成功
是否成功=辅助.命令("C:\\Program Files\\Internet Explorer\\iexplore.exe http://bbs.tcmade.com/showtopic-1175.aspx",假)
返回 真
功能结束
空间结束
有神马问题，请跟帖！！！！
|
[复制链接]
/2 
发表于 2011-9-24 11:51:33
发表于 2011-9-24 11:59:45
