Einfaches Update für Firefox

WillyWu

Hallo, erneut, liebe AutoIt-Gemeinde,

gibt es eigentlich eine EINFACHE Version zum prüfen, ob Updates von Firefox vorhanden sind? Ich meine jetzt ohne FF3.au und ohne irgendwas in Firefox einzubauen?

Danke im Voraus für jede Idee.

LG

Willy.

**Oscar**

Ist das so einfach genug:

Spoiler anzeigen

[autoit]

$sRegKey = 'HKEY_LOCAL_MACHINE\SOFTWARE'
If @OSArch = 'X64' Then $sRegKey &= '\Wow6432Node'
$sRegKey &= '\Mozilla\Mozilla Firefox'
$sInstallVersion = RegRead($sRegKey, 'CurrentVersion')
If @error Then $sInstallVersion = '0.0.0'
$sInstallVersion = StringRegExpReplace($sInstallVersion, '( $.+$)', '')
ConsoleWrite('Installierte Version = ' & $sInstallVersion & @CR)
$sFirefoxSource = BinaryToString(InetRead('http://www.mozilla.com/en-US/firefox/all.html', 1))
$sNewestVersion = StringRegExpReplace($sFirefoxSource, '(?s).+<tr id="de".+?<td class="curVersion" >(.+?)</td>.+', '$1')
ConsoleWrite('Neueste Version = ' & $sNewestVersion & @CR)

[/autoit]

**Der_Doc**

Mh bei mir zeigt er

Code

Installierte Version = 3.0.7
Neueste Version = 3.6.11

aber ich habe auch die Version 3.6.11 installiert.

MfG
Der_Doc

**Oscar**

Verstehe ich nicht. Bei mir funktioniert das Skript sowohl unter WindowsXP (32 Bit) als auch unter Windows7 (64 Bit).

Kannst Du mal mit RegEdit nachschauen, was bei Dir da in der Registry eingetragen ist?

WillyWu

Hallo & Danke, Oscar. Schnell und super (wie immer...) Funktioniert auf bisher getestetem PC (meinem Laptop) perfekt - freu. Und einfach genug (ich kann es nachvollziehen *gg*). Geht das zufällig auch noch mit Thunderbird auf die gleiche Art?
(also im Link firefox mit thunderbird ersetzen?)

Glg
Willy

**Oscar**

Ja, geht auch mit Thunderbird:

Spoiler anzeigen

[autoit]

$sRegKey = 'HKEY_LOCAL_MACHINE\SOFTWARE'
If @OSArch = 'X64' Then $sRegKey &= '\Wow6432Node'
$sRegKey &= '\Mozilla\Mozilla Thunderbird'
$sInstallVersion = RegRead($sRegKey, 'CurrentVersion')
If @error Then $sInstallVersion = '0.0.0'
$sInstallVersion = StringRegExpReplace($sInstallVersion, '( $.+$)', '')
ConsoleWrite('Installierte Version = ' & $sInstallVersion & @CR)
$sThunderbirdSource = BinaryToString(InetRead('http://www.mozilla.com/en-US/thunderbird/all.html', 1))
$sNewestVersion = StringRegExpReplace($sThunderbirdSource, '(?s).+<tr id="de".+?<td class="curVersion" >(.+?)</td>.+', '$1')
ConsoleWrite('Neueste Version = ' & $sNewestVersion & @CR)

[/autoit]

WillyWu

Hello again *gg*; habe es selber raus: geht! ! Nochmals Danke an Alle, besonders die Profis.

GLG
Willy.

PS.: Sorry, Oscar, hatte gerade eben Deinen letzten Beitrag übersehen. Danke erneut!!!!!!!!!!!!!!!!!!!!!