
按键精灵脚本教程:单线程操作多窗口不同任务
//////声明公共对象//////
Set dm = nothing
/////////// 分别绑定窗口///////////////
For i = 1 To js
Call 切换对象(i)
dm_ret = dm.BindWindow(hwnd_all(i), "dx", "windows", "windows", 0)
// 检测返回值
If dm_ret = 0 Then
MessageBox "绑定失败"
EndScript

End If
// 分别设置路径字库等
// Call 切换对象(i)
// dm.SetPath "c:\test"
// dm.SetDict 0,"test.txt"
Next
/////////////注册大漠插件///////////
Sub 大漠注册()
Set ws = createobject("Wscript.Shell")
ws.run "regsvr32 atl.dll /s"
Set ws = nothing

PutAttachment "c:\guoer", "dm.dll"
PutAttachment ".\Plugin" ,"RegDll.dll"
call Plugin.RegDll.Reg ( "c:\guoer\dm.dll")
Set dm = createobject("dm.dmsoft")
ver = dm.ver()
If len(ver) = 0 Then
MessageBox "插件注册失败,检查系统是否禁用了vbs脚本权限"
EndScript
End If
End Sub
按键
本文来自电脑杂谈,转载请注明本文网址:
http://www.pc-fly.com/a/jisuanjixue/article-30612-1.html
荷兰国王访华