mirror of
https://e.coding.net/circlecloud/QzoneTalk.git
synced 2024-11-23 02:08:57 +00:00
修复部分漏洞...
Signed-off-by: j502647092 <jtb1@163.com>
This commit is contained in:
j502647092
parent
f13d97ffee
commit
9b0484de31
78
Frm_Main.frm
78
Frm_Main.frm
@ -120,7 +120,7 @@ Begin VB.Form Frm_Main
|
||||
Tag = "2"
|
||||
Top = 975
|
||||
Visible = 0 'False
|
||||
WhatsThisHelpID = 1455
|
||||
WhatsThisHelpID = 1425
|
||||
Width = 975
|
||||
End
|
||||
Begin 手机说说发表工具.TzButton submit
|
||||
@ -160,29 +160,6 @@ Begin VB.Form Frm_Main
|
||||
WhatsThisHelpID = 1684
|
||||
Width = 2500
|
||||
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.TextBox username
|
||||
Appearance = 0 'Flat
|
||||
BorderStyle = 0 'None
|
||||
@ -217,6 +194,29 @@ Begin VB.Form Frm_Main
|
||||
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
|
||||
@ -245,7 +245,7 @@ Begin VB.Form Frm_Main
|
||||
Begin VB.Label prefix
|
||||
AutoSize = -1 'True
|
||||
BackStyle = 0 'Transparent
|
||||
Caption = "用户昵称"
|
||||
Caption = "加载中..."
|
||||
BeginProperty Font
|
||||
Name = "微软雅黑"
|
||||
Size = 12
|
||||
@ -292,7 +292,7 @@ Begin VB.Form Frm_Main
|
||||
Tag = "2"
|
||||
Top = 945
|
||||
Visible = 0 'False
|
||||
WhatsThisHelpID = 750
|
||||
WhatsThisHelpID = 705
|
||||
Width = 630
|
||||
End
|
||||
Begin VB.Image vcimg
|
||||
@ -370,6 +370,7 @@ End Sub
|
||||
|
||||
Private Sub close_Click()
|
||||
Unload Me
|
||||
End
|
||||
End Sub
|
||||
|
||||
Private Function mids(str As String) As String
|
||||
@ -379,18 +380,27 @@ 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)
|
||||
|
||||
@ -404,10 +414,12 @@ 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)
|
||||
@ -418,15 +430,17 @@ Public Function Analysis(ByVal strAlbum As String)
|
||||
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 '账号密码错误
|
||||
TzTab.TabID = 1
|
||||
End Select
|
||||
TzTab.TabID = 1
|
||||
MsgBox arr(3), vbCritical, "登陆错误!"
|
||||
End Function
|
||||
|
||||
@ -446,10 +460,14 @@ Public Function slogin(ByVal qq As String, ByVal r_sid As String, ByVal vcode As
|
||||
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)
|
||||
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
|
||||
|
||||
BIN
手机说说发表工具.exe
Normal file
BIN
手机说说发表工具.exe
Normal file
Binary file not shown.
@ -6,8 +6,10 @@ UserControl=..\VB
|
||||
UserControl=..\VB用户控件\TzButton.ctl
|
||||
UserControl=..\VB用户控件\Frm_Tols.ctl
|
||||
Class=clsMD5; clsMD5.cls
|
||||
IconForm="Frm_Main"
|
||||
Startup="Frm_Main"
|
||||
HelpFile=""
|
||||
ExeName32="手机说说发表工具.exe"
|
||||
Command32=""
|
||||
Name="手机说说发表工具"
|
||||
HelpContextID="0"
|
||||
|
||||
10
手机说说发表工具.vbw
10
手机说说发表工具.vbw
@ -1,6 +1,6 @@
|
||||
Frm_Main = 632, 204, 2031, 848, , 231, 65, 1630, 570, C
|
||||
TzTab = 242, 242, 1641, 747, , 66, 66, 1465, 571, C
|
||||
XmlHttp = 0, 0, 0, 0, C, 0, 0, 0, 0, C
|
||||
TzButton = 0, 0, 0, 0, C, 0, 0, 0, 0, C
|
||||
Frm_Tols = 0, 0, 0, 0, C, 0, 0, 0, 0, C
|
||||
Frm_Main = 22, 22, 1358, 527, , 231, 65, 1630, 570, C
|
||||
TzTab = 0, 0, 1336, 505, , 66, 66, 1465, 571, C
|
||||
XmlHttp = 0, 0, 0, 0, C, 132, 132, 1468, 637, C
|
||||
TzButton = 0, 0, 0, 0, C, 154, 154, 1490, 659, C
|
||||
Frm_Tols = 44, 44, 1380, 549, C, 176, 176, 1512, 681, C
|
||||
clsMD5 = 0, 0, 0, 0, C
|
||||
|
||||
Loading…
Reference in New Issue
Block a user