OrangeVirus

Tag!

Das ist die neue Version von dem bereits bekannten Registry-Patcher, der ja, kp warum, von vielen verdächtigt wurde. diesmal, bei dieser neuen und verbesserten version, wird das anders sein, da es diesmal OpenSource ist. nach wie vor in VB6 gecoded.
Es patcht die Registry-Einträge, sodass WoW nicht über den Launcher gestartet wird.

Features:

* Startscreen (Flashscreen)
* Schönere Oberfläche
* Funktion, dass der Launcher umgangen wird
* "Standard-wiederherstellen"-Funktion

Hier wieder ein paar screens:

http://karnerchen.bplaced.net/Screen.jpg
http://home.arcor.de/karnerchen/OrangeVirus/Screen2.jpg

Das Programm gibts hier zu Downloaden: http://karnerchen.bplaced.net/OrangeVir ... atcher.exe

und der source folgt, wie versprochen, hier:

Das eigentliche Programm:

Code: Public Class Form1     Dim WSHShell As Object     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load     End Sub     Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click     End Sub     Private Sub Label9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label9.Click     End Sub     Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         WSHShell = CreateObject("WScript.Shell")         WSHShell.RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft\GamePath", "C:\Programme\World of Warcraft\WoW.exe")         Process.Start("http://home.arcor.de/karnerchen/OrangeVirus/index.htm")     End Sub     Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         WSHShell = CreateObject("WScript.Shell")         WSHShell.RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft\GamePath", "C:\Program Files\World of Warcraft\WoW.exe")         Process.Start("http://home.arcor.de/karnerchen/OrangeVirus/index.htm")     End Sub     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click         WSHShell = CreateObject("WScript.Shell")         WSHShell.RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft\GamePath", "C:\Programme\World of Warcraft\Launcher.exe")         WSHShell = CreateObject("WScript.Shell")         WSHShell.RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft\GamePath", "C:\Program Files\World of Warcraft\Launcher.exe")         MsgBox("Standard erfolgreich wieder hergestellt!")     End Sub     Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click         AboutBox1.Show()     End Sub End Class

Der Splashscreen:

Code: Public NotInheritable Class SplashScreen1     Private Sub SplashScreen1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load           End Sub End Class

About:

Code: Public NotInheritable Class AboutBox1     Private Sub AboutBox1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load     End Sub     Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)         Me.Close()     End Sub     Private Sub LabelVersion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)     End Sub     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Me.Close()     End Sub     Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked         Process.Start("http://ovi.orangevir.us/")     End Sub End Class

wenn wer auch noch die designer dateien haben will, bitte per pn anfragen oder hier posten. jetzt kann keiner mehr sagen er würde den source nicht kennen!

hier noch ein virenscan von VirusTotal.com:

http://karnerchen.bplaced.net/Scan.jpg

Zitat: Datei OrangeVirus__-Patcher.exe empfangen 2008.02.21 20:08:36 (CET) Status: Laden ... Wartend Warten Überprüfung Beendet Nicht gefunden Gestoppt Ergebnis: 0/32 (0%) Laden der Serverinformationen... Ihre Datei wartet momentan auf Position: ___. Geschätzte Startzeit is zwischen ___ und ___ . Dieses Fenster bis zum Abschluss des Scans nicht schließen. Der Scanner, welcher momentan Ihre Datei bearbeitet ist momentan gestoppt. Wir warten einige Sekunden um Ihr Ergebnis zu erstellen. Falls Sie längern als fünf Minuten warten, versenden Sie bitte die Datei erneut. Ihre Datei wird momentan von VirusTotal überprüft, Ergebnisse werden sofort nach der Generierung angezeigt. Filter Filter Drucken der Ergebnisse Drucken der Ergebnisse Datei existiert nicht oder dessen Lebensdauer wurde überschritten Dienst momentan gestoppt. Ihre Datei befindet sich in der Warteschlange (position: ). Diese wird abgearbeitet, wenn der Dienst wieder startet. SIe können auf einen automatischen reload der homepage warten, oder ihre email in das untere formular eintragen. Klicken Sie auf "Anfragen", damit das System sie benachrichtigt wenn die Überprüfung abgeschlossen ist. Email: Antivirus Version letzte aktualisierung Ergebnis AhnLab-V3 2008.2.22.0 2008.02.21 - AntiVir 7.6.0.67 2008.02.21 - Authentium 4.93.8 2008.02.21 - Avast 4.7.1098.0 2008.02.20 - AVG 7.5.0.516 2008.02.21 - BitDefender 7.2 2008.02.21 - CAT-QuickHeal 9.50 2008.02.21 - ClamAV 0.92.1 2008.02.21 - DrWeb 4.44.0.09170 2008.02.21 - eSafe 7.0.15.0 2008.02.21 - eTrust-Vet 31.3.5552 2008.02.21 - Ewido 4.0 2008.02.21 - FileAdvisor 1 2008.02.21 - Fortinet 3.14.0.0 2008.02.21 - F-Prot 4.4.2.54 2008.02.20 - F-Secure 6.70.13260.0 2008.02.21 - Ikarus T3.1.1.20 2008.02.21 - Kaspersky 7.0.0.125 2008.02.21 - McAfee 5234 2008.02.20 - Microsoft 1.3204 2008.02.20 - NOD32v2 2893 2008.02.21 - Norman 5.80.02 2008.02.21 - Panda 9.0.0.4 2008.02.21 - Prevx1 V2 2008.02.21 - Rising 20.32.32.00 2008.02.21 - Sophos 4.26.0 2008.02.21 - Sunbelt 3.0.884.0 2008.02.21 - Symantec 10 2008.02.21 - TheHacker 6.2.9.225 2008.02.21 - VBA32 3.12.6.1 2008.02.21 - VirusBuster 4.3.26:9 2008.02.21 - Webwasher-Gateway 6.6.2 2008.02.21 - weitere Informationen File size: 712192 bytes MD5: 2fd31049d59474ca18404cdb42a59eae SHA1: 596f677881a060ddc52fe75ed6d04920ee5c9af7 PEiD: -

