QQ自动发信息码.doc

QQ自动发信息的代码VFPCODE:DECLAREINTEGERFindWindowExINuser32;   INTEGERhwndParent,;   INTEGERhwndChildAfter,;   ******@lpszClass,;******@lpszWindowDECLAREINTEGERGetForegroundWindowINuser32DECLAREINTEGERSendMessageINuser32INTEGER,INTEGER,INTEGER,******@DECLAREINTEGERGetClassNameINuser32INTEGER,STRING@,INTEGERDECLAREINTEGERGetWindowINuser32;   INTEGERhwnd,;   INTEGERwFlagBM_CLICK=0xF5  EM_REPLACESEL=0xC2SendMg='http://hi./myvfp/blog'&&指定要发送的消息qqHwnd=GetForegroundWindow()&&得到当前窗口句柄ClassName=REPLICATE(CHR(0),255)GetClassName(qqHwnd,***@ClassName,LEN(ClassName))&&窗口类型IFALLTRIM(ClassName)='#32770'&&初步判定是否是聊天窗口FirstHwnd=findWindowEx(qqHwnd,0,"#32770",NULL)&&获得第一个子窗口   IFFirstHwnd<>0   SendHwnd=FindWindowEx(FirstHwnd,0,"Button","发送(S)")&&获得发送按钮句柄      IFSendHwnd<>0      ListHwnd=findWindowEx(FirstHwnd,0,"RichEdit20A",NULL)&&获得聊天记录窗口句柄      EditHwnd=GetWindow(GetWindow(ListHwnd,2),5)&&根据聊天记录窗口得到输入窗口句柄         IFEditHwnd<>0         SendMessage(EditHwnd,EM_REPLACESEL,0,SendMg)&&往输入框自动发送消息         SendMessage(SendHwnd,BM_CLICK,0,0)&&自动按下'发送'按钮         ENDI      ENDI   ENDIENDI把代码放入timer控件,定时发送即可,注意发送间隔不要太快哦!如果要想隐蔽发送,我们可以先把捕获的窗口句柄记录下来,并且把聊天记录框的信息记录下来,然后检测其是否处于最小化状态,最小化状态我们可以通过WM_SIZE消息来得到,如果是那么就自动发送,发送后把聊天记录框的内容还原,这样等打开最小化的聊天界面时就不会被察觉是否被发送过消息了。顺便说下,要想写QQ尾巴代码只需要判断下QQ聊天窗口所处于的状态顺便拦截下发送状态并且发送后再把发送痕迹处理下就可以了VFP手机短信收发(源代码)*-----------------------------------------------* 手机短信收发(仅供参考,不同手机需要稍微修改代码)**红雨(提供)*说明:1、手机数据线连接电脑可以直接收发。2、红外线的要装一个虚拟串口软件*-----------------------------------------------ClearSetSafetyOffSetTalkOff*-----------------------------------------------*发送短信测试?[发送:],SendSMSMessage([**********],[VFP发送测试],3)Return*-----------------------------------------------*读取短信测试IfUsed([TSMSMessage])   UseInTSMSMessageEndif?[读取:],ReadSMSMessage([TSMSMessage],3)Return*-----------------------------------------------*删除短信测试IfUsed([TSMSMessage])   LocallcDelList   lcDelList=[]   SelectTSMSMessage   Scan       lcDelList=lcDelList+[,]+Alltrim(Str(nMark))   Endscan   ?[删除:],DeleteSMSMessage(lcDelList,3)Endi