XP-AntiSpy ohne ebay..

Hi AutoIt3-Community,
eigentlich hat es mich schon immer genervt, daß AntiSpy mit diesem sinnlosen
ebay-Dingsda startet. Nun gut, ich kann es JEDESMAL wegklicken..
..na, das läßt sich doch wohl automatisieren! Und wie:

;<AutoItScript>
;Opt("MustDeclareVars", 1)  ;0=no, 1=require pre-declare
#NoTrayIcon
;+----------------------------------------------------------------------------+
;|    Header: Bestimmen der Übergabeparameter                                 |
;|    ( Alles Strings(!!!), bis auf ArgC )                                    |
;|    FontAnzeigeCheck: |Il1 sind Alt-0124, Großes i, Kleines L, Eins         |
Const $Author="AntiSpy.au3 ©2006 by ytwinky, MD";                             |
;|    EMail: [EMAIL]PIII1kSystem-AutoIt3Forum@yahoo.de[/EMAIL]                               |
;|    (Tastenkombination: keine)                                              |
;|    AutoIt3-Version: 3.1.1.118(beta)                                        |
;|    Editor: SciTE 1.67, feste Schriftart                                    |
;|    Zweck : Ruft Same.Exe mit großem Feld und ohne Sound auf                |
;|    Tab auf 2 setzen wg. Lesbarkeit                                         |
;+----------------------------------------------------------------------------+
Const $Titel="xp-AntiSpy"
Const $Mes1="Error 404..", $Mes2=$Titel &" nicht gefunden.."
Const $Mes3=" ist wohl nicht (richtig) installiert.." &@Lf &"Jetzt suchen ?"
Const $Mes4=" suchen..", $Mes5="Nur Exe(*.Exe)"


Dim $AntiSpy=GetRegAppDir($Titel), $Handle
If $AntiSpy="" Then ; Ooops..
	MsgBox(4096, $Mes1, $Mes2)
Else ; Ok, let's do it..
	Run($AntiSpy) ; should work with EggsPee..
	WinWaitActive(WinGetHandle($Titel)) ; w8 .. Window active
        Sleep(100) ;besser isses..
	ControlClick($Titel, "", "Button1") ; ..and close the f..ing ebay-thingy
EndIf


;<Unterprogramme>


Func GetRegAppDir($Which) ;funzt
	Local $RegKey="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths"
	Local $i, $s, $w, $Fehler
	Do
		$i+=1
		$w=RegEnumKey($RegKey, $i)
		$Fehler=@Error
		If $Fehler=0 Then
			If StringInstr(StringLower($RegKey &$w), StringLower($Which)) Then $s=RegRead($RegKey &$w, "")
		EndIf
	Until $Fehler<>0
	If $s="" Then
		If MsgBox(4096+48+4, "Ooops..", $Which &$Mes3)<>6 Then Exit
		$s=FileOpenDialog($Which &$Mes4, "Desktop", $Mes5)
	EndIf
	Return $s
EndFunc


;</AutoItScript>

Nichts gegen ebay(ich bin da auch..), aber was nervt, das nervt!
Happy AntiSpying ohne ebay..
Gruß
ytwinky
[Edit]

Gut gemacht, gtaspider
Ich hätte es selber nicht besser gekonnt
In diesem Fall sind die ganzen Const-Anweisungen auch eine Hilfe:
Soll das Skript eine andere Sprache bekommen, brauch ich nur am Anfang die Const-Anweisungen
zu bearbeiten(wie auch immer..)
Gruß
ytwinky

Zitat

Original von GrungeRocker
man kann es auch in ne andere sprache übersetzen, wenn man sie nicht als const deklariert sondern normal dimmed.....

Normal dedimmte Variablen brauch ich aber nicht zu berücksichtigen, wenn ich nach Consts suche

Zitat

Original von GrungeRockerund:
als "programmierer" bzw scripter DARF es nicht passieren dass man 2 mal die gleiche variable deklariert....

könntest du das mal präzisieren?

Zitat

;Opt("MustDeclareVars", 1) ;0=no, 1=require pre-declare

ist dazu da, um genau das zu verhindern
Gruß
ytwinky

Hmmmm, Manuel..
..den Namen habe ich doch schon mal gelesen und der Avatar kommt mir auch nicht unbekannt vor
..allerdings aus dem freebasic-Forum, denn im QB-Forum poste ich nur ganz ganz selten
Glaubst du ernsthaft, daß es viele ytwinky's gibt mit einem Magdeburg-Avatar?
..außerdem: da ich im Chat schon zweimal auf:
Kuckma, heute erst recht
verwiesen habe, ist der Rest eigentlich keine große Kunst mehr, oder?
Gruß
ytwinky

Ich habe mich wirklich gefragt, was passiert, wenn ein neues XP-AntiSpy herauskommt..
Jetzt weiß ich es:
1. Version 3.96 ist draußen
2. Das AutoIt-Skript funktioniert nach wie vor problemlos(*aufdenputzhauundganzstolzsei*)
[Edit]
Auch mit der neuen Version 3.96-1 funktioniert das Skript nach wie vor..
(nicht nur, weil es funktioniert, sondern als Hinweis, daß es eine neue Version gibt..)
[Edit2 *WICHTIG*]
xp-antispy 3.96-1 ist buggy
http://www.pcwelt.de/news/sicherheit/44530/index.html
Sauge gerade..
..ausgesaugt..
..und läuft, obwohl ich einen Fehler gar nicht bemerkt habe
Gruß
ytwinky

Hi,
..ja, mich gibt's noch
Ich bin zur Zeit aber sehr beschäftigt und habe in erster Linie Zeit für FreeBASIC..
Doch ich bin AutoIt-technisch gesehen auf dem neuesten Stand
Voller Stolz kann ich mitteilen, daß mein Script auch mit der neuesten Version von XP-Antispy 3.96-3d funktioniert..
..auffälligster Unterschied:
per Klick kann die Installation des IE7 verhindert werden
Als alter (Feuer-)Fuchs habe ich das natürlich gleich aktiviert..
Gruß
ytwinky