Page 1 of 1 1
Topic Options
#52174 - 2000-11-09 11:33 PM KixLib32
Bryce Offline
KiX Supporter
*****

Registered: 2000-02-29
Posts: 3167
Loc: Houston TX
Come get it while it is HOT!!

yes that master scripster aka Shawn had come out with a new version of KixLib32

what can it do you ask.... (here is the readme from the zip file.)

code:
Functions for Kixlib32

Kixlib32 is a DLL snapin written by Shawn <?email?>
Be sure to visit http://kixtart.org for all of your KixTart needs.

To install
1. Create c:\Kixlib32
2. Place kixlib32.dll in c:\Kixlib32
3. run the following from a command line.

regsvr32 c:\Kixlib32\kixlib32.dll

You will need administrator access to install this on NT/2000
computers.

*(you can place the dll file in any folder of your choice be sure
to modify instructions to suit)

------------------------------------------------------------------
GetTickCount

Returns the number of milliseconds that have elapsed since the
system was started.

$kixlib=olecreateobject("kixlib32.library")
if @error <> 0
? "You must have kixlib32 installed"
exit
endif
$tick=val(olecallfunc($kixlib,"GetTickCount"))
? "Current tickcount=$tick"

-------------------------------------------------------------------
KBHit

Returns a 1 if a key on the keyboard is currently being pressed.


$kixlib=olecreateobject("kixlib32.library")
if @error <> 0
? "You must have kixlib32 installed"
exit
endif
? "Press Q to quit"
while 1

if olecallfunc($kixlib,"kbhit") = 1
get $key
if $key <> "q"
? "You pressed $key"
else
exit
endif
endif
loop

-------------------------------------------------------------------
SetConsoleCursorVisible


This will set the dos cursor visible or invisible.

Please note: if script is ended while cursor is invisible, cursor
will remain invisible

$kixlib=olecreateobject("kixlib32.library")
if @error <> 0
? "You must have kixlib32 installed"
exit
endif
?"Enter string with cursor visible >" gets $s

$nul=olecallfunc($kixlib,"SetConsoleCursorVisible","s","0")
?"Enter string with cursor Invisible >" gets $s

$nul=olecallfunc($kixlib,"SetConsoleCursorVisible","s","1")
?"Enter string with cursor visible >" gets $s


------------------------------------------------------------------
Sleep

This will sleep for x number of milliseconds

$kixlib=olecreateobject("kixlib32.library")
if @error <> 0
? "You must have kixlib32 installed"
exit
endif
$nul=olecallfunc($kixlib,"sleep","s","90") ;this will sleep for 90 milliseconds


Bryce

[This message has been edited by Bryce (edited 09 November 2000).]

Top
#52175 - 2000-11-10 09:59 PM Re: KixLib32
Anonymous
Unregistered


Is it possible to add a call to the library
for getting or reading text input in GUI mode?

Why does not MESSAGEBOX do this?

Top
#52176 - 2000-11-10 10:10 PM Re: KixLib32
Shawn Administrator Offline
Administrator
*****

Registered: 1999-08-13
Posts: 8611
orobertsen:

I'll work on that one over the weekend !

I was thinking something like this ...

$answer=olecallfunc($kixlib,"PromptBox","s","Enter a string:")

The script would suspend until the user entered a string then hit ok or cancel !

Shawn.

Top
Page 1 of 1 1


Moderator:  Glenn Barnas, NTDOC, Arend_, Jochen, Radimus, Allen, ShaneEP, Ruud van Velsen, Mart 
Hop to:
Shout Box

Who's Online
0 registered and 1636 anonymous users online.
Newest Members
Viginette, ManuvdWielNL, Sir_Barrington, batdk82, StuTheCoder
17888 Registered Users

Generated in 0.051 seconds in which 0.024 seconds were spent on a total of 12 queries. Zlib compression enabled.

Search the board with:
superb Board Search
or try with google:
Google
Web kixtart.org