Category Archives: Microsoft

Checks you Microsoft Outlook Inbox for new Mail Items. Original Author: Tim Ford Assumptions Need to set “References” to Microsoft Outlook. Returns The number of new messages Code Dim objOutlook As Outlook.ApplicationDim objMapiName As Outlook.NameSpaceDim intCountUnRead As IntegerPrivate Sub Check_Mail_Click()Set objOutlook = New Outlook.ApplicationSet objMapiName = objOutlook.GetNamespace(“MAPI”) For I = 1 To objMapiName.GetDefaultFolder(olFolderInbox).UnReadItemCount   intCountUnRead = intCountUnRead + 1 Next… Read More »

Search the internet for web pages or files from your VB App.8 common search engines:AltaVista, Excite, HotBot, Infoseek, Lycos, Yahoo, SoftSeek, AudioFindAn easy to use function.You can add as many Search Engines to the Search-engine list as you want, this list contains 8 search-engines. One of my lists contain 24 common search-engines.Use like this:SearchTheWeb Inputbox(“Enter search-words:”,””,””), wAltaVista Original… Read More »

Get the current username from Windows Original Author: MAGiC MANiAC^mTo Inputs Dim sStr1$sStr1 = CurUserName() Returns ( The current username from Windows )sStr1 = “MAGiC MANiAC^mTo” Code ‘ Get the current username from Windows’ Coded By MAGiC MANiAC^mTo’ More Examples At: http://home.kabelfoon.nl/~mto/’Declare Function GetUserName Lib “advapi32.dll” Alias “GetUserNameA” _ (ByVal lpBuffer As String, nSize As Long) As LongFunction CurUserName$()Dim… Read More »

Connects and Disconnects Network Drives from your System Original Author: MASTER VB PROGRAMMER API Declarations Declare Function WNetConnectionDialog Lib “mpr.dll” (ByVal hwnd As Long, ByVal dwType As Long) As LongDeclare Function WNetDisconnectDialog Lib “mpr.dll” (ByVal hwnd As Long, ByVal dwType As Long) As LongPublic Const RESOURCETYPE_DISK = &H1 Code Private Sub cmdConnect_Click()Dim x As LongIf Index = 0 Thenx… Read More »

This is a standard LZSS compression/decompression engine. It is written in VB for learning purposes, and should be converted to C/C++ if it is to be used with large amounts of data. It uses a dictionary compression algorithm (like ZIP,ARJ and others) and works the best on data with a lot of repetitions. Original Author: Jesper Soderberg Inputs sCompData… Read More »

True window always on top. Like MS toolbar.It floats over any active application is inactive but is still always on top.Allows you to switch between applications and window is still always on top!Much better than Jake McCurry’s lousy Always on top code. Original Author: Liu Yucheng Inputs Window Handle of Window to stay on top. Assumptions Nothing Returns Nothing… Read More »

This program test the Visual Basic program you are currently running. As you will see. Original Author: Preston Smith Assumptions You can adjust the dates for Jan 1st 1930, Jan 1st 2029, Jan 1st 00 and Feb 29 or 30 2000. To see if your version is compliant then you should use 1/1/00 for the year 2000, and 2/29/00… Read More »

This code offers you a strong encryption with RC4. I’ve tested it a lot and it’s the right implementation of the RC4 cipher.‘You can use this code in your commercial code because it’s not patented!‘I know there is another code that deals with RC4 but my code has nothing to do with this code!‘More infos: sci.crypt Original Author: Sebastian… Read More »

This simple little function just returns the total number of records in a ADO recordset. Original Author: Riaan Aspeling Inputs A ADODB.Recordset structure Returns A Long integer with the total number of records Side Effects I believe it’s not the fastest way of retrieving the information but at least it works. I’d like it if somebody can suggest a… Read More »

It automatically makes your form on top until they close or end the program and it is all API free! Original Author: Jake McCurry Code ‘set the timer’s interval to 1Private Sub Timer1_Timer()Form1.ShowForm1.SetFocusEnd Sub