Tip Bank

DevX - Software Development Resource

Setting the off-line mode

You can programmatically set the Internet Explorer off-line mode with the InternetSetOption API, as this code snippet demonstrates: Const INTERNET_OPTION_CONNECTED_STATE = 50Const INTERNET_STATE_CONNECTED = 1Const INTERNET_STATE_DISCONNECTED = 2Const INTERNET_STATE_DISCONNECTED_BY_USER =

DevX - Software Development Resource

Delete a User in NT

Question: How do I delete a user in NT with the API’s? Answer: The code below shows how to delete a user (if the server name is blank, it attempts

DevX - Software Development Resource

EnumRASEntries – Enumerate all available RAS phone-book entries

Const ERROR_SUCCESS = 0&Const ERROR_BUFFER_TOO_SMALL = 603&Const RAS_MaxEntryName = 256Private Type RASENTRYNAME dwSize As Long szEntryName(RAS_MaxEntryName) As ByteEnd TypePrivate Declare Function RasEnumEntries Lib “RasApi32.DLL” Alias _ “RasEnumEntriesA” (ByVal reserved As

DevX - Software Development Resource

GetNumLockKey – Get the state of the NumLock key

Private Declare Function GetKeyState Lib “user32” (ByVal nVirtKey As Long) As _ Long’ Get the current state of the NumLock keyFunction GetNumLockKey() As Boolean GetNumLockKey = GetKeyState(vbKeyNumlock)End Function

DevX - Software Development Resource

SetCapsLockKey – Set the state of the Caps Lock key

Private Declare Sub keybd_event Lib “user32” (ByVal bVk As Byte, _ ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)Private Declare Function GetKeyState Lib “user32” (ByVal nVirtKey

DevX - Software Development Resource

GetCapsLockKey – Get the state of the CapsLock key

Private Declare Function GetKeyState Lib “user32” (ByVal nVirtKey As Long) As _ Long’ Get the current state of the CapsLock keyFunction GetCapsLockKey() As Boolean GetCapsLockKey = GetKeyState(vbKeyCapital)End Function

DevX - Software Development Resource

SetNumLockKey – Set the state of the Num Lock key

Private Declare Sub keybd_event Lib “user32” (ByVal bVk As Byte, _ ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)Private Declare Function GetKeyState Lib “user32” (ByVal nVirtKey