You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
352 lines
10 KiB
352 lines
10 KiB
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
|