mirror of
https://e.coding.net/circlecloud/QzoneTalk.git
synced 2024-11-23 02:08:57 +00:00
474 lines
15 KiB
Plaintext
474 lines
15 KiB
Plaintext
VERSION 5.00
|
||
Begin VB.Form Frm_Main
|
||
BorderStyle = 0 'None
|
||
Caption = "Form1"
|
||
ClientHeight = 3000
|
||
ClientLeft = 0
|
||
ClientTop = 0
|
||
ClientWidth = 4995
|
||
LinkTopic = "Form1"
|
||
MaxButton = 0 'False
|
||
MinButton = 0 'False
|
||
ScaleHeight = 3000
|
||
ScaleWidth = 4995
|
||
ShowInTaskbar = 0 'False
|
||
StartUpPosition = 2 '屏幕中心
|
||
Begin 手机说说发表工具.XmlHttp XmlHttp
|
||
Height = 240
|
||
Left = 3630
|
||
Top = 105
|
||
Visible = 0 'False
|
||
Width = 240
|
||
_ExtentX = 423
|
||
_ExtentY = 423
|
||
End
|
||
Begin 手机说说发表工具.Frm_Tols Frm
|
||
Height = 240
|
||
Left = 3885
|
||
Top = 90
|
||
Visible = 0 'False
|
||
Width = 240
|
||
_ExtentX = 423
|
||
_ExtentY = 423
|
||
End
|
||
Begin 手机说说发表工具.TzTab TzTab
|
||
Height = 3000
|
||
Left = 0
|
||
Top = 0
|
||
Width = 4995
|
||
_ExtentX = 8811
|
||
_ExtentY = 5292
|
||
TabBt = "$登录||$验证||$发表||#||#手机说说发表工具"
|
||
Begin 手机说说发表工具.TzButton clear
|
||
Height = 360
|
||
Left = 2.00000e5
|
||
Tag = "3"
|
||
Top = 510
|
||
Visible = 0 'False
|
||
WhatsThisHelpID = 2940
|
||
Width = 1500
|
||
_ExtentX = 2646
|
||
_ExtentY = 635
|
||
Caption = "清空数据"
|
||
BackColor = 255
|
||
StartColor = 255
|
||
FinshColor = 8421631
|
||
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
||
Name = "宋体"
|
||
Size = 9
|
||
Charset = 134
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
End
|
||
Begin VB.TextBox suffix
|
||
Appearance = 0 'Flat
|
||
BorderStyle = 0 'None
|
||
Height = 270
|
||
Left = 2.00000e5
|
||
TabIndex = 8
|
||
Tag = "3"
|
||
Top = 2640
|
||
Visible = 0 'False
|
||
WhatsThisHelpID = 915
|
||
Width = 2865
|
||
End
|
||
Begin 手机说说发表工具.TzButton send
|
||
Height = 270
|
||
Left = 2.00000e5
|
||
Tag = "3"
|
||
Top = 2640
|
||
Visible = 0 'False
|
||
WhatsThisHelpID = 3885
|
||
Width = 930
|
||
_ExtentX = 1640
|
||
_ExtentY = 476
|
||
Caption = "发表"
|
||
BackColor = 33023
|
||
StartColor = 33023
|
||
FinshColor = 8438015
|
||
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
||
Name = "宋体"
|
||
Size = 9
|
||
Charset = 134
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
End
|
||
Begin VB.TextBox content
|
||
Appearance = 0 'Flat
|
||
BorderStyle = 0 'None
|
||
Height = 1455
|
||
Left = 2.00000e5
|
||
TabIndex = 7
|
||
Tag = "3"
|
||
Top = 1095
|
||
Visible = 0 'False
|
||
WhatsThisHelpID = 150
|
||
Width = 4680
|
||
End
|
||
Begin VB.TextBox vc
|
||
Appearance = 0 'Flat
|
||
BorderStyle = 0 'None
|
||
Height = 250
|
||
Left = 2.00000e5
|
||
TabIndex = 4
|
||
Tag = "2"
|
||
Top = 975
|
||
Visible = 0 'False
|
||
WhatsThisHelpID = 1425
|
||
Width = 975
|
||
End
|
||
Begin 手机说说发表工具.TzButton submit
|
||
Height = 585
|
||
Left = 2.00000e5
|
||
Tag = "2"
|
||
Top = 1710
|
||
Visible = 0 'False
|
||
WhatsThisHelpID = 1192
|
||
Width = 2610
|
||
_ExtentX = 4604
|
||
_ExtentY = 1032
|
||
Caption = "提交"
|
||
BackColor = 49344
|
||
StartColor = 49344
|
||
FinshColor = 65535
|
||
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
||
Name = "微软雅黑"
|
||
Size = 14.25
|
||
Charset = 134
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
End
|
||
Begin VB.TextBox password
|
||
Appearance = 0 'Flat
|
||
BorderStyle = 0 'None
|
||
Height = 250
|
||
IMEMode = 3 'DISABLE
|
||
Left = 1684
|
||
PasswordChar = "*"
|
||
TabIndex = 2
|
||
Tag = "1"
|
||
Top = 1410
|
||
WhatsThisHelpID = 1684
|
||
Width = 2500
|
||
End
|
||
Begin VB.TextBox username
|
||
Appearance = 0 'Flat
|
||
BorderStyle = 0 'None
|
||
Height = 250
|
||
Left = 1684
|
||
TabIndex = 1
|
||
Tag = "1"
|
||
Top = 990
|
||
WhatsThisHelpID = 1684
|
||
Width = 2500
|
||
End
|
||
Begin 手机说说发表工具.TzButton close
|
||
Height = 345
|
||
Left = 4650
|
||
Tag = "-1"
|
||
Top = 0
|
||
WhatsThisHelpID = 4650
|
||
Width = 345
|
||
_ExtentX = 609
|
||
_ExtentY = 609
|
||
Caption = "r"
|
||
BackColor = 192
|
||
StartColor = 192
|
||
FinshColor = 255
|
||
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
||
Name = "Webdings"
|
||
Size = 9
|
||
Charset = 2
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
End
|
||
Begin 手机说说发表工具.TzButton Login
|
||
Height = 405
|
||
Left = 1605
|
||
Tag = "1"
|
||
Top = 1950
|
||
WhatsThisHelpID = 1605
|
||
Width = 1785
|
||
_ExtentX = 3149
|
||
_ExtentY = 714
|
||
Caption = "登录手机QQ"
|
||
BackColor = 49152
|
||
StartColor = 49152
|
||
FinshColor = 65280
|
||
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
||
Name = "宋体"
|
||
Size = 9
|
||
Charset = 134
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
End
|
||
Begin VB.Label Label4
|
||
Appearance = 0 'Flat
|
||
AutoSize = -1 'True
|
||
BackColor = &H80000005&
|
||
BackStyle = 0 'Transparent
|
||
Caption = "小尾巴"
|
||
BeginProperty Font
|
||
Name = "微软雅黑"
|
||
Size = 10.5
|
||
Charset = 134
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
ForeColor = &H80000008&
|
||
Height = 300
|
||
Left = 2.00000e5
|
||
TabIndex = 9
|
||
Tag = "3"
|
||
Top = 2610
|
||
Visible = 0 'False
|
||
WhatsThisHelpID = 165
|
||
Width = 630
|
||
End
|
||
Begin VB.Label prefix
|
||
AutoSize = -1 'True
|
||
BackStyle = 0 'Transparent
|
||
Caption = "加载中..."
|
||
BeginProperty Font
|
||
Name = "微软雅黑"
|
||
Size = 12
|
||
Charset = 134
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 315
|
||
Left = 2.00000e5
|
||
TabIndex = 6
|
||
Tag = "3"
|
||
Top = 540
|
||
Visible = 0 'False
|
||
WhatsThisHelpID = 1140
|
||
Width = 960
|
||
End
|
||
Begin VB.Image headimg
|
||
Height = 600
|
||
Left = 2.00000e5
|
||
Tag = "3"
|
||
Top = 420
|
||
Visible = 0 'False
|
||
WhatsThisHelpID = 375
|
||
Width = 600
|
||
End
|
||
Begin VB.Label Label3
|
||
AutoSize = -1 'True
|
||
BackStyle = 0 'Transparent
|
||
Caption = "验证码"
|
||
BeginProperty Font
|
||
Name = "微软雅黑"
|
||
Size = 10.5
|
||
Charset = 134
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 300
|
||
Left = 2.00000e5
|
||
TabIndex = 5
|
||
Tag = "2"
|
||
Top = 945
|
||
Visible = 0 'False
|
||
WhatsThisHelpID = 705
|
||
Width = 630
|
||
End
|
||
Begin VB.Image vcimg
|
||
Height = 600
|
||
Left = 2.00000e5
|
||
Tag = "2"
|
||
Top = 810
|
||
Visible = 0 'False
|
||
WhatsThisHelpID = 2520
|
||
Width = 1485
|
||
End
|
||
Begin VB.Label Label2
|
||
AutoSize = -1 'True
|
||
BackStyle = 0 'Transparent
|
||
Caption = "QQ密码"
|
||
BeginProperty Font
|
||
Name = "微软雅黑"
|
||
Size = 10.5
|
||
Charset = 134
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 300
|
||
Left = 811
|
||
TabIndex = 3
|
||
Tag = "1"
|
||
Top = 1380
|
||
WhatsThisHelpID = 811
|
||
Width = 750
|
||
End
|
||
Begin VB.Label Label1
|
||
AutoSize = -1 'True
|
||
BackStyle = 0 'Transparent
|
||
Caption = "QQ账号"
|
||
BeginProperty Font
|
||
Name = "微软雅黑"
|
||
Size = 10.5
|
||
Charset = 134
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 300
|
||
Left = 811
|
||
TabIndex = 0
|
||
Tag = "1"
|
||
Top = 960
|
||
WhatsThisHelpID = 811
|
||
Width = 750
|
||
End
|
||
End
|
||
End
|
||
Attribute VB_Name = "Frm_Main"
|
||
Attribute VB_GlobalNameSpace = False
|
||
Attribute VB_Creatable = False
|
||
Attribute VB_PredeclaredId = True
|
||
Attribute VB_Exposed = False
|
||
Option Explicit
|
||
Dim qq As String
|
||
Dim pwd As String
|
||
Dim sid As String
|
||
Dim r_sid As String
|
||
Dim nike As String
|
||
|
||
Dim headpic As String
|
||
Dim vcpic As String
|
||
|
||
Private Sub clear_Click()
|
||
content = ""
|
||
suffix = ""
|
||
End Sub
|
||
|
||
Private Sub close_Click()
|
||
Unload Me
|
||
End
|
||
End Sub
|
||
|
||
Private Function mids(str As String) As String
|
||
mids = Mid(str, 2, Len(str) - 2)
|
||
End Function
|
||
|
||
Private Sub Login_Click()
|
||
If Len(username) = 0 Then MsgBox "请输入QQ账号！", 0, "提示": Exit Sub
|
||
If Len(password) = 0 Then MsgBox "请输入QQ密码！", 0, "提示": Exit Sub
|
||
TzTab.TabID = 2
|
||
Call Analysis(flogin(username, password))
|
||
End Sub
|
||
|
||
Private Sub username_KeyPress(KeyAscii As Integer)
|
||
If KeyAscii = 13 Then Login_Click
|
||
End Sub
|
||
|
||
Private Sub password_KeyPress(KeyAscii As Integer)
|
||
If KeyAscii = 13 Then Login_Click
|
||
End Sub
|
||
|
||
Private Sub send_Click()
|
||
Dim tmp As String
|
||
tmp = content.Text
|
||
If Len(tmp) = 0 Then MsgBox "请填写内容！", 0, "提示": Exit Sub
|
||
|
||
Dim PostData, PostUrl As String
|
||
PostUrl = "http://m.qzone.com/mood/publish_mood"
|
||
PostData = "opr_type=publish_shuoshuo&res_uin=" & qq & "&content=" & tmp & "&richval=&lat=0&lon=0&lbsid=&issyncweibo=0&format=json&sid=" & sid & "&is_winphone=2&source_name=" & suffix
|
||
|
||
Dim strAlbum As String
|
||
strAlbum = XmlHttp.PostData(PostUrl, PostData, ResponseBodyToText, , False)
|
||
|
||
If InStr(1, strAlbum, "请先登录") Then
|
||
MsgBox strAlbum, 0, "发表说说失败！"
|
||
TzTab.TabID = 1
|
||
Else
|
||
MsgBox "发表说说成功！", 0, "提示"
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub submit_Click()
|
||
If Len(vc) = 0 Then MsgBox "请输入验证码！", 0, "提示": Exit Sub
|
||
TzTab.TabID = 3
|
||
Call Analysis(slogin(username, r_sid, vc))
|
||
End Sub
|
||
|
||
Public Function Analysis(ByVal strAlbum As String)
|
||
Debug.Print strAlbum
|
||
Dim arr() As String
|
||
arr = Split(strAlbum, ",")
|
||
Select Case arr(2)
|
||
Case 0 '登陆成功
|
||
qq = arr(1)
|
||
sid = mids(arr(4))
|
||
nike = mids(arr(5))
|
||
headpic = mids(arr(6))
|
||
headimg.Picture = XmlHttp.LoadPicture(headpic)
|
||
prefix = nike
|
||
Exit Function
|
||
Case 40001 '验证码错误或需要验证码
|
||
r_sid = mids(arr(4))
|
||
vcpic = mids(arr(5)) & ".gif"
|
||
vcimg.Picture = XmlHttp.LoadPicture(vcpic)
|
||
TzTab.TabID = 2
|
||
Exit Function
|
||
Case 40010 '账号密码错误
|
||
TzTab.TabID = 1
|
||
End Select
|
||
TzTab.TabID = 1
|
||
MsgBox arr(3), vbCritical, "登陆错误!"
|
||
End Function
|
||
|
||
Public Function flogin(ByVal qq As String, ByVal pwd As String) As String
|
||
Dim PostData, PostUrl, pmd5 As String
|
||
Dim MD5 As New clsMD5
|
||
pmd5 = MD5.DigestStrToHexStr(password)
|
||
PostUrl = "http://pt.3g.qq.com/login?act=json&format=3"
|
||
PostData = "bid_code=qqchatLogin&qq=" + qq + "&pmd5=" + pmd5 + "&go_url=undefined"
|
||
flogin = mids(XmlHttp.PostData(PostUrl, PostData, ResponseBodyToText))
|
||
End Function
|
||
|
||
Public Function slogin(ByVal qq As String, ByVal r_sid As String, ByVal vcode As String)
|
||
Dim PostData, PostUrl
|
||
PostUrl = "http://pt.3g.qq.com/login?act=json&format=3"
|
||
PostData = "bid_code=qqchatLogin&r_sid=" + r_sid + "&verify=" + vcode + "&u_token=" + qq + "&qq=" + qq + "&go_url=undefined"
|
||
slogin = mids(XmlHttp.PostData(PostUrl, PostData, ResponseBodyToText))
|
||
End Function
|
||
|
||
Private Sub TzTab_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
|
||
Frm.hMove (Me.hWnd)
|
||
End Sub
|
||
|
||
Private Sub vc_KeyPress(KeyAscii As Integer)
|
||
If KeyAscii = 13 Then submit_Click
|
||
End Sub
|
||
|
||
Private Sub vcimg_Click()
|
||
vcimg.Picture = XmlHttp.LoadPicture(vcpic)
|
||
End Sub
|