QQ自动发信息的代码.docx

1、QQ自动发信息的代码QQ自动发信息的代码VFP CODE：DECLARE INTEGER FindWindowEx IN user32; INTEGER hwndParent,; INTEGER hwndChildAfter,; STRING lpszClass,; STRING lpszWindowDECLARE INTEGER GetForegroundWindow IN user32DECLARE INTEGER SendMessage IN user32 INTEGER,INTEGER,INTEGER,STRING DECLARE INTEGER GetClassName IN use

2、r32 INTEGER,STRING ,INTEGERDECLARE INTEGER GetWindow IN user32; INTEGER hwnd,; INTEGER wFlagBM_CLICK = 0xF5 EM_REPLACESEL = 0xC2SendMg=qqHwnd=GetForegroundWindow()&得到当前窗口句柄ClassName=REPLICATE(CHR(0),255)GetClassName(qqHwnd,ClassName,LEN(ClassName)&窗口类型IF ALLTRIM(ClassName)=#32770&初步判定是否是聊天窗口FirstHwn

3、d=findWindowEx(qqHwnd, 0, #32770, NULL)&获得第一个子窗口 IF FirstHwnd0 SendHwnd = FindWindowEx(FirstHwnd, 0, Button, 发送(S)&获得发送按钮句柄 IF SendHwnd0 ListHwnd=findWindowEx(FirstHwnd, 0, RichEdit20A, NULL)&获得聊天记录窗口句柄 EditHwnd=GetWindow(GetWindow(ListHwnd,2),5)&根据聊天记录窗口得到输入窗口句柄 IF EditHwnd0 SendMessage(EditHwnd, E

4、M_REPLACESEL,0,SendMg)&往输入框自动发送消息 SendMessage(SendHwnd, BM_CLICK,0,0)&自动按下发送按钮 ENDI ENDI ENDIENDI把代码放入timer控件，定时发送即可，注意发送间隔不要太快哦！如果要想隐蔽发送，我们可以先把捕获的窗口句柄记录下来，并且把聊天记录框的信息记录下来，然后检测其是否处于最小化状态，最小化状态我们可以通过WM_SIZE消息来得到，如果是那么就自动发送，发送后把聊天记录框的内容还原，这样等打开最小化的聊天界面时就不会被察觉是否被发送过消息了。顺便说下，要想写QQ尾巴代码只需要判断下QQ聊天窗口所处于的状态顺

5、便拦截下发送状态并且发送后再把发送痕迹处理下就可以了VFP手机短信收发(源代码)*-*手机短信收发(仅供参考，不同手机需要稍微修改代码)*红雨(提供)*说明：1、手机数据线连接电脑可以直接收发。2、红外线的要装一个虚拟串口软件*-ClearSet Safety OffSet Talk Off*-* 发送短信测试? 发送: , SendSMSMessage( 13000000000, VFP发送测试, 3 )Return*-* 读取短信测试If Used(TSMSMessage) Use In TSMSMessageEndif? 读取: , ReadSMSMessage( TSMSMessage

6、, 3 )Return*-* 删除短信测试If Used(TSMSMessage) Local lcDelList lcDelList = Select TSMSMessage Scan lcDelList = lcDelList + , + Alltrim(Str(nMark) Endscan ? 删除: , DeleteSMSMessage( lcDelList, 3 )EndifReturn*-* 读取手机短信*-Function ReadSMSMessage( tcCursName, tnComPort ) tcCursName = Iif(Type(tcCursName)=C And

7、 !Empty(tcCursName), tcCursName, TSMSMessage+Sys(2015) tnComPort = Iif(Type(tnComPort)=N And Between(tnComPort,1,9), Int(tnComPort), 3) Local IsOK, loMSComm, lcReadData IsOK = .F. * 打开串口 loMSComm = OpenSMSComm(tnComPort) If Type(loMSComm)=O And !Isnull(loMSComm) And loMSComm.PortOpen * 读取短信 lcReadDa

8、ta = SendStrAndGetData( loMSComm, AT+CSCS=GSM, 5 ) & +CSCS: (IRA,GSM,UCS2) If OK$lcReadData lcReadData = SendStrAndGetData( loMSComm, AT+CMGF=0, 5 ) If OK$lcReadData lcReadData = SendStrAndGetData( loMSComm, AT+CMGL=0, 5 ) If OK$lcReadData lcReadData = SendStrAndGetData( loMSComm, AT+CMGL=4, 30 ) &

9、0 未读 1 已读 2 待发 3 已发 4 全部 If OK$lcReadData IsOK = .T. lcReadData = Strt(lcReadData, OK, +CMGL: ) Local lnHead, lcHead, lnInfo, lcInfo, liInfo lnHead = 18 lcHead = +CMGL: lnInfo = Occu(+CMGL: ,lcReadData) - 1 Create Curs (tcCursName) ( nMark I, cRead C(4), cPhone C(20), tTime T, cText C(250) ) If lnIn

10、fo 0 For liInfo = 1 To lnInfo lcInfo = Strt(Subs(lcReadData, At(lcHead,lcReadData,liInfo), At(lcHead,lcReadData,liInfo+1)-At(lcHead,lcReadData,liInfo) ), lcHead, ) m.nMark = Val(Subs(lcInfo, 1, At(,lcInfo,1)-1 ) Local lnRead lnRead = Val( Subs(lcInfo, At(,lcInfo,1)+1, At(,lcReadData,2)-At(,lcReadDat

11、a,1)-1 ) ) m.cRead = Iif(lnRead=0,未读,Iif(lnRead=1,已读,Iif(lnRead=2,待发,Iif(lnRead=3,已发,未知) Local lnIlen lnIlen = Val( Subs(lcInfo, At(,lcInfo,3)+1 ) ) * 2 + 18 lcInfo = Subs(lcInfo, At(Chr(13),lcInfo)+2, lnIlen ) Local lnSerPhone, liSerPhone, lcSerPhone, lnSerPhlen lnSerPhone = Evaluate( 0x + Left(lcI

12、nfo,2) ) * 2 lcSerPhone = Subs( lcInfo, 3, lnSerPhone ) & 除去前面的 08 lcSerPhone = Subs( lcSerPhone, 3 ) & 除去前面的 91 lcSerPhone = Strt( lcSerPhone, F, ) & 除去中间的 F lnSerPhlen = Ceiling(Len(lcSerPhone)/2) m.cSerPhone = For liSerPhone = 1 To lnSerPhlen m.cSerPhone = m.cSerPhone + Subs(lcSerPhone,2*liSerPho

13、ne,1) + Subs(lcSerPhone,2*liSerPhone-1,1) Endfor Local lnPhoto, liphone, lcPhone, lnPhlen lnPhoto = 2 + lnSerPhone + Iif(lnRead2,2,4) lnPhlen = Evaluate( 0x + Subs(lcInfo, lnPhoto+1, 2) ) lnPhoto = 2 + lnSerPhone + Iif(lnRead2,6,8) lcPhone = Strt( Subs(lcInfo, lnPhoto+1 , Iif(Mod(lnPhlen,2)=0,lnPhle

14、n,lnPhlen+1) ), F, ) lnPhlen = Ceiling(Len(lcPhone)/2) m.cPhone = For liPhone = 1 To lnPhlen m.cPhone = m.cPhone + Subs(lcPhone,2*liPhone,1) + Subs(lcPhone,2*liPhone-1,1) Endfor Local lnCodeType, lcCodeType lnCodeType = lnPhoto + lnPhlen * 2 lcCodeType = Subs(lcInfo, lnCodeType+1, 4) Local lnTime, l

15、iTime, lcTime, lcTemp lcTemp = Iif(lnRead2, 20, ) lnTime = lnPhoto + lnPhlen * 2 + 4 lcTime = Subs(lcInfo, lnTime+1, Iif(lnRead2, 10, 0) ) For liTime = 1 To 5 lcTemp = lcTemp + Subs(lcTime,2*liTime,1) + Subs(lcTime,2*liTime-1,1) Endfor m.tTime = Ctot(Transform(lcTemp,R 9999.99.99 99:99:99) lnText =

16、lnTime + Iif(lnRead2, 10+4, 0+2) If lcCodeType = 0008 lnTlen = Evaluate( 0x + Subs(lcInfo, lnText+1, 2 ) ) * 2 m.cText = SMSDeCodeChina( Subs(lcInfo, lnText+2+1, lnTlen ) ) Else lnTlen = Evaluate( 0x + Subs(lcInfo, lnText+1, 2 ) ) lnTlen = 2 * ( Int(lnTlen/8)*7 + Mod(lnTlen,8) ) m.cText = SMSDeCodeE

17、nglish( Subs(lcInfo, lnText+2+1, lnTlen ) ) Endif Select(tcCursName) Appe Blan Gath Memv Endfor Endif Endif Endif Endif Endif *- 关闭串口 = CloseSMSComm(loMSComm) Endif Return IsOKEndfunc*-* 删除手机短信*-Function DeleteSMSMessage( tcNumbList, tnComPort ) tnComPort = Iif(Type(tnComPort)=N And Between(tnComPor

18、t,1,9), Int(tnComPort), 3) Local lcNotDeleteList, loMSComm, lcDeleStr, lcRetuStr, liList lcNotDeleteList = tcNumbList * 打开串口 If Type(tcNumbList)=C And !Empty(tcNumbList) loMSComm = OpenSMSComm(tnComPort) If Type(loMSComm)=O And !Isnull(loMSComm) And loMSComm.PortOpen lcNotDeleteList = tcNumbList = ,

19、 + tcNumbList + , For liList = 1 To Occurs(,tcNumbList) lcDeleStr = Allt(Getwordnum(tcNumbList,liList,) If !Empty(lcDeleStr) lcRetuStr = SendStrAndGetData( loMSComm, AT+CMGD= + lcDeleStr, 10 ) If ! OK$lcRetuStr lcNotDeleteList = lcNotDeleteList + , + lcDeleStr Endif Endif Endfor Endif *- 关闭串口 = Clos

20、eSMSComm(loMSComm) Endif Return lcNotDeleteListEndfunc*-* 发送手机短信*-Function SendSMSMessage( tcToPhone, tcMessage, tnComPort ) tcToPhone = Iif(Type(tcToPhone)=C, tcToPhone, ) tcMessage = Iif(Type(tcMessage)=C, tcMessage, ) tnComPort = Iif(Type(tnComPort)=N And Between(tnComPort,1,9), Int(tnComPort), 3) Local IsOK, loMSComm IsOK = .F. If !Empty(tcToPhone) And !Empty(tcMessage) * 打开串口 loMSComm = OpenSMSComm(tnComPort) If Type(loMSComm)=O And !Isnull(loMSComm) And loMSComm.PortOpen * 初始化手机 If MobileInit(loMSComm) * 发送短信 Local lcSerCPhone, lnSerCPhone, lcSendPhon