Visual Basic Source Code

10 Seconds (Simple Game)

2021-07-24T18:51:00.003-07:00

10 Seconds (Simple Game)

Author:

Matthew Richardson

Version Compatibility: Visual Basic 6

More information:

Each of the nine buttons counts down from 10 to one. Click them to increase them again. When they all reach zero its game over.

Instructions: Click the link below to download the code. Select 'Save' from the IE popup dialog. Once downloaded, open the .zip file from your local drive using WinZip or a comparable program to view the contents.

Download 10_seconds.zip

Calculate a person's age

2018-11-08T22:34:00.004-08:00

Instructions: Copy the declarations and code below and paste directly into your VB project

Declarations:
Const ERR_INVALID_DATE = 20000

Const ERR_INVALID_DATE_MSG = "Date Required"

Code:

'PURPOSE: Calculates a person's age

'PARAMETERS:

' BirthDate: the person's birthdate, in date or string format
'RelativeTo (Optional) the "as of" date. If not specified, the
'current date is used

'RETURNS: The person's age as of the date specified in
'RelativeTo, or as of the current date if RelativeTo isn't
'specified.

Public Function Age(BirthDate As Variant, _
Optional RelativeTo As Variant) As Integer

Dim dBDate As Date, dRelDate As Date
Dim bSubtractOne As Boolean
Dim iAns As Integer

If IsMissing(RelativeTo) Then
RelativeTo = Now
ElseIf Not IsDate(RelativeTo) Then
err.Raise ERR_INVALID_DATE, , ERR_INVALID_DATE_MSG
End If

If Not IsDate(BirthDate) Then err.Raise ERR_INVALID_DATE, , _
ERR_INVALID_DATE_MSG

dBDate = CDate(BirthDate)
dRelDate = CDate(RelativeTo)
iAns = Year(dRelDate) - Year(dBDate)

If Month(dBDate) <> Month(dRelDate) Then
bSubtractOne = Month(dBDate) > Month(dRelDate)
Else
bSubtractOne = Day(dBDate) > Day(dRelDate)
End If

If bSubtractOne Then iAns = iAns - 1
Age = iAns

End Function

Coming Soon....

2015-11-29T11:24:00.000-08:00

Coming Soon....see you again

Peer-to-Peer Chat and File Sharing Application (v 1.3)

2009-04-01T20:57:00.000-07:00

Version Compatibility: Visual Basic 6

More information: This is a peer-to-peer TCP/IP application that lets you share files from the directory of your choice, download files from other machines running the program to the directory of your choice, upload files to otherse, chat with whomever is connected to you, and search for files on other machines running the application.

Version 1.3, the fourth release, adds a few new features as compared to 1.0, such as the ability to record and send .wav files to others, and easing the process of sharing files over the Internet. Also, a few minor bugs were fixed and the code is cleaner.

This code has been viewed 110326 times.

Instructions: Click the link below to download the code. Select 'Save' from the IE popup dialog. Once downloaded, open the .zip file from your local drive using WinZip or a comparable program to view the contents.
code/PrivaShare.zip

PageBurner - Web Site Management System

2009-04-01T20:56:00.000-07:00

Version Compatibility: Visual Basic 5 Visual Basic 6

More information: http://www.wku.edu/~david.degner/pageburner/index.html

PageBurner is a full sized aplication that I developed for a Camera store to sell its old cameras online (www.mikesclassiccameras.com). It has a simple interface for the end user to enter item information and then the just press upload. It will seamlessly FTP any changed or new pages and images to the Web Site. It takes a little time to set up but once the information is entered it never has to be touched again. It is good for giving to people who know nothing about the internet.

This code has been viewed 49234 times.

Instructions: Click the link below to download the code. Select 'Save' from the IE popup dialog. Once downloaded, open the .zip file from your local drive using WinZip or a comparable program to view the contents.
Source/PageBurner.zip

Office Messenger: TCP/IP Client/Server Messaging Program

2009-04-01T20:55:00.000-07:00

Version Compatibility: Visual Basic 6

More information: Office Messenger is an email-messaging program designed like Outlook 2000; it allows multiple users to interact using instant messaging and online/offline status's. The Server application connects to a Microsoft Access Database, and uses ADO and DAO components, to create/delete tables on the fly whenever a new user was registered. Each table maintains all individuals messages and enabled users to delete each record or batched. Controlled features allowed creating new database fields, adding new records, dropping record values into other fields, creating new tables, compress and repair the database, verify username and password against the database for additional security. These tasks are activated in the User Interface remotely via Internet access or LAN.

