home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / syslog_1 / syslog~1.exe / syslogx / vb4 / demo1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1998-01-19  |  10.3 KB  |  346 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   3930
  5.    ClientLeft      =   1170
  6.    ClientTop       =   1710
  7.    ClientWidth     =   6315
  8.    Height          =   4335
  9.    Left            =   1110
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   3930
  12.    ScaleWidth      =   6315
  13.    Top             =   1365
  14.    Width           =   6435
  15.    Begin VB.CommandButton Command1 
  16.       Caption         =   "Send Message"
  17.       Height          =   375
  18.       Left            =   3120
  19.       TabIndex        =   18
  20.       Top             =   3120
  21.       Width           =   1335
  22.    End
  23.    Begin VB.CheckBox Check4 
  24.       Caption         =   "Audio Alert Enable"
  25.       Height          =   255
  26.       Left            =   720
  27.       TabIndex        =   17
  28.       Top             =   3480
  29.       Width           =   2055
  30.    End
  31.    Begin VB.CheckBox Check3 
  32.       Caption         =   "File Logging Enabled"
  33.       Height          =   255
  34.       Left            =   720
  35.       TabIndex        =   16
  36.       Top             =   2760
  37.       Width           =   1935
  38.    End
  39.    Begin VB.CheckBox Check2 
  40.       Caption         =   "Show Time"
  41.       Height          =   255
  42.       Left            =   720
  43.       TabIndex        =   15
  44.       Top             =   3240
  45.       Width           =   1215
  46.    End
  47.    Begin VB.CheckBox Check1 
  48.       Caption         =   "Syslog Enabled"
  49.       Height          =   255
  50.       Left            =   720
  51.       TabIndex        =   14
  52.       Top             =   3000
  53.       Width           =   1575
  54.    End
  55.    Begin VB.ComboBox Priority 
  56.       Height          =   315
  57.       Left            =   2400
  58.       TabIndex        =   11
  59.       Top             =   2280
  60.       Width           =   1935
  61.    End
  62.    Begin VB.ComboBox Facility 
  63.       Height          =   315
  64.       Left            =   2400
  65.       TabIndex        =   10
  66.       Top             =   1920
  67.       Width           =   1935
  68.    End
  69.    Begin VB.TextBox Text5 
  70.       Height          =   285
  71.       Left            =   2400
  72.       TabIndex        =   4
  73.       Top             =   1560
  74.       Width           =   3015
  75.    End
  76.    Begin VB.TextBox Text4 
  77.       Height          =   285
  78.       Left            =   2400
  79.       TabIndex        =   3
  80.       Top             =   1200
  81.       Width           =   3015
  82.    End
  83.    Begin VB.TextBox Text3 
  84.       Height          =   285
  85.       Left            =   2400
  86.       TabIndex        =   2
  87.       Top             =   840
  88.       Width           =   3015
  89.    End
  90.    Begin VB.TextBox Text2 
  91.       Height          =   285
  92.       Left            =   2400
  93.       TabIndex        =   1
  94.       Top             =   480
  95.       Width           =   3015
  96.    End
  97.    Begin VB.TextBox Text1 
  98.       Height          =   285
  99.       Left            =   2400
  100.       TabIndex        =   0
  101.       Top             =   120
  102.       Width           =   3015
  103.    End
  104.    Begin VB.Label Label7 
  105.       Alignment       =   1  'Right Justify
  106.       Caption         =   "Priority"
  107.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  108.          Name            =   "MS Sans Serif"
  109.          Size            =   8.25
  110.          Charset         =   0
  111.          Weight          =   700
  112.          Underline       =   0   'False
  113.          Italic          =   0   'False
  114.          Strikethrough   =   0   'False
  115.       EndProperty
  116.       Height          =   255
  117.       Left            =   960
  118.       TabIndex        =   13
  119.       Top             =   2280
  120.       Width           =   1335
  121.    End
  122.    Begin VB.Label Label6 
  123.       Alignment       =   1  'Right Justify
  124.       Caption         =   "Facility"
  125.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  126.          Name            =   "MS Sans Serif"
  127.          Size            =   8.25
  128.          Charset         =   0
  129.          Weight          =   700
  130.          Underline       =   0   'False
  131.          Italic          =   0   'False
  132.          Strikethrough   =   0   'False
  133.       EndProperty
  134.       Height          =   255
  135.       Left            =   1080
  136.       TabIndex        =   12
  137.       Top             =   1920
  138.       Width           =   1215
  139.    End
  140.    Begin VB.Label Label5 
  141.       Alignment       =   1  'Right Justify
  142.       Caption         =   "Sound File"
  143.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  144.          Name            =   "MS Sans Serif"
  145.          Size            =   8.25
  146.          Charset         =   0
  147.          Weight          =   700
  148.          Underline       =   0   'False
  149.          Italic          =   0   'False
  150.          Strikethrough   =   0   'False
  151.       EndProperty
  152.       Height          =   255
  153.       Left            =   1320
  154.       TabIndex        =   9
  155.       Top             =   1560
  156.       Width           =   975
  157.    End
  158.    Begin VB.Label Label4 
  159.       Alignment       =   1  'Right Justify
  160.       Caption         =   "Log File"
  161.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  162.          Name            =   "MS Sans Serif"
  163.          Size            =   8.25
  164.          Charset         =   0
  165.          Weight          =   700
  166.          Underline       =   0   'False
  167.          Italic          =   0   'False
  168.          Strikethrough   =   0   'False
  169.       EndProperty
  170.       Height          =   255
  171.       Left            =   1200
  172.       TabIndex        =   8
  173.       Top             =   1200
  174.       Width           =   1095
  175.    End
  176.    Begin VB.Label Label3 
  177.       Alignment       =   1  'Right Justify
  178.       Caption         =   "Message"
  179.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  180.          Name            =   "MS Sans Serif"
  181.          Size            =   8.25
  182.          Charset         =   0
  183.          Weight          =   700
  184.          Underline       =   0   'False
  185.          Italic          =   0   'False
  186.          Strikethrough   =   0   'False
  187.       EndProperty
  188.       Height          =   255
  189.       Left            =   1560
  190.       TabIndex        =   7
  191.       Top             =   840
  192.       Width           =   735
  193.    End
  194.    Begin VB.Label Label2 
  195.       Alignment       =   1  'Right Justify
  196.       Caption         =   "Header"
  197.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  198.          Name            =   "MS Sans Serif"
  199.          Size            =   8.25
  200.          Charset         =   0
  201.          Weight          =   700
  202.          Underline       =   0   'False
  203.          Italic          =   0   'False
  204.          Strikethrough   =   0   'False
  205.       EndProperty
  206.       Height          =   255
  207.       Left            =   1560
  208.       TabIndex        =   6
  209.       Top             =   480
  210.       Width           =   735
  211.    End
  212.    Begin VB.Label Label1 
  213.       Alignment       =   1  'Right Justify
  214.       Caption         =   "Destination Address"
  215.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  216.          Name            =   "MS Sans Serif"
  217.          Size            =   8.25
  218.          Charset         =   0
  219.          Weight          =   700
  220.          Underline       =   0   'False
  221.          Italic          =   0   'False
  222.          Strikethrough   =   0   'False
  223.       EndProperty
  224.       Height          =   255
  225.       Left            =   480
  226.       TabIndex        =   5
  227.       Top             =   120
  228.       Width           =   1815
  229.    End
  230.    Begin SYSLOGXLib.Syslogx Syslogx1 
  231.       Left            =   4680
  232.       Top             =   1920
  233.       _Version        =   65536
  234.       _ExtentX        =   800
  235.       _ExtentY        =   800
  236.       _StockProps     =   96
  237.       AlertSound      =   ""
  238.       DestIP          =   ""
  239.    End
  240. Attribute VB_Name = "Form1"
  241. Attribute VB_Creatable = False
  242. Attribute VB_Exposed = False
  243. Option Explicit
  244. Private Sub Command1_Click()
  245. Syslogx1.DestIP = Text1.Text
  246. Syslogx1.Header = Text2.Text
  247. If (Check1 = 0) Then
  248.     Syslogx1.Enabled = False
  249.     Syslogx1.Enabled = True
  250. End If
  251. If (Check2 = 0) Then
  252.     Syslogx1.ShowTime = False
  253.     Syslogx1.ShowTime = True
  254. End If
  255. If (Check3 = 0) Then
  256.     Syslogx1.FileLogEnable = False
  257.     Syslogx1.FileLogEnable = True
  258. End If
  259. If (Check4 = 0) Then
  260.     Syslogx1.AlertEnable = False
  261.     Syslogx1.AlertEnable = True
  262. End If
  263. Syslogx1.FileLogName = Text4
  264. Syslogx1.LogMsg (Text3.Text)
  265. End Sub
  266. Private Sub Facility_Click()
  267. Dim offset As Long
  268. Dim findex As Long
  269. findex = Facility.ListIndex
  270. offset = 0
  271. If (findex > 10) Then offset = 40
  272. Syslogx1.Facility = findex * 8 + offset
  273. 'MsgBox (Str(Syslogx1.Facility))
  274. If (Syslogx1.Facility > 80) Then
  275.     Facility.ListIndex = (Syslogx1.Facility - 40) / 8
  276.     Facility.ListIndex = Syslogx1.Facility / 8
  277. End If
  278. End Sub
  279. Private Sub Form_Load()
  280. Text1.Text = "127.0.0.1"
  281. Text2 = "Test Header"
  282. Text3 = "Test Message"
  283. Facility.AddItem ("Kern")
  284. Facility.AddItem ("User")
  285. Facility.AddItem ("Mail")
  286. Facility.AddItem ("Daemon")
  287. Facility.AddItem ("Auth")
  288. Facility.AddItem ("Syslog")
  289. Facility.AddItem ("Lpr")
  290. Facility.AddItem ("News")
  291. Facility.AddItem ("Uucp")
  292. Facility.AddItem ("Cron")
  293. Facility.AddItem ("Authpriv")
  294. Facility.AddItem ("Local0")
  295. Facility.AddItem ("Local1")
  296. Facility.AddItem ("Local2")
  297. Facility.AddItem ("Local3")
  298. Facility.AddItem ("Local4")
  299. Facility.AddItem ("Local5")
  300. Facility.AddItem ("Local6")
  301. Facility.AddItem ("Local7")
  302. Priority.AddItem ("Emerg")
  303. Priority.AddItem ("Alert")
  304. Priority.AddItem ("Crit")
  305. Priority.AddItem ("Err")
  306. Priority.AddItem ("Warning")
  307. Priority.AddItem ("Notice")
  308. Priority.AddItem ("Info")
  309. Priority.AddItem ("Debug")
  310. Syslogx1.Priority = Info
  311. Syslogx1.Facility = Local0
  312. Facility = Syslogx1.Facility
  313. If (Syslogx1.Facility > 80) Then
  314.     Facility.ListIndex = (Syslogx1.Facility - 40) / 8
  315.     Facility.ListIndex = Syslogx1.Facility / 8
  316. End If
  317. Priority.ListIndex = Syslogx1.Priority
  318. Text4 = Syslogx1.FileLogName
  319. If Syslogx1.SyslogEnable Then
  320.     Check1 = 1
  321.     Check1 = 0
  322. End If
  323. If Syslogx1.ShowTime Then
  324.     Check2 = 1
  325.     Check2 = 0
  326. End If
  327. If Syslogx1.FileLogEnable Then
  328.     Check3 = 1
  329.     Check3 = 0
  330. End If
  331. If Syslogx1.AlertEnable Then
  332.     Check4 = 1
  333.     Check4 = 0
  334. End If
  335. Syslogx1.AlertSound = "c:\windows\media\ding.wav"
  336. Text5 = Syslogx1.AlertSound
  337. End Sub
  338. Private Sub Priority_Click()
  339. Syslogx1.Priority = Priority.ListIndex
  340. Priority.ListIndex = Syslogx1.Priority
  341. End Sub
  342. Private Sub Priority_Change()
  343. Syslogx1.Priority = Priority.ListIndex
  344. Priority.ListIndex = Syslogx1.Priority
  345. End Sub
  346.