QQ automatic chat

zhaozj2021-02-16  64

Sub main () Rem QQ automatic chat

DIM I AS INTEGER DIM MYQQ AS New QQ Const My Q = "4563919" const mypwd = entry ("**********") const myphone = entry ("131 *******" )

Myqq. account = myPwd myqq.pwd = myPwd myqq.phone = myphone myqq.open if = myphone myqq.open if MYQQ. Online list .count = 0 Then myqq.autoadd myq.autosearch (Earth,,, female) .Result End if do While (1 ) For Each I in Myqq. Online List Myqq.autosendmsg (Myqq. Online List (i)) ife myqq.radio = true kiln qq. Automatic reply (RND () * 4) End ifveents next i if network is not AND inexpensive Login THEN EXIT Do LOOP SET MYQQ = NothingNGEND SUB

转载请注明原文地址:https://www.9cbs.com/read-13036.html

New Post(0)