MCA
KiX Supporter
Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
|
Dear,An update of kixref.exe has coming. Two things are included:
- new: translate boldsymbols.
- kixtart commands will be uppercase.
- kixtart functions will be a mix of upper- and lower-case.
- kixtart macro's will be lowercase.
- kixtart labels will be lowercase.
- kixtart variables will be lowercase
call of program: kixref input output /translate
- fix: minor problem by string handling.
Actual help information (short edition: kixref): code:
Kixref 3.62 (vs 1.37e) MCA - scripting@wanadoo.nl - 2000
------------------------------------------------------------------------------
Kixref [input] [output] [options]
?
show
options: /Block_Check or /BC /Bold
/Ref /Source
/NoBlock_Check or /NoBC /NoBold
/NoRef /NoSource /DATE_TIME or /DT /DATE_TIME=$date
/DATE_TIME=none /DATE_TIME=[var]
/Header /Number
/NoHeader /NoNumber
/Landscape /Portrait
/PL=[number] /PW=[number]
/Sub_Title or /ST /Title or /T /Translate /NoTranslate
/NoMSG default: /Block_Check /Bold /NoMsg /Ref /Source
Actual help information (long edition: kixref ?): code:
Kixref 3.62 (vs 1.37e) MCA - scripting@wanadoo.nl - 2000
------------------------------------------------------------------------------
Kixref [input] [output] [options]
?
show
options: /BLOCK_CHECK or /BC
/BOLD <-> /NOBOLD
/NOBLOCK_CHECK <-> /BLOCK_CHECK
/NOBOLD <-> /BOLD
/NOREF <-> /REF
/NOSOURCE <-> /SOURCE
/REF <-> /NOREF
/SOURCE <-> /NOSOURCE /TRANSLATE <-> /NOTRANSLATE /DATE_TIME or /DT /DATE_TIME=$date
/DATE_TIME=none /DATE_TIME=[var]
/HEADER <-> /NOHEADER
/LANDSCAPE
/NOHEADER <-> /HEADER
/NOMSG <-> /MSG
/NONUMBER or /SUP <-> /NUMBER
/NUMBER <-> /NONUMBER or /SUP
/PORTRAIT
/PL=[number] /PW=[number]
/SUB_TITLE or /ST or /SUB_TITLE=[var]
/TITLE or /T or /TITLE=[var] /MSG <-> /NOMSG
/SHOW
Translation table of kixtart commands, functions + macro's: code:
functions = AddKey
functions = AddPrinterConnection
functions = AddProgramGroup
functions = AddProgramItem
macro's = address
boolean = AND
functions = Asc
functions = At
functions = BackupEventLog
commands = BEEP
commands = BIG
functions = Box
commands = BREAK
commands = CALL
commands = CASE
commands = CD
functions = Chr
functions = ClearEventLog
functions = Close
commands = CLS
commands = COLOR
macro's = comment
functions = CompareFileTimes
commands = COOKIE1
commands = COPY
macro's = curdir
macro's = date
macro's = day
functions = DecToHex
commands = DEL
functions = DelKey
functions = DelPrinterConnection
functions = DelProgramGroup
functions = DelProgramItem
functions = DelTree
functions = DelValue
commands = DIM
functions = Dir
commands = DISPLAY
commands = DO
macro's = domain
macro's = dos
commands = ELSE
commands = ENDIF
commands = ENDSELECT
functions = EnumGroup
functions = EnumKey
functions = EnumLocalGroup
functions = EnumValue
macro's = error
functions = Execute
functions = Exist
functions = ExistKey
commands = EXIT
functions = ExpandEnvironmentVars
commands = FLUSHKB
macro's = fullname
commands = GET
functions = GetDiskSpace
functions = GetFileAttr
functions = GetFileSize
functions = GetFileTime
functions = GetFileVersion
commands = GETS
commands = GLOBAL
commands = GO
commands = GOSUB
commands = GOTO
macro's = homedir
macro's = homedrive
macro's = homeshr
macro's = hostname
commands = IF
functions = Ingroup
functions = Instr
macro's = inwin
macro's = ipaddress0
macro's = ipaddress1
macro's = ipaddress2
macro's = ipaddress3
macro's = kix
macro's = lanroot
functions = Lcase
macro's = ldomain
macro's = ldrive
functions = Len
macro's = lm
functions = LoadHive
functions = LoadKey
functions = LogEvent
functions = Logoff
macro's = longhomedir
commands = LOOP
macro's = lserver
functions = Ltrim
macro's = maxpwage
commands = MD
macro's = mdayno
functions = MessageBox
macro's = month
macro's = monthno
functions = OleCallFunc
functions = OleCallProc
functions = OleCreateObject
functions = OleEnumObject
functions = OleGetObject
functions = OleGetProperty
functions = OleGetSubObject
functions = OlePutProperty
functions = OleReleaseObject
functions = Open
boolean = OR
commands = PASSWORD
commands = PLAY
macro's = primarygroup
macro's = priv
macro's = pwage
commands = QUIT
macro's = ras
commands = RD
functions = ReadLine
functions = ReadProfileString
functions = ReadType
functions = ReadValue
functions = RedirectOutput
commands = RETURN
functions = Rnd
macro's = rserver
functions = Rtrim
commands = RUN
functions = SaveKey
macro's = scriptdir
commands = SELECT
functions = SendKeys
functions = SendMessage
macro's = serror
commands = SET
functions = SetAscii
functions = SetConsole
functions = SetDefaultPrinter
functions = SetFileAttr
functions = SetFocus
commands = SETL
commands = SETM
commands = SETTIME
functions = SetWallPaper
commands = SHELL
functions = ShowProgramGroup
functions = Shutdown
macro's = sid
macro's = site
commands = SLEEP
commands = SMALL
functions = Srnd
macro's = startdir
functions = Substr
macro's = syslang
macro's = time
functions = Ucase
functions = UnloadHive
commands = UNTIL
commands = USE
macro's = userid
macro's = userlang
functions = Val
macro's = wdayno
commands = WHILE
macro's = wksta
functions = WriteLine
functions = WriteProfileString
functions = WriteValue
macro's = wuserid
macro's = ydayno
macro's = year
Example (input): code:
$MACADD = @address
$StDir = @startdir
call '01login.kix'
$filename = $INIFILE
$section = 'Survey'
$key = 'StartTime'
$string = $STIME
$WriteString = WRITEPROFILESTRING('$filename', '$section', '$key', '$string')
$key = 'EndTime'
$string = $ETIME
$WriteString = WRITEPROFILESTRING('$filename', '$section', '$key', '$string')
call '02globvar.kix'
call '03ulckdktp.kix'
call '04uaffil.kix'
call '05runmsd.kix'
:readrpt
:checkmac
IF $MACADD = '000000000000'
Select
Case Open(1,'c:\demerge\report.msd') = 0
$line = Readline(1)
:again
WHILE @ERROR = 0
SELECT
CASE INSTR($line,"Physical Station Number:")
$MACADD = SUBSTR(LTRIM(RTRIM($line)),LEN(LTRIM(RTRIM($line))) - 13 , 4 )
$MACADD = $MACADD +
SUBSTR(LTRIM(RTRIM($line)),LEN(LTRIM(RTRIM($line))) - 8 , 4 )
$MACADD = $MACADD +
SUBSTR(LTRIM(RTRIM($line)),LEN(LTRIM(RTRIM($line))) - 3 , 4 )
close (1)
goto 'contin'
CASE INSTR($line,"NetBIOS Card Information:")
$line = Readline(1)
$MACADD = SUBSTR(LTRIM(RTRIM($line)),LEN(LTRIM(RTRIM($line))) - 11 , 12 )
close (1)
goto 'contin'
ENDSELECT
$line = Readline(1)
LOOP
close (1)
$mheader = 'Unable to find MacAddress'
$message = $mheader + Chr(10) + Chr(10)
$message = $message + 'WINIPCFG will be launched.' + Chr(10)
$message = $message + 'Enter MacAddress on the next Survey Screen'
$selection = MESSAGEBOX($message, $mheader, 16)
RUN 'c:\windows\winipcfg.exe'
:nomac
Color b/n
BOX (8,21,20,61,Å)
Color g+/n
BOX (7,20,19,60,FULL)
$instruct1 = 'Enter "Adapter Address" below'
$instruct2 = 'Example -> 00CO4F8CB1FB'
$Selection = 'MAC ADDRESS: '
$LenIns1 = 20 + ((40 - LEN($instruct1))/2)
$LenIns2 = 20 + ((40 - LEN($instruct2))/2)
AT(9,$LenIns1) $instruct1
AT(11,24) $instruct2
AT(17,24) $Selection
$x = (LEN($Selection) + 24)
AT(17,$x) Get $Ans
Select
Case LEN($Ans) = 12
$MACADD = $Ans
goto 'contin'
Case LEN($Ans) <> 12
goto 'nomac'
EndSelect
Case Open(1,'c:\demerge\report.msd') <> 0
? "Unable to open 'report.msd'... survey halted!"
get $x
quit
EndSelect
EndIF
:contin
$filename = $INIFILE
$section = 'Computer'
$key = 'MacAddress'
$string = $MACADD
$WriteString = WRITEPROFILESTRING('$filename', '$section', '$key', '$string')
$messenger = 'Credit4Survey'
call 'messenger.kix'
Example (output): code:
$macadd = @address
$stdir = @startdir
CALL '01login.kix'
$filename = $inifile
$section = 'Survey'
$key = 'StartTime'
$string = $stime
$writestring = WriteProfileString('$filename', '$section', '$key', '$string')
$key = 'EndTime'
$string = $etime
$writestring = WriteProfileString('$filename', '$section', '$key', '$string')
CALL '02globvar.kix'
CALL '03ulckdktp.kix'
CALL '04uaffil.kix'
CALL '05runmsd.kix'
:readrpt
:checkmac
IF $macadd = '000000000000'
SELECT
CASE Open(1,'c:\demerge\report.msd') = 0
$line = ReadLine(1)
:again
WHILE @error = 0
SELECT
CASE Instr($line,"Physical Station Number:")
$macadd = Substr(Ltrim(Rtrim($line)),Len(Ltrim(Rtrim($line))) - 13 , 4 )
$macadd = $macadd +
Substr(Ltrim(Rtrim($line)),Len(Ltrim(Rtrim($line))) - 8 , 4 )
$macadd = $macadd +
Substr(Ltrim(Rtrim($line)),Len(Ltrim(Rtrim($line))) - 3 , 4 )
Close (1)
GOTO 'contin'
CASE Instr($line,"NetBIOS Card Information:")
$line = ReadLine(1)
$macadd = Substr(Ltrim(Rtrim($line)),Len(Ltrim(Rtrim($line))) - 11 , 12 )
Close (1)
GOTO 'contin'
ENDSELECT
$line = ReadLine(1)
LOOP
Close (1)
$mheader = 'Unable to find MacAddress'
$message = $mheader + Chr(10) + Chr(10)
$message = $message + 'WINIPCFG will be launched.' + Chr(10)
$message = $message + 'Enter MacAddress on the next Survey Screen'
$selection = MessageBox($message, $mheader, 16)
RUN 'c:\windows\winipcfg.exe'
:nomac
COLOR b/n
Box (8,21,20,61,Å)
COLOR g+/n
Box (7,20,19,60,full)
$instruct1 = 'Enter "Adapter Address" below'
$instruct2 = 'Example -> 00CO4F8CB1FB'
$selection = 'MAC ADDRESS: '
$lenins1 = 20 + ((40 - Len($instruct1))/2)
$lenins2 = 20 + ((40 - Len($instruct2))/2)
At(9,$lenins1) $instruct1
At(11,24) $instruct2
At(17,24) $selection
$x = (Len($selection) + 24)
At(17,$x) GET $ans
SELECT
CASE Len($ans) = 12
$macadd = $ans
GOTO 'contin'
CASE Len($ans) <> 12
GOTO 'nomac'
ENDSELECT
CASE Open(1,'c:\demerge\report.msd') <> 0
? "Unable to open 'report.msd'... survey halted!"
GET $x
QUIT
ENDSELECT
ENDIF
:contin
$filename = $inifile
$section = 'Computer'
$key = 'MacAddress'
$string = $macadd
$writestring = WriteProfileString('$filename', '$section', '$key', '$string')
$messenger = 'Credit4Survey'
CALL 'messenger.kix'
The original source looks like: code:
$MACADD = @address
$StDir = @startdir
call '01login.kix'
$filename = $INIFILE
$section = 'Survey'
$key = 'StartTime'
$string = $STIME
$WriteString = WRITEPROFILESTRING('$filename', '$section', '$key',
'$string')
$key = 'EndTime'
$string = $ETIME
$WriteString = WRITEPROFILESTRING('$filename', '$section', '$key',
'$string')
call '02globvar.kix'
call '03ulckdktp.kix'
call '04uaffil.kix'
call '05runmsd.kix'
:readrpt
:checkmac
IF $MACADD = '000000000000'
Select
Case Open(1,'c:\demerge\report.msd') = 0
$line = Readline(1)
:again
WHILE @ERROR = 0
SELECT
CASE INSTR($line,"Physical Station Number:")
$MACADD = SUBSTR(LTRIM(RTRIM($line)),LEN(LTRIM(RTRIM($line))) -
13 , 4 )
$MACADD = $MACADD +
SUBSTR(LTRIM(RTRIM($line)),LEN(LTRIM(RTRIM($line))) - 8 , 4 )
$MACADD = $MACADD +
SUBSTR(LTRIM(RTRIM($line)),LEN(LTRIM(RTRIM($line))) - 3 , 4 )
close (1)
goto 'contin'
CASE INSTR($line,"NetBIOS Card Information:")
$line = Readline(1)
$MACADD = SUBSTR(LTRIM(RTRIM($line)),LEN(LTRIM(RTRIM($line))) -
11 , 12 )
close (1)
goto 'contin'
ENDSELECT
$line = Readline(1)
LOOP
close (1)
$mheader = 'Unable to find MacAddress'
$message = $mheader + Chr(10) + Chr(10)
$message = $message + 'WINIPCFG will be launched.' + Chr(10)
$message = $message + 'Enter MacAddress on the next Survey
Screen'
$selection = MESSAGEBOX($message, $mheader, 16)
RUN 'c:\windows\winipcfg.exe'
:nomac
Color b/n
BOX (8,21,20,61,Å)
Color g+/n
BOX (7,20,19,60,FULL)
$instruct1 = 'Enter "Adapter Address" below'
$instruct2 = 'Example -> 00CO4F8CB1FB
$Selection = 'MAC ADDRESS: '
$LenIns1 = 20 + ((40 - (LEN($instruct1))/2)
$LenIns2 = 20 + ((40 - (LEN($instruct2))/2)
AT(9,$LenIns1) $instruct1
AT(11,24) $instruct2
AT(17,24) $Selection
$x = (LEN($Selection) + 24)
AT(17,$x) Get $Ans
Select
Case LEN($Ans) = 12
$MACADD = $Ans
goto 'contin'
Case LEN($Ans) <> 12
goto 'nomac'
EndSelect
Case Open(1,'c:\demerge\report.msd') <> 0
? "Unable to open 'report.msd'... survey halted!"
get $x
quit
EndSelect
EndIF
:contin
$filename = $INIFILE
$section = 'Computer'
$key = 'MacAddress'
$string = $MACADD
$WriteString = WRITEPROFILESTRING('$filename', '$section', '$key',
'$string')
$messenger = 'Credit4Survey'
call 'messenger.kix'
Greetings.
|
