502647092/AliCPM
1
0
Fork 0
mirror of https://e.coding.net/circlecloud/AliCPM.git synced 2025-11-24 21:36:07 +00:00
Code Releases Activity

性能优化...

Browse Source 
Signed-off-by: j502647092 <jtb1@163.com>
This commit is contained in:
j502647092
2015-07-25 18:11:12 +08:00
parent cffd031039
commit 3df10e78eb
3 changed files with 31 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
Frm_Main.frm
View File

@@ -11,27 +11,27 @@ Begin VB.Form Frm_Main
ScaleWidth = 6150 ScaleWidth = 6150
StartUpPosition = 3 '<27><><EFBFBD><EFBFBD>ȱʡ StartUpPosition = 3 '<27><><EFBFBD><EFBFBD>ȱʡ
Begin VB.OptionButton Opt Begin VB.OptionButton Opt
Caption = "Ӣ<><D3A2>" Caption = "Ӣ<>İ<EFBFBD><EFBFBD><EFBFBD>"
Height = 180 Height = 180
Index = 1 Index = 1
Left = 2723 Left = 2535
TabIndex = 13 TabIndex = 13
Top = 2130 Top = 2130
Width = 720 Width = 1080
End End
Begin VB.OptionButton Opt Begin VB.OptionButton Opt
Caption = "<22><><EFBFBD><EFBFBD>" Caption = "<22><><EFBFBD>İ<EFBFBD><EFBFBD><EFBFBD>"
Height = 180 Height = 180
Index = 0 Index = 0
Left = 1913 Left = 1365
TabIndex = 12 TabIndex = 12
Top = 2130 Top = 2130
Value = -1 'True Value = -1 'True
Width = 720 Width = 1080
End End
Begin VB.TextBox pages Begin VB.TextBox pages
Height = 270 Height = 270
Left = 4898 Left = 5385
TabIndex = 9 TabIndex = 9
Text = "20" Text = "20"
Top = 2085 Top = 2085
@@ -101,21 +101,21 @@ Begin VB.Form Frm_Main
End End
Begin VB.Label Label4 Begin VB.Label Label4
AutoSize = -1 'True AutoSize = -1 'True
Caption = "<22><><EFBFBD><EFBFBD><EFBFBD>汾" Caption = "<22><><EFBFBD><EFBFBD><EFBFBD>汾: "
Height = 180 Height = 180
Left = 1043 Left = 398
TabIndex = 11 TabIndex = 11
Top = 2130 Top = 2130
Width = 720 Width = 900
End End
Begin VB.Label Label3 Begin VB.Label Label3
AutoSize = -1 'True AutoSize = -1 'True
Caption = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҳ<EFBFBD><D2B3>" Caption = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҳ<EFBFBD><D2B3>:"
Height = 180 Height = 180
Left = 3653 Left = 4155
TabIndex = 10 TabIndex = 10
Top = 2130 Top = 2130
Width = 1080 Width = 1170
End End
Begin VB.Label Label2 Begin VB.Label Label2
AutoSize = -1 'True AutoSize = -1 'True
@@ -150,9 +150,9 @@ End Sub
Private Sub CopyB_Click() Private Sub CopyB_Click()
Dim result As String 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 Next
Clipboard.Clear Clipboard.Clear
Clipboard.SetText result Clipboard.SetText result
@@ -168,7 +168,7 @@ End Sub
Private Sub search_Click() Private Sub search_Click()
Dim key() As String Dim key() As String
Dim i, j, nindex As Long Dim I, j, nindex As Long
Dim Temp As String Dim Temp As String
Dim url As String Dim url As String
@@ -177,16 +177,16 @@ Private Sub search_Click()
key = Split(Replace(keys.Text, vbCrLf, ""), ",") key = Split(Replace(keys.Text, vbCrLf, ""), ",")
keylist.AddItem "============<3D>ؼ<EFBFBD><D8BC><EFBFBD>============" keylist.AddItem "============<3D>ؼ<EFBFBD><D8BC><EFBFBD>============"
pagelist.AddItem "=======ҳ<><D2B3>=======" pagelist.AddItem "=======ҳ<><D2B3>======="
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 nindex = keylist.ListCount - 1
For j = 1 To pages.Text For j = 1 To pages.Text
pagelist.List(nindex) = "<22><>ѯ<EFBFBD><D1AF>" & j & "ҳ<><D2B3>..." pagelist.List(nindex) = "<22><>ѯ<EFBFBD><D1AF>" & j & "ҳ<><D2B3>..."
If Opt(1).Value = True Then 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 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 End If
Temp = XmlHttp.GetData(url, ResponseBodyToText) Temp = XmlHttp.GetData(url, ResponseBodyToText)
If InStr(1, Temp, company.Text) Then If InStr(1, Temp, company.Text) Then

BIN
阿里查排名.exe
View File

Binary file not shown.

16
阿里查排名.vbp
View File

@@ -3,8 +3,10 @@ Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\st
Form=Frm_Main.frm Form=Frm_Main.frm
UserControl=..\VB<56>û<EFBFBD><C3BB>ؼ<EFBFBD>\XmlHttp.ctl UserControl=..\VB<56>û<EFBFBD><C3BB>ؼ<EFBFBD>\XmlHttp.ctl
Object={6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0; COMCTL32.OCX Object={6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0; COMCTL32.OCX
IconForm="Frm_Main"
Startup="Frm_Main" Startup="Frm_Main"
HelpFile="" HelpFile=""
Title="<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
ExeName32="<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.exe" ExeName32="<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.exe"
Command32="" Command32=""
Name="Ӣ<>İ<EFBFBD><C4B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>" Name="Ӣ<>İ<EFBFBD><C4B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
@@ -17,14 +19,14 @@ AutoIncrementVer=0
ServerSupportFiles=0 ServerSupportFiles=0
CompilationType=0 CompilationType=0
OptimizationType=0 OptimizationType=0
FavorPentiumPro(tm)=0 FavorPentiumPro(tm)=-1
CodeViewDebugInfo=0 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 StartMode=0
Unattended=0 Unattended=0
Retained=0 Retained=0