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