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|
|
PHP Source code |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
Imports System.Text.RegularExpressions
Imports System.Net
Public Class Firefox
Inherits Up_to_date_Loader.Programm
Sub New()
Dim wc As New WebClient()
Dim r As New Regex("<a href=""Firefox Setup (.*).exe"">")
Dim source = wc.DownloadString("http://mozilla.mirrors.easynews.com/mozilla/firefox/releases/latest/win32/de/")
_programmname = "Mozilla Firefox"
_programmversion = r.Match(source).Groups.Item(1).Value
_downloadadresse = "http://mozilla.mirrors.easynews.com/mozilla/firefox/releases/latest/win32/de/Firefox Setup " & _programmversion & ".exe"
End Sub
End Class
|
Die farbigen Teile müsst ihr anpassen, das erste ist der Name der DLL, die erzeugt werden soll. Das zweite ist der Pfad zur Exe-Datei vom Up-to-date Loader. Ganz hinten kommt der Name der oben erstellten Quellcode-Datei hin.
Quoted
%windir%\Microsoft.NET\Framework\v2.0.50727\vbc.exe /out:Firefox.dll /target:library /reference:"c:\Up-to-date Loader\Up-to-date Loader\Debug\Up-to-date Loader.exe" Firefox.vb
In diesem Fall ist das nur eine Warnung, die ignoriert werden kann. Die DLL sollte damit funktionsfähig sein. Einfach in den Programme-Ordner des Up-to-date Loaders kopieren und testen!
Quoted
Microsoft (R) Visual Basic, Compilerversion 8.0.50727.3053
für Microsoft (R) .NET Framework, Version 2.0.50727.3053
Copyright (C) Microsoft Corporation. Alle Rechte vorbehalten.
E:\FirefoxDLL\Firefox.vb(10) : warning BC42020: Variablendeklaration ohne As-Klausel. Der Typ "Object" wird angenommen.
Dim source = wc.DownloadString("http://mozilla.mirrors.easynews.com/mozilla/firefox/releases/latest/win32/de/")
~~~~~~~~~
This post has been edited 2 times, last edit by "netcaster" (Oct 12th 2008, 6:13pm)
Quoted from "netcaster"
bleiben wir bei firefox, warum sollte man dafür euer tool nehmen, wenn das firefox von haus aus selbst wesentlich besser und einfacher macht ?
Quoted from "netcaster"
zudem finde ich die "dll variante" extrem schlecht. wenn ich dich richtig verstanden habe, ist das was die dlls unterscheidet immer nur der programm name und die 2 url adressen... warum lest ihr das nicht aus einer ini datei ?
Quoted from "netcaster"
ein kritik punkt ist auch das system mit dem ihr nach updates sucht. das passiert über eine art "anouce url". nicht jedes programm hat sowas auf seiner hp. manche programme haben nicht mal eine eigene hp. ich sagte (bevor) ihr euer tool gebaut habt ja schon einiges im alten forum dazu...
Quoted from "netcaster"
ansätze wären z.b. eine webadresse nach einem begriff zu durchsuchen, anhand einer logik dann die versions nr. auszulesen. oder bei grossen software seiten einfach deren hauseigene datenbank abzufragen, oder z.b. google zu befragen... anhand einer logik könnte man die ergebnisse dann auswerten vor der ausgabe...
|
|
Source code |
1 2 3 |
RunWait("auto.bat", @ScriptDir, @SW_HIDE)
RunWait("dir.bat", @ScriptDir, @SW_HIDE)
FileDelete(@ScriptDir & "\" & "dir.bat")
|
|
|
Source code |
1 2 3 4 5 6 7 8 9 |
@ECHO OFF
cd\
for /F "delims=#" %%a in ('dir /b /s start_download.exe') do call :for1 "%%a"
GOTO for1ende
:for1
set XYZPATH=%~dp1
echo start /D "%XYZPATH%" /wait start_download.exe >> \Auto-Update\dir.bat
GOTO :EOF
:for1ende
|
|
|
Source code |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
[Versions] ;Dateiname_alt wird automatisch vergeben Dateiname_alt=mp3tagv241bsetup.exe ;Dateiname_neu wird automatisch vergeben Dateiname_neu=mp3tagv241csetup.exe ;Datei muss eingegeben werden, um lokal im Verzeichnis den Search String (der Dateien), der immer gleich bleibt, zu finden mit "*" oder einzeln mit "?" Datei=???????????setup.exe ;Datei_entpacken muss nur dann eingegenben werden, wenn entpackt werden soll (Search String mit Datei-Endung), sonst leer ;WinRAR muss installiert sein und der Install-Pfad in den Umgebungsvariablen > Systemvariablen > Path eingetragen werden Datei_entpacken= ;Log_Zeile_Nr muss eingetragen werden um die entsprechende Zeile in einer Log-Datei auswerten zu können (Zeile 1 oder 5) Log_Zeile_Nr=5 ;Log_Zeile wird automatisch vergeben Log_Zeile=URL:http://data.mp3tag.de/mp3tagv241csetup.exe [1723803/1723803] -> "mp3tagv241csetup.exe" [1] ;Download muss eingegeben werden um die Datei aus dem Internet runterzuladen Download=wget -r -nd -N -A *setup.exe -I /download http://www.anytag.de/forums/index.php?showtopic=57.html -nv -o log.txt Download1= |
|
|
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 |
$dateiname_alt = IniRead(@ScriptDir & "\" & "sets.ini", "Versions", "Dateiname_alt", "")
$datei = IniRead(@ScriptDir & "\" & "sets.ini", "Versions", "Datei", "")
$datei_entpacken = IniRead(@ScriptDir & "\" & "sets.ini", "Versions", "Datei_entpacken", "")
$Download = IniRead(@ScriptDir & "\" & "sets.ini", "Versions", "Download", "")
RunWait(@ComSpec & " /c " & $Download, @ScriptDir, @SW_HIDE)
$Download1 = IniRead(@ScriptDir & "\" & "sets.ini", "Versions", "Download1", "")
RunWait(@ComSpec & " /c " & $Download1, @ScriptDir, @SW_HIDE)
$exist = FileExists($datei_entpacken)
If $exist Then
RunWait(@ComSpec & " /c " & "winrar E -ibck -o+ " & $datei_entpacken, @ScriptDir, @SW_HIDE)
EndIf
$search = FileFindFirstFile($datei)
$file = FileFindNextFile($search)
$file1 = FileFindNextFile($search)
IniWrite(@ScriptDir & "\" & "sets.ini", "Versions", "Dateiname_alt", $file)
IniWrite(@ScriptDir & "\" & "sets.ini", "Versions", "Dateiname_neu", $file1)
If $file1 = "" Then
IniWrite(@ScriptDir & "\" & "sets.ini", "Versions", "Dateiname_neu", "NotFound")
EndIf
If IniRead(@ScriptDir & "\" & "sets.ini", "Versions", "Dateiname_neu", "") <> "NotFound" Then
FileDelete($file)
EndIf
FileClose($search)
$log = FileOpen("log.txt", 0)
$line = FileReadLine($log, IniRead(@ScriptDir & "\" & "sets.ini", "Versions", "Log_Zeile_Nr", ""))
$line1 = StringTrimLeft($line, 9)
IniWrite(@ScriptDir & "\" & "sets.ini", "Versions", "Log_Zeile", $line1)
$line2 = IniRead(@ScriptDir & "\" & "sets.ini", "Versions", "Log_Zeile", "")
If $line2 <> "" Then
_FileWriteLog(@DesktopDir & "\update_download.txt", $line2)
Else
_FileWriteLog(@DesktopDir & "\update_download.txt", @ScriptDir & " " & "kein Update")
EndIf
FileClose($log)
FileDelete(@ScriptDir & "\" & "log.txt")
|
This post has been edited 2 times, last edit by "Diveman28" (Oct 12th 2008, 7:40pm)
Was hat denn das hier verloren, Diveman28?![]()
This post has been edited 1 times, last edit by "netcaster" (Oct 14th 2008, 2:40pm)
This post has been edited 1 times, last edit by "JoEtHeKiLlEr" (Oct 14th 2008, 2:49pm)
Naja sagen wir es mal so: Unser Programm soll nicht auf Aktualisierungen abgestimmt sein, sondern einfach nur die neueste Version von einem Programm herunterladen.
Quoted
Die .vb-Dateien können Problemlos gelöscht werden, die sind dazu da, um zu veranschaulichen, wie das Programm funktioniert.
Die .dll-Dateien sind nur die kompilierten .vb-Dateien, was stört euch denn daran?
Quoted
Und wenn das umständlich gelöst ist, dann doch mit deinem Programm oder?
Ich versteh immernoch nicht, warum du mit so vielen verschiedenen Dateien arbeitest...
This post has been edited 2 times, last edit by "Diveman28" (Oct 14th 2008, 3:06pm)
Hits today: 2,714 | Hits yesterday: 5,059 | Hits record: 14,378 | Hits total: 3,134,359
Forum Software: Burning Board® 3.1.7, developed by WoltLab® GmbH