获取、修改计算机的IP地址及子网掩码

时间:2018-05-02 14:56:08
【文件属性】:

文件名称:获取、修改计算机的IP地址及子网掩码

文件大小:3KB

文件格式:RAR

更新时间:2018-05-02 14:56:08

IP

获取、修改计算机的IP地址及子网掩码. 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


【文件预览】:
(实例166)获取、修改计算机的IP地址及子网掩码
----PROJECT1.VBP(638B)
----PROJECT1.VBW(50B)
----form1.frm(6KB)

网友评论