frmWanderer.frm
上传用户:ynjin1970
上传日期:2014-10-13
资源大小:6438k
文件大小:7k
源码类别:

中间件编程

开发平台:

Visual C++

  1. VERSION 5.00
  2. Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "MSINET.OCX"
  3. Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
  4. Begin VB.Form frmWanderer 
  5.    Caption         =   "搜 索"
  6.    ClientHeight    =   6090
  7.    ClientLeft      =   60
  8.    ClientTop       =   345
  9.    ClientWidth     =   8235
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   6090
  12.    ScaleWidth      =   8235
  13.    StartUpPosition =   2  'CenterScreen
  14.    Begin RichTextLib.RichTextBox RichTextSearch 
  15.       Height          =   2775
  16.       Left            =   120
  17.       TabIndex        =   8
  18.       Top             =   3000
  19.       Width           =   7935
  20.       _ExtentX        =   13996
  21.       _ExtentY        =   4895
  22.       _Version        =   393217
  23.       TextRTF         =   $"frmWanderer.frx":0000
  24.    End
  25.    Begin VB.TextBox Text1 
  26.       Height          =   495
  27.       Left            =   1440
  28.       TabIndex        =   6
  29.       Top             =   120
  30.       Width           =   2775
  31.    End
  32.    Begin RichTextLib.RichTextBox rtbLinkNames 
  33.       Height          =   1215
  34.       Left            =   120
  35.       TabIndex        =   5
  36.       Top             =   1320
  37.       Width           =   8175
  38.       _ExtentX        =   14420
  39.       _ExtentY        =   2143
  40.       _Version        =   393217
  41.       TextRTF         =   $"frmWanderer.frx":028A
  42.    End
  43.    Begin VB.CommandButton cmdStopWandering 
  44.       Caption         =   "停止"
  45.       BeginProperty Font 
  46.          Name            =   "宋体"
  47.          Size            =   12
  48.          Charset         =   134
  49.          Weight          =   400
  50.          Underline       =   0   'False
  51.          Italic          =   0   'False
  52.          Strikethrough   =   0   'False
  53.       EndProperty
  54.       Height          =   495
  55.       Left            =   4320
  56.       TabIndex        =   4
  57.       Top             =   720
  58.       Width           =   1335
  59.    End
  60.    Begin VB.CommandButton cmdExit 
  61.       Caption         =   "退出"
  62.       BeginProperty Font 
  63.          Name            =   "宋体"
  64.          Size            =   12
  65.          Charset         =   134
  66.          Weight          =   400
  67.          Underline       =   0   'False
  68.          Italic          =   0   'False
  69.          Strikethrough   =   0   'False
  70.       EndProperty
  71.       Height          =   495
  72.       Left            =   6120
  73.       TabIndex        =   3
  74.       Top             =   720
  75.       Width           =   1215
  76.    End
  77.    Begin VB.CommandButton cmdGoWander 
  78.       Caption         =   "搜索"
  79.       BeginProperty Font 
  80.          Name            =   "宋体"
  81.          Size            =   12
  82.          Charset         =   134
  83.          Weight          =   400
  84.          Underline       =   0   'False
  85.          Italic          =   0   'False
  86.          Strikethrough   =   0   'False
  87.       EndProperty
  88.       Height          =   495
  89.       Left            =   4320
  90.       TabIndex        =   2
  91.       Top             =   120
  92.       Width           =   1335
  93.    End
  94.    Begin VB.TextBox txtSite 
  95.       Height          =   495
  96.       Left            =   1440
  97.       TabIndex        =   1
  98.       Top             =   720
  99.       Width           =   2775
  100.    End
  101.    Begin InetCtlsObjects.Inet itcWander 
  102.       Left            =   120
  103.       Top             =   1320
  104.       _ExtentX        =   1005
  105.       _ExtentY        =   1005
  106.       _Version        =   393216
  107.    End
  108.    Begin VB.Label Label3 
  109.       Caption         =   "包含有关键字的网页:"
  110.       BeginProperty Font 
  111.          Name            =   "宋体"
  112.          Size            =   12
  113.          Charset         =   134
  114.          Weight          =   400
  115.          Underline       =   0   'False
  116.          Italic          =   0   'False
  117.          Strikethrough   =   0   'False
  118.       EndProperty
  119.       Height          =   255
  120.       Left            =   240
  121.       TabIndex        =   9
  122.       Top             =   2640
  123.       Width           =   3255
  124.    End
  125.    Begin VB.Label Label2 
  126.       Caption         =   "关键字:"
  127.       BeginProperty Font 
  128.          Name            =   "宋体"
  129.          Size            =   12
  130.          Charset         =   134
  131.          Weight          =   400
  132.          Underline       =   0   'False
  133.          Italic          =   0   'False
  134.          Strikethrough   =   0   'False
  135.       EndProperty
  136.       Height          =   375
  137.       Left            =   360
  138.       TabIndex        =   7
  139.       Top             =   240
  140.       Width           =   975
  141.    End
  142.    Begin VB.Label Label1 
  143.       Caption         =   "开始 URL"
  144.       BeginProperty Font 
  145.          Name            =   "宋体"
  146.          Size            =   12
  147.          Charset         =   134
  148.          Weight          =   400
  149.          Underline       =   0   'False
  150.          Italic          =   0   'False
  151.          Strikethrough   =   0   'False
  152.       EndProperty
  153.       Height          =   255
  154.       Left            =   240
  155.       TabIndex        =   0
  156.       Top             =   840
  157.       Width           =   1095
  158.    End
  159. End
  160. Attribute VB_Name = "frmWanderer"
  161. Attribute VB_GlobalNameSpace = False
  162. Attribute VB_Creatable = False
  163. Attribute VB_PredeclaredId = True
  164. Attribute VB_Exposed = False
  165. Private Sub cmdExit_Click()
  166. Unload Me
  167. End Sub
  168. Private Sub cmdGoWander_Click()
  169. stopSearching = False
  170. rtbLinkNames.Text = ""
  171. Current_pos = 1
  172. Me.MousePointer = vbArrowHourglass
  173. cmdGoWander.Enabled = True
  174. cmdStopWandering.Enabled = True
  175. If Get_File(txtSite.Text) Then
  176.  If Not parse Then
  177.  Me.MousePointer = vbNormal
  178.  cmdGoWander.Enabled = True
  179.  cmdStopWandering.Enabled = False
  180.  Exit Sub
  181.  End If
  182.  
  183. Else
  184.  Me.MousePointer = vbNormal
  185.  MsgBox "unable to find the desired site."
  186. End If
  187. cmdGoWander.Enabled = True
  188. cmdStopWandering.Enabled = False
  189. Me.MousePointer = vbNormal
  190. stopSearching = True
  191. End Sub
  192. Private Sub cmdStopWandering_Click()
  193. stopSearching = True
  194. End Sub
  195. Private Sub Form_Load()
  196. txtSite.Text = "http://www.21cn.com"
  197. NewLine = Chr(13) & Chr(10)
  198. stopSearching = True
  199. cmdStopWandering.Enabled = False
  200. End Sub
  201. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  202. Dim ResPonse As Integer
  203.  If Not stopSearching Then
  204.    ResPonse = MsgBox("stop search and lose updated file?", vbYesNo)
  205.    If ResPonse = vbNo Then
  206.    Cancel = 1
  207.    Exit Sub
  208.    End If
  209. Else
  210. respose = MsgBox("close program?", vbYesNo)
  211. If ResPonse = vbNo Then
  212.  Cancel = 1
  213.  Exit Sub
  214.  End If
  215. End If
  216. itcWander.Cancel
  217. End Sub
  218. Private Sub Form_Unload(Cancel As Integer)
  219. Unload frmSearching
  220. Unload frmparsing
  221. End Sub
  222. Private Sub itcWander_StateChanged(ByVal State As Integer)
  223.     Dim strmess As String
  224.      DoEvents
  225.      Select Case State
  226.       Case ichostresolvinghost
  227.         connected = False
  228.       Case icConnected
  229.       connected = True
  230.       Case State = icError
  231.       strmess = "errorcode:" & itcWander.ResponseCode & ":" & itcsearch.ResponseInfo
  232.       MsgBox strmess, vbOKOnly
  233.       itcwandersearcherror = True
  234.     End Select
  235.     
  236.       
  237. End Sub