yanshi=500 "设置喊话延时"
UserVar neirong="QQ三国" "设置喊话内容"
PutAttachment ".\Plugin","*.dll"
set ws=createobject("Wscript.Shell")
ws.run "regsvr32 ./plugin/dm.dll /s"
set ws=nothing
Delay 1500  
Set dm = CreateObject("dm.dmsoft")
ver = dm.Ver()
If len(ver) = 0 Then
    MessageBox "创建对象失败,检查系统是否禁用了vbs脚本权限"
    EndScript
End If
//获取窗口句柄
hwnd = dm.GetForegroundWindow()
//dm.MoveWindow hwnd,0,0
// display: dx 鼠标:dx 后台 键盘: dx后台 
dm_ret = dm.BindWindow(hwnd,"dx","dx2","dx") 
Delay 1000
Rem 开始
dm.KeyPress 13
Delay yanshi
dm.SendString hwnd,neirong
Delay yanshi
dm.KeyPress 13
Delay yanshi
Goto 开始
Sub OnScriptExit 
    dm_ret = dm.UnBindWindow() 
Return
//==========QQ408898030==============\\
//==========要多句喊话直接加下==============\\