修复部分漏洞...

Signed-off-by: j502647092 <jtb1@163.com>
2025-11-24 21:36:13 +00:00 · 2015-06-25 20:20:05 +08:00
parent f13d97ffee
commit 9b0484de31
4 changed files with 55 additions and 35 deletions
--- a/Frm_Main.frm
+++ b/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 <20>ֻ<EFBFBD>˵˵<CBB5><CBB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.TzButton submit 
@@ -160,29 +160,6 @@ Begin VB.Form Frm_Main
         WhatsThisHelpID =   1684
         Width           =   2500
      End
-      Begin <20>ֻ<EFBFBD>˵˵<CBB5><CBB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.TzButton Login 
-         Height          =   405
-         Left            =   1605
-         Tag             =   "1"
-         Top             =   1950
-         WhatsThisHelpID =   1605
-         Width           =   1785
-         _ExtentX        =   3149
-         _ExtentY        =   714
-         Caption         =   "<22><>¼<EFBFBD>ֻ<EFBFBD>QQ"
-         BackColor       =   49152
-         StartColor      =   49152
-         FinshColor      =   65280
-         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
-            Name            =   "<22><><EFBFBD><EFBFBD>"
-            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 <20>ֻ<EFBFBD>˵˵<CBB5><CBB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.TzButton Login 
+         Height          =   405
+         Left            =   1605
+         Tag             =   "1"
+         Top             =   1950
+         WhatsThisHelpID =   1605
+         Width           =   1785
+         _ExtentX        =   3149
+         _ExtentY        =   714
+         Caption         =   "<22><>¼<EFBFBD>ֻ<EFBFBD>QQ"
+         BackColor       =   49152
+         StartColor      =   49152
+         FinshColor      =   65280
+         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
+            Name            =   "<22><><EFBFBD><EFBFBD>"
+            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         =   "<22>û<EFBFBD><EFBFBD>ǳ<EFBFBD>"
+         Caption         =   "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>..."
         BeginProperty Font 
            Name            =   "΢<><CEA2><EFBFBD>ź<EFBFBD>"
            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 "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>QQ<51>˺ţ<CBBA>", 0, "<22><>ʾ": Exit Sub
    If Len(password) = 0 Then MsgBox "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>QQ<51><51><EFBFBD>룡", 0, "<22><>ʾ": 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 "<22><><EFBFBD><EFBFBD>д<EFBFBD><D0B4><EFBFBD>ݣ<EFBFBD>", 0, "<22><>ʾ": 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 "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֤<EFBFBD>룡", 0, "<22><>ʾ": 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    '<27><>֤<EFBFBD><D6A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ҫ<EFBFBD><D2AA>֤<EFBFBD><D6A4>
        r_sid = mids(arr(4))
        vcpic = mids(arr(5)) & ".gif"
        vcimg.Picture = XmlHttp.LoadPicture(vcpic)
        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>!"
 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
--- a/手机说说发表工具.exe
+++ b/手机说说发表工具.exe
--- a/手机说说发表工具.vbp
+++ b/手机说说发表工具.vbp
@@ -6,8 +6,10 @@ UserControl=..\VB
 UserControl=..\VB<56>û<EFBFBD><C3BB>ؼ<EFBFBD>\TzButton.ctl
 UserControl=..\VB<56>û<EFBFBD><C3BB>ؼ<EFBFBD>\Frm_Tols.ctl
 Class=clsMD5; clsMD5.cls
+IconForm="Frm_Main"
 Startup="Frm_Main"
 HelpFile=""
+ExeName32="<22>ֻ<EFBFBD>˵˵<CBB5><CBB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.exe"
 Command32=""
 Name="<22>ֻ<EFBFBD>˵˵<CBB5><CBB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
 HelpContextID="0"
--- a/手机说说发表工具.vbw
+++ b/手机说说发表工具.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