#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
|
2024-03-08 [mole]
Thanks for getting the posts back again.
2024-04-18 [MarineV]
will the db errors get fixed????
2024-04-26 [Tonny]
database error, please!
2024-05-09 [NTDOC]
I'm not seeing any errors
2024-05-31 [chojin]
DB is down again 
2024-06-04 [selsner]
Still no access, please help!
2024-06-07 [mole]
Looks like DB is back again. Thanks.
2024-06-17 [It_took_my_meds]
We encountered a problem. The reason reported was Database error only visible to forum administrators Please click back to return to the previous page.
2024-07-04 [Armin73]
There is still a database error 🤷♂️
2024-07-09 [0neZero]
There is still a database error 🤷♂️
2024-07-10 [Allen]
DB working a few times in between the messages above. Working again as of 7/10. Thanks Doc
2024-08-31 [NetGnostic]
Bummer, the Database error is back.
2024-09-04 [NTDOC]
Fourms are back up without error for the moment
2024-10-02 [Arend_]
Wll still have database errors ;-)
2024-10-03 [Allen]
Thanks to Doc... it's back.
2024-12-09 [chojin]
could we move kixtart to a new place in order to keep it living ? maybe create a github page and a subreddit?
2024-12-10 [Allen]
do know about moving it, but I know Doc is aware of the DB issue. Should be back online soon.
2024-12-10 [Allen]
don't know...
2025-02-09 [Comet]
Greetings. I installed KiX on my new Windows 11 computer, and joined this foum. Hello World!
2025-02-10 [Allen]
Welcome
2025-03-07 [Comet]
UBB Error We encountered a problem. The reason reported was Database error only visible to forum administrators
2025-06-30 [mole]
Thanks for getting this working again.
2025-07-28 [mole]
UBB Error We encountered a problem. The reason reported was Database error only visible to forum administrators
2025-08-01 [Arend_]
I think it's fixed, I don't have the problem.
2025-10-06 [Comet]
The UBB Error no longer happens for me.
2025-10-21 [M_Moore]
UBB Error We encountered a problem. The reason reported was Database error only visible to forum administrators Please click back to return to the previous page.
2025-10-26 [NTDOC]
System has been cleaned up. Should be okay again now.
2025-10-26 [Allen]
Thank You Doc. Really appreciate your efforts!
|
|
0 registered
and 583 anonymous users online.
|
|
|
![[Big Grin]](images/icons/grin.gif){kind=icon}
![[Wink]](images/icons/wink.gif){kind=icon}
