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 »

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 »

This example show a way you can fake a drag/drop with listboxes. It does not use the official Drag/Drop features of VB.

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.

Recently, I went to one my favorite source code repositories, just to check out new submissions, and see how things are progressing in the community. I always enjoy seeing how up and coming young programmers are learning new ways to keep our favorite “old, dead” language alive.