qq留言好友

qq留言好友(共7篇)我给空间好友留言我给空间好友回复留言：（部分）心雨飞飞：感谢缘分的牵动，感动友谊的温馨！因为心雨的祝福，成就了我心中无限的温暖，无尽的温馨!在已显炎热的初夏，心雨的到来，似凉风清泉，送来了清凉，送来

qq留言好友

【一】:我给空间好友留言

我给空间好友回复留言：（部分）

心雨飞飞：感谢缘分的牵动，感动友谊的温馨！因为心雨的祝福，成就了我心中无限的温暖，无尽的温馨!在已显炎热的初夏，心雨的到来，似凉风清泉，送来了清凉，送来了清泉！心雨，祝福与牵挂是朋友间不变的主题，我也在此愿心雨时时刻刻拥抱甜蜜和快乐，平安健康相伴，好运成功相随。

同时收获了一份情深意切的沟通，一份感受至深的情意！对于我来说，高兴与激动同在，欣喜与感动共存。欣欣境界伴我，心绪如此惬意。真的好感谢你心雨。此时，敲打键盘，让我对朋友的关注与祝愿穿越万水千山送至心雨心里，愿心雨幸福与快乐常在，美满与开心永驻！祝福于此，我心亦畅。心雨，有你真好，读你!

蓝天白云：湛湛蓝天，悠悠白云，置身其境，山欢水悦人展颜！你的微笑带给我开心；我如此惬意的心境皆源于你的到来，支持有你，关注有你，如此便成就了我甜畅的心境。蓝天白云带给我们莫大的鼓舞，我的生活于是更加精彩！

祝福呈现，如清风习习拂面，清泉汩汩润心。我喜悦在心同时觉得天空分外清湛，;太阳更加灿烂! 致谢蓝天白云！

原洁：原洁的祝福让我快乐开心，倍感温馨!我也为已经融入文学氛围的你将去体验文学意境中的绚丽多彩，享受文学领域中的丰富内涵感到高兴。相信，你会用自己诸多优雅韵致的文学作品来展示你的文学作为与文学魅力！！期待

原洁：曾经走过的路，留下的是进取和攀登的足迹；展望未来的路，仍需怀揣理想继续付出。愿在新的征程中作为倍出，取得更大的进步。继续期待！！！

呵呵，言重了！充其量我只是将自己最真心的意思以最炽烈最朴实的情感加以表达而已！大餐当然不成问题，只是杯盏间也想听你说说诗情画意的校园，热情活力的同学。捎带着争得分数的喜悦，获得荣誉的幸福，发展能力的渴求，融入社会的体验。。。

【二】:万圣节给好友的空间留言

1、提着南瓜灯，穿上白袍子，挨家挨户要糖果，一个糖果一声祝福，一把糖果节日快乐，不给糖果就捣乱，变成小鬼满屋窜。祝大家万圣节都是一只开心鬼。

2、提上杰克灯，驱走黑夜，带来光明;穿上化妆服，改变相貌，使妖魔胆颤心惊;骑上扫帚，幻想飞翔，让美梦成真。万圣节到了，愿你玩的开心!

3、万圣节的夜晚，点起你手中的南瓜灯，照亮那黑色的忧郁，戴上你开心的面具，迎来本应属于你的喜气。

4、一份祝福代表一份心意，一份心意代表一份礼物，一份礼物就是我送你的护身符，万圣节的夜晚，即使你孤单一人也不必怕鬼。我不想说，我很孤独，我不想说，我很寂寞，因为今天是万圣节，你我都应该拿出一份狂欢的心情来面对生活。

5、很想你，又害怕见到你，也许你正在世界的哪个角落默默地注视着我，我想抚摸你那没有下巴的脸蛋，啊，原来是万圣节搞的鬼!祝节日快乐!

6、特殊的节日，特殊的你，特殊的道具送给你，南瓜面具戴头上，古老火把举手上，晚上一起去狂欢，逢人就喊，我是鬼，万圣节快乐!

7、无论今晚谁给你打电话即使是你最要好最真挚的朋友的祝福或者问候你都不要去接千万不要接一定要听话------今晚万圣节!

8、怕吗?不怕!因为有我的问候;惧吗?不惧!因为有我的祝福;慌吗?不慌!因为有我的短信。特意告诉你，我和小鬼有约定，万圣节不会捉弄你。

9、本短信内容极端恐怖，心脏病、高血压、天生胆小者及未成年人慎读三思别翻了一定要看呵呵，万圣节快乐

10、万圣节到了，欢迎广大兄弟姐妹参加万圣节化妆派对。你就不用装扮了长得这么出众，怎么扮也不会像鬼的。呵呵，万圣节快乐!

11、万圣节忠督，远离撒旦的方法：只要你心存正念，就算撒旦在你身边，他也不能拿你怎样的万圣节快乐!

12、万圣节期间我公司正式推出，我捉鬼我自豪，我狂欢我骄傲活动，活动内容是将万圣节快乐这句话对你的好朋友大声喊三百遍。

