求高手帮忙写一个，大漠插件绑定窗口然后不停按123456

Posted 2023-03-24

求高手帮忙写一个，大漠插件绑定窗口然后不停按123456

参考技术A PutAttachment "D:\tianxiahoutai", "*.*"//释放附件
set ws=createobject("Wscript.Shell")
ws.run "regsvr32 d:\tianxia\dm.dll /s"
Set ws = nothing
Delay 1500//注册插件
Set dm = createobject("dm.dmsoft")//创建漠象
dm.SetPath "D:\tianxiahoutai"//设置全盘路径
dm.SetDict 0, "D:\tianxiahoutai\tianxiazk1.txt"//设定字库
hwnds = dm.EnumWindow("0", "117.135.138.155/tx33", "", 1 + 4 + 8 + 16)
//枚举窗口标题117.135.138.155/tx33窗口句柄赋值给hwnds
hwnds = split(hwnds,",")
//数组割函数
hwnd = dm.FindWindowEx( hwnds, "Frame Tab", "")
Delay 200
hwnd = dm.FindWindowEx(hwnd, "TabWindowClass", "")
Delay 200
dm_ret = dm.SetWindowState(hwnd,1)
Delay 200
//获取客户区句柄
dm_ret = dm.BindWindowEx(hwnd, "dx2", "windows3", "windows", "", 0)
//绑定窗口
Delay 1000
dm_ret = dm.FindStrFast(0,0,1024,800,"驿站","4800ff-df9cff",0.9,tx_sxX,tx_sxY)
//漠找字
If tx_sxX >= 0 and tx_sxY >= 0 Then
dm.moveto tx_sxX, tx_sxY
//漠鼠标移
Delay 500
dm.leftclick
//漠左键单击

//自书写代码
Sub OnScriptExit()
dm_ret = dm.UnBindWindow()
End Sub
//解除窗口绑定