Have you ever wanted to use VB Forms and Controls without using HTML stuff in VBscript?
Have you ever wanted to use, call the API in VBscript?
I will share my VB6-Dll and helper dll, it will let you use VB Forms and Controls and call the API.
Here are the Methods and Properties, look @ the .VBS files to get the details.
Register the DLL before running VBS's.
The VB6-Dll will write once (if not there) a helper Dll called "CallDll.dll" in "c:\WINDOWS\Temp".
Set_Window - Setup your Gui(Window) (if X and Y = 0 Gui is centered)
Set_Control - Setup your Controls on Gui
Obj2Ptr - Get a pointer from an object
NoFocus_On - Remove focus lines on controls that have them
Show_Window - Show Gui(Window Obj)
Close_Window - Close Gui(Window Obj)
CallDll - Dynamically call a function in a DLL
PeekByte - Look @ byte data from memory location
PeekLong - Look @ long data from memory location
PeekWord - Look @ word data from memory location
PokeByte - Set byte data @ memory location
PokeLong - Set Long data @ memory location
PokeWord - Set word data @ memory location
Click - Click an object returns the pointer to the object
Index - Get VB's index object (some VB objects use and set an index)
DllActive - Return the number of open VB windows
BorderStyle - Set Gui(Window) border style
0=None,1=Fixed Single,2=Sizable,3=Fixed Dialog,4=Fixed ToolWindow,
5=Sizable ToolWindow (*Must be set before Set_Window()*)
If style is 0(none) the mouse will automatically drag the window.
vbTagColor - Set the background color property of a command button for mouse over effect
(default is RED)
To use this property set 'Tag' to True of the command button object.
If a Picture object is set for command button along with the DownPicture property,
set the 'Tag' property to a picture file name for mouse over picture.
These are the controls you can use, each one returns an object.
PictureBox (If X,Y,W,H are 0 the picture will tile)
ToggleButton (Is a formated CheckBox)
This Dll must be there for the VB6-Dll to work.
If you need a pointer or structure(type data) for any API, just use "GlobalAlloc" and calulate the
byte data needed. Api5.vbs uses "GlobalAlloc" to setup the RECT structure, 4(long)*4(size in bytes)=16.
Api5.vbs is a little jurkie, flying in space, tried to setup a back buffer (commented lines) but did
EXAMPLE: pRC=[obj].CallDll("Kernel32","GlobalAlloc",&h40,16) &h40=GPTR 16=RECT structure size
LONG left =pRC
LONG top =pRC+4
LONG right =pRC+8
not work, so you can see with the API you just have to play with it to see what will work.
Run the .VBS files to see how it all works, and remember... have fun.