修复部分漏洞...

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

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

手机说说发表工具.vbp

@@ -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"

手机说说发表工具.vbw

@@ -1,6 +1,6 @@
-Frm_Main = 632, 204, 2031, 848, , 231, 65, 1630, 570, C
+Frm_Main = 22, 22, 1358, 527, , 231, 65, 1630, 570, C
-TzTab = 242, 242, 1641, 747, , 66, 66, 1465, 571, C
+TzTab = 0, 0, 1336, 505, , 66, 66, 1465, 571, C
-XmlHttp = 0, 0, 0, 0, C, 0, 0, 0, 0, C
+XmlHttp = 0, 0, 0, 0, C, 132, 132, 1468, 637, C
-TzButton = 0, 0, 0, 0, C, 0, 0, 0, 0, C
+TzButton = 0, 0, 0, 0, C, 154, 154, 1490, 659, C
-Frm_Tols = 0, 0, 0, 0, C, 0, 0, 0, 0, C
+Frm_Tols = 44, 44, 1380, 549, C, 176, 176, 1512, 681, C
 clsMD5 = 0, 0, 0, 0, C