#89564 - 2002-11-16 01:49 PM
BBdep.kix - TNG
|
MightyR1
MM club member
Registered: 1999-09-09
Posts: 1264
Loc: The Netherlands
|
Jooel (and buddies),
here's a new bbdep.kix. Anything to improve?
![[Confused]](images/icons/confused.gif) Strange thing discovered:
getfileversion("wkix32.exe") = "4, 12, 0, 0"
getfileversion("kixforms.dll") = "2.1.2.36"
code:
; -- BBChecker Dependency checker
; -- Based on bbdep.kix from Kent Dyer
; -- Improvements by Patrick Rutten 2002-11-16
BREAK ON
CLS
; -- File list
; -- file*size*version
$bbck_files =
"bb.ico*3558*Unknown,
bbCheckerII.kix*13887*Unknown,
inst.kix*2667*Unknown,
parse.udf*4760*Unknown,
pm.kix*517*Unknown,
slider.udf*Unknown*Unknown,
sliderEditor.ico*1406*Unknown,
trash.ico*1142*Unknown,
uninst.kix*579*Unknown,
WKIX32.EXE*233472*4.12.0.0,
KiXforms.dll*172032*2.1.2.36"
$bbck_files = SPLIT($bbck_files,",")
$max_bbck_files = UBOUND($bbck_files)
$windir = "%windir%"
$systemdrive = SUBSTR($windir,1,2)
$bbcheckerdir = $systemdrive + "\Program Files\BBchecker\"
$kixforms = READVALUE("HKEY_CLASSES_ROOT\CLSID\{F89DF848-618A-46F9-8A1C-396EA442BDD3}\InprocServer32","")
$err = 0
$i=0
WHILE ($i <= $max_bbck_files)
$bbck_file = SPLIT($bbck_files[$i],"*")
IF "Kixforms.dll" = TRIM($bbck_file[0])
$bbck_file_name = $kixforms
ELSE
$bbck_file_name = $bbcheckerdir + TRIM($bbck_file[0])
ENDIF
$bbck_file_size = $bbck_file[1]
$bbck_file_ver = $bbck_file[2]
$curver = GETFILEVERSION($bbck_file_name)
IF 0 <> INSTR($curver,",")
$curver = SPLIT($curver,",")
$cur = ""
IF UBOUND($curver)
$j = 0
WHILE $j <= UBOUND($curver)
$cur = $cur + TRIM($curver[$j])+"."
$j = $j + 1
LOOP
$cur = SUBSTR($cur,1,LEN($cur)-1)
ENDIF
ELSE
IF "" <> $curver
$cur = $curver
ELSE
$cur = ""
ENDIF
ENDIF
IF (0 = EXIST($bbck_file_name)) OR
(GETFILESIZE($bbck_file_name) <> $bbck_file_size AND "Unknown" <> $bbck_file_size) OR
($cur <> $bbck_file_ver AND "Unknown" <> $bbck_file_ver)
? " - E - " + $bbck_file_name
$err = 1
ELSE
? " - I - " + $bbck_file_name
ENDIF
$i=$i+1
LOOP
IF 0 <> $err
?
?"Errors occurred!!!"
?
?"Some files are missing, have a wrong size or a wrong version"
?
?"Please download an updated version from"
?" - http://www.kixforms.freeuk.com/"
?" - http://www.gwspikval.com/jooel/scripts/bbChecker/sources/current/"
?"Or the package from"
?" - http://www.gwspikval.com/jooel/scripts/bbChecker/"
?
ELSE
?
? "Checker is OK"
?
ENDIF
GET $x
_________________________
Greetz,
Patrick Rutten
- We'll either find a way or make one...
- Knowledge is power; knowing how to find it is more powerful...
- Problems don't exist; they are challenges...
|
|
Top
|
|
|
|
|
#89575 - 2002-11-17 04:41 AM
Re: BBdep.kix - TNG
|
Kdyer
KiX Supporter
Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
|
To make it even easier to update..
Why not run the stuff that changes all the time, file sizes, etc. in a separate file?
Use something like an INI file..
Kent
|
|
Top
|
|
|
|
|
#89578 - 2002-11-17 07:45 AM
Re: BBdep.kix - TNG
|
Lonkero
KiX Master Guru
Registered: 2001-06-05
Posts: 22346
Loc: OK
|
found a bug. you will see it too if you will run this script.
anyway updated bbdep which will be included in package, looks currently like:
code:
; -- BBChecker Dependency checker
; -- Based on bbdep.kix from Kent Dyer
; -- Improvements by Patrick Rutten 2002-11-16
; -- Update and signature-file code by Lonkero 2002-11-17
BREAK ON
CLS
; -- Gather reguired fileinfo and show on screen
if not exist(@scriptdir+"\bbDep.sig")
"no bbDep.sig file found in current dir, can't proceed. @crlf QUITTING..."
sleep 1
exit 0
endif
"FILE" at(0,20) "SIZE" at(0,30) "VERSION" ?
$=readprofilestring(@scriptdir+"\bbDep.sig","","")
$files=split(left($,len($)-1),chr(10))
for $=0 to ubound($files)
$files[$]=$files[$],
readprofilestring(@scriptdir+"\bbDep.sig",$files[$],"size"),
readprofilestring(@scriptdir+"\bbDep.sig",$files[$],"version")
at($+1,0) $files[$][0] at($+1,20) $files[$][1] at($+1,30) $files[$][2]
next
; -- checking the correctness and showing on screen
$bbcheckerdir=readvalue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion","ProgramFilesPath") + "\BBchecker\"
$=execute("$$bbcheckerdir=$bbcheckerdir")
$kixforms=readvalue("HKEY_CLASSES_ROOT\CLSID\"+readvalue("HKEY_CLASSES_ROOT\Kixtart.Form\CLSID","")+"\InprocServer32","")
for $=0 to ubound($files)
if "kixforms.dll"=$files[$][0]
$location=$kixforms
else
$location=$bbcheckerdir+$files[$][0]
endif
select
case not exist($location)
$failure="File Missing"
case getfileversion($location,"FileVersion")<>$files[$][2]
$failure="Incorrect FileVersion"
case getfilesize($location)<> $files[$][1]
$failure="Incorrect FileSize"
case 1
$failure=""
endselect
if $failure
at($+1,40) color r/n $failure
$err=1
else
at($+1,40) color w/n "Passed"
endif
next
; -- final report
color w/n
IF $err
at($+1,0)
?"Errors occurred!!!"
?
?"Please download an updated version from"
?" - http://www.kixforms.freeuk.com/"
?" - http://www.gwspikval.com/jooel/scripts/bbChecker/sources/stable/"
?"Or the package from"
?" - http://www.gwspikval.com/jooel/scripts/bbChecker/"
?
ELSE
at($+1,0)
? "Checker is OK"
?
ENDIF
GET $
the current bbdep.sig looks like:
quote:
[wkix32.exe]
size="233472"
version="4.12.0.0"
[kixforms.dll]
size="172032"
version="2.1.3.37"
[bbcheckerII.kix]
size="13887"
[pm.kix]
size="517"
[parse.udf]
size="4760"
[slider.udf]
size="1486"
[inst.kix]
size="2667"
[uninst.kix]
size="579"
[bb.ico]
size="3558"
[trash.ico]
size="1142"
[sliderEditor.ico]
size="1406"
comments?
[ 17. November 2002, 07:49: Message edited by: Lonkero ]
_________________________
!download KiXnet
|
|
Top
|
|
|
|
|
#89579 - 2002-11-17 05:31 PM
Re: BBdep.kix - TNG
|
Kdyer
KiX Supporter
Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
|
Jooel,
Like the new version..
However, it would be cool for KIXFORMS.DLL and WKIX32.EXE to show what versions are required..
quote:
FILE SIZE VERSION
wkix32.exe 233472 4.12.0.0 Incorrect FileVersion
kixforms.dll 172032 2.1.3.37 Incorrect FileVersion
bbcheckerII.kix 13887 Incorrect FileSize
pm.kix 517 Passed
parse.udf 4760 Incorrect FileSize
slider.udf 1486 Passed
inst.kix 2667 Passed
uninst.kix 579 Passed
bb.ico 3558 Passed
trash.ico 1142 Passed
sliderEditor.ico 1406 Passed
Thanks,
Kent
|
|
Top
|
|
|
|
|
#89580 - 2002-11-17 05:34 PM
Re: BBdep.kix - TNG
|
Kdyer
KiX Supporter
Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
|
There is another fundamental issue between WKIX32.EXE and KIXFORMS.DLL and that is the version tables are different:
code:
[wkix32.exe]
size="233472"
version="4,12,0,0" < SHOULD BE
[kixforms.dll]
size="172032"
version="2.1.3.37"
Thanks!
Kent
|
|
Top
|
|
|
|
#89582 - 2002-11-18 07:18 AM
Re: BBdep.kix - TNG
|
Kdyer
KiX Supporter
Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
|
Jooel,
In the original code that I sent to you directly is as follows:
code:
; -- Check the version of WKIX32.EXE
$kixver = GETFILEVERSION($bbcheckerdir + $bbck_files[9])
$nkixver = left($kixver,1) + "." + Substr($kixver,4,2)
IF $nkixver < "4.12"
?$bbck_files[9] + " Needs to be updated to Kixtart 4.12"
SLEEP 3
EXIT
ELSE
?$bbck_files[9] + " is Kixtart 4.12"
?
ENDIF
Did some more changes to the code:
code:
; -- BBChecker Dependency checker
; -- Based on bbdep.kix from Kent Dyer
; -- Improvements by Patrick Rutten 2002-11-16
; -- Update and signature-file code by Lonkero 2002-11-17
; -- Version table changes for WKIX32.EXE and placed the results found by Kdyer 2002-11-18
BREAK ON
CLS
; -- Gather reguired fileinfo and show on screen
if not exist(@scriptdir+"\bbDep.sig")
"no bbDep.sig file found in current dir, can't proceed. @crlf QUITTING..."
sleep 1
exit 0
endif
"FILE" at(0,20) "SIZE" at(0,30) "VERSION" at(0,40) "STATUS" ?
$=readprofilestring(@scriptdir+"\bbDep.sig","","")
$files=split(left($,len($)-1),chr(10))
for $=0 to ubound($files)
$files[$]=$files[$],readprofilestring(@scriptdir+"\bbDep.sig",$files[$],"size"),readprofilestring(@scriptdir+"\bbDep.sig",$files[$],"version")
at($+1,0) $files[$][0] at($+1,20) $files[$][1] at($+1,30) $files[$][2]
next
; -- checking the correctness and showing on screen
$bbcheckerdir = readvalue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion","ProgramFilesPath") + "\BBchecker\"
$=execute("$$bbcheckerdir=$bbcheckerdir")
$kixforms = READVALUE("HKEY_CLASSES_ROOT\CLSID\"+readvalue("HKEY_CLASSES_ROOT\Kixtart.Form\CLSID","")+"\InprocServer32","")
for $=0 to UBOUND($files)
if "kixforms.dll"=$files[$][0]
$location=$kixforms
else
$location=$bbcheckerdir+$files[$][0]
endif
select
case not exist($location)
$failure="File Missing"
case getfileversion($location,"FileVersion")<>$files[$][2]
$verfound = getfileversion($location,"FileVersion")
$failure="Wrong FileVersion, found: "+$verfound
case getfilesize($location)<> $files[$][1]
$filsize = getfilesize($location)
$failure="Wrong FileSize, found: "+$filsize
case 1
$failure=""
endselect
if $failure
at($+1,40) color r/n $failure
$err=1
else
at($+1,40) color w/n "Passed"
endif
next
; -- final report
color w/n
IF $err
at($+1,0)
?"Errors occurred!!!"
?
?"Please download an updated version from"
?" - http://www.kixforms.freeuk.com/"
?" - http://www.gwspikval.com/jooel/scripts/bbChecker/sources/stable/"
?"Or the package from"
?" - http://www.gwspikval.com/jooel/scripts/bbChecker/"
?
ELSE
at($+1,0)
? "Checker is OK"
?
ENDIF
GET $
Updated BBDEP.SIG file:
code:
[wkix32.exe]
size="233472"
version="4, 12, 0, 0"
[kixforms.dll]
size="172032"
version="2.1.3.37"
[bbcheckerII.kix]
size="13887"
[pm.kix]
size="517"
[parse.udf]
size="4760"
[slider.udf]
size="1486"
[inst.kix]
size="2667"
[uninst.kix]
size="579"
[bb.ico]
size="3558"
[trash.ico]
size="1142"
[sliderEditor.ico]
size="1406"
Here are the Results:
quote:
FILE SIZE VERSION STATUS
wkix32.exe 233472 4, 12, 0, Passed
kixforms.dll 172032 2.1.3.37 Wrong FileVersion, found: 2.1.1.35
bbcheckerII.kix 13887 Wrong FileSize, found: 14729
pm.kix 517 Passed
parse.udf 4760 Wrong FileSize, found: 4757
slider.udf 1486 Passed
inst.kix 2667 Passed
uninst.kix 579 Passed
bb.ico 3558 Passed
trash.ico 1142 Passed
sliderEditor.ico 1406 Passed
Errors occurred!!!
Please download an updated version from
- http://www.kixforms.freeuk.com/
- http://www.gwspikval.com/jooel/scripts/bbChecker/sources/stable/
Or the package from
- http://www.gwspikval.com/jooel/scripts/bbChecker/
HTH,
Kent
|
|
Top
|
|
|
|
Moderator: Shawn, ShaneEP, Ruud van Velsen, Arend_, Jochen, Radimus, Glenn Barnas, Allen, Mart
|
0 registered
and 703 anonymous users online.
|
|
|
![[Big Grin]](images/icons/grin.gif){kind=icon}
![[Wink]](images/icons/wink.gif){kind=icon}
