Joke Collection Website - Public benefit messages - How to send QQ messages by button wizard?

How to send QQ messages by button wizard?

//User-defined variable setting \x0d\UserVar Hua 1= "The first sentence has been sent" \x0d\UserVar Hua2= "The second sentence has been sent" \x0d\UserVar Hua3= "The third sentence has been sent" \x0d\ UserVar Hua4= "The fourth sentence has been sent" UserVar Hua5= "The fifth sentence has been sent" \x0d\UserVar Yanshi= 1000 "The time interval between the two sentences is 100, where Hua = HUA 1 \ x0d \ CALL Fang Xiaoxi. DELAYANSHI \ x0d \/ sends the second sentence, which is the same as \ x0d \ Hua = HUA2 \ x0d \ CALL Fang Xiaoxi () \ x0d \ dela Yanshi. Call Fasong Xiaoxi () \x0d\Delay Yanshi \x0d\Hua = Hua4\x0d\Call Fasong Xiaoxi () \x0d\Hua = Hua5\x0d\Call Fasong Xiaoxi () \x0d\Delay Yanshi \ x0d \ end script \ X0d \/ Fill in the message to be sent \ x0d \ saystringhua \ x0d \ delay100 \ x0d Call Register \ x0d \ ifirst = true \ x0d \ hwnds = dm.enumwindow (0, "", "txguifoundation", 2+4+8+ 16)// Get the handle of Q group \ x0d \ Call checkQQ // Check whether Q group has been opened and whether only one Q group has been opened \ x0d \//dm _ ret = dm.set window state (hwnds, 12)// Activate window \ x0d \ dm _ ret = dm.bind window (hwnds, "GDIx0d \ delay 800\x0d\dm. Move to 258,495 \ x0d \ delay 800\x0d\dm. left click \ x0d \ Delay 800 \ x0d \ chw nd = Plugin。 Window.Foreground()\x0d\ Call plug-in. Bkgnd.LeftClick(cHwnd,22,205)\ x0d \ Delay 1500 \ x0d \ AtlHwnd = Plugin。 Window.FindEx(cHwnd, 0, "ATL:30A4FE48", "") \x0d\ Call plug-in. bkgnd.leftclick (at lhwnd,60,30)\ x0d \ delay 800 \ x0d \ sget color = plugin。 Bkgnd.getpixelcolor (at lhwnd, 2,20 20) \ x0d \ traceprint "gets the color:"&; 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 \/The following sentence is used to split the string \ x0d \ dimmyarray \ x0d \ myarray = split (sfindcolor. X0d \/ The following sentence converts a string into a numeric value \ x0d \ intx = clng (myarray (0)): inty = clng (myarray (6544 intx & amp, y coordinate = "&; Inty \ x0d \ getqzc = plug-in. bkgnd。 Getpixel color (atlhwnd, 12, inty+6) \ x0d \ traceprint "The color parameters of the group manager and the group owner are:"&; 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 "discovers the administrator" \ x0d \ else \ x0dbkgnd.leftclick (atlhwnd, intX+12, intY+6)\x0d\ Delay 200\x0d\ Call plug-in. Bkgnd.KeyPress(AtlHwnd, 40) \ x0d \ inum = inum+1\ x0d \ loop \ x0d \ \ x0d \/-subroutine. PutAttachment”。 \plugin\dm "," *。 bmp"\x0d\ //PutAttachment "。 \plugin\dm "," *。 txt"\x0d\ PutAttachment "。 \plugin\dm ","dm.dll"\x0d\ /= put attachment Release 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 & article, ignoring the administrator: "&; I admin &, actually sent: "&; Isende &, ignoring sent: "&; Iun sender \ x0d \ end sub \ x0d \ x0d \ subcheck QQ//Detect whether only one Q group is opened \ x0d \ x0d \ hwnd = split (hwnds, ",") \ x0d \ ifubound (hwnd) > 0, then \x0d\ MsgBox. Please close the others first! " \ x0d \ endscript \ x0d \ else if hwnds = ""then \ x0d \ msgbox "Please open a group to be sent in groups before running the script!" \ 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)//Set the window resolution \ x0d \ ifirst = false \ x0d \ endif \ x0d \ delay100 \ x0d \ keydown17,1/. x0d \ key press 86, 1 \ x0d \ keyup 17, 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