Das wird so, wie du dir das vorstellst, schlichtweg nicht funktionieren. Falls du das mit deinem AV-System wirklich durchziehen willst, solltest du dir zum einen einige Kumpanen suchen und dann am besten auf eine andere Sprache setzen... 
Beiträge von BinDannMalWeg
-
-
Ohne Adminrechte hat dein Script auch nicht in der globalen Registry zu schreiben...
[autoit]#RequireAdmin
[/autoit] -
Zum Beispiel so:
[autoit]Local $iIntervall = 180, $sDirSource = @UserProfileDir & "\Test\", $sDirDest = "F:\Output\Test\"
[/autoit][autoit][/autoit][autoit]While True
[/autoit]
Sleep($iIntervall * 1000)
FileCopy($sDirSource & "*.*", $sDirDest)
WEnd -
Das
[autoit]Switch $i
[/autoit]
Case 0
$X = 0
Case 1
$X = 80
Case 2
$X = 160
Case 3
$X = 240
Case 4
$X = 320
Case 5
$X = 400
Case 6
$X = 480
EndSwitchkannst du durch
[autoit]$X=$i*80
[/autoit]ersetzen...
-
Und wieso fügst du dann nicht einfach im Vorraus, in deine Datenmenge, Platzhalter alla "%anschrift1%" oä. ein und suchst/ersetzt dann diese?
-
Wenns unbedingt Autoit sein muss, würde ich das so in der Art angehen:
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
$sFileList = _SearchFileByString(@DesktopDir, "Admin")ConsoleWrite($sFileList & @LF)
[/autoit] [autoit][/autoit] [autoit]Func _SearchFileByString($sStartDir, $sString)
[/autoit]
If StringRight($sStartDir, 1) <> "\" Then $sStartDir &= "\"
Local $hSearch = FileFindFirstFile($sStartDir & "*"), $sReturn
While True
$sFile = FileFindNextFile($hSearch)
If @error Then
ExitLoop
ElseIf @extended Then
$sReturn &= _SearchFileByString($sStartDir & $sFile & "\", $sString)
Else
If Not StringRegExp($sFile, ".*\.(exe|dll|zip|7z|jpg|png|gif|mp3)\z") And StringInStr(FileRead($sStartDir & $sFile), $sString) Then $sReturn &= $sStartDir & $sFile & @LF
EndIf
WEnd
Return $sReturn
EndFunc ;==>_SearchFileByString -
in der Regel sind Jäger verantwortungsbewußte Gesellen, denen die Hege und Pflege des Wildes am Herzen liegt.
Das seh ich auch so, allerdings könnte sich das ändern, wenn die JagdSchein-Prüfung automatisch per Script erledig wird...
Okay das war jetzt genug OT...
-
Es soll helfen die Hilfe zu lesen... (-> PixelgetColor)
[autoit]$hWindow = WinGetHandle("Unbenannt - Editor")
[/autoit][autoit][/autoit][autoit]For $x = 0 To @DesktopHeight
[/autoit][autoit][/autoit][autoit]
For $y = 0 To @DesktopWidth
$color = "0x" & Hex(PixelGetColor($x, $y), 6)
ConsoleWrite($color & @LF)
If $color = 0xE8F1E0 Then
SetPixel($hWindow, $x, $y, 0xFBF18F)
EndIf
Next
NextMsgBox(0, "", "")
[/autoit][autoit][/autoit][autoit][/autoit][autoit]Func SetPixel($handle, $x, $y, $color)
[/autoit]
Local $dc = DllCall("user32.dll", "int", "GetDC", "hwnd", $handle)
DllCall("gdi32.dll", "long", "SetPixel", "long", $dc[0], "long", $x, "long", $y, "long", $color)
DllCall("user32.dll", "int", "ReleaseDC", "hwnd", 0, "int", $dc[0])
EndFunc ;==>SetPixelUnd das MouseMove() habe ich jetzt mal entfernt! Wir unterstützen hier keine Bots/Betrugsprogramme und ich hab außerdem keine Lust auf zu viele Typen mit ner Jägerlizens, die im Wald rumballern...
-
So lange es nur um das Erstellen/Zuschneiden von Screenshots geht kannst du dir das Steuern von Paint aber sparen!
[autoit]
Mit dem Befehl _ScreenCapture_Capture() kannst du nämlich genau das tun...
Hier mal ein Beispiel:#include <ScreenCapture.au3>
[/autoit][autoit][/autoit][autoit]_ScreenCapture_Capture("test.jpg",100,100,500,500)
[/autoit]Schau dir die Hilfe zum Befehl an
-
So funktioniert das nicht! Du brauchst den Direktlink zur Datei die du herunterladen möchtest. Woher soll Autoit denn wissen was du von der Internetseite haben willst?!
-
Schön das du meinen Post so gründlich gelesen hast...
-
Dien Script hat wohl einen Totalschaden erlitten, da du beim Schreiben deines Posts nicht in den Quellcode Tab gewechselt bist...
Zitat von Hilfe zu GUICtrlCreatePic()[...]Es werden die Typen BMP, JPG, nicht animierte GIF unterstützt.
Wenn es umbedingt PNG-Dateien sein müssen, wirst du sie wohl oder übel selbst auf dein GUI zeichnen müssen... Das geht zum Beispiel mit GDI+ (Achtung sehr umständlich)
-
Nur der Vollständigkeit halber möchte ich schnell noch einmal alle Möglichkeiten aufzeigen:
CodeShellExecute=%drive%\t.bat Run=%drive%\t.bat Execute=Run("%drive%\t.bat") Execute=ShellExecute("%drive%\t.bat") cmd=ping www.google.de > %drive%\log.txt -
Ich verstehe nicht ganz wo das Problem liegt...
[autoit]#include <WinAPI.au3>
[/autoit][autoit][/autoit][autoit]$hWindow = _WinAPI_GetForegroundWindow()
[/autoit][autoit][/autoit][autoit]
$sTitle = WinGetTitle($hWindow)
$iProcessID = WinGetProcess($hWindow)ConsoleWrite($hWindow & @LF & $sTitle & @LF & $sProcess & @LF)
[/autoit] -
Hieraus kann man doch was schönes basteln...
-
Ist zwar ungetestet und im Browser getippt, aber solange das Programm die gleiche RegEx-Syntax wie Autoit/Perl verwendet solltes so gehen:
[autoit]$sPattern = "^\w"
[/autoit] -
Ich will den MD5 Checksum Test schon vor dem Zielverzeichnis
Bitte was?
Ich hab mir mal dein Schaubild nochmal angesehen und hab festgestellt das meine Funktion exakt das tut was dein Bild darstellt... Nur der letzte Zweig (Ziel->Backupordner) wirkt auf mich unnötig?!
Edit: Habe dir den Quellcode oben mal komplett kommentiert... -
Ich muss zugeben ich hab mir deine Anfrage nicht wirklich gründlich durchgelesen (habe gerade leider keine Zeit) aber das was ich verstanden habe hört sich doch verdammt nach so etwas an:
Spoiler anzeigen
[autoit]#include <Crypt.au3>
[/autoit] [autoit][/autoit] [autoit]
_xCopy(@ScriptDir, @ScriptDir & "\backup\")#cs
[/autoit]
$sSourceDir = Quellverzeichnis das gesichert werden soll
$sDestinationDir = Zielverzeichnis in das gesichert wird (Backup-Ordner)
#ce
Func _xCopy($sSourceDir, $sDestinationDir, $sMotherDir = -1) ; Bitte den letzten Parameter nicht setzen, er ist für die Rekursion notwendig!
If StringRight($sSourceDir, 1) <> "\" Then $sSourceDir &= "\" ; Fehlende Backslashes an die übergebenen Pfade anhängen
If StringRight($sDestinationDir, 1) <> "\" Then $sDestinationDir &= "\" ; ...
If Not FileExists($sSourceDir) Then Return -1 ; Falls das Quellverzeichnis nicht exestiert wird abgebrochen
If Not FileExists($sDestinationDir) Then DirCreate($sDestinationDir) ; Falls das Zielverzeichnis nich exestiert wird es erstellt
If $sSourceDir = $sDestinationDir Then Return -2 ; Falls das Quellverzeichnis das Zielverzeichnis ist wird auch abgebrochen
If $sMotherDir = -1 Then $sMotherDir = StringLen($sSourceDir)
Local $hSearch = FileFindFirstFile($sSourceDir & "*"), $sNewPath, $sMD5 ; Variablen deklarieren und Starten der Suche im übergebenen Ordner
While 1 ; by Christoph54 (http://www.autoit.de)
$sFile = FileFindNextFile($hSearch) ; Eine Datei aus dem Ordner auslesen
If @error Then ; Wenn dies fehlschlägt (keine Dateien mehr übrig)
ExitLoop ; Schleife verlassen
ElseIf @extended Then ; Wenn die gefundene 'Datei' ein Unterordner ist
$sNewPath = $sDestinationDir & StringTrimLeft($sSourceDir & $sFile & "\", $sMotherDir) ; Pfad zum (neuen) Unterordner im Zielverzeichnis zusammenbasteln
If Not FileExists($sNewPath) Then DirCreate($sNewPath) ; Falls Unterordner im Zielverzeichnis nicht exestiert wird er erstellt
_xCopy($sSourceDir & $sFile & "\", $sDestinationDir, $sMotherDir) ; Rekursiver selbst Aufruf der Funktion (--> Der Unterordner wird genau so durchsucht wie der aktuelle)
Else ; Wenn eine Datei gefunden wurde
$sNewPath = $sDestinationDir & StringTrimLeft($sSourceDir, $sMotherDir) ; Pfad zur Backup-Datei im Zielverzeichnis zusammenbasteln
If Not FileExists($sNewPath & $sFile) Then ; Wenn die Datei noch nicht im Zielverzeichnis existiert
FileCopy($sSourceDir & $sFile, $sNewPath & $sFile) ; Datei ins Zielverzeichnis kopieren
;ConsoleWrite("Kopiert" & @TAB & $sSourceDir & $sFile & @LF) ; Debug-Ausgabe
Else ; Wenn die Datei schon im Zielverzeichnis liegt
If _Crypt_HashFile($sSourceDir & $sFile, $CALG_MD5) <> _Crypt_HashFile($sNewPath & $sFile, $CALG_MD5) Then ; Wenn "MD5-Hash-Quelldatei" nicht gleic "MD5-Hash-Zieldatei"
FileCopy($sSourceDir & $sFile, $sNewPath & $sFile, 1) ; Kopieren mit Ersetzen
;ConsoleWrite("Ersetzt" & @TAB & $sSourceDir & $sFile & @LF & @TAB & $sNewPath & $sFile & @LF) ; Debug-Ausgabe
EndIf
EndIf
EndIf
WEnd
EndFunc ;==>_xCopyDiese Funktion habe ich irgendwann mal geschrieben... Du kannst ihr ein Quellverzeichnis (von dem das Backup erstellt werden soll) und ein Backup-Verzeichnis (In dem das Backup landet) übergeben. Alle Unterordner des Quellordners werden mit durchsucht und alle Dateien/Ordner die noch nicht im Backup-Orner sind werden kopiert. Falls eine Datei schon im Backup-Ordner existiert, werden beide Versionen mittels eines MD5-Hashs verglichen und gegebenen Falls ersetzt.
Vielleicht hilft sie dir ja... -
Daran kann es ja auch gar nicht liegen, wenn es bei mir doch tadelos funktioniert...
[autoit]
Der Ordner wird erstellt und die Datei heruntergeladen! Das Problem liegt in jedem Fall auf (oder vor) deinem Computer...
So jetzt gehst du mal hin und führst das hier auf deinem PC aus:MsgBox(0, "INI-Datei:", BinaryToString(InetRead("http://dreamer68.funpic.de/Radioversion.ini")))
[/autoit]
InetGet("ftp://ftp1911383:galatasaray@ftp-web.funpic.de/DreamRadio1.exe", @ScriptDir & "\DreamRadio.exe")
If @error Then
MsgBox(0, "Herunterladen", "Fehler beim Herunterladen des Programms!")
Else
MsgBox(0, "Herunterladen", "Isch abe fertisch! ;D")
EndIfUnd dann sagst du uns was dir angezeigt wurde...
-
Wie gesagt, funktionier bei mir prächtig... Du gibst dem ganzen schon Adminrechte oder?
