【www.shanpow.com--广告词】
【一】:想让电脑长寿必看 定时清理QQ的七个文件夹
章节
收起
1 这里面是QQ广告，删掉 2 这是你的QQ好友的QQ秀文件夹，可以删除 3 这是你的QQ好友的QQ秀文件夹，放心删除 4 这是你的空间或者别人空间里的一些临时文件，删掉 5 别人的空间的空间音乐的临时文件夹 6 一定要时常清理QQ的两个文件夹
QQ用户请注意了,这5个文件夹要定时清理! 提升内存
这里面是QQ广告，删掉
安装目录＼ProgramFiles＼Tencent＼QQ＼ad
这是你的QQ好友的QQ秀文件夹，可以删除
QQ秀
安装目录＼ProgramFiles＼Tencent＼QQ＼flashshow
这是你的QQ好友的QQ秀文件夹，放心删除
安装目录＼ProgramFiles＼Tencent＼QQ＼flashshow 2
这是你的空间或者别人空间里的一些临时文件，删掉
安装目录＼ProgramFiles＼Tencent＼QQ＼QQFileCache
别人的空间的空间音乐的临时文件夹
安装目录＼ProgramFiles＼Tencent＼QQ＼QQMusic＼WhirlCache
这里面是你登陆自己的QQ空间或者别人的空间的空间音乐的临时文件夹，这里面的文件会占很的空间，所以尽快删除掉吧！
一定要时常清理QQ的两个文件夹
时间长站内存超大!
QQ的朋友们，你们在重装QQ前，一定会备份一下你的号码文件夹吧？尤其是那些将QQ装在C盘下的朋友，如果有一天你发现你的硬盘空间越来越小了，是不是会感觉到莫名其妙，开始怀疑是中病毒了还是怎样。这时候一定记得到下面这2个文件夹看看，是不是已经塞进
了好多垃圾！
安装目录:\你的QQ号码\CustomFaceRecv
安装目录:\你的QQ号码\image
这2个文件夹是QQ的图片缓存目录，别人给你发的表情、截图，或者不管是不是给你的，只要在群中发出来的图片，都会保存在这里。时间久了，这2个文件可以达到GB级！！！！！当数量过大时，你就无法再接收到别人发给你的图片，你也无法通过截图，发图片给别人，通常会提示“图片压缩失败”。这时候你可以放心删除这两个文件夹下的所有图片，不会影响你已经保存的那些表情和头像的，它们不在这2个文件夹内。
如果你有多个号码，记得把相应号码下的这2个文件夹内的东东统统删除。
提示：有时候由于图片上万，系统处理时会比较慢，请耐心等待
大家一定要记住勤劳一点，多清理自己的QQ啦。
如果你收到任何一个电话（包括10086或10010）说是在检查你的手机线路，并要求你按#或其他任何按键，请不要按那些键，并马上结束通话。那是一家欺诈公司，他们的机器能在你按下#或其他按键后连接到你的SIM卡，并用你的钱来打电话。把这个消息转发给尽可能多的朋友，阻止这项欺诈。这条消息已经被摩托罗拉和诺基亚证实。现在全世界超过百万手机正被这种病毒感染
新闻提要：9月30日晚，辽宁广告职业学院几名学生运动会结束后聚餐，因声音太大惹怒邻座，竟遭对方两把大片刀疯狂砍杀，6名学生被砍成重伤，同学沿街跪地苦苦哀求，才被几名蹦蹦车司机送到医院。10月7日
下午，6名学生还未脱离危险。
我们得提醒孩子们 还是要提醒孩子们注意安全，特别是聚会时
【二】:QQ自动发信息的代码
QQ自动发信息的代码
VFP CODE：
DECLARE INTEGER FindWindowEx IN user32; INTEGER hwndParent,;
INTEGER hwndChildAfter,; STRING @ lpszClass,;
STRING @ lpszWindow
DECLARE INTEGER GetForegroundWindow IN user32 DECLARE INTEGER SendMessage IN user32 INTEGER,INTEGER,INTEGER,STRING @
DECLARE INTEGER GetClassName IN user32 INTEGER,STRING @,INTEGER DECLARE INTEGER GetWindow IN user32;
INTEGER hwnd,; INTEGER wFlag
BM_CLICK = 0xF5 EM_REPLACESEL = 0xC2
SendMg='
qqHwnd=GetForegroundWindow()&&得到当前窗口句柄
ClassName=REPLICATE(CHR(0),255)
GetClassName(qqHwnd,@ClassName,LEN(ClassName))&&窗口类型
IF ALLTRIM(ClassName)='#32770'&&初步判定是否是聊天窗口
FirstHwnd=findWindowEx(qqHwnd, 0, "#32770", NULL)&&获得第一个子窗口
IF FirstHwnd<>0 SendHwnd = FindWindowEx(FirstHwnd, 0, "Button", "发送(S)")&&获得发送按钮句柄 IF SendHwnd<>0
ListHwnd=findWindowEx(FirstHwnd, 0, "RichEdit20A", NULL)&&获得聊天记录窗口句柄 EditHwnd=GetWindow(GetWindow(ListHwnd,2),5)&&根据聊天记录窗口得到输入窗口句柄 IF EditHwnd<>0
SendMessage(EditHwnd, EM_REPLACESEL,0,SendMg)&&往输入框自动发送消息 SendMessage(SendHwnd, BM_CLICK,0,0)&&自动按下'发送'按钮
ENDI ENDI
ENDIwww.shanpow.com_电脑qq定时消息。
ENDI
把代码放入timer控件，定时发送即可，注意发送间隔不要太快哦！如果要想隐蔽发送，我们可以先把捕获的窗口句柄记录下来，并且把聊天记录框的信息记录下来，然后检测其是否处于最小化状态，最小化状态我们可以通过WM_SIZE消息来得到，如果是那么就自动发送，发送后把聊天记录框的内容还原，这样等打开最小化的聊天界面时就不会被察觉是否被发送过消息了。
顺便说下，要想写QQ尾巴代码只需要判断下QQ聊天窗口所处于的状态顺便拦截下发送状态并且发送后再把发送痕迹处理下就可以了
VFP手机短信收发(源代码)
*-----------------------------------------------
* 手机短信收发(仅供参考，不同手机需要稍微修改代码)
**红雨(提供)
*说明：1、手机数据线连接电脑可以直接收发。2、红外线的要装一个虚拟串口软件 *----------------------------------------------- Clear
Set Safety Off Set Talk Off
*-----------------------------------------------
* 发送短信测试
? [发送: ], SendSMSMessage( [13000000000], [VFP发送测试], 3 )
Return
*----------------------------------------------- * 读取短信测试
If Used([TSMSMessage]) Use In TSMSMessage
Endif ? [读取: ], ReadSMSMessage( [TSMSMessage], 3 )
Returnwww.shanpow.com_电脑qq定时消息。
*----------------------------------------------- * 删除短信测试
If Used([TSMSMessage]) Local lcDelList
lcDelList = []
Select TSMSMessage Scan
lcDelList = lcDelList + [,] + Alltrim(Str(nMark)) Endscan
? [删除: ], DeleteSMSMessage( lcDelList, 3 )
Endif
Return
*----------------------------------------------- * 读取手机短信
*----------------------------------------------- Function ReadSMSMessage( tcCursName, tnComPort )
tcCursName = Iif(Type([tcCursName])=[C] And !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 * 读取短信
lcReadData = 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 ) && 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 lnInfo > 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([,],lcR
eadData,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(lcInfo,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*liSerPhone,1) + Subs(lcSerPhone,2*liSerPhone-1,1)
Endfor
Local lnPhoto, liphone, lcPhone, lnPhlen
lnPhoto = 2 + lnSerPhone + Iif(lnRead<2,2,4) lnPhlen = Evaluate( [0x] + Subs(lcInfo, lnPhoto+1, 2) )
lnPhoto = 2 + lnSerPhone + Iif(lnRead<2,6,8) lcPhone = Strt( Subs(lcInfo, lnPhoto+1 , Iif(Mod(lnPhlen,2)=0,lnPhlen,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, liTime, lcTime, lcTemp
lcTemp = Iif(lnRead<2, [20], [] )
lnTime = lnPhoto + lnPhlen * 2 + 4 lcTime = Subs(lcInfo, lnTime+1, Iif(lnRead<2, 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 = lnTime + Iif(lnRead<2, 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 = SMSDeCodeEnglish( Subs(lcInfo, lnText+2+1, lnTlen ) ) Endif
Select(tcCursName)
Appe Blan Gath Memv
Endfor Endif
Endif Endif
Endif Endif
*-- 关闭串口
= CloseSMSComm(loMSComm) Endif
Return IsOK Endfunc
*----------------------------------------------- * 删除手机短信
*-----------------------------------------------
Function DeleteSMSMessage( tcNumbList, tnComPort ) tnComPort = Iif(Type([tnComPort])=[N] And Between(tnComPort,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 = [,] + 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
*-- 关闭串口
= CloseSMSComm(loMSComm) Endif
Return lcNotDeleteList Endfunc
*----------------------------------------------- * 发送手机短信
*-----------------------------------------------
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)www.shanpow.com_电脑qq定时消息。
If Type([loMSComm])=[O] And !Isnull(loMSComm) And loMSComm.PortOpen * 初始化手机
If MobileInit(loMSComm)
* 发送短信
Local lcSerCPhone, lnSerCPhone, lcSendPhone, lnSendPhone, lcSendDatas, liPhone, lcSendStr
* 正在获取短信中心号码...
lcSerCPhone = SendStrAndGetData( loMSComm, [AT+CSCS="GSM"], 5 ) && +CSCS: ("IRA","GSM","UCS2")
If [OK]$lcSerCPhone lcSerCPhone = SendStrAndGetData( loMSComm, [AT+CSCA?], 5 )
If [OK]$lcSerCPhone lcSerCPhone = Subs(lcSerCPhone, At(["],lcSerCPhone,1)+1, At(["],lcSerCPhone,2)-At(["],lcSerCPhone,1)-1 )
If Len(lcSerCPhone) > 20 And Mod(Len(lcSerCPhone),4) = 0 && 返回的是 Asc 串 lcSerCPhone = SMSDeCodeChina( lcSerCPhone )
Endif lcSerCPhone = Strt( lcSerCPhone, [+], [] )
lcSendPhone = Allt(tcToPhone) lcSendDatas = Allt(tcMessage)
If !Empt(lcSerCPhone) And !Empt(lcSendPhone) And !Empt(lcSendDatas) * + 中心号码
lcSendStr = []
lnSerCPhone = Ceiling(Len(lcSerCPhone)/2) For liPhone = 1 To lnSerCPhone
lcTmp1 = Subs(lcSerCPhone,2*liPhone,1) lcTmp2 = Subs(lcSerCPhone,2*liPhone-1,1)
lcTmp1 = Iif(Empt(lcTmp1), [F], lcTmp1 )
lcSendStr = lcSendStr + lcTmp1 + lcTmp2 Endfor
* + 字符串头
lcSendStr = [91] + lcSendStr
lcSendStr = Right( Transform(Len(lcSendStr)/2,[@0]), 2 ) + lcSendStr * + 发送号码
lcSendStr = lcSendStr + [1101] + Right( Transform(Len(lcSendPhone),[@0]), 2 ) + [81] lnSendPhone = Ceiling(Len(lcSendPhone)/2)
For liPhone = 1 To lnSendPhone lcTmp1 = Subs(lcSendPhone,2*liPhone,1)
lcTmp2 = Subs(lcSendPhone,2*liPhone-1,1) lcTmp1 = Iif(Empt(lcTmp1), [F], lcTmp1 )
lcSendStr = lcSendStr + lcTmp1 + lcTmp2
Endfor * + 发送字符
lcSendDatas = SMSEnCodeC