das wärs fürs erste

Ciao!

_________________
Ich bin wie ich bin, ich kann was ich kann, und wer mit mir nicht kann, der kann mich mal

erst mal danke

jo, is eig klar, dass ² entweder mit __ oder _ oder % oder sonst wie interpretiert wird, aber wenn du dir die datei-größe ansiehst wirst merken, dass es stimmt

sonst noch: was willst du für 25 mins (inkl. den grafiken), da kann nicht alles perfekt sein

_________________
Ich bin wie ich bin, ich kann was ich kann, und wer mit mir nicht kann, der kann mich mal

So viel Aufwand für so wenig Arbeit?

_________________

jo^^ nebenbei Simpsons gugge, Mando Diao reinziehn, leute in msn und icq abwimmeln ghört auch dazu

reine arbeitszeit war vielleicht 10 mins oder so (mit grafiken, also auch splashscreen)

_________________
Ich bin wie ich bin, ich kann was ich kann, und wer mit mir nicht kann, der kann mich mal

Gute Arbeit nur ein paar Sachen müsste man ansprechen:

1. Wieso erstellst du beim Wiederherstellen 2 WScript.Shell-Objekte, kann man das nicht in dem ersten Objekt mit ausführen?

Code: Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click         WSHShell = CreateObject("WScript.Shell")         WSHShell.RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft\GamePath", "C:\Programme\World of Warcraft\Launcher.exe")         WSHShell = CreateObject("WScript.Shell")         WSHShell.RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft\GamePath", "C:\Program Files\World of Warcraft\Launcher.exe")         MsgBox("Standard erfolgreich wieder hergestellt!") End Sub

2. Bei Dateinamen bitte keine Umlaute

3. Hast du irgendjemanden aus dem Team gefragt ob du das OVI Design verwenden darfst, auch wenn ein Copyright fehlen sollte?

Du schreibst C:\Program Files\World of Warcraft\WoW.exe oder C:\Programme\World of Warcraft\WoW.exe in die Registry
oder täusche ich mich da.
Was aber wenn das WoW an anderen orten installiert ist?

_________________

Ich für meinen Teil schließe mich Xath hier an....

Ich hau generell kein Game nach C und zu 100% nicht in den Programmordner

_________________

Zitat: Caarcrinolas hat geschrieben Ich für meinen Teil schließe mich Xath hier an.... Ich hau generell kein Game nach C und zu 100% nicht in den Programmordner

/sign

D:\Spiele\ ftw

Zitat: Endrju hat geschrieben Zitat: Agahnim hat geschrieben D:\Spiele\ ftw lal bei mir auch Wie wär's mit einer Umsetzung unserer Vorschläge?

oder
e:/.... ... ...
f:/... ... ...
.
.
.
usw. usf.

kann man dies nicht irgendwie "automatisieren", also das dieses
tool erkennt wo es "installiert"/kopiert ist und entsprechend die
eintraege anpaßt ?? (aehnlich wie bei dem unreal tournament tool welches die registry anpaßt(wers kennt, weiß was ich meine))

MfG

_________________

"Die Zensur ist die jüngere von zwei schändlichen Schwestern, die ältere heißt Inquisition." (Johann Nestroy †)

hmm vielleicht gibt es eine Möglichkeit die WinSuche über die WinAPI anzusteuern und damit nach der WoW.exe zu suchen...

Oder aber man ermittelt über die WinAPI alle verfügbaren Partitionen und geht rekursiv durch alle Verzeichnisbäume bis man die wow.exe hat oder alle Pfade abgegrast hat

Oder man lässt den User auswählen wo er es installiert hat, was manche bereits schon überfordert

_________________