commit
cffd031039
|
@ -0,0 +1,203 @@
|
||||||
|
VERSION 5.00
|
||||||
|
Begin VB.Form Frm_Main
|
||||||
|
Caption = "阿里查排名"
|
||||||
|
ClientHeight = 8250
|
||||||
|
ClientLeft = 60
|
||||||
|
ClientTop = 345
|
||||||
|
ClientWidth = 6150
|
||||||
|
Icon = "Frm_Main.frx":0000
|
||||||
|
LinkTopic = "Form1"
|
||||||
|
ScaleHeight = 8250
|
||||||
|
ScaleWidth = 6150
|
||||||
|
StartUpPosition = 3 '窗口缺省
|
||||||
|
Begin VB.OptionButton Opt
|
||||||
|
Caption = "英文"
|
||||||
|
Height = 180
|
||||||
|
Index = 1
|
||||||
|
Left = 2723
|
||||||
|
TabIndex = 13
|
||||||
|
Top = 2130
|
||||||
|
Width = 720
|
||||||
|
End
|
||||||
|
Begin VB.OptionButton Opt
|
||||||
|
Caption = "中文"
|
||||||
|
Height = 180
|
||||||
|
Index = 0
|
||||||
|
Left = 1913
|
||||||
|
TabIndex = 12
|
||||||
|
Top = 2130
|
||||||
|
Value = -1 'True
|
||||||
|
Width = 720
|
||||||
|
End
|
||||||
|
Begin VB.TextBox pages
|
||||||
|
Height = 270
|
||||||
|
Left = 4898
|
||||||
|
TabIndex = 9
|
||||||
|
Text = "20"
|
||||||
|
Top = 2085
|
||||||
|
Width = 300
|
||||||
|
End
|
||||||
|
Begin VB.CommandButton CopyB
|
||||||
|
Caption = "复制结果"
|
||||||
|
Height = 450
|
||||||
|
Left = 3593
|
||||||
|
TabIndex = 8
|
||||||
|
Top = 2490
|
||||||
|
Width = 930
|
||||||
|
End
|
||||||
|
Begin VB.CommandButton clearb
|
||||||
|
Caption = "清除结果"
|
||||||
|
Height = 450
|
||||||
|
Left = 2603
|
||||||
|
TabIndex = 7
|
||||||
|
Top = 2490
|
||||||
|
Width = 930
|
||||||
|
End
|
||||||
|
Begin 英文阿里查排名.XmlHttp XmlHttp
|
||||||
|
Height = 240
|
||||||
|
Left = 12720
|
||||||
|
Top = 9225
|
||||||
|
Visible = 0 'False
|
||||||
|
Width = 240
|
||||||
|
_ExtentX = 423
|
||||||
|
_ExtentY = 423
|
||||||
|
End
|
||||||
|
Begin VB.CommandButton search
|
||||||
|
Caption = "开始查询"
|
||||||
|
Height = 450
|
||||||
|
Left = 1628
|
||||||
|
TabIndex = 4
|
||||||
|
Top = 2490
|
||||||
|
Width = 930
|
||||||
|
End
|
||||||
|
Begin VB.TextBox keys
|
||||||
|
Height = 1050
|
||||||
|
Left = 398
|
||||||
|
MultiLine = -1 'True
|
||||||
|
TabIndex = 3
|
||||||
|
Top = 930
|
||||||
|
Width = 5355
|
||||||
|
End
|
||||||
|
Begin VB.TextBox company
|
||||||
|
Height = 315
|
||||||
|
Left = 398
|
||||||
|
TabIndex = 2
|
||||||
|
Top = 315
|
||||||
|
Width = 5355
|
||||||
|
End
|
||||||
|
Begin VB.ListBox pagelist
|
||||||
|
Height = 4920
|
||||||
|
Left = 3878
|
||||||
|
TabIndex = 1
|
||||||
|
Top = 3075
|
||||||
|
Width = 1875
|
||||||
|
End
|
||||||
|
Begin VB.ListBox keylist
|
||||||
|
Height = 4920
|
||||||
|
Left = 398
|
||||||
|
TabIndex = 0
|
||||||
|
Top = 3075
|
||||||
|
Width = 3495
|
||||||
|
End
|
||||||
|
Begin VB.Label Label4
|
||||||
|
AutoSize = -1 'True
|
||||||
|
Caption = "阿里版本"
|
||||||
|
Height = 180
|
||||||
|
Left = 1043
|
||||||
|
TabIndex = 11
|
||||||
|
Top = 2130
|
||||||
|
Width = 720
|
||||||
|
End
|
||||||
|
Begin VB.Label Label3
|
||||||
|
AutoSize = -1 'True
|
||||||
|
Caption = "最大查找页数"
|
||||||
|
Height = 180
|
||||||
|
Left = 3653
|
||||||
|
TabIndex = 10
|
||||||
|
Top = 2130
|
||||||
|
Width = 1080
|
||||||
|
End
|
||||||
|
Begin VB.Label Label2
|
||||||
|
AutoSize = -1 'True
|
||||||
|
Caption = "关键词(用英文逗号隔开)"
|
||||||
|
Height = 180
|
||||||
|
Left = 2085
|
||||||
|
TabIndex = 6
|
||||||
|
Top = 690
|
||||||
|
Width = 1980
|
||||||
|
End
|
||||||
|
Begin VB.Label Label1
|
||||||
|
AutoSize = -1 'True
|
||||||
|
Caption = "公司名称"
|
||||||
|
Height = 180
|
||||||
|
Left = 2715
|
||||||
|
TabIndex = 5
|
||||||
|
Top = 60
|
||||||
|
Width = 720
|
||||||
|
End
|
||||||
|
End
|
||||||
|
Attribute VB_Name = "Frm_Main"
|
||||||
|
Attribute VB_GlobalNameSpace = False
|
||||||
|
Attribute VB_Creatable = False
|
||||||
|
Attribute VB_PredeclaredId = True
|
||||||
|
Attribute VB_Exposed = False
|
||||||
|
Option Explicit
|
||||||
|
|
||||||
|
Private Sub clearb_Click()
|
||||||
|
keylist.Clear
|
||||||
|
pagelist.Clear
|
||||||
|
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
|
||||||
|
Next
|
||||||
|
Clipboard.Clear
|
||||||
|
Clipboard.SetText result
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub keylist_Click()
|
||||||
|
pagelist.ListIndex = keylist.ListIndex
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub pagelist_Click()
|
||||||
|
keylist.ListIndex = pagelist.ListIndex
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub search_Click()
|
||||||
|
Dim key() As String
|
||||||
|
Dim i, j, nindex As Long
|
||||||
|
Dim Temp As String
|
||||||
|
Dim url As String
|
||||||
|
|
||||||
|
search.Enabled = False
|
||||||
|
|
||||||
|
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)
|
||||||
|
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"
|
||||||
|
Else
|
||||||
|
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
|
||||||
|
pagelist.List(nindex) = "第" & j & "页": Exit For
|
||||||
|
Else
|
||||||
|
If j = pages Then pagelist.List(nindex) = "大于" & pages & "页"
|
||||||
|
End If
|
||||||
|
DoEvents
|
||||||
|
Next
|
||||||
|
DoEvents
|
||||||
|
Next
|
||||||
|
search.Enabled = True
|
||||||
|
End Sub
|
||||||
|
|
Binary file not shown.
|
@ -0,0 +1,32 @@
|
||||||
|
Type=Exe
|
||||||
|
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation
|
||||||
|
Form=Frm_Main.frm
|
||||||
|
UserControl=..\VB用户控件\XmlHttp.ctl
|
||||||
|
Object={6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0; COMCTL32.OCX
|
||||||
|
Startup="Frm_Main"
|
||||||
|
HelpFile=""
|
||||||
|
ExeName32="阿里查排名.exe"
|
||||||
|
Command32=""
|
||||||
|
Name="英文阿里查排名"
|
||||||
|
HelpContextID="0"
|
||||||
|
CompatibleMode="0"
|
||||||
|
MajorVer=1
|
||||||
|
MinorVer=0
|
||||||
|
RevisionVer=0
|
||||||
|
AutoIncrementVer=0
|
||||||
|
ServerSupportFiles=0
|
||||||
|
CompilationType=0
|
||||||
|
OptimizationType=0
|
||||||
|
FavorPentiumPro(tm)=0
|
||||||
|
CodeViewDebugInfo=0
|
||||||
|
NoAliasing=0
|
||||||
|
BoundsCheck=0
|
||||||
|
OverflowCheck=0
|
||||||
|
FlPointCheck=0
|
||||||
|
FDIVCheck=0
|
||||||
|
UnroundedFP=0
|
||||||
|
StartMode=0
|
||||||
|
Unattended=0
|
||||||
|
Retained=0
|
||||||
|
ThreadPerObject=0
|
||||||
|
MaxNumberOfThreads=1
|
Loading…
Reference in New Issue