本帖最后由 爱上老公 于 2015-3-18 15:19 编辑
[img]file:///C:\Documents and Settings\Administrator\Application Data\Tencent\Users\344460256\QQ\WinTemp\RichOle\)3ORS[%M%8{PTYNHOX)(F_W.png[/img]不多说，菜鸟学习中。。。。。具体做什么用的？？喊话器做什么用的我也不知道。。。，通过下拉框实现清空所有或者单条喊话，保存所有或者单条喊话，读出所有或者单条喊话，游戏是完美国际，找窗口绑定的。。
空间 喊话器
变量 dm
变量 hwnd
变量 线程句柄
dm=com("dm.dmsoft")
功能 初始化()
是否成功=辅助.注册插件("rc:dm.dll",真)
路径=辅助.获取资源路径("rc:")
hwnd = dm.FindWindow("","完美世界国际版2")
dm_ret = dm.BindWindow(hwnd,"normal","normal","normal",0)
辅助.等待(500)
激活 = dm.SetWindowState(hwnd,1)
功能结束
功能 热键0_热键()
线程句柄=线程.开启("喊话器.喊话","")
功能结束
功能 热键1_热键()
dm_ret = dm.UnBindWindow()
辅助.退出()
功能结束
功能 喊话()
内容1=编辑框.获得文本("编辑框0")
内容2=编辑框.获得文本("编辑框2")
内容3=编辑框.获得文本("编辑框3")
内容4=编辑框.获得文本("编辑框4")
间隔=类型.转整型(编辑框.获得文本("编辑框1"))*1000
如果(内容1==""&&内容2==""&&内容3==""&&内容4=="")
辅助.消息框("请输入喊话内容!")
否则
循环(真)
如果(内容1!="")
辅助.写入剪切板(内容1)
辅助.读取剪切板()
喊话器.执行喊话()
辅助.等待(1000)
如果结束
如果(内容2!="")
辅助.写入剪切板(内容2)
辅助.读取剪切板()
喊话器.执行喊话()
辅助.等待(1000)
如果结束
如果(内容3!="")
辅助.写入剪切板(内容3)
辅助.读取剪切板()
喊话器.执行喊话()
辅助.等待(1000)
如果结束
如果(内容4!="")
辅助.写入剪切板(内容4)
辅助.读取剪切板()
喊话器.执行喊话()
辅助.等待(1000)
如果结束
辅助.等待(间隔)
循环结束
如果结束
功能结束
功能 执行喊话()
dm.KeyPress(13)
辅助.等待(500)
dm.KeyDown(17)
辅助.等待(200)
dm.KeyDown(86)
辅助.等待(300)
dm.KeyUp(86)
辅助.等待(200)
dm.KeyUp(17)
辅助.等待(200)
dm.KeyPress(13)
功能结束
功能 下拉框0_选择改变()
内容=下拉框.获得内容("下拉框0",下拉框.得到选项("下拉框0"))
如果(内容=="清空第1个内容")
编辑框.设置文本("编辑框0","")
如果结束
如果(内容=="清空第2个内容")
编辑框.设置文本("编辑框2","")
如果结束
如果(内容=="清空第3个内容")
编辑框.设置文本("编辑框3","")
如果结束
如果(内容=="清空第4个内容")
编辑框.设置文本("编辑框4","")
如果结束
如果(内容=="清空所有内容")
编辑框.设置文本("编辑框0","")
编辑框.设置文本("编辑框2","")
编辑框.设置文本("编辑框3","")
编辑框.设置文本("编辑框4","")
如果结束
如果(内容=="读取配置1")
编辑框.设置文本("编辑框0",辅助.读配置("编辑框文本","文本","G:\\喊话器\\喊话器\\资源\\配置1.ini"))
如果结束
如果(内容=="读取配置2")
编辑框.设置文本("编辑框2",辅助.读配置("编辑框文本","文本","G:\\喊话器\\喊话器\\资源\\配置2.ini"))
如果结束
如果(内容=="读取配置3")
编辑框.设置文本("编辑框3",辅助.读配置("编辑框文本","文本","G:\\喊话器\\喊话器\\资源\\配置3.ini"))
如果结束
如果(内容=="读取配置4")
编辑框.设置文本("编辑框4",辅助.读配置("编辑框文本","文本","G:\\喊话器\\喊话器\\资源\\配置4.ini"))
如果结束
如果(内容=="读取所有配置")
编辑框.设置文本("编辑框0",辅助.读配置("编辑框文本","文本","G:\\喊话器\\喊话器\\资源\\配置1.ini"))
编辑框.设置文本("编辑框2",辅助.读配置("编辑框文本","文本","G:\\喊话器\\喊话器\\资源\\配置2.ini"))
编辑框.设置文本("编辑框3",辅助.读配置("编辑框文本","文本","G:\\喊话器\\喊话器\\资源\\配置3.ini"))
编辑框.设置文本("编辑框4",辅助.读配置("编辑框文本","文本","G:\\喊话器\\喊话器\\资源\\配置4.ini"))
如果结束
如果(内容=="保存配置1")
辅助.写配置("编辑框文本","文本",编辑框.获得文本("编辑框0"),"G:\\喊话器\\喊话器\\资源\\配置1.ini")
如果结束
如果(内容=="保存配置2")
辅助.写配置("编辑框文本","文本",编辑框.获得文本("编辑框2"),"G:\\喊话器\\喊话器\\资源\\配置2.ini")
如果结束
如果(内容=="保存配置3")
辅助.写配置("编辑框文本","文本",编辑框.获得文本("编辑框3"),"G:\\喊话器\\喊话器\\资源\\配置3.ini")
如果结束
如果(内容=="保存配置4")
辅助.写配置("编辑框文本","文本",编辑框.获得文本("编辑框4"),"G:\\喊话器\\喊话器\\资源\\配置4.ini")
如果结束
如果(内容=="保存所有配置")
辅助.写配置("编辑框文本","文本",编辑框.获得文本("编辑框0"),"G:\\喊话器\\喊话器\\资源\\配置1.ini")
辅助.写配置("编辑框文本","文本",编辑框.获得文本("编辑框2"),"G:\\喊话器\\喊话器\\资源\\配置2.ini")
辅助.写配置("编辑框文本","文本",编辑框.获得文本("编辑框3"),"G:\\喊话器\\喊话器\\资源\\配置3.ini")
辅助.写配置("编辑框文本","文本",编辑框.获得文本("编辑框4"),"G:\\喊话器\\喊话器\\资源\\配置4.ini")
如果结束
功能结束
空间结束
|
/2 
发表于 2015-3-18 07:02:17
楼主
