2015-07-25 06:56:04 +00:00
|
|
|
|
VERSION 5.00
|
|
|
|
|
Begin VB.Form Frm_Main
|
|
|
|
|
Caption = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
|
|
|
|
ClientHeight = 8250
|
|
|
|
|
ClientLeft = 60
|
|
|
|
|
ClientTop = 345
|
|
|
|
|
ClientWidth = 6150
|
|
|
|
|
Icon = "Frm_Main.frx":0000
|
|
|
|
|
LinkTopic = "Form1"
|
|
|
|
|
ScaleHeight = 8250
|
|
|
|
|
ScaleWidth = 6150
|
|
|
|
|
StartUpPosition = 3 '<27><><EFBFBD><EFBFBD>ȱʡ
|
|
|
|
|
Begin VB.OptionButton Opt
|
2015-07-25 10:11:12 +00:00
|
|
|
|
Caption = "Ӣ<>İ<EFBFBD><C4B0><EFBFBD>"
|
2015-07-25 06:56:04 +00:00
|
|
|
|
Height = 180
|
|
|
|
|
Index = 1
|
2015-07-25 10:11:12 +00:00
|
|
|
|
Left = 2535
|
2015-07-25 06:56:04 +00:00
|
|
|
|
TabIndex = 13
|
|
|
|
|
Top = 2130
|
2015-07-25 10:11:12 +00:00
|
|
|
|
Width = 1080
|
2015-07-25 06:56:04 +00:00
|
|
|
|
End
|
|
|
|
|
Begin VB.OptionButton Opt
|
2015-07-25 10:11:12 +00:00
|
|
|
|
Caption = "<22><><EFBFBD>İ<EFBFBD><C4B0><EFBFBD>"
|
2015-07-25 06:56:04 +00:00
|
|
|
|
Height = 180
|
|
|
|
|
Index = 0
|
2015-07-25 10:11:12 +00:00
|
|
|
|
Left = 1365
|
2015-07-25 06:56:04 +00:00
|
|
|
|
TabIndex = 12
|
|
|
|
|
Top = 2130
|
|
|
|
|
Value = -1 'True
|
2015-07-25 10:11:12 +00:00
|
|
|
|
Width = 1080
|
2015-07-25 06:56:04 +00:00
|
|
|
|
End
|
|
|
|
|
Begin VB.TextBox pages
|
|
|
|
|
Height = 270
|
2015-07-25 10:11:12 +00:00
|
|
|
|
Left = 5385
|
2015-07-25 06:56:04 +00:00
|
|
|
|
TabIndex = 9
|
|
|
|
|
Text = "20"
|
|
|
|
|
Top = 2085
|
|
|
|
|
Width = 300
|
|
|
|
|
End
|
|
|
|
|
Begin VB.CommandButton CopyB
|
|
|
|
|
Caption = "<22><><EFBFBD>ƽ<EFBFBD><C6BD><EFBFBD>"
|
|
|
|
|
Height = 450
|
|
|
|
|
Left = 3593
|
|
|
|
|
TabIndex = 8
|
|
|
|
|
Top = 2490
|
|
|
|
|
Width = 930
|
|
|
|
|
End
|
|
|
|
|
Begin VB.CommandButton clearb
|
|
|
|
|
Caption = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
|
|
|
|
Height = 450
|
|
|
|
|
Left = 2603
|
|
|
|
|
TabIndex = 7
|
|
|
|
|
Top = 2490
|
|
|
|
|
Width = 930
|
|
|
|
|
End
|
|
|
|
|
Begin Ӣ<>İ<EFBFBD><C4B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.XmlHttp XmlHttp
|
|
|
|
|
Height = 240
|
|
|
|
|
Left = 12720
|
|
|
|
|
Top = 9225
|
|
|
|
|
Visible = 0 'False
|
|
|
|
|
Width = 240
|
|
|
|
|
_ExtentX = 423
|
|
|
|
|
_ExtentY = 423
|
|
|
|
|
End
|
|
|
|
|
Begin VB.CommandButton search
|
|
|
|
|
Caption = "<22><>ʼ<EFBFBD><CABC>ѯ"
|
|
|
|
|
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
|
2015-07-25 10:11:12 +00:00
|
|
|
|
Caption = "<22><><EFBFBD><EFBFBD><EFBFBD>汾: "
|
2015-07-25 06:56:04 +00:00
|
|
|
|
Height = 180
|
2015-07-25 10:11:12 +00:00
|
|
|
|
Left = 398
|
2015-07-25 06:56:04 +00:00
|
|
|
|
TabIndex = 11
|
|
|
|
|
Top = 2130
|
2015-07-25 10:11:12 +00:00
|
|
|
|
Width = 900
|
2015-07-25 06:56:04 +00:00
|
|
|
|
End
|
|
|
|
|
Begin VB.Label Label3
|
|
|
|
|
AutoSize = -1 'True
|
2015-07-25 10:11:12 +00:00
|
|
|
|
Caption = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҳ<EFBFBD><D2B3>:"
|
2015-07-25 06:56:04 +00:00
|
|
|
|
Height = 180
|
2015-07-25 10:11:12 +00:00
|
|
|
|
Left = 4155
|
2015-07-25 06:56:04 +00:00
|
|
|
|
TabIndex = 10
|
|
|
|
|
Top = 2130
|
2015-07-25 10:11:12 +00:00
|
|
|
|
Width = 1170
|
2015-07-25 06:56:04 +00:00
|
|
|
|
End
|
|
|
|
|
Begin VB.Label Label2
|
|
|
|
|
AutoSize = -1 'True
|
|
|
|
|
Caption = "<22>ؼ<EFBFBD><D8BC><EFBFBD>(<28><>Ӣ<EFBFBD>Ķ<EFBFBD><C4B6>Ÿ<EFBFBD><C5B8><EFBFBD>)"
|
|
|
|
|
Height = 180
|
|
|
|
|
Left = 2085
|
|
|
|
|
TabIndex = 6
|
|
|
|
|
Top = 690
|
|
|
|
|
Width = 1980
|
|
|
|
|
End
|
|
|
|
|
Begin VB.Label Label1
|
|
|
|
|
AutoSize = -1 'True
|
|
|
|
|
Caption = "<22><>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>"
|
|
|
|
|
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
|
2015-07-25 10:11:12 +00:00
|
|
|
|
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
|
2015-07-25 06:56:04 +00:00
|
|
|
|
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
|
2015-07-25 10:11:12 +00:00
|
|
|
|
Dim I, j, nindex As Long
|
2015-07-25 06:56:04 +00:00
|
|
|
|
Dim Temp As String
|
|
|
|
|
Dim url As String
|
|
|
|
|
|
|
|
|
|
search.Enabled = False
|
|
|
|
|
|
|
|
|
|
key = Split(Replace(keys.Text, vbCrLf, ""), ",")
|
|
|
|
|
keylist.AddItem "============<3D>ؼ<EFBFBD><D8BC><EFBFBD>============"
|
|
|
|
|
pagelist.AddItem "=======ҳ<><D2B3>======="
|
2015-07-25 10:11:12 +00:00
|
|
|
|
For I = LBound(key) To UBound(key)
|
|
|
|
|
key(I) = Trim(key(I))
|
|
|
|
|
keylist.AddItem key(I)
|
2015-07-25 06:56:04 +00:00
|
|
|
|
nindex = keylist.ListCount - 1
|
|
|
|
|
For j = 1 To pages.Text
|
|
|
|
|
pagelist.List(nindex) = "<22><>ѯ<EFBFBD><D1AF>" & j & "ҳ<><D2B3>..."
|
|
|
|
|
If Opt(1).Value = True Then
|
2015-07-25 10:11:12 +00:00
|
|
|
|
url = "http://www.alibaba.com/products/F0/" & key(I) & "/" & j & ".html"
|
2015-07-25 06:56:04 +00:00
|
|
|
|
Else
|
2015-07-25 10:11:12 +00:00
|
|
|
|
url = "http://s.1688.com/selloffer/offer_search.htm?keywords=" & key(I) & "&beginPage=" & j
|
2015-07-25 06:56:04 +00:00
|
|
|
|
End If
|
|
|
|
|
Temp = XmlHttp.GetData(url, ResponseBodyToText)
|
|
|
|
|
If InStr(1, Temp, company.Text) Then
|
|
|
|
|
pagelist.List(nindex) = "<22><>" & j & "ҳ": Exit For
|
|
|
|
|
Else
|
|
|
|
|
If j = pages Then pagelist.List(nindex) = "<22><><EFBFBD><EFBFBD>" & pages & "ҳ"
|
|
|
|
|
End If
|
|
|
|
|
DoEvents
|
|
|
|
|
Next
|
|
|
|
|
DoEvents
|
|
|
|
|
Next
|
|
|
|
|
search.Enabled = True
|
|
|
|
|
End Sub
|
|
|
|
|
|