按键精灵之复制文本到播放器中-yellowcong

按键精灵是一款用于做外挂的软件，使用的是VB语言，封装了一些自定义的语法，可以轻松的完成一些游戏的外挂，不过我做的是一个播放器的批量添加操作。建议通过获取控件的方式来写，不要通过坐标的方式来做，这样如果屏幕大小变了，就不起作用了，管网下载地址：http://www.anjian.com/download.htm

获取界面控件的重要函数

//根据标题获取面板Hwnd = Plugin.Window.Find(0, "xf.txt - 记事本")//更具类型，获取子类面板的文本输入框edit = Plugin.Window.findEx(Hwnd, 0, "Edit", 0)//根据名称，获取子类 按钮palyBtn = Plugin.Window.findEx(Hwnd, 0, 0,"播放")//vb获取剪贴板文本Clipboard = Plugin.Sys.GetCLB()//设定textboxd的数据Call Plugin.Window.SendString(edit, Clipboard)

通过抓抓来获取到控件的信息，然后好获取点击或者啥的事件

抓抓这个工具挺好用的

完整代码

//----------------------------------------------------从Notepad中获取链接-----------------------------------------------------'回到桌面Call ToDesktop()'打开文件Call RunApp("notepad C:\Users\yellowcong\Desktop\xf.txt")'延时Delay 500'获取最前面的窗口Hwnd = Plugin.Window.Find(0, "xf.txt - 记事本")'最大化Call Plugin.Window.Max(Hwnd)Delay 500//调用获取第一行的数据Call GetFirstLine()//获取第一行的数据Function GetFirstLine()    '选中，添加    '选中行    KeyDown 16, 1    KeyPress 35, 1    KeyUp 16, 1    '剪切    Delay 100    KeyDown 17, 1    KeyPress 88, 1    KeyUp 17, 1    '删除    Delay 100    KeyDown "Delete", 1    '保存 CTL +S    Delay 100    KeyDown 17, 1    KeyPress 83, 1    KeyUp 17, 1    Delay 100    //关闭文件 ATL+F4    KeyDown 18, 1    KeyPress 115, 1    KeyUp 18, 1End Function//----------------------------------------------------从Notepad中获取链接-----------------------------------------------------//-------------------------------------------------复制剪贴板的数据到播放器----------------------------------------------//复制数据到先锋中//回到桌面Call ToDesktop()//运行自定义的程序Call RunApp("C:\Program Files (x86)\xxplay\xxplay.exe")//获取最前面的窗口Hwnd = Plugin.Window.Find(0, "Xx播放器")Delay 500//最大化Call Plugin.Window.Max(Hwnd)Delay 500//移动到右侧区域MoveTo 1269, 408Delay 500//点击右键RightDown 1Delay 100RightClick 1 //添加网络任务MoveTo 1257, 191Delay 100LeftDown 1Delay 10LeftClick 1//复制粘贴地址MoveTo 519, 367Delay 100LeftClick 1Delay 3LeftUp 1Delay 100//获取当前的窗体Hwnd = Plugin.Window.Find(0, "打开 URL")Delay 100//获取编辑编辑的句柄edit = Plugin.Window.findEx(Hwnd, 0, "Edit", 0)//清空剪贴板数据Call ClearInputText(edit)//获取剪贴板类容Clipboard = Plugin.Sys.GetCLB()//设定textboxd的数据Call Plugin.Window.SendString(edit, Clipboard)Delay 100//获取 播放按钮，这个和 获取窗口的是不一样的palyBtn = Plugin.Window.findEx(Hwnd, 0, 0,"播放")//按下enter键Call Plugin.Window.SendKeyDown(palyBtn, 13) //-------------------------------------------------复制剪贴板的数据到播放器----------------------------------------------/** 清空输入框 CTL +Ａ  + DELETE*/Function ClearInputText(edit)    //设定焦点    Delay 100    //全选，删除原来已经有的连接诶    KeyDown 17, 1    KeyPress 65, 1    KeyUp 17, 1    Delay 100    //DELETE     KeyPress "Delete", 1End Function//回到桌面 WIN +DFunction ToDesktop()    '回到桌面    KeyDown "Win", 1    Delay 100    KeyDown "D", 1    Delay 100    KeyUp "D", 1    Delay 10    KeyUp "Win", 1End Function