home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / tool / various / vbscrape / form1.frm next >
Text File  |  1995-02-27  |  3KB  |  102 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   3540
  5.    ClientLeft      =   1170
  6.    ClientTop       =   1545
  7.    ClientWidth     =   6930
  8.    Height          =   4065
  9.    Left            =   1110
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   3540
  12.    ScaleWidth      =   6930
  13.    Top             =   1080
  14.    Width           =   7050
  15.    Begin CommandButton Command2 
  16.       Caption         =   "Configure..."
  17.       Height          =   375
  18.       Left            =   4800
  19.       TabIndex        =   2
  20.       Top             =   240
  21.       Width           =   1215
  22.    End
  23.    Begin CommandButton Command1 
  24.       Caption         =   "Scrape"
  25.       Height          =   375
  26.       Left            =   4800
  27.       TabIndex        =   1
  28.       Top             =   720
  29.       Width           =   1215
  30.    End
  31.    Begin CScraper Scraper1 
  32.       Action          =   3  'Get Edit Text
  33.       Left            =   6120
  34.       Prop13          =   "wade"
  35.       TabIndex        =   0
  36.       Top             =   360
  37.    End
  38.    Begin Label Label3 
  39.       Caption         =   "1) Press SCRAPE to extract the data from the target window."
  40.       FontBold        =   0   'False
  41.       FontItalic      =   0   'False
  42.       FontName        =   "MS Sans Serif"
  43.       FontSize        =   8.25
  44.       FontStrikethru  =   0   'False
  45.       FontUnderline   =   0   'False
  46.       Height          =   495
  47.       Left            =   360
  48.       TabIndex        =   6
  49.       Top             =   720
  50.       Width           =   4095
  51.    End
  52.    Begin Label Label2 
  53.       Caption         =   "1) Press CONFIGURE to select the window to scrape."
  54.       FontBold        =   0   'False
  55.       FontItalic      =   0   'False
  56.       FontName        =   "MS Sans Serif"
  57.       FontSize        =   8.25
  58.       FontStrikethru  =   0   'False
  59.       FontUnderline   =   0   'False
  60.       Height          =   255
  61.       Left            =   360
  62.       TabIndex        =   5
  63.       Top             =   360
  64.       Width           =   4095
  65.    End
  66.    Begin Shape Shape1 
  67.       Height          =   1935
  68.       Left            =   1560
  69.       Top             =   1440
  70.       Width           =   4095
  71.    End
  72.    Begin Label scraped 
  73.       Height          =   1695
  74.       Left            =   1680
  75.       TabIndex        =   4
  76.       Top             =   1560
  77.       Width           =   3855
  78.    End
  79.    Begin Label Label1 
  80.       Caption         =   "Scraped:"
  81.       Height          =   255
  82.       Left            =   720
  83.       TabIndex        =   3
  84.       Top             =   1440
  85.       Width           =   855
  86.    End
  87. End
  88. Sub Command1_Click ()
  89. On Error GoTo ERR1
  90. scraper1.Command = 2
  91. Scraped.Caption = scraper1.Scraped
  92. Exit Sub
  93. ERR1:
  94. MsgBox ("Error: " + Error$)
  95. Resume Next
  96. End Sub
  97.  
  98. Sub Command2_Click ()
  99. scraper1.Command = 1
  100. End Sub
  101.  
  102.