home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1999 January / dppcpro0199a.iso / January / Fp98 / SDK / Utility / Apitests / Webinfo.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1997-09-18  |  13.9 KB  |  431 lines
  1. VERSION 5.00
  2. Begin VB.Form frmWebInfo 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Web Info"
  5.    ClientHeight    =   5520
  6.    ClientLeft      =   1395
  7.    ClientTop       =   2010
  8.    ClientWidth     =   5355
  9.    BeginProperty Font 
  10.       Name            =   "MS Sans Serif"
  11.       Size            =   8.25
  12.       Charset         =   0
  13.       Weight          =   700
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    ForeColor       =   &H80000008&
  19.    LinkTopic       =   "Form1"
  20.    MaxButton       =   0   'False
  21.    MinButton       =   0   'False
  22.    PaletteMode     =   1  'UseZOrder
  23.    ScaleHeight     =   5520
  24.    ScaleWidth      =   5355
  25.    ShowInTaskbar   =   0   'False
  26.    Begin VB.TextBox txtCustomValue 
  27.       BeginProperty Font 
  28.          Name            =   "MS Sans Serif"
  29.          Size            =   8.25
  30.          Charset         =   0
  31.          Weight          =   400
  32.          Underline       =   0   'False
  33.          Italic          =   0   'False
  34.          Strikethrough   =   0   'False
  35.       EndProperty
  36.       Height          =   315
  37.       Left            =   240
  38.       TabIndex        =   15
  39.       Top             =   4980
  40.       Width           =   4875
  41.    End
  42.    Begin VB.CommandButton btnCustomGet 
  43.       Caption         =   "Get"
  44.       BeginProperty Font 
  45.          Name            =   "MS Sans Serif"
  46.          Size            =   8.25
  47.          Charset         =   0
  48.          Weight          =   400
  49.          Underline       =   0   'False
  50.          Italic          =   0   'False
  51.          Strikethrough   =   0   'False
  52.       EndProperty
  53.       Height          =   375
  54.       Left            =   4260
  55.       TabIndex        =   14
  56.       Top             =   4320
  57.       Width           =   855
  58.    End
  59.    Begin VB.CommandButton btnCustomSet 
  60.       Caption         =   "Set"
  61.       BeginProperty Font 
  62.          Name            =   "MS Sans Serif"
  63.          Size            =   8.25
  64.          Charset         =   0
  65.          Weight          =   400
  66.          Underline       =   0   'False
  67.          Italic          =   0   'False
  68.          Strikethrough   =   0   'False
  69.       EndProperty
  70.       Height          =   375
  71.       Left            =   3360
  72.       TabIndex        =   13
  73.       Top             =   4320
  74.       Width           =   855
  75.    End
  76.    Begin VB.TextBox txtCustomKey 
  77.       BeginProperty Font 
  78.          Name            =   "MS Sans Serif"
  79.          Size            =   8.25
  80.          Charset         =   0
  81.          Weight          =   400
  82.          Underline       =   0   'False
  83.          Italic          =   0   'False
  84.          Strikethrough   =   0   'False
  85.       EndProperty
  86.       Height          =   315
  87.       Left            =   240
  88.       TabIndex        =   11
  89.       Top             =   4320
  90.       Width           =   3015
  91.    End
  92.    Begin VB.CommandButton btnRefresh 
  93.       Caption         =   "Refresh"
  94.       BeginProperty Font 
  95.          Name            =   "MS Sans Serif"
  96.          Size            =   8.25
  97.          Charset         =   0
  98.          Weight          =   400
  99.          Underline       =   0   'False
  100.          Italic          =   0   'False
  101.          Strikethrough   =   0   'False
  102.       EndProperty
  103.       Height          =   375
  104.       Left            =   240
  105.       TabIndex        =   8
  106.       Top             =   1800
  107.       Width           =   1035
  108.    End
  109.    Begin VB.ComboBox cmbKey 
  110.       BeginProperty Font 
  111.          Name            =   "MS Sans Serif"
  112.          Size            =   8.25
  113.          Charset         =   0
  114.          Weight          =   400
  115.          Underline       =   0   'False
  116.          Italic          =   0   'False
  117.          Strikethrough   =   0   'False
  118.       EndProperty
  119.       Height          =   300
  120.       Left            =   240
  121.       Sorted          =   -1  'True
  122.       Style           =   2  'Dropdown List
  123.       TabIndex        =   0
  124.       Top             =   2700
  125.       Width           =   4875
  126.    End
  127.    Begin VB.TextBox txtValue 
  128.       BeginProperty Font 
  129.          Name            =   "MS Sans Serif"
  130.          Size            =   8.25
  131.          Charset         =   0
  132.          Weight          =   400
  133.          Underline       =   0   'False
  134.          Italic          =   0   'False
  135.          Strikethrough   =   0   'False
  136.       EndProperty
  137.       Height          =   315
  138.       Left            =   240
  139.       Locked          =   -1  'True
  140.       TabIndex        =   2
  141.       Top             =   3360
  142.       Width           =   4875
  143.    End
  144.    Begin VB.Line Line3 
  145.       X1              =   240
  146.       X2              =   5160
  147.       Y1              =   2280
  148.       Y2              =   2280
  149.    End
  150.    Begin VB.Label Label8 
  151.       Appearance      =   0  'Flat
  152.       BackColor       =   &H80000005&
  153.       BackStyle       =   0  'Transparent
  154.       Caption         =   "Value:"
  155.       BeginProperty Font 
  156.          Name            =   "MS Sans Serif"
  157.          Size            =   8.25
  158.          Charset         =   0
  159.          Weight          =   400
  160.          Underline       =   0   'False
  161.          Italic          =   0   'False
  162.          Strikethrough   =   0   'False
  163.       EndProperty
  164.       ForeColor       =   &H80000008&
  165.       Height          =   195
  166.       Left            =   240
  167.       TabIndex        =   16
  168.       Top             =   4740
  169.       Width           =   1875
  170.    End
  171.    Begin VB.Line Line2 
  172.       X1              =   240
  173.       X2              =   5160
  174.       Y1              =   3900
  175.       Y2              =   3900
  176.    End
  177.    Begin VB.Label Label7 
  178.       Appearance      =   0  'Flat
  179.       BackColor       =   &H80000005&
  180.       BackStyle       =   0  'Transparent
  181.       Caption         =   "Custom Key:"
  182.       BeginProperty Font 
  183.          Name            =   "MS Sans Serif"
  184.          Size            =   8.25
  185.          Charset         =   0
  186.          Weight          =   400
  187.          Underline       =   0   'False
  188.          Italic          =   0   'False
  189.          Strikethrough   =   0   'False
  190.       EndProperty
  191.       ForeColor       =   &H80000008&
  192.       Height          =   195
  193.       Left            =   240
  194.       TabIndex        =   12
  195.       Top             =   4080
  196.       Width           =   1875
  197.    End
  198.    Begin VB.Label Label6 
  199.       Alignment       =   2  'Center
  200.       Caption         =   "vtiGetWebTitle, vtiGetWebURL, vtiGetWebMetaInfo, vtiPutWebMetaInfo"
  201.       BeginProperty Font 
  202.          Name            =   "MS Sans Serif"
  203.          Size            =   8.25
  204.          Charset         =   0
  205.          Weight          =   400
  206.          Underline       =   0   'False
  207.          Italic          =   0   'False
  208.          Strikethrough   =   0   'False
  209.       EndProperty
  210.       Height          =   435
  211.       Left            =   240
  212.       TabIndex        =   10
  213.       Top             =   480
  214.       Width           =   4935
  215.       WordWrap        =   -1  'True
  216.    End
  217.    Begin VB.Label Label5 
  218.       Caption         =   "This form uses the following FrontPage Explorer methods:"
  219.       BeginProperty Font 
  220.          Name            =   "MS Sans Serif"
  221.          Size            =   8.25
  222.          Charset         =   0
  223.          Weight          =   400
  224.          Underline       =   0   'False
  225.          Italic          =   0   'False
  226.          Strikethrough   =   0   'False
  227.       EndProperty
  228.       Height          =   255
  229.       Left            =   240
  230.       TabIndex        =   9
  231.       Top             =   120
  232.       Width           =   4935
  233.    End
  234.    Begin VB.Line Line1 
  235.       X1              =   240
  236.       X2              =   5160
  237.       Y1              =   960
  238.       Y2              =   960
  239.    End
  240.    Begin VB.Label lblURL 
  241.       Appearance      =   0  'Flat
  242.       BackColor       =   &H80000005&
  243.       BackStyle       =   0  'Transparent
  244.       BeginProperty Font 
  245.          Name            =   "MS Sans Serif"
  246.          Size            =   8.25
  247.          Charset         =   0
  248.          Weight          =   400
  249.          Underline       =   0   'False
  250.          Italic          =   0   'False
  251.          Strikethrough   =   0   'False
  252.       EndProperty
  253.       ForeColor       =   &H80000008&
  254.       Height          =   195
  255.       Left            =   1440
  256.       TabIndex        =   7
  257.       Top             =   1500
  258.       Width           =   3675
  259.    End
  260.    Begin VB.Label lblTitle 
  261.       Appearance      =   0  'Flat
  262.       BackColor       =   &H80000005&
  263.       BackStyle       =   0  'Transparent
  264.       BeginProperty Font 
  265.          Name            =   "MS Sans Serif"
  266.          Size            =   8.25
  267.          Charset         =   0
  268.          Weight          =   400
  269.          Underline       =   0   'False
  270.          Italic          =   0   'False
  271.          Strikethrough   =   0   'False
  272.       EndProperty
  273.       ForeColor       =   &H80000008&
  274.       Height          =   195
  275.       Left            =   1440
  276.       TabIndex        =   6
  277.       Top             =   1140
  278.       Width           =   3675
  279.    End
  280.    Begin VB.Label Label4 
  281.       Appearance      =   0  'Flat
  282.       BackColor       =   &H80000005&
  283.       BackStyle       =   0  'Transparent
  284.       Caption         =   "Web URL:"
  285.       BeginProperty Font 
  286.          Name            =   "MS Sans Serif"
  287.          Size            =   8.25
  288.          Charset         =   0
  289.          Weight          =   400
  290.          Underline       =   0   'False
  291.          Italic          =   0   'False
  292.          Strikethrough   =   0   'False
  293.       EndProperty
  294.       ForeColor       =   &H80000008&
  295.       Height          =   195
  296.       Left            =   240
  297.       TabIndex        =   5
  298.       Top             =   1500
  299.       Width           =   1095
  300.    End
  301.    Begin VB.Label Label1 
  302.       Appearance      =   0  'Flat
  303.       BackColor       =   &H80000005&
  304.       BackStyle       =   0  'Transparent
  305.       Caption         =   "Web Title:"
  306.       BeginProperty Font 
  307.          Name            =   "MS Sans Serif"
  308.          Size            =   8.25
  309.          Charset         =   0
  310.          Weight          =   400
  311.          Underline       =   0   'False
  312.          Italic          =   0   'False
  313.          Strikethrough   =   0   'False
  314.       EndProperty
  315.       ForeColor       =   &H80000008&
  316.       Height          =   195
  317.       Left            =   240
  318.       TabIndex        =   4
  319.       Top             =   1140
  320.       Width           =   1095
  321.    End
  322.    Begin VB.Label Label3 
  323.       Appearance      =   0  'Flat
  324.       BackColor       =   &H80000005&
  325.       BackStyle       =   0  'Transparent
  326.       Caption         =   "Value:"
  327.       BeginProperty Font 
  328.          Name            =   "MS Sans Serif"
  329.          Size            =   8.25
  330.          Charset         =   0
  331.          Weight          =   400
  332.          Underline       =   0   'False
  333.          Italic          =   0   'False
  334.          Strikethrough   =   0   'False
  335.       EndProperty
  336.       ForeColor       =   &H80000008&
  337.       Height          =   195
  338.       Left            =   240
  339.       TabIndex        =   3
  340.       Top             =   3120
  341.       Width           =   1875
  342.    End
  343.    Begin VB.Label Label2 
  344.       Appearance      =   0  'Flat
  345.       BackColor       =   &H80000005&
  346.       BackStyle       =   0  'Transparent
  347.       Caption         =   "Built-in Key:"
  348.       BeginProperty Font 
  349.          Name            =   "MS Sans Serif"
  350.          Size            =   8.25
  351.          Charset         =   0
  352.          Weight          =   400
  353.          Underline       =   0   'False
  354.          Italic          =   0   'False
  355.          Strikethrough   =   0   'False
  356.       EndProperty
  357.       ForeColor       =   &H80000008&
  358.       Height          =   195
  359.       Left            =   240
  360.       TabIndex        =   1
  361.       Top             =   2460
  362.       Width           =   1875
  363.    End
  364. Attribute VB_Name = "frmWebInfo"
  365. Attribute VB_GlobalNameSpace = False
  366. Attribute VB_Creatable = False
  367. Attribute VB_PredeclaredId = True
  368. Attribute VB_Exposed = False
  369. Option Explicit
  370. Private Sub btnCustomGet_Click()
  371.     Dim ole As Object
  372.     Set ole = CreateObject("FrontPage.Explorer")
  373.     txtCustomValue = ole.vtiGetWebMetaInfo(txtCustomKey)
  374.     Set ole = Nothing
  375. End Sub
  376. Private Sub btnCustomSet_Click()
  377.     Dim ole As Object
  378.     Dim ret As Long
  379.     Dim webURL As String
  380.     If Len(txtCustomKey) = 0 Then Exit Sub
  381.     Set ole = CreateObject("FrontPage.Explorer")
  382.     webURL = ole.vtiGetWebURL
  383.     If Len(webURL) > 0 Then
  384.         ret = ole.vtiPutWebMetaInfo(txtCustomKey & ":" & txtCustomValue)
  385.     Else
  386.         MsgBox "There must be an open web in the Explorer for vtiPutWebMetaInfo to work."
  387.     End If
  388.     Set ole = Nothing
  389. End Sub
  390. Private Sub btnRefresh_Click()
  391.     MousePointer = 11
  392.     Dim ole As Object
  393.     Set ole = CreateObject("FrontPage.Explorer")
  394.     lblTitle = ole.vtiGetWebTitle
  395.     lblURL = ole.vtiGetWebURL
  396.     Set ole = Nothing
  397.     cmbKey.Clear
  398.     cmbKey.AddItem "vti_autorecalc"
  399.     cmbKey.AddItem "vti_casesensitiveurls"
  400.     cmbKey.AddItem "vti_extenderversion"
  401.     cmbKey.AddItem "vti_featurelist"
  402.     cmbKey.AddItem "vti_htmlextensions"
  403.     cmbKey.AddItem "vti_httpdversion"
  404.     cmbKey.AddItem "vti_longfilenames"
  405.     cmbKey.AddItem "vti_restartmanual"
  406.     cmbKey.AddItem "vti_textextensions"
  407.     cmbKey.AddItem "vti_timecreated"
  408.     cmbKey.AddItem "vti_welcomenames"
  409.     cmbKey.ListIndex = 0
  410.     btnCustomSet.Enabled = Len(lblURL) > 0
  411.     btnCustomGet.Enabled = Len(lblURL) > 0
  412.     MousePointer = 0
  413. End Sub
  414. Private Sub cmbKey_Click()
  415.     Dim ole As Object
  416.     Set ole = CreateObject("FrontPage.Explorer")
  417.     txtValue = ole.vtiGetWebMetaInfo(cmbKey)
  418.     Set ole = Nothing
  419. End Sub
  420. Private Sub Command3D1_Click()
  421.     Dim ole As Object
  422.     Set ole = CreateObject("FrontPage.Explorer")
  423.     txtValue = ole.vtiGetWebMetaInfo(cmbKey)
  424.     Set ole = Nothing
  425. End Sub
  426. Private Sub Form_Load()
  427.     btnRefresh_Click
  428. End Sub
  429. Private Sub RichTextBox1_Click()
  430. End Sub
  431.