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

Signed-off-by: j502647092 <jtb1@163.com>

Frm_Main.frm

@@ -430,6 +430,7 @@ 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))
@@ -438,7 +439,6 @@ Public Function Analysis(ByVal strAlbum As String)
         TzTab.TabID = 2
         Exit Function
     Case 40010    '账号密码错误
-        TzTab.TabID = 1
     End Select
     TzTab.TabID = 1
     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))
 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