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