性能优化...

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

Frm_Main.frm

@@ -11,27 +11,27 @@ Begin VB.Form Frm_Main
    ScaleWidth      =   6150
    StartUpPosition =   3  '窗口缺省
    Begin VB.OptionButton Opt 
-      Caption         =   "英文"
+      Caption         =   "英文阿里"
       Height          =   180
       Index           =   1
-      Left            =   2723
+      Left            =   2535
       TabIndex        =   13
       Top             =   2130
-      Width           =   720
+      Width           =   1080
    End
    Begin VB.OptionButton Opt 
-      Caption         =   "中文"
+      Caption         =   "中文阿里"
       Height          =   180
       Index           =   0
-      Left            =   1913
+      Left            =   1365
       TabIndex        =   12
       Top             =   2130
       Value           =   -1  'True
-      Width           =   720
+      Width           =   1080
    End
    Begin VB.TextBox pages 
       Height          =   270
-      Left            =   4898
+      Left            =   5385
       TabIndex        =   9
       Text            =   "20"
       Top             =   2085
@@ -101,21 +101,21 @@ Begin VB.Form Frm_Main
    End
    Begin VB.Label Label4 
       AutoSize        =   -1  'True
-      Caption         =   "阿里版本"
+      Caption         =   "阿里版本: "
       Height          =   180
-      Left            =   1043
+      Left            =   398
       TabIndex        =   11
       Top             =   2130
-      Width           =   720
+      Width           =   900
    End
    Begin VB.Label Label3 
       AutoSize        =   -1  'True
-      Caption         =   "最大查找页数"
+      Caption         =   "最大查找页数:"
       Height          =   180
-      Left            =   3653
+      Left            =   4155
       TabIndex        =   10
       Top             =   2130
-      Width           =   1080
+      Width           =   1170
    End
    Begin VB.Label Label2 
       AutoSize        =   -1  'True
@@ -150,9 +150,9 @@ End Sub
 
 Private Sub CopyB_Click()
     Dim result As String
-    Dim i As Long
+    Dim I As Long
-    For i = 0 To keylist.ListCount
+    For I = 0 To keylist.ListCount
-        If keylist.List(i) <> "" Then result = result + keylist.List(i) + vbTab + pagelist.List(i) + vbCrLf
+        If keylist.List(I) <> "" Then result = result + keylist.List(I) + vbTab + pagelist.List(I) + vbCrLf
     Next
     Clipboard.Clear
     Clipboard.SetText result
@@ -168,7 +168,7 @@ End Sub
 
 Private Sub search_Click()
     Dim key() As String
-    Dim i, j, nindex As Long
+    Dim I, j, nindex As Long
     Dim Temp As String
     Dim url As String
     
@@ -177,16 +177,16 @@ Private Sub search_Click()
     key = Split(Replace(keys.Text, vbCrLf, ""), ",")
     keylist.AddItem "============关键词============"
     pagelist.AddItem "=======页数======="
-    For i = LBound(key) To UBound(key)
+    For I = LBound(key) To UBound(key)
-        key(i) = Trim(key(i))
+        key(I) = Trim(key(I))
-        keylist.AddItem key(i)
+        keylist.AddItem key(I)
         nindex = keylist.ListCount - 1
         For j = 1 To pages.Text
             pagelist.List(nindex) = "查询第" & j & "页中..."
             If Opt(1).Value = True Then
-                url = "http://www.alibaba.com/products/F0/" & key(i) & "/" & j & ".html"
+                url = "http://www.alibaba.com/products/F0/" & key(I) & "/" & j & ".html"
             Else
-                url = "http://s.1688.com/selloffer/offer_search.htm?keywords=" & key(i) & "&beginPage=" & j
+                url = "http://s.1688.com/selloffer/offer_search.htm?keywords=" & key(I) & "&beginPage=" & j
             End If
             Temp = XmlHttp.GetData(url, ResponseBodyToText)
             If InStr(1, Temp, company.Text) Then

阿里查排名.vbp

@@ -3,8 +3,10 @@ Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\st
 Form=Frm_Main.frm
 UserControl=..\VB用户控件\XmlHttp.ctl
 Object={6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0; COMCTL32.OCX
+IconForm="Frm_Main"
 Startup="Frm_Main"
 HelpFile=""
+Title="°¢Àï²éÅÅÃû"
 ExeName32="阿里查排名.exe"
 Command32=""
 Name="英文阿里查排名"
@@ -17,14 +19,14 @@ AutoIncrementVer=0
 ServerSupportFiles=0
 CompilationType=0
 OptimizationType=0
-FavorPentiumPro(tm)=0
+FavorPentiumPro(tm)=-1
 CodeViewDebugInfo=0
-NoAliasing=0
+NoAliasing=-1
-BoundsCheck=0
+BoundsCheck=-1
-OverflowCheck=0
+OverflowCheck=-1
-FlPointCheck=0
+FlPointCheck=-1
-FDIVCheck=0
+FDIVCheck=-1
-UnroundedFP=0
+UnroundedFP=-1
 StartMode=0
 Unattended=0
 Retained=0