如何用按鈕向導群發QQ消息？

//用戶自定義變量設置\x0d\UserVar Hua1= "第壹句已發送" \x0d\UserVar Hua2= "第二句已發送" \x0d\UserVar Hua3= "第三句已發送" \x0d\UserVar Hua4= "第四句已發送" UserVar Hua5= "第五句已發送" \x0d\UserVar Yanshi=1000 "兩句之間的時間間隔為100，其中Hua = HUA1 \ x0d \ CALL方小希()\ x0d \ DELAYANSHI \ x0d \/發第二句，以下同\ x0d \ Hua = HUA2 \ x0d \ CALL方小希()\ x0d \ dela Yanshi。調用法松小西()\x0d\Delay顏氏\x0d\Hua = Hua4\x0d\Call法松小西()\x0d\Hua = Hua5\x0d\Call法松小西()\x0d\Delay顏氏\ X0d\EndScript \x0d\//發送消息的子程序\ X0d \ subfesongxii()\ X0d \/填寫要發送的消息\ X0d \ saystringhua \ X0d \ Delay 100 \ X0d調用register \ x0d \ ifirst = true \ x0d \ hwnds = DM . enumwindow(0，""，" txguifoundation "，2+4+8+16)//獲取Q群句柄\ x0d \ Call checkQQ //檢查Q群是否已經打開以及是否只打開了壹個Q群\ x0d \//DM _ ret = DM . Set window state(hwnds，12)//激活窗口\ x0d \ DM _ ret = DM . Bind window(hwnds，" GDIx0d \延時800\x0d\dm。移動到258，495 \ x0d \延遲800\x0d\dm。left click \ x0d \ Delay 800 \ x0d \ chw nd = Plugin。Window.Foreground()\x0d\ Call插件。Bkgnd.LeftClick(cHwnd，22，205)\ x0d \ Delay 1500 \ x0d \ AtlHwnd = Plugin。Window.FindEx(cHwnd，0，" ATL:30A4FE48 "，" ")\x0d\ Call插件。bkgnd.leftclick (at lhwnd，60，30)\ x0d \ delay 800 \ x0d \ sget color = plugin。bkgnd.getpixelcolor (at lhwnd，2，20) \ x0d \ traceprint "得到的顏色是:" &；sGetcolor\x0d\Dim isender，iunsender，iNum，IAD min \ x0d \ is ender = 0:I unsender = 0:iNum = 0:IAD min = 0 \ x0d \ \ x0d \ Do \ x0d \ s find Color = plugin。bkgnd。Findcolor (atlhwnd，0，0，410，303，sgetcolor，0，1.0)\ X0d \//下面的句子用於拆分字符串\ X0d \ dim MyArray \ X0d \ MyArray = split(sfindcolor，" | " \ X0d \/下面的句子將字符串轉換為數值\ X0d \ intx = clng(MyArray(0)):inty = clng(MyArray(6544intX & amp，y坐標= " &；Inty \ x0d \ getqzc =插件。bkgnd。getpixel color (atlhwnd，12，inty+6) \ x0d \ traceprint "群管理器和群主的顏色參數為:" &；Getqzc\x0d\ sFindColor = Plugin。Bkgnd.GetPixelColor(AtlHwnd，395，285)\ x0d \ trace print sFindColor \ x0d \ Delay 200 \ x0d \ \ x0d \ If sFindColor = " fdf 8 f 1 " Then \ x0d \ Call Plugin。Bkgnd.LeftDoubleClick(AtlHwnd，intX + 12，intY+6)\ x0d \ Delay 500 \ x0d \ Call sender \ x0d \ Exit Do \ x0d \ else If Getqzc = " ACD3FF " then \ x0d \ IAD min = IAD min+1 \ x0d \//Call Plugin . bk gnd . key press(AtlHwnd，40) \ x0d \ traceprint "發現管理員" \ x0d \ else \ x0dBkgnd.LeftClick(AtlHwnd，intX + 12，intY + 6)\x0d\ Delay 200\x0d\ Call插件。Bkgnd.KeyPress(AtlHwnd，40)\ x0d \ iNum = iNum+1 \ x0d \ Loop \ x0d \ \ x0d \//-子例程。PutAttachment”。\plugin\dm "，" *。bmp"\x0d\ //PutAttachment "。\plugin\dm "，" *。txt"\x0d\ PutAttachment "。\plugin\dm "，" dm.dll"\x0d\ /= put attachment釋放附件\x0d\ callplugin.regdll.reg("。\ plugin \ DM . dll ")\ x0d \ setdm = createobject(" DM . dmsoft ")\ x0d \/= desert registration \ x0d \ DM . set path "。\ plugin \ dm" \ x0d \/dm.setdict0，" ZK . txt " \ x0d \ delay 40 \ x0d \ end sub \ x0d \ subscript exit()\ x0d \ DM _ ret = DM。iNum & amp文章，忽略管理員:“&；iAdmin & amp，實際發送:“&；伊森德& amp，忽略已發送:“&；iun sender \ x0d \ end sub \ x0d \ x0d \ subcheck QQ//檢測是否只打開了壹個Q組\ x0d \ x0d \ hwnd = split (hwnds，"，")\ x0d \ ifubound (hwnd) > 0則\x0d\ MsgBox "桌面上只能保留壹個提升的Q組。請先關閉其他的！" \ x0d \ end script \ x0d \ else if hwnds = " " then \ x0d \ msgbox "請在運行腳本之前打開壹個需要分組發送的組！" \ x0d \ End script \ x0d \ End If \ x0d \ \ x0d \ End Sub \ x0d \ \ x0d \ Sub sender \ x0d \ Delay 1000 \ x0d \ Hwnd = plugin . window . foreground()\ x0d \ Hwnd = CSTR(Hwnd)\ x0d \ atlhwnd = CSTR(atlhwnd)\ x0d \ ifhwnd = atlhwnd then \ x0d \ trace print " Error 002 " \ x0d \ ":" & amphwnds & amp........." \ x0d \ Delay 2000 \ x0d \ Goto one \ x0d \ Else \ x0d \ If ifrst = true Then \ x0d \ Call Plugin。Window.Size(hwnd，540，492) //設置窗口分辨率\ x0d \ ifirst = false \ x0d \ Endif \ x0d \ delay 100 \ x0d \ keydown 17，1//ctrl+v paste \ x0d \ key press 86，1 \ x0d \ keyup17，1 \ x0d \ delay 800 \ x0Bkgnd.LeftClick(hwnd，250，468)\ x0d \ Delay 500 \ x0d \ I sender = I sender+1 \ x0d \ End If \ x0d \ \ x0d \ End Sub