This code makes your form window flash like Aol’s Instant Messanger when it receives a message. Original Author: Ben Doherty Assumptions make a timer and set the interval to 3000. API Declarations private declare function FlashWindow lib “user32” alias “FlashWindow” (ByVal hWnd as long, ByVal bInvert as long) as long Code Private sub timer1_timer()dim nReturnValue as integernReturnValue = FlashWindow(form1.hWnd,… Read More »

As far as I know viruses modify the header of your complied EXE to jump to a different location to execute the virus. This means the header will change and your EXE file will (with some viruses) have the virus attached to the end of the EXE file. I’ve included a module you should use in your EXE… Read More »

Another implementation of LZW compression for compressing VB strings. A 4K dictionary is used as suggested by the algorithm. A binary tree search is used for speeding up dictionary search. It accepts all the 256 characters. *** version 2 (23-Aug-99): bug fixed, performance improved *** Original Author: lcwd Code ‘ Special thanks to Chris Dodge for reporting the bugOption… Read More »

The purpose of this code is to put your application in the startup directory, even without putting it in a setup program. Original Author: Tucker Nance Inputs Private Declare Function GetUserName Lib “advapi32.dll” Alias “GetUserNameA” (ByVal lpBuffer As String, nSize As Long) As Long Assumptions You should put this code in the Form_Load function of your program, you can… Read More »

This code convert a TXT file to EXE file.When you convert the file start the EXE and the old file will be typed(like TYPE command)This is really great codeNOTE : RUN THE .EXE FROM MS-DOS MODE Original Author: Atanas Matev Assumptions Create a label, a command button and common dialog controlChange the Caption of the button to “Select a… Read More »

Do you use different user logins in Windows?Tired of having the same StartUp folder just because the users share the same Start Menu?Then this solves your problem! Original Author: Hyperswede Inputs How to use personal startups.1) Add the source code below to a new project.2) Make an exe file.3) Create a shortcut in your StartUp folder that points to… Read More »

Simple function to check if file exists. Detects Normal & Hidden files. Improvement of code from Greg G., and incorporating a suggestion by Larry Rebich. Original Author: Dan Redding – Blue Knot Software Inputs A Valid Pathname as String. Returns Boolean TRUE if file exists at path specified Side Effects Simply returns FALSE if an invalid path is encountered… Read More »

This program allows simple desktop access the the Microsoft Word spelling and thesaurus engine using OLE Automation.You can Spell Check, Produce Anangrams, use the Thesaurus and look up the meaning of words. THIS IS A COMPLETE WORKING APPLICATION Original Author: Richard Lowe Assumptions Must have Microsoft Word Installed Code ‘===========================================================================’Start a new project’add a ComboBox named cboInput’add a ListBox… Read More »

Converts Hex [0 – FFFFFFFF] to Decimal [0 – 4294967295] using Currency type to avoid the sign bit. Original Author: Larry Serflaten Inputs A valid 1-8 character Hex String Returns A Currency value in the range of 0 – 4294967295 Code Function ConvertHex (H$) As CurrencyDim Tmp$Dim lo1 As Integer, lo2 As IntegerDim hi1 As Long, hi2 As LongConst… Read More »

To every vb coder who once wished his/her program could easily transfer files across the internet (like ICQ): your dream has come true. These 2 simple functions take care of everything!Features:Toolkit provides both sender and receiver with the option to accept or decline the file transfer.A window with progress bar shows users the transfer completion level.Either user may… Read More »