The Bat! 3.51

Zitat

,06.07.2005 , 22:30 Uhr]Mir ist grad aufgefallen, dass diese props.dll nicht mehr im MSI-Pakte enthalten ist.

Wird die nicht mehr gebraucht?

Nein, kann gelöscht werden.

Danke!

Die Versionsnummer 3.51 ist doch ganz logisch. Sie ist folgendermassen berechnet worden:

1. Die Version ist am 06.Juli heraus gekommen. Der 6. Juli ist der 187. Tag im Jahr.
2. Rechne ich nun die Versionsnummer 3.51 nach der housischen Formel in den laufenden Tag um, also (3x51) + (35x1) - 1, dann ergibt das nach Adam Riese auch 187.

Wie man sieht, geht es auf. Klar?
Gruss
Housi

Hab mir gard ein kleines KIX-Script geschrieben um die MSI-Pakete nicht mehr per Commando-Zeile entpacken zu müssen und nachdem es anscheinend mit dem TC Probleme gibt, kann es vll. der/die ein oder andere brauchen.

Im Rar-Archiv (139kb) liegt einmal das KIX-Script als Text-Datei und einmal als EXE kompiliert.
Einfach die msi_extract.exe ins gleiche Verzeichnis wie das MSI-Paket entpacken und doppelklicksen. Sinnigerweise sollten keine anderen MSI-Pakete im gleichen Ordner vorhanden sein, es wird immer nur das erste zerlegt.

http://people.freenet.de/schuftpinky/msi_extract.rar

Nein, das ist kein Virus oder sonstiger Unfug.

Das script überpüft zuerst, ob überhaupt ein MSI-Paket im Ordner vorhanden ist und extrahiert es mit der allseits bekannten Commando-Zeile in einen Unterodner der so heisst wie das MSI-Paket.
Wenn's nicht klappt wird ein Fehlercode ausgegeben.
Das war's auch schon.

Quelltext des Scripts

;Script-Beginn


Break On


;Variablen
$kix = $EXEPath
scdir($kix, ".msi")
$target = "TARGETDIR=" + '"' + $kix + "\" + $ordner + '"'


;Überprüfen, ob ein MSI-Paket im Verzeichnis vorhanden ist
If Exist ($kix + "\*.msi") = 0
    $=MessageBox("Kein MSI-Paket im Verzeichnis vorhanden", "MSI-Pakete suchen", 16)
    Exit
EndIf


;MSI-Paket entpacken
CD $kix
Shell "msiexec /a " + $ordner + ".msi /qn " + $target


;Statusmeldung
If @ERROR = 0
   $=MessageBox("MSI-Paket erfolgreich entpackt", "MSI-Paket entpacken", 16)
   Else $=MessageBox("MSI-Paket nicht entpackt" + @CRLF + "Fehler: " + @Error, "MSI-Paket entpacken", 16) 
EndIf


Exit


;Functions
Function scdir($start, $fileend)
	Dim $FileName,$FullPath
	$FileName = Dir($start)
	While ($FileName <> "") AND (@ERROR = 0)
   $Fullpath = $Start+"\"+$Filename 
    If ($Filename<>".") AND ($Filename<>"..")
       If Right($Filename,4)=$fileend
         $ordner = DropR($Filename, 4)  
         MD $kix + "\" + $ordner
        Return
       EndIf
    EndIf
   $FileName = Dir();nächste Datei
	Loop
EndFunction

Function DropR($s,$c)
  $DropR=Left($s,Len($s)-$c)
EndFunction


;Script-Ende

Zitat

Hab mir gard ein kleines KIX-Script geschrieben

Wusste gar nicht das es dafür eine Gui gibt.

Zitat

http://people.freenet.de/schuftpinky/msi_extract.rar

Der Link führt ins Leere...

Gard nochmal probiert, der Link funktioniert einwandfrei bei mir.

JohnDoe
KIX hat auch keine GUI.

Bei mir erschien,als ich vor wenigen Minuten auf den Link klickte, folgendes:

[Blockierte Grafik: http://upload.batboard.net/images/bild93.png]

Nun funktioniert es aber auch bei mir :blink:

Da hat wohl freenet mal wieder rumgesponnen

Wie heißt es in der Werbung: "Freenet - Normal ist das nicht."