Recovers ALL passwords from the cache. Original Author: Demian Net API Declarations ‘Put In .BAS FileDeclare Function WNetEnumCachedPasswords Lib “mpr.dll” (ByVal s As String, ByVal i As Integer, ByVal b As Byte, ByVal proc As Long, ByVal l As Long) As Long‘The Type declaration used by WNetEnumCachedPasswordsType PASSWORD_CACHE_ENTRYcbEntry As Integer ‘size of this returned structure in bytescbResource As Integer… Read More »
Easily Compact & Repair a MS Access Database and display the size differences. Original Author: Cierra Computers & Consulting Inputs strDatabase as string Assumptions This code assumes that your Access database is in the same directory as your exe.Be sure to reference:MS DAO 3.X Object LibraryMS Scripting Runtime Returns Boolean (True if Successful) Code Public Function CompactDatabase(strDatabaseName As String)… Read More »
This code will give REGISTER and UNREGISTER menu selections on the right mouse click on OCX and DLL files. Original Author: Donathan Hutchings Assumptions Copy this code to a new text file in NotePad and save the file with the .reg extension. Take out the /s parameter to see the register/unregister notification messages. Code REGEDIT4[HKEY_CLASSES_ROOTdllfileShellRegistercommand]@=”Regsvr32 /s “%1″”[HKEY_CLASSES_ROOTdllfileShellUnregistercommand]@=”Regsvr32 /s /u… Read More »
This is an OCX example of the SetTimer and KillTimer API calls. You can essentially replace the VB timer with this example. The Interval property can be set to as long as 24 days. It also has a ProcessPriority property to easily change the priority of your application. Original Author: Paul Mather Returns Has the same properties and events… Read More »
The following code will add great text effect to your applications. It changes the spacing between the characters. By changing spaces, the characters move on the screen. Original Author: Waty Thierry Inputs obj As ObjectByVal sText As StringByVal lX As LongByVal lY As LongOptional ByVal bLoop As Boolean = FalseOptional ByVal lStartSpacing As Long = 128Optional ByVal lEndSpacing As… Read More »
Converts a name or word string to a four digit code following Soundex rules. Similar code is used by geniological groups and the US Census Bureau for looking up names by phonetic sound. For example, the name Darrell can be spelled many different ways. Regardles of how you spell it, (Daryl, Derrel, Darel, etc.) the Soundex code is… Read More »
Register a system wide hot key Original Author: Andy Barilla API Declarations Const WM_HOTKEY = &H312Const MOD_ALT = &H1Const MOD_CONTROL = &H2Const MOD_SHIFT = &H4Const MOD_WIN = &H8Private Declare Function RegisterHotKey Lib “user32” (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As LongPrivate Declare Function GlobalAddAtom Lib “kernel32” Alias “GlobalAddAtomA” (ByVal… Read More »
When you are creating a sort of Setup program, etc. sometimes you want to replace some system files or delete some other files, however if they are in use by Windows at the time, you can’t. You need to update the files after rebooting, you know that message that says “Please wait while windows updates your configuration files”,… Read More »
This code takes the common dialog color, extracts the R, G, B values, andconverts each value to the correct HEX equivilant supported by HTML. Original Author: Charlie Wilson Inputs Function requires a common dialog control color being selected and passed to thefunction Assumptions You must add the common dialog control to your application. After the ShowOpen eventoccurs, pass the… Read More »
This code is for those people who want to open up folders/directories as separate windows, as compared to the alternative fileboxes. Original Author: Ted R. Smith Assumptions Nothing Returns Opens a folder/directory in a separate window API Declarations Code Directory = “C:”Shell “Explorer ” + Directory, vbNormalFocus’ The above code opens the C: directory as a new window