VERSION 5.00 Begin VB.Form frmMain BorderStyle = 1 'Fixed Single Caption = "SDK BVT ( wbem 494 : opal > 1035 )" ClientHeight = 3660 ClientLeft = 45 ClientTop = 330 ClientWidth = 6630 Icon = "frmMain.frx":0000 LinkTopic = "Form1" MaxButton = 0 'False ScaleHeight = 3660 ScaleWidth = 6630 StartUpPosition = 3 'Windows Default Begin VB.CommandButton cmdModInfo Caption = "Module &Info >" Height = 375 Left = 1860 TabIndex = 22 Top = 2160 Width = 1335 End Begin VB.Frame fraLoop Caption = "&Looping" Height = 1635 Left = 60 TabIndex = 14 Top = 1980 Width = 1635 Begin VB.OptionButton rdoLoopInf Caption = "Infinite" Height = 195 Left = 180 TabIndex = 23 Top = 540 Width = 1035 End Begin VB.TextBox txtLoop BackColor = &H8000000F& Enabled = 0 'False Height = 285 Left = 240 TabIndex = 18 Top = 1260 Width = 1275 End Begin VB.OptionButton rdoLoopIter Caption = "Iterations" Height = 195 Left = 180 TabIndex = 17 Top = 1020 Width = 1095 End Begin VB.OptionButton rdoLoopMin Caption = "Minutes" Enabled = 0 'False Height = 195 Left = 180 TabIndex = 16 Top = 780 Width = 1035 End Begin VB.OptionButton rdoLoopDis Caption = "Disabled" Height = 195 Left = 180 TabIndex = 15 Top = 300 Value = -1 'True Width = 975 End End Begin VB.CommandButton cmdGo Default = -1 'True Height = 915 Left = 1860 Picture = "frmMain.frx":0442 Style = 1 'Graphical TabIndex = 21 Top = 2640 Width = 1335 End Begin VB.Frame fraModules Caption = "&Modules" Height = 3555 Left = 3360 TabIndex = 19 Top = 60 Width = 3195 Begin VB.ListBox lstModules Height = 3195 IntegralHeight = 0 'False Left = 120 Style = 1 'Checkbox TabIndex = 20 Top = 240 Width = 2955 End End Begin VB.Frame fraConfig Caption = "&Configuration" Height = 1875 Left = 60 TabIndex = 0 Top = 60 Width = 3195 Begin VB.CheckBox chkAuthority Caption = "Null" Height = 195 Left = 960 TabIndex = 12 Top = 1500 Value = 1 'Checked Width = 615 End Begin VB.CheckBox chkPassword Caption = "Null" Height = 195 Left = 960 TabIndex = 9 Top = 1200 Value = 1 'Checked Width = 615 End Begin VB.CheckBox chkUserid Caption = "Null" Height = 195 Left = 960 TabIndex = 6 Top = 900 Value = 1 'Checked Width = 615 End Begin VB.TextBox txtAuthority BackColor = &H8000000F& Enabled = 0 'False Height = 285 Left = 1560 TabIndex = 13 Top = 1440 Width = 1515 End Begin VB.TextBox txtPassword BackColor = &H8000000F& Enabled = 0 'False Height = 285 IMEMode = 3 'DISABLE Left = 1560 PasswordChar = "*" TabIndex = 10 Top = 1140 Width = 1515 End Begin VB.TextBox txtUserid BackColor = &H8000000F& Enabled = 0 'False Height = 285 Left = 1560 TabIndex = 7 Top = 840 Width = 1515 End Begin VB.TextBox txtServer Height = 285 Left = 1560 TabIndex = 2 Top = 240 Width = 1515 End Begin VB.TextBox txtSitecode Height = 285 Left = 1560 MaxLength = 3 TabIndex = 4 Top = 540 Width = 1515 End Begin VB.Label lblAuthority AutoSize = -1 'True Caption = "Authority:" Height = 195 Left = 120 TabIndex = 11 Top = 1500 Width = 660 End Begin VB.Label lblPassword AutoSize = -1 'True Caption = "Password:" Height = 195 Left = 120 TabIndex = 8 Top = 1200 Width = 735 End Begin VB.Label lblUserid AutoSize = -1 'True Caption = "UserID:" Height = 195 Left = 120 TabIndex = 5 Top = 900 Width = 540 End Begin VB.Label lblServer AutoSize = -1 'True Caption = "Provider Machine:" Height = 195 Left = 120 TabIndex = 1 Top = 300 Width = 1290 End Begin VB.Label lblSitecode AutoSize = -1 'True Caption = "Site code:" Height = 195 Left = 120 TabIndex = 3 Top = 600 Width = 720 End End End Attribute VB_Name = "frmMain" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Public canceled As Boolean Private Sub Form_Load() canceled = False InstallModules lstModules.ListIndex = -1 End Sub Private Sub chkAuthority_Click() If chkAuthority.Value = 0 Then txtAuthority.Enabled = True txtAuthority.BackColor = &H80000005 txtAuthority.SetFocus Else txtAuthority.Enabled = False txtAuthority.BackColor = &H8000000F End If End Sub Private Sub chkPassword_Click() If chkPassword.Value = 0 Then txtPassword.Enabled = True txtPassword.BackColor = &H80000005 txtPassword.SetFocus Else txtPassword.Enabled = False txtPassword.BackColor = &H8000000F End If End Sub Private Sub chkUserid_Click() If chkUserid.Value = 0 Then txtUserid.Enabled = True txtUserid.BackColor = &H80000005 txtUserid.SetFocus Else txtUserid.Enabled = False txtUserid.BackColor = &H8000000F End If End Sub Private Sub cmdGo_Click() Open "\bvtlog.txt" For Output As #1 Print #1, "** BVT Started **" & vbCrLf & vbCrLf Close #1 If rdoLoopDis.Value Then frmTest.Run ElseIf rdoLoopInf.Value Then Do frmTest.Run Dim f As New frmPause f.Show 1 If canceled Then canceled = False Exit Do End If Loop ElseIf rdoLoopMin.Value Then ElseIf rdoLoopIter.Value Then Dim i As Integer For i = 1 To val(txtLoop.text) frmTest.Run Dim g As New frmPause g.Show 1 If canceled Then canceled = False Exit For End If Next i End If End Sub Private Sub cmdModInfo_Click() If lstModules.ListIndex >= 0 Then Dim s As String s = Modules(lstModules.List(lstModules.ListIndex)).GetModuleInfo Dim f As New frmObjText f.Caption = "Module info for: " & lstModules.List(lstModules.ListIndex) f.txtMain.text = s f.Show End If End Sub Private Sub InstallModules() Modules.Add New SoftDist, "Software Distribution" Modules.Add New SiteCtrl, "Site Control File" Modules.Add New Methods, "Methods" Modules.Add New Queries, "Queries" Modules.Add New PDF, "Package Definition Files" End Sub Private Sub rdoLoopDis_Click() txtLoop.Enabled = False txtLoop.BackColor = &H8000000F End Sub Private Sub rdoLoopInf_Click() txtLoop.Enabled = False txtLoop.BackColor = &H8000000F End Sub Private Sub rdoLoopIter_Click() txtLoop.Enabled = True txtLoop.BackColor = &H80000005 End Sub Private Sub rdoLoopMin_Click() txtLoop.Enabled = True txtLoop.BackColor = &H80000005 End Sub