XPFrame User Control

XPFrame solves well known problem of standard frame’s behaviour with XP styles (see screenshot bellow). This control looks like .NET GroupBox under Windows XP or like VB Frame under early systems. Demo project is included.

GetCpuDescription

Get information on the CPU using Active Directory ‘ Get a description of the processor using Active Directory” NOTE: requires a reference to the Active DS Type library Function GetCpuDescription() As String  Dim thisComputer As ActiveDs.IADsComputer  Dim thisService As ActiveDs.IADsServiceOperations  ‘ we need this object to retrieve computer name  Dim sysInfo As New ActiveDs.WinNTSystemInfo   ‘ retrieve the AD object corresponding to this… Read More »

WindowFromMouse

Gets the handle of the window under the mouse cursor. Private Type POINTAPI  X As Long  Y As LongEnd TypePrivate Declare Function GetCursorPos Lib “user32” (lpPoint As POINTAPI) As LongPrivate Declare Function WindowFromPoint Lib “user32” (ByVal xPoint As Long, _  ByVal yPoint As Long) As Long ‘ Return the handle of the window under the mouse cursor. Function WindowFromMouse() As Long  Dim… Read More »

Download File

Shows you a couple very easy ways to download files from the internet using the url. Uses api, no controls. You can download files, webpages ect.. If someone has right clicking disabled. Recovered from the remains of vbcodesource.com.