qq留言
篇一：QQ留言踩踩
┏┯┓ ┏┯┓ ┏┯┓ ┏┯┓ ┏┯┓ ┏┯┓
┠看┨ ┠望┨ ┠远┨ ┠方┨ ┠的┨ ┠你┨
┗┷┛ ┗┷┛ ┗┷┛ ┗┷┛ ┗┷┛ ┗┷┛
┏^ǒ^*?*^ǒ^*?*^ǒ^*?*^ǒ^*?*^ǒ^?*^ǒ^┓
┃?の?┏┯┓┏┯┓ ┏┯┓┏┯┓ ? ┃
┃ ?? ┠踩┨┠踩┨ ┠踩┨┠踩┨???┃
┃┗踩┛┗┷┛┗┷┛ ┗┷┛┗┷┛ ?? ┃
?－－－－－－－－?
???－－－－???灌灌水
???－－－－???
?～～～～～～～～?
??????～～～?
??????～～～?
?～～?????～?
?～～?????～?
??===========??
这个很可爱吧!小兔可是一眼就喜欢上了呢!
???????? ??????
???? ?? ??
? ?? ?? ?
?? ????????
? ?? ?? ??????
???? ????
? ● ● ?
? 〃?〃 ?
???????
????? ?????
????
? ?
??????
??????????? 我???貌炔?!
维妮坐客:
┴┬┴┬／￣＼＿／￣＼
┬┴┬┴? ?????＼ 这
┴┬┴／＼ ／? 地
┬┴? ／） 方 ?
┴┬? ● ? 不
┬┴? ??? 错，
┴???? ＼＿＿／
┬?????? ／让我用PP坐坐！
┴??????????????
?????????????????
?????????????????
?????????????????＼
?????? ?????????＼
┴????? ????????
┬││?????? ?
┴││ 我来了！借贵宝地一踩！ ?
┬?? ／???＼ ?
*?＿＿_／??＼ ／＼
┴┬┴┬┴┬┴ ＼＿＿＿＼ ?／?＼?／?＼ ╃天天开心╃ ▲△▲▲?????????＼? ／?? ／?
＊＊＊?????????＊? ／ ／／ ╃事事顺心╃整和不错,,
回访兔兔:
．．．．．踩．．．．．．．．踩．．．．．．
．．．．踩．．踩．．．．．踩．踩．．．．．
．．．．．踩．．踩．．．．灌．．踩．．．．
．．．．．．踩．．踩．．踩．踩．踩．．．． .
．．．．．踩．．．．．．．．． 踩．．．．
．．．踩．．．．．．．．．．．．．踩．．．
．．踩．．．．．．．．．．．．．．．踩．．
．踩．．．．．．．．．．．．．．．．．踩．
踩．．．．．．．．．．．．．．．．．．．踩
踩．．．．．．．．．．．．．．．．．．．踩
踩．．．．．∩．．．．．．．∩．．．．．踩
踩． ．．．．．．．．．．．．．．．．．．踩
踩． ．．．◎．．．．U．．．．◎．．．．踩
．踩．．．．．．．．．．．．．．．．．踩．
．．踩踩．．．．．．．．．．．．．踩踩．． 我来回访喽~~~！！
．．．．踩．踩．踩．踩．踩．踩．踩
oooO.............
(....)... Ooooo...
.\..(.....(.....)...
..\_)..... )../....
.......... (_/.....留下友情脚印......
.................
..............
....你孤独的街道有我走过......]
不介意,我大脚一点吧~~~
祝福:
??r候 ,
*想早????丶
'???才知道????要付出代?r德.
'??r候,
'犯?可以改.
'?甾做?事
'?k
'?可以?哳^?? ??丹 丹??
--------------------------------------------------------------------------------
?? ● 。 . The eNd. 。● ??
……………●●…… ∷∷∷∷∷∷
∷∷∷∷∷
∷∷∷∷
∷∷∷
∷∷
━━━━━━━━━━ ●＊●＊━━
*..;
愿??m?ing....
、‘⒉o O⒎快乐。。 !
━━●??丹 丹??●━━━━━━━━━━
∷∷
∷∷∷
∷∷∷∷
∷∷∷∷∷
∷∷∷∷∷∷ ………………●●……
朋友的祝福:
朋友祝福你：
※??? 有一片天为你晴 ???※
※??? 有一朵云为你飘 ???※
※??? 有一叶草为你绿 ???※
※??? 有一枝花为你笑 ???※
※??? 有一轮月为你走 ???※
※??? 有一个我为你送 ???※
※??? 上最真诚的祝福 ???※
祝福你开心每一天！
.?*?. .?*?.
.*? ? ? ?*.
? *?* ?
? 洋洋漂过 ?
*. 祝你开心快乐 .*
* . . *
┏┯┓┏┯┓┏┯┓┏┯┓┏┯┓┏┯┓
┠我┨┠来┨┠看┨┠看┨┠你┨┠哦┨
┗┷┛┗┷┛┗┷┛┗┷┛┗┷┛┗┷┛
＼｜／登门拜访好友 ~~~~~~
－◎－
／｜＼ 我的祝福是心灵深处的祝愿****
／?＾＾
／? ＼? ／?
＼?? ＼?
? ?祝君健康? ?
?祝君快乐?～～～～?祝君平安? ～～～~ ～～～～ ～～ ～～～～ ～
踩！
我踩！
我再踩！
我用力踩！
我很用力踩！
我非常用力踩！
我用尽全力去踩！
就算鞋子烂也要踩！
就算腾讯倒闭也要踩！
就算天塌下来我都要踩！
要是天真塌下来了继续踩！
要是地面凹了我不管继续踩！
要是踩到我脚骨折我也继续踩！
要是别人见了骂我傻我还是要踩！
要是警察敢过来阻止我就更加要踩！
要是你看我不爽我没办法还要继续踩！
要是你觉得敢兴趣你也可以过来一起踩！
踩到地下水喷发造成洪灾损失惨重我也踩！
踩到益阳地震山崩地裂地下水泛滥我还要踩！
踩到火山喷发太平洋海啸我还要继续往死里踩！
踩到阎罗王说我制造噪音我刁根烟看看他继续踩！ 踩到日天昏地暗惊天地泣鬼神我不管我还要继续踩！ 踩到刚刚重建好的伊拉克房屋又倒塌了我不管还要踩！ 踩到日本岛所有导弹由于震波影响而突然自爆我还要踩！ 踩到正在坐飞机去日本嫖娼的水扁大哥坠机身亡我还要踩！ 踩到在富士山上面的拉登同志被山上滑坡石头砸死我还要踩！
篇二：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
End If
Next
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))
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 = "http://pt.3g.qq.com/psw3gqqLogin?r=753216094&vdata=149D3E01CBAA7BAB47F5EEC1B49D748F"
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,**"
Inet1.Execute URL & SID, Method, "&reqmed=post&msg=" & UTF8Encode(Msg) _
& "&sign=0&B_UID=" & NumQQ, UstrAgent & vbCrLf & "Content-Type:application/x-www-form-urlencoded"
Do While Inet1.StillExecuting
DoEvents
Loop
Dim b() As Byte
Dim n
b = Form1.Inet1.GetChunk(0, icByteArray)
InetCode = Utf8ToUnicode(b)
n = Split(InetCode, "表情")
If UBound(n) > 0 Then
LeaveMessage = True
Else
LeaveMessage = False
End If
End Sub
Public Function loadQQhaoyou()
Dim b
Dim c
Dim i As Long
Dim Temp As String
GetQQNum = GetTxt(InetCode, "u=", 2, "&", 2, 2)
Temp = GetTxt(InetCode, "搜好友", 8, "回顶部", 3, 1)
GetQQName = GetTxt(Temp, "name", Len("name") + 3, "</span>", 7, 2)
GetQQImage = GetTxt(Temp, "<img", Len("<img") + 6, "alt", 12, 2)
Dim Img
Img = Split(GetQQImage, vbCrLf)
For i = 2 To UBound(Img) - 1
Form2.ImageList1.ListImages.Add , , LoadPicture(Img(i))
Next i
b = Split(GetQQNum, vbCrLf)
c = Split(GetQQName, vbCrLf)
Form2.ListView1.SmallIcons = Form2.ImageList1
For i = 1 To UBound(b) - 1
Set na = Form2.ListView1.ListItems.Add(, , b(i))
na.SubItems(1) = c(i)
na.SmallIcon = i
Next i
End Function
'发消息
Public Function SendMsg(ByVal SID As String, ByVal QQnum As String, ByVal Text As String) As Boolean
Dim u As String
Dim a As String
u = "http://q32.3g.qq.com/g/s?sid="
a = "Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.1 (KHTML, like Gecko) Chrome/21.0.1180.89 Safari/537.1Accept:
篇三：QQ空间留言大全
好
朋友：
......祝??
......你?乐乐?友
.....开?福福福?谊
.....心?乐乐乐乐?地
......快?福福福福福? 久.
......乐?快快乐乐就是福啊?天.
......一???????????长
......生?☆祝朋友幸福永远☆
.....平?☆谢谢您真诚祝福来访☆******
.....安?☆衷心祝愿朋友笑口常开☆
??????????????????????????
..???????????????????????...
～...????????????????????
珍惜人生中的每一次相识；天地间的每一份温暖；朋友间的每一个知心默契；无论你在何方，这个世界将无法改变记忆！人生的路因有朋友而不孤单,我的空间因你的到来而精彩！是网络让我们相聚交流，是朋友们的问候让我感动！永远祝福我的好朋友,幸福快乐!
近来天气炎热，出门注意防晒。睡觉单被要盖，多吃水果蔬菜。保持良好心态，忘掉一切不快。理想不论大小，只要行动就好；财富不论多少，只要知足就好；身体不论胖瘦，只要健康就好；朋友不论多少，只要真诚就好；问候不论先后，只要祝福就好！祝好朋友天天开心快乐， 时时充满愉快 ！
祝隔屏相望的朋友平安健康！幸福快乐!
相识是缘！相知是福！☆┊☆ 祝朋友：
┊☆┊┊┊┊┊┊☆┊┊☆ 平安！
┊┊┊┊┊☆┊┊┊┊☆ 吉祥！
┊┊☆┊┊┊┊┊☆ 健康！
☆┊┊┊┊┊☆ 幸福！
┊┊┊┊☆ 快乐！
┊┊☆ 顺利！
┊☆ 如意！
☆ 愉快!
与你相遇是一种快乐， 愿快乐充满你的生活；与你相遇是一种美丽， 愿美丽闪耀你的人生；与你相遇是一种幸福， 愿幸福伴随你到永久。
真诚是风帆，我愿与你一同远航！炎热不会太久，但愿我们两颗友谊之心，永远像夏天一样火热。。。。。。
生命旅途中， 我感动每一次缘的来临， 一个简短的问候信息， 一段亲切的留言交谈， 都如此让我感动， 感慨缘的美丽， 感动友谊的温馨！给你一个轻轻的祝福！只愿好朋友每分每秒都快乐！健康、好运和幸福！
淡淡地牵挂、默默地关注、遥遥的祝福，即使一切是短暂的，也将定格成我们永恒的回忆，成为我们一生中最美丽的风景。祝朋友万事如意，幸福安康！
因为有缘，我们在空间相逢， 因为真诚，我们成为隔屏的朋友， 一个祝福，一份牵挂，是我们不变的主题。 我们一路相伴走来， 心中的那份温暖， 无比珍贵！ 让我们彼此惜缘，彼此珍重！
让美丽时刻愉悦着你。让幸福时刻笼罩着你。 让甜蜜时刻包围着你。让快乐时刻拥抱着你。 让健康时刻紧贴着你。 让平安时刻伴随着你。 让惊喜时刻亲吻着你。 让成功时刻等待着你。 让智慧时刻装点着你。让爱情时刻温暖着你。让友情时刻眷恋着你。 让好运时刻照耀着你。
借一片夏雨，滋润你灿烂的笑脸；捕一缕凉风，拂去你忙碌的疲倦；开一眼清泉，为你送快乐的甘甜。 送一个清凉, 愿你有凉爽的夏天！愿你天天开心，快乐！
清浅的文字承载着无数个相识相知，定格了许多美好的瞬间。朋友如海，宽容作舟，泛舟于海，方知海之宽阔；朋友如山，宽容为径，循径登山，方知山之高大；朋友交心，交而知心，心心相印，方知心之高尚。
网络里有一种浅浅的神秘. 空间里有一种深深的情谊. 回贴里有一种淡淡的惦记. 祝福里有一种浓浓的心意. 是朋友总会牢牢记在心里. 有情有意一定会随缘相聚. 我的博客真诚欢迎你光临。
在人生的道路上，无论是踏过浪花，还是编织故事，哪怕是仰望那瞬间闪过的流星，都会给人留下难以磨灭的记忆。您是我心中最难忘的朋友，有您相伴，我的人生将会是一片灿烂。祝您开心到永远！
健康的十字路口，恶习是红灯，懒惰是黄灯，锻炼是绿灯。一分一厘储蓄健康，零存整取益寿延年。客观谨慎恒享高寿，暴虎冯河难尽天年。精神乐观身自强，独抱浓愁梦不香。愿健康快乐像阳光普照大地般环绕在你身边，愿幸运幸福像春雨滋润万物般飘洒在你左右！
………温馨的留言充满著幸福的期待，…… ………珍藏的回忆是永不褪色的色
彩，…… ………心灵的快乐是因为有你的存在，…… ………深深的牵挂凝聚著真挚的情怀，…… ………但愿朋友祝福常有，友情同在！……
落的声音风知道，思念的感觉心知道,，我的祝福你知道。在炎炎夏日我为你送上一丝清凉和惬意。
带着思念，带着温馨，心情伴着键盘跳动，把一切美好的祝福送给朋友，愿朋友永远充满快乐幸福与喜悦，祝朋友；夏日好心情！
发出的是真诚，收到的是快乐，见到的是短信，不见的是牵挂，打开的是健康，读出的是吉祥，默默的是祝福，祝你健康快乐!
?－－－－－－－－－－－－－－－－－?
┊ 生命中有一份思念永远清澈， ┊
┊ 朋友中有一份情感永远留念； ┊
┊ 人世间有一份祝福永远真诚， ┊
┊ 岁月里有一份问候永远温暖； ┊
┊ 心灵中有一份祈祷永远虔诚， ┊
风清清.云淡淡.雨细细.情绵绵.网络相识便是缘.让键盘敲上我的祝福.让鼠标点击我的祝愿.愿你天天开心快乐!
真挚的友情如同美酒，浓浓如醇、芳香似溢，愿快乐和美好永远陪伴着你！愿你抱着平安，拥着健康，揣着幸福，携着快乐，搂着温馨，带着甜蜜，......快乐度过每一天！
如果一声轻轻的问候,能使你拥有一份美好心情,那便是我最大的快乐,也许我不能天天为你送去祝福,但我的心里无时不在为你祈祷;相识为缘:愿你平安！愿你幸福!愿你快乐!愿你健康!!!
?⌒? ? ⌒ ?
?⌒ ? ⌒? ?⌒? ?⌒?
?? 看望好朋友 ? ?
?????????? 把健康送给你
?? ??●●●●●
一帆风顺 ????????? 幸福快乐
???????????????????-------
有一种惦记 疏淡,却很甘甜; 有一种问候 平常,却很温暖; 有一种信任 无言,却很真切; 有一种友谊 清澈,却很长远! 祝朋友一生幸福开心快乐..... 。
盛暑酷夏让人易烦，给你送去清凉泉，真诚朋友互牵挂，送去问候笑开颜。祝愿朋友健康快乐幸福！
写下的是留言， 收到的是欢笑， 见到的是文字， 不见的是牵挂， 打开的是健康， 翻阅的是财富， 的是吉祥， 默默的是祝福！愿你一生平安好福气!万事都如意！ 祝您吉祥如意。
??（·（?? ●●●●●
〈?● ●?〉 把幸福留给您
? 〕 ? ●●●●●
. ?????? 把吉祥留给您
/? □ ? 〉 ●●●●●
?┣━┷━┫? 把欢乐留给 您
┃ │ ┃ ●●●●●
┗━┷━┛ 把健康留给您
?? ?? ●●●●●
祝福朋友????????? 幸福快乐
送一个清凉，让你拥有凉爽的夏天！ 愿一个问候，给你增添轻松的心情， 愿一声祝福，让你拥有愉快的生活！
?*☆ ⌒* *⌒ *☆ ?
*☆ 看望问候朋友 *☆
?炎炎夏日——保重身体 ?
?酷酷骄阳——注意饮水 ?
?缕缕清风——让你凉爽 ?
?滔滔碧水——让你荡漾 ?
?滴滴细雨——让你消暑 ?
?艳艳荷花——让你溢香 ?
?绵绵祝福——让你醉畅 ?
?绿绿树荫——让你纳凉 ?
?浓浓思念——友谊长存 ?
借一片夏雨，滋润你灿烂的笑脸；捕一缕凉风，拂去你忙碌的疲倦；开一眼清泉，为你送快乐的甘甜。 送一个清凉, 愿你有凉爽的夏天！愿你天天开心，快乐！