The following function creates a user. You can execute it under any user you like.dror-a@euronet.co.il (Dror Dotan A’) Original Author: Newsgroup Posting API Declarations const ADMIN_USERNAME = “Admin”const ADMIN_PASSWORD = “adminpass (or whatever)”const SHOWICON_STOP = 16 Code Function CreateNewUser% (ByVal username$, ByVal password$, ByVal PID$)  ‘- create a new user.  ‘- username$ – name  ‘- password$ – user password  ‘- PID$ – PID… Read More »

.INI read/write routinesmfncGetFromIni– Reads from an *.INI file strFileName (full path & file name)mfncWriteIni–Writes to an *.INI file called strFileName (full path & file name)sitush@aol.com Original Author: Newsgroup Posting Returns mfncGetFromIni–The string stored in [strSectionHeader], line beginning strVariableNamemfncWriteIni–Integer indicating failure (0) or success (other) to write API Declarations Declare Function GetPrivateProfileString Lib “Kernel” (ByVallpApplicationName As String, lpKeyName As Any,… Read More »

This is an example of using DX7 DirectPlay4. Program allows you to connect and play a basic tic tac toe game over ipx, tcp/ip, or modem against another player with the same program installed. This program includes a basic chat program. All of the multiplayer code is done with directplay4. This is a multiplayer tic tac toe game… Read More »

This Is A Fully Featured Game. IF YOU PROGRAM GAMES IN VB YOU MUST SEE THIS ! The aim of the game is to save earth (it is set in the future). This GameIncludesOver 60 files, of which 25+ Contain vb-programming !!.It Aslo Includes PicClp32 (ver. 6) For The Vb5 Users, So There Should BeNo Problems Original Author: Arvinder… Read More »

NetworkRoutines:DisconnectNetworkDrive, MapNetworkDrive,GetUserName,GetUNCPath,etc.proactiv@ssnet.com (Kenneth L. Rosenberg) Original Author: Newsgroup Posting API Declarations Private Declare Function WNetAddConnection Lib “mpr.dll” Alias“WNetAddConnectionA” (ByVal lpszNetPath As String, ByVal lpszPasswordAs String, ByVal lpszLocalName As String) As LongPrivate Declare Function WNetGetConnection Lib “mpr.dll” Alias“WNetGetConnectionA” (ByVal lpszLocalName As String, ByVallpszRemoteName As String, cbRemoteName As Long) As LongPrivate Declare Function WNetCancelConnection Lib “mpr.dll” Alias“WNetCancelConnectionA” (ByVal lpszName As String,… Read More »

A short routine that backups the tables from an open Access databaseGeorge Kinney Original Author: Newsgroup Posting Assumptions Right now it is basic, it assumes that the tables to backup are in the local database (easily changed, just haven’t had a chance to do it.), and just exports EVERYTHING that isn’t filtered out. A number of improvements can (and… Read More »

LandMass is based on the old Commodore 64 game “Lords of Conquest” by Electronic Arts. This game played a little bit like the board game Risk, only there were different playing pieces and –here’s the cool part– the playfield was generated randomly, so that no two games were the same. As it stands right now, LandMass simply generates… Read More »

This code from PC Magazine (and it is FREE! Public Domain), will display available screen resolutions and color depths (4bit, 8bit, etc…) on a user’s computer. The best thing about this, is that the user can change the resolution. It will prompt the user to reboot, if needed. Notice that the List box highlights the current resolution when… Read More »

This Program lets you chat in colorno rich text boxes required this Program usesPictureboxes to Display Messages. It Even letsyou send color faded messages also Bolded,Italic,Underlined,E|_?í_|_E(Elite),H4CK323D(Hackered),sdrawkcaB(Backwards),Echo cho ho o(Echoed),AlTeRnAtIvE CaPeD(Alternative Caps) and morefuture version can be expected in next monthwhich will have the ability to send files and imagesAnother Feature is that it lets you filter bad langugereplacing… Read More »

How to copy a database table. This may require some tweaking….“Bill Pearson” Original Author: Newsgroup Posting Code Private Sub Form_Load()    Dim dbFrom As Database  Dim dbTo  As Database    Set dbFrom = workspaces(0).opendatabase(“c:vb4iblio.mdb”)  Set dbTo = workspaces(0).opendatabase(“c:vb4iblio.mdb”)    db_Copy_Tabledef dbFrom, dbTo, “Authors”, “CopyOfAuthors”    dbFrom.Close  dbTo.Close  End SubPublic Function db_Copy_Tabledef(dbFrom As Database, dbTo As Database,TableNameFrom As String, TableNameTo As String) As Boolean    Dim tdFrom    As TableDef  Dim tdTo     As TableDef  Dim fldFrom   As Field  Dim fldTo    As… Read More »