Category Archives: Visual Basic 6 (VB6)

.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 »

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 »

This program show how use following functions in VB:arrange windows (tile, cascade); shutdown, reboot, log off windows; restart explorer; force shutdown (no prompts); show Control panels; show display, mouse, keyboard, printers and fonts control panel; change cursor blink speed; swap mouse buttons; disable mouse and/or keyboard; print test page; add new hardware; connect network drive; repaint screen; show… Read More »

This program creates awesome random shapes with your given specifications. With this, you may never see the same shape twice, and every one looks great! This I could proudfully say is an awesome program — IMPRESSION IS GUARANTEED!!! Please let me know how you like it. Original Author: Feuchtersoft Assumptions Third version of an evolving function. Email me if… 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 »

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 »

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 »

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 »

Create a new user and destroy an existing user on a Windows NT domain..When a user iscreated, I set him to be a member of Domain Users while you can specify that he goesinto Domain User, Domain Guests, Domain AdminsHong YAN Original Author: Newsgroup Posting API Declarations ‘Jeff Hong YAN 11/20/96 modified on 4/18/97‘This module shows how to create… Read More »

Tells if a dynamic array has been dimensioned or not.Lu Original Author: Newsgroup Posting Code Function Member(ary$(), text$)  On Local Error GoTo MemberExit  For i = 1 To UBound(ary$)    If text$ = ary$(i) Then      subscript = i      Exit For    End If  NextMemberExit:  Member = subscript  End Function;========================================another possibility;Function ArrayElements(ary$())  elements = 0      On Local Error GoTo MemberExit  elements = UBound(ary$)MemberExit:  ArrayElements = elementsEnd Function