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==============\\ //==========要多句喊话直接加下==============\\