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

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    '<27><>֤<EFBFBD><D6A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ҫ<EFBFBD><D2AA>֤<EFBFBD><D6A4>
         r_sid = mids(arr(4))
@@ -438,7 +439,6 @@ Public Function Analysis(ByVal strAlbum As String)
         TzTab.TabID = 2
         Exit Function
     Case 40010    '<27>˺<EFBFBD><CBBA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
-        TzTab.TabID = 1
     End Select
     TzTab.TabID = 1
     MsgBox arr(3), vbCritical, "<22><>½<EFBFBD><C2BD><EFBFBD><EFBFBD>!"
@@ -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