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:
Spoiler anzeigen
Code
;<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>
Alles anzeigen
Nichts gegen ebay(ich bin da auch..), aber was nervt, das nervt!
Happy AntiSpying ohne ebay..
Gruß
ytwinky
[Edit]
Spoiler anzeigen
gefällt mir gut