按键精灵之复制文本到播放器中-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, 1
End 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, 408
Delay 500

//点击右键
RightDown 1
Delay 100
RightClick 1

 //添加网络任务
MoveTo 1257, 191
Delay 100
LeftDown 1
Delay 10
LeftClick 1

//复制粘贴地址
MoveTo 519, 367
Delay 100
LeftClick 1
Delay 3
LeftUp 1
Delay 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", 1

End Function

//回到桌面 WIN +D
Function ToDesktop()

    '回到桌面
    KeyDown "Win", 1
    Delay 100
    KeyDown "D", 1
    Delay 100
    KeyUp "D", 1
    Delay 10
    KeyUp "Win", 1

End Function