首次推送

Signed-off-by: j502647092 <jtb1@163.com>

Frm_Main.frm

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

阿里查排名.vbp

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

阿里查排名.vbw

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