703 lines
25 KiB
Plaintext
703 lines
25 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
|
||
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 手机说说发表工具.TzCheck LoginType
|
||
Height = 300
|
||
Index = 1
|
||
Left = 2985
|
||
Tag = "1"
|
||
Top = 1725
|
||
WhatsThisHelpID = 2985
|
||
Width = 1200
|
||
_ExtentX = 2117
|
||
_ExtentY = 529
|
||
Caption = "3G 版本"
|
||
BackColor = 8421504
|
||
StartColor = 8421504
|
||
FinshColor = 12632256
|
||
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 手机说说发表工具.TzCheck LoginType
|
||
Height = 300
|
||
Index = 0
|
||
Left = 1680
|
||
Tag = "1"
|
||
Top = 1725
|
||
WhatsThisHelpID = 1680
|
||
Width = 1200
|
||
_ExtentX = 2117
|
||
_ExtentY = 529
|
||
Caption = "触屏 版本"
|
||
BackColor = 8421504
|
||
StartColor = 8421504
|
||
FinshColor = 12632256
|
||
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
||
Name = "宋体"
|
||
Size = 9
|
||
Charset = 134
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Value = 1
|
||
End
|
||
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 vcT
|
||
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 = 1335
|
||
WhatsThisHelpID = 1684
|
||
Width = 2500
|
||
End
|
||
Begin VB.TextBox username
|
||
Appearance = 0 'Flat
|
||
BorderStyle = 0 'None
|
||
Height = 250
|
||
Left = 1684
|
||
TabIndex = 1
|
||
Tag = "1"
|
||
Top = 915
|
||
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 = 2130
|
||
WhatsThisHelpID = 1605
|
||
Width = 1785
|
||
_ExtentX = 3149
|
||
_ExtentY = 714
|
||
Caption = "登录手机QQ"
|
||
BackColor = 32768
|
||
StartColor = 32768
|
||
FinshColor = 49152
|
||
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 Label5
|
||
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
|
||
ForeColor = &H00FFFFFF&
|
||
Height = 300
|
||
Left = 810
|
||
TabIndex = 10
|
||
Tag = "1"
|
||
Top = 1710
|
||
WhatsThisHelpID = 810
|
||
Width = 840
|
||
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
|
||
MousePointer = 11 'Hourglass
|
||
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
|
||
ForeColor = &H00FFFFFF&
|
||
Height = 300
|
||
Left = 810
|
||
TabIndex = 3
|
||
Tag = "1"
|
||
Top = 1305
|
||
WhatsThisHelpID = 810
|
||
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
|
||
ForeColor = &H00FFFFFF&
|
||
Height = 300
|
||
Left = 810
|
||
TabIndex = 0
|
||
Tag = "1"
|
||
Top = 885
|
||
WhatsThisHelpID = 810
|
||
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 sig As String
|
||
Dim r_sid As String
|
||
Dim nike As String
|
||
|
||
Dim headpic As String
|
||
Dim vcpic As String
|
||
|
||
Dim vc 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
|
||
flogin username, password
|
||
End Sub
|
||
|
||
Private Sub LoginType_Click(Index As Integer)
|
||
Dim i As Long
|
||
For i = LoginType.LBound To LoginType.UBound
|
||
LoginType(i).Value = UnCheck
|
||
Next
|
||
LoginType(Index).Value = Check
|
||
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
|
||
tmp = XmlHttp.URLEncode(tmp)
|
||
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(vcT) = 0 Then MsgBox "请输入验证码！", 0, "提示": Exit Sub
|
||
TzTab.TabID = 3
|
||
If LoginType(0).Value = UnCheck Then
|
||
Call Analysis(slogin(username, r_sid, vcT))
|
||
Else
|
||
touchvc username, vcT
|
||
touchlogin username, password, vc
|
||
End If
|
||
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
|
||
TzTab.TabID = 3
|
||
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 '账号密码错误
|
||
End Select
|
||
TzTab.TabID = 1
|
||
MsgBox arr(3), vbCritical, "登陆错误!"
|
||
End Function
|
||
|
||
'http://check.ptlogin2.qzone.com/check?pt_tea=1&uin=502647092&appid=549000929
|
||
'ptui_checkVC('1','0GIZj_RKBPvQ3Cg8N02-VZjcM9P55SmnmoKX8nAsHhDyh-pNqq1Uww**','\x00\x00\x00\x00\x1d\xf5\xc9\x34','','0');
|
||
'http://captcha.qq.com/cap_union_show?captype=3&lang=2052&aid=549000929&uin=502647092&cap_cd=0GIZj_RKBPvQ3Cg8N02-VZjcM9P55SmnmoKX8nAsHhDyh-pNqq1Uww**
|
||
|
||
'http://captcha.qq.com/getNewImgBySig?aid=549000929&uin=502647092&sig=ghT8AClEPgg7sccIyFHgiO0EK7k1pRXefWDtm0Grb2idFBN7U0yihlZliaAB7aXSASq_HgUxnUXwhlVsC6G5yEO-_VWBPJ4PNR0yx8_6usJE*
|
||
'http://captcha.qq.com/getimgbysig?aid=549000929&uin=502647092&sig=gxfRFOV1UOeuFWVd4ZPsM3i2BsAih4oTLuv8Ncs63d-MlWHe2sMnAdxeS7baUNi7h6OTVFqqzTgjhSdRzQDTT4swilNackk-kn7zXYYEB3FY*
|
||
|
||
'http://captcha.qq.com/getQueSig?aid=549000929&uin=502647092&captype=2&sig=gxfRFOV1UOeuFWVd4ZPsM3i2BsAih4oTLuv8Ncs63d-MlWHe2sMnAdxeS7baUNi7h6OTVFqqzTgjhSdRzQDTT4swilNackk-kn7zXYYEB3FY*&0.1560081106144935
|
||
'cap_setQue("",0);cap_showOption(""); cap_getCapBySig("gBLLRPu68q_0Uy9riC2SuXTKcw1AHNZjlmLz9Xyud6LlctgE_NCbO8GadL3eHGXLy3ko10JZRMFV4KHodcu-_3IgfMtsyBHIwjt9RxE6PgZk*");
|
||
'http://captcha.qq.com/getimgbysig?aid=549000929&uin=502647092&sig=gBLLRPu68q_0Uy9riC2SuXTKcw1AHNZjlmLz9Xyud6LlctgE_NCbO8GadL3eHGXLy3ko10JZRMFV4KHodcu-_3IgfMtsyBHIwjt9RxE6PgZk*
|
||
|
||
'http://captcha.qq.com/cap_union_verify?aid=549000929&uin=502647092&captype=2&ans=trmk&sig=gBLLRPu68q_0Uy9riC2SuXTKcw1AHNZjlmLz9Xyud6LlctgE_NCbO8GadL3eHGXLy3ko10JZRMFV4KHodcu-_3IgfMtsyBHIwjt9RxE6PgZk*
|
||
'cap_InnerCBVerify({rcode:5,randstr:"",sig:"",errmsg:"验证失败，请重试。"});
|
||
|
||
'http://captcha.qq.com/cap_union_verify?aid=549000929&uin=502647092&captype=2&ans=bygr&sig=gZ0qcmFuJCSXEDjyg42a2Nf40zfvaxvGL-C7htPCyBYT7fPjbfCYXIMR8_4zuacRtl2hxuzNdHCK2FNsJmkLduIatiNcKddigTKem3hEbQ5w*
|
||
'cap_InnerCBVerify({rcode:0,randstr:"@LSJ",sig:"t02hJBI1AWHUY3IVkL65-2MEmwfNyxpWJkr1R8VZfMjyXwegZ2Fo_5RNRqBKMRCZ8pPh_nGKuAurRj6J0bZ-fzFID1IdhsdOD-a",errmsg:"验证失败，请重试。"});
|
||
|
||
'http://ptlogin2.qzone.com/login?verifycode=@8HD&u=502647092&p=tmAR6MsWZUS1v6vJUQhKw9OUi7IjEWWpx0BUo4n39VhWE7dy14Co4AKGrb9ZP1oBSIwWY2OdXnjCqvmQYgL2xDFscjvuiQJ4L5ZQHtfiVIV-AyhjkIamgR90zhBznq8IpXDah2tW52UhqmjDOk0kHPUjg08JhHOrwU6h0pDknbfXJETwNjhMv01giTB73*ty4GDY1JhPsgpn6uuvlEDp6A__ _
|
||
&pt_randsalt=0&ptlang=2052&low_login_enable=0&u1=http%3A%2F%2Fm.qzone.com%2Finfocenter%3Fg_f%3D&from_ui=1&fp=loginerroralert&device=2&aid=549000929&pt_ttype=1&pt_3rd_aid=0&ptredirect=1&h=1&g=1&pt_uistyle=9&pt_vcode_v1=1&pt_verifysession_v1=t02j2WOQ1sDfL05pk0HAo8FNM7_KzJyTkrS4zv8lxJbrJBoAeLsDLM3CmH9RWMNoEg69kx1zFOPE0ApvS8qUfKE-qe6kMck5pyJ&
|
||
|
||
'ptuiCB('0','0','http://m.qzone.com/infocenter?g_f=&sid=Wh9SXy2ehSoykVA3sLGMLQvF+B+GtbgB1df5c9340201==','1','登录成功！', '‮喵↘呜');
|
||
|
||
'ptuiCB('4','2','','0','页面过期，请重试。(679477272)', '502647092');
|
||
|
||
Public Function getsid(ByVal html As String)
|
||
Dim st, en
|
||
st = InStr(1, html, "sid=") + Len("sid=")
|
||
en = InStr(st, html, "'") - 1
|
||
getsid = Mid(html, st, en - st)
|
||
End Function
|
||
|
||
Public Function AnalysisVC(ByVal str As String, vc As String, sig As String)
|
||
Dim st, en
|
||
If str = "" Then Exit Function
|
||
st = InStr(1, str, "randstr:""") + Len("randstr:""")
|
||
en = InStr(st, str, """")
|
||
vc = Mid(str, st, en - st)
|
||
st = InStr(en, str, "sig:""") + Len("sig:""")
|
||
en = InStr(st, str, """")
|
||
sig = Mid(str, st, en - st)
|
||
End Function
|
||
|
||
Public Function AnalysisLG(ByVal str As String)
|
||
Dim st, en, yml
|
||
If str = "" Then Exit Function
|
||
st = InStr(1, str, "ptuiCB(") + Len("ptuiCB(")
|
||
en = InStr(st, str, ");") - 2
|
||
yml = Mid(str, st, en - st)
|
||
Dim arr() As String
|
||
arr = Split(yml, ",")
|
||
Select Case mids(arr(3))
|
||
Case 1
|
||
sid = getsid(arr(2))
|
||
TzTab.TabID = 3
|
||
Case Else
|
||
MsgBox yml, vbCritical, "登录失败!"
|
||
TzTab.TabID = 1
|
||
End Select
|
||
End Function
|
||
|
||
Public Function flogin(ByVal qq As String, ByVal pwd As String) As String
|
||
If LoginType(0).Value = UnCheck Then
|
||
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"
|
||
Analysis mids(XmlHttp.PostData(PostUrl, PostData, ResponseBodyToText))
|
||
Else
|
||
If vc = "" Then
|
||
TzTab.TabID = 2
|
||
Else
|
||
touchlogin qq, pwd, vc
|
||
End If
|
||
End If
|
||
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
|
||
|
||
Public Function touchvc(ByVal qq As String, ByVal vcode As String)
|
||
Dim vcurl As String
|
||
vcurl = "http://captcha.qq.com/cap_union_verify?aid=549000929&uin=" + qq + "&captype=2&ans=" + vcode + "&sig=" + sig
|
||
AnalysisVC XmlHttp.GetData(vcurl, ResponseBodyToText), vc, sig
|
||
touchvc = vc
|
||
End Function
|
||
|
||
Public Function touchlogin(ByVal qq As String, ByVal pwd As String, ByVal vc As String)
|
||
Dim loginurl As String
|
||
Dim pwdsc As String
|
||
pwdsc = Script(pwd, qq, vc)
|
||
loginurl = "http://ptlogin2.qzone.com/login?verifycode={vc}&u={qq}&p={pwdmd5}&pt_randsalt=0&ptlang=2052&low_login_enable=0&u1=http%3A%2F%2Fm.qzone.com%2Finfocenter%3Fg_f%3D&from_ui=1&fp=loginerroralert&device=2&aid=549000929&pt_ttype=1&pt_3rd_aid=0&ptredirect=1&h=1&g=1&pt_uistyle=9&pt_vcode_v1=1&pt_verifysession_v1={sig}"
|
||
loginurl = Replace(loginurl, "{vc}", vc)
|
||
loginurl = Replace(loginurl, "{qq}", qq)
|
||
loginurl = Replace(loginurl, "{sig}", sig)
|
||
loginurl = Replace(loginurl, "{pwdmd5}", Script(qq, pwd, vc))
|
||
AnalysisLG XmlHttp.GetData(loginurl, ResponseBodyToText)
|
||
End Function
|
||
|
||
Private Function Script(pwd As String, username As String, vc As String) As String
|
||
Dim obj As Object
|
||
Set obj = CreateObject("MSScriptControl.ScriptControl")
|
||
obj.AllowUI = True
|
||
obj.Language = "JavaScript"
|
||
Dim jstx As String
|
||
jstx = LoadResString(1)
|
||
obj.AddCode jstx
|
||
Script = obj.Eval("getEncryption('" & pwd & "','" & username & "','" & vc & "');")
|
||
Set obj = Nothing
|
||
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 username_LostFocus()
|
||
If LoginType(0).Value = UnCheck Then Exit Sub
|
||
Dim Data As String
|
||
Data = XmlHttp.GetData("http://check.ptlogin2.qzone.com/check?pt_tea=1&uin=" + username + "&appid=549000929", ResponseBodyToText)
|
||
Data = getmid(Data)
|
||
Dim arr() As String
|
||
arr = Split(Data, ",")
|
||
If mids(arr(0)) = 0 Then vc = mids(arr(1)): sig = mids(arr(3)) Else vc = ""
|
||
If mids(arr(0)) = 1 Then
|
||
Dim sigurl As String
|
||
sigurl = "http://captcha.qq.com/cap_union_show?captype=3&lang=2052&aid=549000929&uin=" + username + "&cap_cd=" + mids(arr(1))
|
||
'Debug.Print sigurl
|
||
sig = getsig(XmlHttp.GetData(sigurl, ResponseBodyToText))
|
||
'Debug.Print sig
|
||
vcimg_Click
|
||
End If
|
||
End Sub
|
||
|
||
Public Function getsig(ByVal html As String)
|
||
Dim st, en
|
||
st = InStr(1, html, "g_click_cap_sig=""") + Len("g_click_cap_sig=""")
|
||
en = InStr(st, html, """")
|
||
getsig = Mid(html, st, en - st)
|
||
End Function
|
||
|
||
Public Function getnewsig(ByVal html As String)
|
||
Dim st, en
|
||
st = InStr(1, html, "cap_getCapBySig(""") + Len("cap_getCapBySig(""")
|
||
en = InStr(st, html, """")
|
||
getnewsig = Mid(html, st, en - st)
|
||
End Function
|
||
|
||
Public Function getmid(strAlbum As String) As String
|
||
getmid = Mid(strAlbum, InStr(1, strAlbum, "(") + 1, InStr(1, strAlbum, ")") - 1)
|
||
End Function
|
||
|
||
Private Sub vcimg_Click()
|
||
If LoginType(0).Value = Check Then
|
||
Dim sigurl As String
|
||
sigurl = "http://captcha.qq.com/getQueSig?aid=549000929&uin=" + username + "&captype=2&sig=" + sig
|
||
sig = getnewsig(XmlHttp.GetData(sigurl, ResponseBodyToText))
|
||
vcpic = "http://captcha.qq.com/getimgbysig?aid=549000929&uin=502647092&sig=" + sig
|
||
End If
|
||
Debug.Print vcpic
|
||
vcimg.Picture = XmlHttp.LoadPicture(vcpic)
|
||
End Sub
|
||
|
||
Private Sub vcT_KeyPress(KeyAscii As Integer)
|
||
If KeyAscii = 13 Then submit_Click
|
||
End Sub
|