CreateFolders

Make nested subfolders in a single method. Original Author: Gerald Bryant Inputs sPath: Fully-qualified absolute or relative path you wish to create.‘Example 1: \NetworkVolumeNetworkShareExistingDirNewDirNewSubdirNewSubDir‘Example 2: C:Program Filesacdefghijklm opq s uvwxyz Assumptions Add reference “Microsoft Scripting Runtime” (scrrun.dll) available at http://www.microsoft.com/scripting or with VB6. Side Effects Number 70, Permission Denied error will occur is write access or directory create access… Read More »

8 Ball Type Fortune Teller

Random call to find your Fortune. Like an 8 Ball. Contains a litte Easter Egg too, just for fun. This would look much nicer if you put an 8 Ball Graphic inwhich I didn’t do, sorry Original Author: Chapin Walton Inputs Ask a Question Assumptions I assume you know what an 8 ball is. To use this add a… Read More »

KillApp

Kill any application or process running if you know the .exe name. (Only Windows 95/98) Original Author: Fernando Vicente Inputs myName: is the name of the app that wou want to kill (ex. “app.exe”) Returns True if the application was killed correctly API Declarations Const MAX_PATH& = 260Declare Function TerminateProcess Lib “kernel32” (ByVal ApphProcess As Long, ByVal uExitCode As… Read More »

Find Any Window

Sometimes you need to find a window using the API Call findwindow , but what if this windows caption changesyou can’t find that same window all the time. With this function you can find any window just by knowing a few lettersin the caption. This will return the windows’ hWnd , also includes a function that will grab… Read More »

clsSysTray.cls

A simple class to very easily minimize an application to, or to just create an icon in, the system tray. UPDATED & FIXED 6/25/1999 – Added new properties and fixed various things. If you have gotten this code before, please get it again (yes, it actually works now!). Read the comments for instructions. Original Author: Martin Richardson Assumptions This… Read More »

HSL<->RGB and Color Manipulation Routines

Routines to convert between Hue-Saturation-Luminescence values an Red-Green-Blue color values (Converted from C++). Also several unique routines using these functions to manipulate color such as Brighten, Invert, PhotoNegative, Blend, Tint, etc.***NOTE: I have reposted this with the original sorce (now complete). I am working on and will soon submit this in class form, once comments are added to… Read More »

Calculate InternetTime

The function InternetTime() calculates the internettime, the new time standard from Swatch. You only have to call the function. Original Author: Hiu-Hong Hau Assumptions Copy and Paste all of these code in one single module. Returns This function returns a value containing the internettime. If you want to convert it to a small string, you could use the following:… Read More »

Virus Scanner

This is kind of a Virus Scanner…It’s to let you get the feelof a scanner which searches for strings a virus might have andthen displays that it is a virus in a message box. Put this ina module and call it from like a button or something. I am only13 so if you think this code is dumb… Read More »

Dials a telephone number w/o using APIs

Uses the MSComm control to call a telephone number using your modem WITHOUT HAVEING DIALER.EXE! 🙂 Original Author: alex Inputs num – the telephone number Assumptions Assumes you have a MSComm control on your form named “Communications” Code Private Sub Dial(num As String)’ Open the com port.Communications.PortOpen = True’ Send the attention command to the modem.Communications.Output = “AT” +… Read More »

Improved Simple Analog Clock

Displays a basic analog clock on a form.CREDIT FOR THE ORIGINAL CODE GOES TO: BorizaI enjoyed his code so much I had to add a coupleof quick improvements. Incrementally uncommentthe code lines in the Form_Load event fordifferent clock positions on the form. Original Author: ValkRider Assumptions Just add a timer(“timer1”) to a form andpaste this code into the form.… Read More »