Category Archives: Visual Basic 6 (VB6)

Create/Destroy User on Domain ( Administrating NT)

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 »

Check if dynamic array dimensioned already

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

Copy a database table

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 »

iPage 1.0(Bug Fixed)

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 »

Change Screen Color/Resolution

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 »

LandMass – a random map generator

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 »

Convert currency numbers into text

This function converts numbers (currency) to words including centconversion and cent rounding.Note: ms stores 4 decimal positions internally but displays only 2.In a lot of number to word functions this is not handled and can causeerroneous values… this function corrects for this situation.Baz, Original Author: Newsgroup Posting Assumptions Create a module and copy all the below functions intoit.To use:… Read More »

Get Win95/NT username

95/NT username“Joseph P. Fisher” Original Author: Newsgroup Posting API Declarations Declare Function GetUserName Lib “advapi32.dll” Alias “GetUserNameA” (ByVallpBuffer As String, nSize As Long) As Long Code gsUserId = ClipNull(GetUser()) Function GetUser() As String  Dim lpUserID As String  Dim nBuffer As Long  Dim Ret As Long    lpUserID = String(25, 0)  nBuffer = 25  Ret = GetUserName(lpUserID, nBuffer)  If Ret Then  GetUser$ = lpUserID$  End IfEnd Function  Function ClipNull(InString As String)… Read More »

IconAlbum – An album of icons to add,and catalog

A MUST HAVE PROGRAM ! Very usefull.The IconAlbum is a collection-book (album) where you can store all your icons and view them at the same time. You can add, delete, move, save icons, searchfor icons, make directories to store them in. Very handy when you’re looking for icons you want to use in a program, a toolbar, …Unzipped… Read More »

Internet Costs Controler

If you are an Internet Adicted, then this is a must-have for you!It controls your Internet Connection, cheking if your Online every secound.Remember to set Impulse Time and Cost before using the program, so that it can control the costs! Original Author: Pedro Lamas Attachments File Uploaded Size CODE_UPLOAD1217.zip 9/3/2020 3:45:00 PM 5907