Key Features:

* Open Source Code to Compress a Access Table.
* Create Multi User environments with Winsock Controls.
* Authenticate a single user against a record set in a Access Table.
* Broadcast online user lists to other users connected via Tree View Control.
* Create/Delete separate Tables for new users on the fly.
* Download and Export messages to a C.S.V format
* Create New Records (when new message has been sent)
* Delete a batch of Records (Rubbish Bin)
* Modify or transfer Record item to another Field (Drag Drop)
* Add/Delete Fields.
* Sends Email through to server application.

This code has been viewed 105951 times.

Instructions: Click the link below to download the code. Select 'Save' from the IE popup dialog. Once downloaded, open the .zip file from your local drive using WinZip or a comparable program to view the contents.
source/OFM.zip

Network Neigborhood

2009-04-01T20:54:00.001-07:00

Version Compatibility: Visual Basic 5 Visual Basic 6

More information: This is an object-oriented application that displays available network resources in a treeview control.

This code has been viewed 80813 times.

Instructions: Click the link below to download the code. Select 'Save' from the IE popup dialog. Once downloaded, open the .zip file from your local drive using WinZip or a comparable program to view the contents.
code/NWHood.zip

MSN Client Version 1.2

2009-04-01T20:53:00.001-07:00

Version Compatibility: Visual Basic 5 Visual Basic 6

More information: Shows you how to connect to the msn server. Also shows you how to manage multiple connections with the msn servers for messaging.

Upgraded to version 1.1, 04/08/02 to support file transfer and the latest MSN protocol, version 7. View the README as it explains most of what has been done. Upgraded to version 1.2, 08/19/02; a few bug fixes and improvements.

This code has been viewed 77616 times.

Instructions: Click the link below to download the code. Select 'Save' from the IE popup dialog. Once downloaded, open the .zip file from your local drive using WinZip or a comparable program to view the contents.
source/xmsn.zip

LAN/Internet Mail Server

2009-04-01T20:51:00.000-07:00

Version Compatibility: Visual Basic 6

More information: Demonstrating the inner workings of the POP3 connectors and SMTP connectors interoperating in separate ActiveX controls, the structure of the protocols are specified from the RFC sections. The SMTP protocol saves all messages into a Microsoft Access Database (MDB) using ADO 2.1, and users can change the code to link a SQL Server database easily enough if need to, which would be handy, as you can publish SQL Servers over the internet for remote access, or replication the emails between to different locations. But for now I have it set up for a centralised database which can be shared for to instances of this mail server for load balancing and network traffic. There are two types of SMTP connectors SMTP Direct and SMTP Relay both are demonstrated and commented. This is a grouped project so remember to open the ExchangeStore.vbg file as it will open the custom controls first. To get started create a new account in Outlook 2000/Express or any other email client, point the smtp/pop connections to the your development computer and username=chris password=password.

This code has been viewed 76569 times.

Instructions: Click the link below to download the code. Select 'Save' from the IE popup dialog. Once downloaded, open the .zip file from your local drive using WinZip or a comparable program to view the contents.
source/Exchange.zip

Internet Explorer History and Cookies Viewer

2009-04-01T20:50:00.000-07:00

Version Compatibility: Visual Basic 6

More information: This is first trial in freevbcode to show internet explorer history with ability to delete stored all internet cache or selected visited site

This code has been viewed 60926 times.

Instructions: Click the link below to download the code. Select 'Save' from the IE popup dialog. Once downloaded, open the .zip file from your local drive using WinZip or a comparable program to view the contents.
source/I_History.zip

Intelligent Search for Available .COM and .CO.UK Domain Names

2009-04-01T20:49:00.000-07:00

Version Compatibility: Visual Basic 6

More information: This is a very useful utility for anybody who has to search for available domain names. Not only does it search for the domain name you specify, it also searches for similar ones -- AND you can configure how the search for similar domain names will function. The search is conducted on .com and .co.uk domain names, but you can easily change the code to search on other top-level domains such as .net and .org.

This code has been viewed 56394 times.

Instructions: Click the link below to download the code. Select 'Save' from the IE popup dialog. Once downloaded, open the .zip file from your local drive using WinZip or a comparable program to view the contents.
code/DomainSearch.zip

