Category Archives: Microsoft

Search the Internet with 8 common search engines!!

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 »

CurUserName

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 »

Connect, Disconnect Networks Drives ( EASILY )

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 »

LZSS Compress/Decompress

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 Always On top With API

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 »

Y2K Test for VB5 and 6

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 »

(Update) RC4 Stream Cipher (with file handling )

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 »

Total Record Count In ADO Recordset

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 »

Make Form always on top without API !

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

Get a file from a FTP server using winsock.

This function shows how to get a file from an FTP site. Original Author: Kristian Trenskow Inputs Make a form (form1) and insert two winsock controls (winsock1 and winsock2). Then insert a command button (command1) and three labels (label1, label2 and label3). Then you need to add a module (module1), and last you need a timer (timer1). That’s it.… Read More »