- 用户定义变量 yanshi=500 "设置喊话延时"
- 用户定义变量 neirong="QQ三国" "设置喊话内容"
- 展开附件 *.dll 到 .\Plugin 文件夹
- 令 ws = createobject("Wscript.Shell")
- ws.run("regsvr32 ./plugin/dm.dll /s")
- 令 ws = nothing
- 延时 1500 毫秒
- 令 dm = CreateObject("dm.dmsoft")
- 令 ver = dm.Ver()
- 如果 len(ver) = 0 则
- 弹出窗口 "创建对象失败,检查系统是否禁用了vbs脚本权限"
- 脚本停止运行
- 条件结束
- 注释:获取窗口句柄
- 令 hwnd = dm.GetForegroundWindow()
- 注释:dm.MoveWindow hwnd,0,0
- 注释: display: dx 鼠标:dx 后台 键盘: dx后台
- 令 dm_ret = dm.BindWindow(hwnd,"dx","dx2","dx")
- 延时 1000 毫秒
- 标记 开始
- dm.KeyPress(13)
- 延时 yanshi 毫秒
- dm.SendString(hwnd,neirong)
- 延时 yanshi 毫秒
- dm.KeyPress(13)
- 延时 yanshi 毫秒
- 跳转到标记 开始
- 子程序 OnScriptExit
- 令 dm_ret = dm.UnBindWindow()
- 子程序结束
- 注释:==========QQ408898030==============\\
- 注释:==========要多句喊话直接加下==============\\