Http Server

2009-04-01T20:48:00.000-07:00

Version Compatibility: Visual Basic 5 Visual Basic 6

More information: This is a web server written entirely in visual basic. Includes a number of features that can be toggled on or off, including logging. Good for learning about the http protocol and how to develop an internet server application.

This code has been viewed 91066 times.

Instructions: Click the link below to download the code. Select 'Save' from the IE popup dialog. Once downloaded, open the .zip file from your local drive using WinZip or a comparable program to view the contents.
code/http_server.zip

Get Weather Conditions For Almost Any Region Of The World

2009-04-01T20:46:00.000-07:00

Version Compatibility: Visual Basic 5 Visual Basic 6

More information: Gives you 10 day weather forecasts for almost every region of the world, even shows weather conditions graphically. See weather imagery maps as well. It works by connecting to weather.com, and you can configure it to get an XML feed using MSXML library.

This code has been viewed 77207 times.

Instructions: Click the link below to download the code. Select 'Save' from the IE popup dialog. Once downloaded, open the .zip file from your local drive using WinZip or a comparable program to view the contents.
code/weather.zip

FTP Client Using WinInet.dll

2009-04-01T20:45:00.000-07:00

Version Compatibility: Visual Basic 6

More information: This is an FTP Client built on top of the FTP transfer class available at http://www.freevbcode.com/ShowCode.ASP?ID=1593. It uses the WinInet .dll which in my experience is more reliable and robust than the Internet Transfer control. It has some very nice user interface features and you can save information about FTP sites you frequently connect to.

This code has been viewed 140231 times.

Instructions: Click the link below to download the code. Select 'Save' from the IE popup dialog. Once downloaded, open the .zip file from your local drive using WinZip or a comparable program to view the contents.
code/FTP_Client_by_SMC.zip

FreeVBCode Code Browser

2009-04-01T20:42:00.000-07:00

Version Compatibility: Visual Basic 6

More information: This is a small application that makes use of the IE Webbrowser control, and it's DOM to create a browsable tree view of the code on this web site.

This is more of a feeler to see if such a thing is useful. Currently cannot search, no forum support and code can only be viewed from it's sub categories (beginner, intermediate, advanced, snippet, application etc..) and not all the entries. However, does have the advantage of eliminating pop-up and banner ads. Also very good illustrationg of applying the DOM to HTML.

Code is commented and may provide useful information about using the HTML DOM. Including getting around the problem of the .href property not always working for document.links(n).href.

This code has been viewed 101572 times.

Instructions: Click the link below to download the code. Select 'Save' from the IE popup dialog. Once downloaded, open the .zip file from your local drive using WinZip or a comparable program to view the contents.
source/FreeVBCodeBrowse.zip

Firewall Application

2009-04-01T20:41:00.000-07:00

Version Compatibility: Visual Basic 6

More information: SibairWall is a FireWall application that uses advanced windows functions and can detect attacks by 130 different trojans.

This code has been viewed 112216 times.

Instructions: Click the link below to download the code. Select 'Save' from the IE popup dialog. Once downloaded, open the .zip file from your local drive using WinZip or a comparable program to view the contents.
code/SibairWall.zip

E-checker: Checks E-mail at Predefined Intervals

2009-04-01T20:38:00.000-07:00

Version Compatibility: Visual Basic 5 Visual Basic 6

More information:

* In spanish & english (with string resources).
* To use in english, add the "english" parameter in the command line.
* Optionally, can show message senders & headers.
* Illustrates implementation of POP3 protocol.
* Requires winsock.ocx

This code has been viewed 89648 times.

Instructions: Click the link below to download the code. Select 'Save' from the IE popup dialog. Once downloaded, open the .zip file from your local drive using WinZip or a comparable program to view the contents.
code/E-Checker.zip

CryptIM: Fully Encrypted Instant Messaging System

2009-04-01T20:36:00.000-07:00

Version Compatibility: Visual Basic 6

More information: IM server and client, with multi-user chat, friends list, blocked user list, tons of encryption, great error checking, and a whiteboard. Other features include friends lists, block lists, favorite channels/rooms lists for the multi-user chat rooms, and more. Register all .dlls/.ocxs in Other folder (code for all included). See readme.txt file for more information.

