home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / _Firewall_1826711272004.psc / modFirewall.bas < prev    next >
BASIC Source File  |  2004-12-06  |  2KB  |  59 lines
  1. Attribute VB_Name = "modFirewall"
  2. Public ruleType As Integer
  3. Public firewallStatus As Integer
  4. Public block As Integer
  5. Public blocked As Integer
  6. Private Function Registry_Read(Key_Path, Key_Name) As Variant
  7.     
  8.     On Error Resume Next
  9.     
  10.     Dim Registry As Object
  11.     
  12.     Set Registry = CreateObject("WScript.Shell")
  13.     
  14.     Registry_Read = Registry.regread(Key_Path & Key_Name)
  15.     
  16. End Function
  17.  
  18. Public Function isWinXp() As Boolean
  19.     
  20.     Dim Operating_System As String
  21.  
  22.     Operating_System = Registry_Read("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\", "PRODUCTNAME")
  23.  
  24.     If Operating_System = "" Then
  25.  
  26.          Operating_System = Registry_Read("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS NT\CURRENTVERSION\", "PRODUCTNAME")
  27.  
  28.     End If
  29.     
  30.     If UCase(Operating_System) = UCase("microsoft windows xp") Then
  31.         isWinXp = True
  32.     Else
  33.         isWinXp = False
  34.     End If
  35.  
  36. End Function
  37.  
  38.  
  39. Public Sub disableAll()
  40.     
  41.     frmProc.cmdAddRule.Enabled = False
  42.     frmProc.cmdClear.Enabled = False
  43.     frmProc.cmdCloseConn.Enabled = False
  44.     frmProc.cmdDelete.Enabled = False
  45.     frmProc.cmdEnumPortProc.Enabled = False
  46.     frmProc.cmdFirewall.Enabled = False
  47.     frmProc.cmdSave.Enabled = False
  48.     frmProc.cmdLoad.Enabled = False
  49.     frmProc.cmbFirewall.Enabled = False
  50.     frmProc.cmdMonitor.Enabled = False
  51.     frmProc.cmbMonitor.Enabled = False
  52.     frmProc.txtMonitor.Enabled = False
  53.     frmProc.lblMonitor.Caption = "Windows XP Only"
  54.     frmProc.Frame4.Enabled = False
  55.     frmProc.Frame6.Enabled = False
  56.     frmProc.lblFirewallStat.Caption = "Windows XP Only"
  57.     frmProc.cmdFirewallTab.Enabled = False
  58. End Sub
  59.