20.05.2012: Dimpel's Addons für WinXP 32bit (Stand 20.05.2012)
22.05.2012: Unantastbar's SFX-Archive (Stand 22.05.2012)
14.04.2012: Ganesha-UpdatePackSP3-inkl.IE8-2012-04-14|
|
Source code |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 |
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.0.0
Author: Der-Dani
Homepage: www.der-dani.bplaced.net
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
#include <HTTP.au3>
#include <Inet.au3>
#include <GUIConstantsEx.au3>
; This script requires full Administrative rights
#requireadmin
; updater nur einmal starten
#include <misc.au3>
If _Singleton("updater.exe", 0) = 0 Then
ProcessClose("updater.exe")
EndIf
;Keine Verbindung
InetGet("http://www.vbox.me/?path=./Description&file=LiesMich.txt", @ScriptDir&"\liesmich.txt" )
If @InetGetBytesRead = -1 Then
If @OSLang = 0407 Then
MsgBox( 0,"Portable VirtualBox Updater","Keine Verbindung zur Seite. Bitte überprüfen Sie ihre Netzwerkverbindung und versuchen es erneut!" )
Else
MsgBox( 0,"Portable VirtualBox Updater","Could not connect to site. Please check your connection and try again!" )
EndIf
Sleep(4000)
Exit
EndIf
; VirtualBox schliessen
ProcessClose( "VirtualBox.exe" )
Sleep(5000)
ProcessClose( "VirtualBox.exe" )
ProcessWaitClose( "VirtualBox.exe" )
;VirtualBox Ordner umbennen
DirMove( @ScriptDir&"\Portable-VirtualBox", @ScriptDir&"\Portable-VirtualBox-alt" )
; neue Version VirtualBox downloaden
$src=_INetGetSource('http://www.vbox.me') ;Auf dieser Seite stehen die aktuellen VirtualBox-Versionen
$result = StringInStr($src, "Current Version")
if $result==0 Then
$update_url = "1"
Else ;Wenn Current Version gefunden wurde, dann vergleiche mit vorhandener Version
$var = StringMid($src, $result+38, 5) ;nach dem Wort "Current Version" steht die Versionsnummer z.B. 3.0.8
$var1 = StringMid($var,1, 1) ;schreibe diese in Variablen
$var2 = StringMid($var,3, 1)
$var3 = StringMid($var,5, 1)
EndIf
;lese vorhandene Version aus ini-Datei aus (Achtung: weil Ordner umbenannt:Portable-VirtualBox-alt
$var4 = IniRead( @ScriptDir&"\Portable-VirtualBox-alt\data\tools\extraction.ini","download", "key", "Not found")
$var5 = StringMid($var4, 43, 1) ;schreibe vorhandene Version in Variablen
$var6 = StringMid($var4, 45, 1)
$var7 = StringMid($var4, 47, 1)
; Variablen zum vergleichen in anderes Format umschreiben
$update_string1 = $var1&$var2&$var3 ;aktuellste Version
$update_string2 = $var5&$var6&$var7 ;vorhandene Version
;Versionen vergleichen
If $update_string1 > $update_string2 Then
$version = $var
;Pfad zur aktuellen Version
$update_url='http://www.vbox.me/?path=./VirtualBox%20v'&$version&'&file=Portable-VirtualBox_v'&$version&'-Starter_v4.0.0-Win_all.exe'
Else
$update_url = ""
EndIf
; nichts gefunden, beenden
If Not $update_url Then
If @OSLang = 0407 Then
MsgBox( 0,"Portable VirtualBox Updater","Keine neue Version gefunden!" )
Else
MsgBox( 0,"Portable VirtualBox Updater","No new version available!" )
EndIf
DirMove( @ScriptDir&"\Portable-VirtualBox-alt", @ScriptDir&"\Portable-VirtualBox" )
FileDelete( @ScriptDir&"\liesmich.txt" )
Exit
EndIf
InetGet ( $update_url, @ScriptDir&"\portable-vbox-aktuell.exe" )
; neue Version entpacken
Run( "portable-vbox-aktuell.exe", @ScriptDir&"\" )
WinWaitActive( "7-Zip self-extracting archive" )
; User-Befehle blocken
BlockInput(1)
ControlClick( "7-Zip self-extracting archive", "Extract", "Button2" )
; User-Befehle aufheben
BlockInput(0)
; neue Version starten
WinWaitClose( "7-Zip self-extracting archive" )
Run( @ScriptDir&"\Portable-VirtualBox\Portable-VirtualBox.exe")
WinWaitActive( "Portable-VirtualBox *** Extract and/or Compress ***" )
; GUI für die Auswahl ob Pfadangabe oder Download
GUICreate( "Portable VirtualBox Updater", 300, 75)
GUICtrlCreateLabel("Haben Sie die Installationsdatei schon runtergeladen?", 15 ,10)
$path = GUICtrlCreateButton ( "Ja", 70, 35, 50, -1, 1)
$download = GUICtrlCreateButton ( "Nein", 180, 35, 50, -1, 1)
GUISetState()
; GUI laufen lassen bis Auswahl getroffen wird
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $path
; 1 übergeben an updater funktion für Pfadangabe
Updater(1)
Case $msg = $download
; 2 übergeben an updater funktion für Download
Updater(2)
EndSelect
WEnd
Func Updater($art)
; gui schliessen
GUIDelete()
If $art == 1 Then
ControlClick( "Portable-VirtualBox *** Extract and/or Compress ***", "Suche Datei", "Button2" )
WinWaitClose( "VirtualBox - Installation File" )
WinWaitActive( "Portable-VirtualBox *** Extract and/or Compress ***" )
ControlClick( "Portable-VirtualBox *** Extract and/or Compress ***", "", "Button3" )
ControlClick( "Portable-VirtualBox *** Extract and/or Compress ***", "OK", "Button7" )
WinWaitClose( "Portable-VirtualBox *** Extract and/or Compress ***" )
DirMove( @ScriptDir&"\Portable-VirtualBox-alt\data\.VirtualBox", @ScriptDir&"\Portable-VirtualBox\data\.VirtualBox")
DirMove( @ScriptDir&"\Portable-VirtualBox-alt\data\language", @ScriptDir&"\Portable-VirtualBox\data\language", 1)
DirMove( @ScriptDir&"\Portable-VirtualBox-alt\data\settings", @ScriptDir&"\Portable-VirtualBox\data\settings", 1)
DirRemove( @ScriptDir&"\Portable-VirtualBox-alt", 1 )
FileDelete ( @ScriptDir&"\portable-vbox-aktuell.exe" )
FileDelete( @ScriptDir&"\liesmich.txt" )
; updater beenden
Exit
Elseif $art == 2 Then
ControlClick( "Portable-VirtualBox *** Extract and/or Compress ***", "Installationsdatei von VirtualBox herunterladen", "Button1" )
BlockInput(0)
WinWaitActive( "Status" )
FileMove( @ScriptDir&"\VirtualBox.exe", @ScriptDir&"\Portable-VirtualBox\VirtualBox.exe" )
ControlClick( "Status", "OK", "Button1" )
WinWaitActive( "Portable-VirtualBox *** Extract and/or Compress ***" )
ControlClick( "Portable-VirtualBox *** Extract and/or Compress ***", "", "Button3" )
ControlClick( "Portable-VirtualBox *** Extract and/or Compress ***", "OK", "Button7" )
WinWaitClose( "Portable-VirtualBox *** Extract and/or Compress ***" )
DirMove( @ScriptDir&"\Portable-VirtualBox-alt\data\.VirtualBox", @ScriptDir&"\Portable-VirtualBox\data\.VirtualBox")
DirMove( @ScriptDir&"\Portable-VirtualBox-alt\data\language", @ScriptDir&"\Portable-VirtualBox\data\language", 1)
DirMove( @ScriptDir&"\Portable-VirtualBox-alt\data\settings", @ScriptDir&"\Portable-VirtualBox\data\settings", 1)
DirRemove( @ScriptDir&"\Portable-VirtualBox-alt", 1 )
FileDelete ( @ScriptDir&"\portable-vbox-aktuell.exe" )
FileDelete( @ScriptDir&"\liesmich.txt" )
EndIf
; updater beenden
Exit
EndFunc
|
This post has been edited 1 times, last edit by "Der-Dani" (Oct 15th 2009, 12:05pm)
|
|
Source code |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 |
#include <INet.au3> $Newest = _GetNewestVBVersion(True) If @error Then MsgBox(0, "", "Fehler: " & @error) Else MsgBox(0, "", "Version: " & $Newest[0] & @CRLF & @CRLF & "URL: " & $Newest[1]) EndIf Func _GetNewestVBVersion($Beta = False, $sURL = 'http://download.virtualbox.org/virtualbox/') Local $sSource, $sPattern, $aMatches, $sLast, $sURL2, $sTmpFile = @TempDir & '\VBURL.txt' If $Beta Then $sURL2 = $sURL & 'LATEST-BETA.TXT' Else $sURL2 = $sURL & 'LATEST.TXT' EndIf If InetGet($sURL2, $sTmpFile)=0 Then Return SetError(1,0,'') $sLast = StringReplace(StringReplace(FileRead($sTmpFile), @LF, ''), @CR, '') FileDelete($sTmpFile) $sSource = _INetGetSource($sURL & $sLast & '/') If @error Or $sSource = '' Then Return SetError(2, 0, '') $aMatches = StringRegExp($sSource, 'HREF="(VirtualBox-' & $sLast & '-\d+-Win.exe)"', 1) If @error Then Return SetError(3, @error, '') Local $aRetArray[2] = [$sLast, $sURL & $sLast & '/' & $aMatches[0]] Return $aRetArray EndFunc ;==>_GetNewestVBVersion |
This post has been edited 1 times, last edit by "Diveman28" (Oct 16th 2009, 12:53am)
Ich wollte mir nicht einfach nur die neueste Version herunterladen, sondern die bestehenden Projekte und Einstellungen gleich mit übernehmen, ohne nochmals händisch eingreifen zu müssen.Ich hätte auch die Möglichkeit,
den Post abzutrennen bzw, zu kopieren, möchte das aber nicht ohne
dein Einverständnis machen.
nettes Programm kannte ich bisher auch nicht. Geht aber leider an meinem Verwendungszweck vorbei.Ich wollte mir nicht einfach nur die neueste Version herunterladen, sondern die bestehenden Projekte und Einstellungen gleich mit übernehmen, ohne nochmals händisch eingreifen zu müssen.
So long

ah ok, habs aber nur kurz überflogen. Bleib doch lieber bei Autoit, da man es so vielleicht mal direkt mit Portable VirtualBox verbinden kanndann schau dir ketarin mal genau an
auch das lässt sich gleich über ketarin mit erledigen über den reiter commands...
das thema habe ich hier schon grob angerissen.

Hi,Im gemeinsamen Ordner Portable-VirtuaBox-Win32 befinden sich jetzt die Dateien:
app32, data, Portable-VirtualBox, source, Portable-VirtualBox.exe, Read Me und der Dein Updater.
Wenn Portable-VirtualBox angeklickt wird öffnet sich folgendes Menü:
app32, data, source, Lies Mich, Portable-VirtualBox.exe und Read Me.
Hi,Bei dieser Aufregung habe ich die Dateien im Total Commander nur hin und her geschoben und dabei das Booten vergessen.

Das wissen die Jungs von VirtualBox wohl selber nicht so ganzWas hat eigentlich diese Meldung zu bedeuten:
VboxTestOGL.exe hat ein Problem festgestellt und muss beendet werden. Vorgang an MS senden (von mir nicht gesendet).
guckst du hier: LinkDie neue VirtualBox wird zwar installiert
Hab den Download gerade getestet und auch den Fehler fetgestellt. Keine Ahnung wieso das Archiv plötzlich beschädigt ist. Versuch´s mal hiermit updater.zipIch kann ihn aber nicht downloaden ohne beim Auspacken einen "error in packed file" zu bekommen.
Use my Updater for Portable-VirtualBoxWhat´s the right way of updating Portable VirtualBox if I don´t want to lose my settings of my Virtual Machines?
Hab den Download gerade getestet und auch den Fehler fetgestellt. Keine Ahnung wieso das Archiv plötzlich beschädigt ist. Versuch´s mal hiermit index.php?page=Attachment&attachmentID=2688
So long Dani
This post has been edited 1 times, last edit by "radioan57" (Jan 9th 2010, 1:19pm)
Ich fürchte, auch ein Updater kann das Problem nicht lösen.Auf einem USB-Stick habe ich die Portable VirtualBox mit 2 VMs. Jetzt will ich VirtualBox aktualisieren. Hat nicht geklappt mit Portable-VirtualBox_v3.1.0-Starter_v4.0.0-Win_all.exe. Die neue VirtualBox wird zwar installiert, aber meine beiden VMs starten nicht mehr auf:
"The VirtualBox kernel modules do not match this version of VirtualBox. The installation of VirtualBox was apparently not successful. Please try completely uninstalling and reinstalling VirtualBox."
So hoffte ich, dein Updater könne mein Problem lösen.
nein, das war ein Bug in meinem Updater. Die Update-URL wurde nicht richtig aufgelöst.Der Updater bringt jedoch (auf 2 verschiedenen PCs) diese Fehlermeldung:
16 bit MS-DOS Subsystem
G:\tmp\PORTAB~1.EXE
The NTVDM CPU has encountered an illegal instruction.
CS:0f55 IP:0254 OP:63 68 61 72 73 Choose 'Close' to terminate the application.
Der Fehler tauchte bei mir jetzt auch auf. Ich hatte noch eine alte Version von VirtualBox installiert."The VirtualBox kernel modules do not match this version of VirtualBox. The installation of VirtualBox was apparently not successful. Please try completely uninstalling and reinstalling VirtualBox."
This post has been edited 2 times, last edit by "Der-Dani" (Jan 12th 2010, 9:32am)
Ich denke, hier geht es um die portable Version von VirtualBox. Diese wird ja nicht installiert, sondern nur entpackt, kann also auch nicht deinstalliert werden, sondern allenfalls gelöscht.Der Fehler tauchte bei mir jetzt auch auf. Ich hatte noch eine alte Version von VirtualBox installiert.
Lösung: Entweder Deinstallation oder Update der installierten Version.
I knowIch denke, hier geht es um die portable Version von VirtualBox. Diese wird ja nicht installiert, sondern nur entpackt, kann also auch nicht deinstalliert werden, sondern allenfalls gelöscht.



No, that´s wrong. It´s all automatically. You´ve to file the updater in the same directory as your Portable-VirtualBox directory. Like this:Other than that if I understood right, the Updater only updates the VirtualBox Starter files, but you still have to manually run it for the extraction /compression
jobs as well as the modification for relative paths in the xml files.
ich versteh nicht ganz wie du das meinst. Wie verlierst du deine Virtuelle Maschinen? Welche manuelle Methode? Die die ich beschrieben hab um Portable-VirtualBox upzudaten oder deine hier?Nach mehreren erfolglosen Versuchen mit dem Portable VirtualBox Starter sowie Danis neuestem Updater, meine bestehende Portable VirtualBox auf 3.1.2 zu upgraden, ohne dabei meine bisherigen Virtuellen Maschinen zu verlieren, wählte auch ich schlussendlich die manuelle Methode:
So long Dani- VirtualBox 3.1.2 auf meiner HD ganz normal installiert
- Inhalt von C:\Programme\VirtualBox samt Unterverzeichnissen ins app32 meiner Portable VirtualBox kopiert
- VirtualBox 3.1.2 wieder von der HD deinstalliert
- mit Regedit zahlreiche Referenzen auf die VirtualBox gelöscht.
A total of 9 Votes have been submitted.
78%
Sie soll vom Updater automatisch erkannt werden. (7)
22%
Sie soll manuell eingestellt werden können. (2)
This post has been edited 2 times, last edit by "Der-Dani" (Jan 19th 2010, 7:30am)
2. I hadn´t considered that the names of the buttons in the GUI of the english version are different to the german version. But now it is fixed.

2. I hadn´t considered that the names of the buttons in the GUI of the english version are different to the german version. But now it is fixed.
This post has been edited 1 times, last edit by "JayEm" (Mar 11th 2010, 10:01pm)
Bevor ich den Updater durch die weitere Entwicklung immer wieder updaten muss, lade ich mir doch am besten gleich die aktuelle Version von Portable-VirtualBox herunter?
versucht
Das ganze macht in meinen Augen nur sinn, wenn sich der Updater selbst updaten kann. Sonst muss ich ja immer wieder nach Updates für den Updater suchen, bzw. es gibt einmal eine Endversion des Updaters, die kein Update mehr benötigt.
This post has been edited 3 times, last edit by "Der-Dani" (Jul 26th 2010, 9:12pm)
der updater findet meinen portable virtualbox ordner nicht. ich habs auf einer externen usb platte.
backup verzeichnis angegeben und nichts heruntergeladen.
Hits today: 2,812 | Hits yesterday: 5,059 | Hits record: 14,378 | Hits total: 3,134,457
Forum Software: Burning Board® 3.1.7, developed by WoltLab® GmbH