The project's homepage is http://vb.sc.am

Updated 05/27/02; latest version includes invite only channels, user groupings, and many other enhancements, as well as fixes and optimizations.

This code has been viewed 78856 times.

Instructions: Click the link below to download the code. Select 'Save' from the IE popup dialog. Once downloaded, open the .zip file from your local drive using WinZip or a comparable program to view the contents.
source/CryptIM.zip

Create a chat room using the Winsock control.

2009-04-01T20:35:00.000-07:00

Version Compatibility: Visual Basic 5 Visual Basic 6

More information: Create a chat room in VB which allows multiple people to chat and draw pictures.

(From FreeVBCode.com) This is an excellent application for anybody who wants to learn how to manage multiple winsock connections. The code is well-commented. A good way to see how it works is to 1) Compile the application. 2) Run three instances of it, and on one of them, click Host. 3) Use the other two instances as if two people are chatting with each other.

This code has been viewed 162438 times.

Instructions: Click the link below to download the code. Select 'Save' from the IE popup dialog. Once downloaded, open the .zip file from your local drive using WinZip or a comparable program to view the contents.
code/manychat.zip

Complete UI for Sending Email

2009-04-01T20:33:00.000-07:00

Version Compatibility: Visual Basic 6

More information: This is a smart email sending application. It has some good features like CC, BCC, Multiple attachments, HTML Format (Embedded image), Address book, HTML Design tool etc. I am using vbSendMail Class for sending mails (http://www.freevbcode.com/ShowCode.asp?ID=109). Though this is essentially just a front end for that class, it is very complete and if you ever need to put a send email form into a vb 6 application, this could provide a ready to use alternative to just opening the default email client.

This code has been viewed 81627 times.

Instructions: Click the link below to download the code. Select 'Save' from the IE popup dialog. Once downloaded, open the .zip file from your local drive using WinZip or a comparable program to view the contents.
source/SmartEasyMail.zip

Bandwith Monitor

2009-04-01T20:32:00.000-07:00

Version Compatibility: Visual Basic 6

More information: A program for monitoring bandwith usage as well as a demo of UI techniques, such as a form that will blend into your desktop so it looks like it is part of it. The stats form that will "Roll" out of the main form. It will remember where you have your forms at startup, has many options and is very custmizable.

This code has been viewed 120992 times.

Instructions: Click the link below to download the code. Select 'Save' from the IE popup dialog. Once downloaded, open the .zip file from your local drive using WinZip or a comparable program to view the contents.
source/CS_Bandwidth_Monitor.zip

AOL Instant Messenger Client

2009-04-01T20:25:00.000-07:00

Version Compatibility: Visual Basic 6

More information: No, this does not just send keys to the AOL instant messenger window. It actually a easy to use client that implements part of the AOL Instant Messenging protocol.

This code has been viewed 101012 times.

Instructions: Click the link below to download the code. Select 'Save' from the IE popup dialog. Once downloaded, open the .zip file from your local drive using WinZip or a comparable program to view the contents.
code/vb-aim.zip

Backup tool for ms-access

2009-03-30T12:54:00.000-07:00

Version Compatibility: Visual Basic 6

This code has been viewed 39219 times.

Instructions: Click the link below to download the code. Select 'Save' from the IE popup dialog. Once downloaded, open the .zip file from your local drive using WinZip or a comparable program to view the contents.
Source/0305/backuptool.zip

Archiving Program

2009-03-30T12:48:00.000-07:00

Version Compatibility: Visual Basic 5 Visual Basic 6

More information: A file archiving program that operates much like WinZip (Note: Not compatible with Winzip). Demonstrates how archiving works, and how to create file associations.

This code has been viewed 36889 times.

Instructions: Click the link below to download the code. Select 'Save' from the IE popup dialog. Once downloaded, open the .zip file from your local drive using WinZip or a comparable program to view the contents.
Code.Zip

A Simple to Use PDF Parser

2009-03-30T12:46:00.000-07:00

Version Compatibility: Visual Basic 6

More information: The included download project is a simple interface to parse the encoded contents of a PDF file. There is a PDF file included in the download for testing, but you can select your own PDF as well.

This code has been viewed 14767 times.

Instructions: Click the link below to download the code. Select 'Save' from the IE popup dialog. Once downloaded, open the .zip file from your local drive using WinZip or a comparable program to view the contents
Code.zip