13、万圣节到了，祝你上班遇到饿鬼，下班撞上醉鬼，身边全是色鬼，反正都是死鬼;小鬼，万圣节快乐!还祝你长得更象大魔鬼!

14、一个人在家呢吧，外面很黑吧，今天是万圣节知道么，万圣节就是鬼节，会有很多鬼，你怕不怕阿，我想去陪你，帮你把鬼赶走，行么?

15、万圣节的夜晚你忍心让我一个人呆着么?难道你不怕长相帅气的鬼来勾引我么?说了这么多你还不给我回信息，真是见鬼了。

16、送你一份开心，代表南瓜的心意;送你一份快乐，代表稻草人的愿望;做一个成功的人很累，所以要忙里偷闲、烦劳靠边，万圣节即将到来，预祝开心如意。

17、万圣节我给你求了一道护身符，俗称祝(猪)福，记住，只要你大喊我是猪，我有猪福一百遍，所有的妖魔鬼怪都会闻风丧胆，不信试试看!

18、特别关

【三】:万圣节给好友的空间留言

万圣节给好友的空间留言

2、提上杰克灯，驱走黑夜，带来光明;穿上化妆服，改变相貌，使妖魔胆颤心惊;骑上扫帚，幻想飞翔，让美梦成真。万圣节到了，愿你玩的开心!

3、万圣节的夜晚，点起你手中的南瓜灯，照亮那黑色的忧郁，戴上你开心的面具，迎来本应属于你的喜气。

5、很想你，又害怕见到你，也许你正在世界的哪个角落默默地注视着我，我想抚摸你那没有下巴的脸蛋，啊，原来是万圣节搞的鬼!祝节日快乐!

6、特殊的节日，特殊的你，特殊的道具送给你，南瓜面具戴头上，古老火把举手上，晚上一起去狂欢，逢人就喊，我是鬼，万圣节快乐!

7、无论今晚谁给你打电话即使是你最要好最真挚的朋友的祝福或者问候你都不要去接千万不要接一定要听话------今晚万圣节!

8、怕吗?不怕!因为有我的问候;惧吗?不惧!因为有我的祝福;慌吗?不慌!因为有我的短信。特意告诉你，我和小鬼有约定，万圣节不会捉弄你。

9、本短信内容极端恐怖，心脏病、高血压、天生胆小者及未成年人慎读......三思......别翻了......一定要看......呵呵，万圣节快乐

10、万圣节到了，欢迎广大兄弟姐妹参加万圣节化妆派对。你就不用装扮了......长得这么出众，怎么扮也不会像鬼的。呵呵，万圣节快乐!

11、万圣节忠督，远离撒旦的方法：只要你心存正念，就算撒旦在你身边，他也不能拿你怎样的......万圣节快乐!www.shanpow.com_qq留言好友。

12、万圣节期间我公司正式推出，我捉鬼我自豪，我狂欢我骄傲活动，活动内容是将万圣节快乐这句话对你的好朋友大声喊三百遍。

13、万圣节到了，祝你上班遇到饿鬼，下班撞上醉鬼，身边全是色鬼，反正都是死鬼;小鬼，万圣节快乐!还祝你长得更象大魔鬼!

14、一个人在家呢吧，外面很黑吧，今天是万圣节知道么，万圣节就是鬼节，会有很多鬼，你怕不怕阿，我想去陪你，帮你把鬼赶走，行么?

15、万圣节的夜晚你忍心让我一个人呆着么?难道你不怕长相帅气的鬼来勾引我么?说了这么多你还不给我回信息，真是见鬼了。

17、万圣节我给你求了一道护身符，俗称祝(猪)福，记住，只要你大喊我是猪，我有猪福一百遍，所有的妖魔鬼怪都会闻风丧胆，不信试试看!

18、特别关注：今天是一年一度的鬼节，届时将有数以万亿计的小鬼出动，望大家做好思想准备，以防不测。

19、谢谢你给我的关怀，把我宠坏，宠得我不知不觉飞起来，才知道冥冥之中有安排。这个万圣节，让我带你一起飞上天好吗?别怕，有我在你不会掉下来的!

20、南瓜南瓜亮起来，魔帚魔帚飞起来，小鬼小鬼跳起来，朋友朋友叫起来，happy!happy!万圣夜!

21、大鬼因为寂寞而流浪，小鬼因为孤单而哭泣，万圣节的夜晚不应该有太多孤

单的灵魂，所以送个问候给你，一起狂欢吧。

22、送你一对黑色翅膀，与蝙蝠一起翱翔夜空。送你一只金色南瓜，刻出笑脸把欢乐散播。送你一颗甜蜜糖果，预祝你万圣节玩得痛快!

23、送你钞票，你就鬼迷心窍;送你纱帽，你就鬼头鬼脑;送你微笑，你就鬼泣神号;送你忠告，你就鬼哭狼嚎。还是送你祝福吧，免得你装神弄鬼。万圣节快乐!

24、送给你一套礼物，一盏南瓜灯，一副面具，还有一颗童心，装扮好去参加万圣节的狂欢，暂时忘记生活中的烦恼，快乐地渡过今天。万圣节快乐!

