性能优化...

Signed-off-by: j502647092 <jtb1@163.com>
master
j502647092 2015-07-25 18:11:12 +08:00
parent cffd031039
commit 3df10e78eb
3 changed files with 31 additions and 29 deletions

View File

@ -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
For i = 0 To keylist.ListCount
If keylist.List(i) <> "" Then result = result + keylist.List(i) + vbTab + pagelist.List(i) + vbCrLf
Dim I As Long
For I = 0 To keylist.ListCount
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)
key(i) = Trim(key(i))
keylist.AddItem key(i)
For I = LBound(key) To UBound(key)
key(I) = Trim(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

Binary file not shown.

View File

@ -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
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
NoAliasing=-1
BoundsCheck=-1
OverflowCheck=-1
FlPointCheck=-1
FDIVCheck=-1
UnroundedFP=-1
StartMode=0
Unattended=0
Retained=0