首次推送

Signed-off-by: j502647092 <jtb1@163.com>
master
j502647092 2015-07-25 14:56:04 +08:00
commit cffd031039
5 changed files with 237 additions and 0 deletions

203
Frm_Main.frm Normal file
View File

@ -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

BIN
Frm_Main.frx Normal file

Binary file not shown.

BIN
阿里查排名.exe Normal file

Binary file not shown.

32
阿里查排名.vbp Normal file
View File

@ -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

2
阿里查排名.vbw Normal file
View File

@ -0,0 +1,2 @@
Frm_Main = -10, 140, 1419, 645, C, 359, 13, 1788, 721, C
XmlHttp = 109, 149, 1538, 654, C, 154, 154, 1583, 659, C