502647092/QzoneTalk
1
0
Fork 0
mirror of https://e.coding.net/circlecloud/QzoneTalk.git synced 2024-11-23 02:08:57 +00:00
Code Releases Activity

修复无需验证码时的跳转...

Browse Source 
Signed-off-by: j502647092 <jtb1@163.com>
This commit is contained in:
j502647092 2015-06-25 21:04:55 +08:00
parent 9b0484de31
commit fec8a6af9d
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Frm_Main.frm
View File

@ -430,6 +430,7 @@ Public Function Analysis(ByVal strAlbum As String)
headpic = mids(arr(6)) headpic = mids(arr(6))
headimg.Picture = XmlHttp.LoadPicture(headpic) headimg.Picture = XmlHttp.LoadPicture(headpic)
prefix = nike prefix = nike
TzTab.TabID = 3
Exit Function Exit Function
Case 40001 '验证码错误或需要验证码 Case 40001 '验证码错误或需要验证码
r_sid = mids(arr(4)) r_sid = mids(arr(4))
@ -438,7 +439,6 @@ Public Function Analysis(ByVal strAlbum As String)
TzTab.TabID = 2 TzTab.TabID = 2
Exit Function Exit Function
Case 40010 '账号密码错误 Case 40010 '账号密码错误
TzTab.TabID = 1
End Select End Select
TzTab.TabID = 1 TzTab.TabID = 1
MsgBox arr(3), vbCritical, "登陆错误!" MsgBox arr(3), vbCritical, "登陆错误!"
@ -460,7 +460,7 @@ Public Function slogin(ByVal qq As String, ByVal r_sid As String, ByVal vcode As
slogin = mids(XmlHttp.PostData(PostUrl, PostData, ResponseBodyToText)) slogin = mids(XmlHttp.PostData(PostUrl, PostData, ResponseBodyToText))
End Function 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) Frm.hMove (Me.hWnd)
End Sub End Sub

BIN
手机说说发表工具.exe
View File

Binary file not shown.