j502647092
8 years ago
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