form1.frm

本文件包含200个visual baisc实例

VERSION 5.00
Begin VB.Form form1 
   Caption         =   "获取、修改网关"
   ClientHeight    =   2115
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6120
   LinkTopic       =   "Form2"
   ScaleHeight     =   2115
   ScaleWidth      =   6120
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command2 
      Caption         =   "修改"
      Enabled         =   0   'False
      Height          =   540
      Left            =   2295
      TabIndex        =   3
      Top             =   1335
      Width           =   1500
   End
   Begin VB.CommandButton Command3 
      Caption         =   "退出"
      Height          =   540
      Left            =   3915
      TabIndex        =   2
      Top             =   1335
      Width           =   1500
   End
   Begin VB.TextBox Text1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   420
      Left            =   1650
      TabIndex        =   1
      Top             =   450
      Width           =   3615
   End
   Begin VB.CommandButton Command1 
      Caption         =   "获得"
      Height          =   540
      Left            =   690
      TabIndex        =   0
      Top             =   1335
      Width           =   1500
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "网关:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   420
      Left            =   825
      TabIndex        =   4
      Top             =   495
      Width           =   1230
   End
End
Attribute VB_Name = "form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
 Option Explicit
 Const REG_SZ As Long = 1
 Const HKEY_LOCAL_MACHINE = &H80000002

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" _
    (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" _
    (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" _
    (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, _
    ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" _
    (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, _
    lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Declare Function RegEnumKey Lib "advapi32.dll" Alias "RegEnumKeyA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, ByVal cbName As Long) As Long
Dim aaa As String


Private Sub Command1_Click()
Dim hKey As Long, hKey1 As Long, ret As Long, ret1 As Long, lenData As Long, typeData As Long
Dim Name As String, name1 As String, s As String, S1 As String
Dim idx As Integer
idx = 0
Name = String(256, Chr(0))
RegCreateKey HKEY_LOCAL_MACHINE, "System\CurrentControlSet\Services\Class\NetTrans", hKey
Do
ret = RegEnumKey(hKey, idx, Name, Len(Name))
  If ret = 0 Then
  aaa = Left(Name, InStr(Name, Chr(0)) - 1)
  aaa = "System\CurrentControlSet\Services\Class\NetTrans\" & aaa
  ret1 = RegOpenKey(HKEY_LOCAL_MACHINE, aaa, hKey1)
      If ret1 = 0 Then
           name1 = "DefaultGateway1"
           ret1 = RegQueryValueEx(hKey1, name1, 0, typeData, ByVal vbNullString, lenData)
           s = String(lenData, Chr(0))
           RegQueryValueEx hKey1, name1, 0, typeData, ByVal s, lenData
              If s <> "" Then s = Left(s, InStr(s, Chr(0)) - 1)
              If Val(s) > 0 Then
                 Text1.Text = s
                 Command2.Enabled = True
                 Exit Sub
              End If
      End If
     idx = idx + 1
  End If
Loop Until ret <> 0
End Sub
Private Sub Command2_Click()
  Dim hKey As Long
     If Text1.Text <> "" Then
        RegCreateKey HKEY_LOCAL_MACHINE, aaa, hKey
        RegSetValueEx hKey, "DefaultGateway", 0, REG_SZ, ByVal Text1.Text, 13
        RegCloseKey hKey
     End If
End Sub
Private Sub Command3_Click()
  End
End Sub