25、树上叶子落了，街上人群少了，天气渐渐凉了，对你思念老了，今天是万圣节哦，也是你的节日，因为你是个调皮鬼嘛，节日快乐!天天快乐啊! 万圣节手机短信

26、手提南瓜灯，为你驱走伤心的阴霾;脸带鬼面具，为你吓走失落的感觉;手拿魔力扫，为你清除烦恼的痕迹;万圣节到，愿你能开心快乐每一分。

27、手提南瓜灯，吉祥罩一生;脚跨魔力帚，好运跟你走;头戴鬼面具，烦恼全挡去;身穿奇异服，滑稽又幸福。万圣节到了，愿你心怀顽童趣，长奏欢乐曲。

28、嗜酒如命是酒鬼，老是盯着异性是色鬼，夜里行动的是死鬼，出来吓人的是小鬼，向你这样经验丰富的是老鬼。祝万圣节快乐!

29、什么是幸福，幸福就是：房价不是吸血鬼，银行不是讨债鬼要账，物价不是大头鬼，老板不是吝啬鬼，同事不是讨厌鬼，朋友不是捣蛋鬼，天天做个开心鬼;祝万圣节快乐!

30、鸡是用做下蛋的，牛是有活就干的，猫是挨家混饭的，羊是将来烤串的，狗是让人来惯的，你是等着出圈的。祝你万圣节快乐!

【四】:VB登录QQ,VB发QQ消息,VBQQ留言

Option Explicit

'VB登录QQ

'VB给QQ好友发QQ消息

'VB给QQ好友留言

'作者：来水美树 QQ:659354953

‘希望对新手有所帮助

Private Declare Function OleLoadPicturePath Lib "oleaut32.dll" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As TGUID, ByRef ppvRet As IPicture) As Long

Private Type TGUID

Data1 As Long

Data2 As Integer

Data3 As Integer

Data4(0 To 7) As Byte

End Type

Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long

Private Const CP_UTF8 = 65001

Public InetCode As String '存储一项请求后的反回数据 '

Public uSid As String '存储登录后的SID

Public GetQQNum As String '存储QQ号码，包括好友列表

Public GetQQName As String '存储QQ网名，包括好友列表

Public GetQQImage As String ' 存储QQ头像，包括好友列表

Public Function UTF8Encode(ByVal szInput As String) As String 'UTF_8

Dim wch As String

Dim uch As String

Dim szRet As String

Dim X As Long

Dim inputLen As Long

Dim nAsc As Long

Dim nAsc2 As Long

Dim nAsc3 As Long

If szInput = "" Then

UTF8Encode = szInput

Exit Function

End If

inputLen = Len(szInput)

For X = 1 To inputLen

wch = Mid(szInput, X, 1)

nAsc = AscW(wch)

If nAsc < 0 Then nAsc = nAsc + 65536

If (nAsc And &HFF80) = 0 Then

szRet = szRet & wch

Else

If (nAsc And &HF000) = 0 Then

uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)

szRet = szRet & uch

Else

uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _

Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _

Hex(nAsc And &H3F Or &H80)

szRet = szRet & uch

End If

UTF8Encode = szRet

End Function

Function Utf8ToUnicode(ByRef Utf() As Byte) As String

Dim lRet As Long

Dim lLength As Long

Dim lBufferSize As Long

lLength = UBound(Utf) - LBound(Utf) + 1

If lLength <= 0 Then Exit Function

lBufferSize = lLength * 2

Utf8ToUnicode = String$(lBufferSize, Chr(0))www.shanpow.com_qq留言好友。

lRet = MultiByteToWideChar(CP_UTF8, 0, VarPtr(Utf(0)), lLength, StrPtr(Utf8ToUnicode), lBufferSize)

If lRet <> 0 Then

Utf8ToUnicode = Left(Utf8ToUnicode, lRet)

Else

Utf8ToUnicode = ""

End If

End Function

'登录QQ

Public Function LoadingQQ(ByVal QQnum As String, ByVal QQpasw As String) As Boolean Dim URL As String

URL = "

Dim UA As String

UA = "User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.1 (KHTML, like Gecko) Chrome/21.0.1180.89 Safari/537.1Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"

Form1.Inet1.Execute URL, "POST", "qq=" & QQnum & "&pwd=" & QQpasw & "&bid_code=3GQQ&toQQchat=true&login_url=http%3A%2F%2Fpt.3g.qq.com%2Fs%3Faid%3DnLoginnew%26q_from%3D3GQQ&q_from=&modifySKey=0&loginType=1&aid=nLoginHandle&i_p_w=qq%7Cpwd%7C", UA & vbCrLf & "Content-Type: application/x-

Do While Form1.Inet1.StillExecuting

DoEvents

Loop

Dim b() As Byte

Dim n

Dim St As String

b = Form1.Inet1.GetChunk(0, icByteArray)

InetCode = Utf8ToUnicode(b)

n = Split(InetCode, "在线好友")

If UBound(n) > 0 Then

LoadingQQ = True

uSid = Mid(InetCode, InStr(InetCode, "sid") + 4, 24)