ich schau mir beides mal an
Vielen Dank Euch!
ich schau mir beides mal an
Vielen Dank Euch!
An welche Stelle muß nun der Code
[autoit]GuictrlsetData($progress,$n/$file[0]*100)
[/autoit]von letsgo rein?
Muß dafür vorher/nachher noch irgendwas eingebunden werden?
Danke schonmal für Eure Hilfe!
Hallo zusammen,
hat jemand evtl. schon ein fertiges Script, um Verbindung mit einem MS SQL Server 2008
aufzunehmen und dort ein einfaches select statement abzusetzen, welches dann ausgegeben werden soll (z.B. in einem Array).
Alles was ich bis jetzt dazu fand, sind - für mich - relativ zusammenhanglose Schnipsel.
Ich bin in Sachen AutoIt ein Anfänger und sehe leider (für die meisten logischen) Zusammenhänge nicht unbedingt.
Viele Grüße
Jörg
Ein Nicht-Programmierer versteht schlicht und ergreifend viele Zusammenhänge nicht,
die einem Programmierer klar sind :wacko:
Du schreibst z.B.: "läßt sich ganz einfach berechnen" und fügst eine Codezeile ein.
Ich weiß in dem Fall noch nicht einmal wo ich das einsetzen soll
Bis jetzt sieht der funktionierende Code so aus:
#Include <FTPEx.au3>
#include <File.au3>
#include <Array.au3>
#include <Misc.au3>
$FTPServer = "ftp.test.it"
$FTPBenutzer = "username"
$FTPPasswort = "passw"
$FTPFolder = "/folder1/subfolder"
$FTPSession = "mysession"
$OPEN = _FTP_Open("MeinFTP")
$CONN = _FTP_Connect($OPEN,$FTPServer,$FTPBenutzer,$FTPPasswort)
_FTP_DirSetCurrent($CONN, $FTPFolder)
[/autoit] [autoit][/autoit] [autoit]$file=_FileListToArray(@ScriptDir,'*.jpg',1)
For $n=1 to $file[0]
_FTP_FilePut($CONN,@ScriptDir&"\" &$file[$n],$file[$n])
Next
_ArrayDisplay ($file)
$Ftpc = _FTP_Close($OPEN)
Wow - ans Array habe ich als Anti-Programmierer mal wieder nicht gedacht!
Vielen lieben Dank!
Jetzt brauch ich nur noch eine Fortschrittsanzeige und dann is mein Problemchen schon gelöst
Hallo zusammen,
ich suche verzweifelt eine Möglichkeit, um mehrere Dateien per ftp hochladen zu können.
Unter Windows habe ich ja z.B. mittels "mput *.jpg" die Möglichkeit, alle jpg's des aktuellen
Ordners hochzuladen.
Gibt es einen analogen Befehl in AutoIt?
Ich hab bis jetzt leider nichts gefunden.
Viele Grüße
Jörg
W O W
Vielen lieben Dank!
Funktioniert perfekt
Hallo Marvin,
vielen Dank für Deine Unterstützung!
Das Script wird jetzt sauber beendet, sprich das Problem mit der Endlosschleife ist behoben.
Jedoch wird noch immer nicht alles gelöscht
Ausgangssituation: 6 Einträge in der Registry
Script läuft das 1. Mal --> löscht 3 Einträge
Script läuft das 2. Mal --> löscht 2 Einträge
Script läuft das 3. Mal --> löscht 1 Eintrag
Und das noachvollziehbar jedes Mal
Viele Grüße
Jörg
habe Deinen Code 1:1 übernommen
auf 2 verschiedenen PC's ausprobiert und beide Male läuft das Script in einer Endlosschleife und löscht mir nur 2 Einträge
Sorry wenn ich nochmal "nerve", aber ich komme leider noch immer nicht weiter;
aktuell gibt es noch 2 Probleme.
bei folgendem Script fehlt noch die Deklaration von $iDel
mit $iDel = 1
dann funktioniert es, aber das Script endet nie
bei $iDel = 0
passiert gar nix
$i = 1
Do
$var = RegEnumKey("HKCU\Software\Microsoft\Windows\Currentversion\Explorer\Mountpoints2", $i)
If StringLeft($var, 2) = "##" Then
$iDel = RegDelete("HKCU\Software\Microsoft\Windows\Currentversion\Explorer\Mountpoints2\" & $var)
EndIf
$i += 1
Until $iDel = 0
Das zweite Problem:
Das Script löscht nicht alle Einträge in einem Rutsch.
Lasse ich es öfters laufen, so wird sauber gelöscht;
Lösche ich jeden Eintrag aus der Registry mit RegDelete, so funktioniert dies auch ohne Probleme;
Irgendwas bringt die Schleife zum Exit... :wacko:
hm - wenn ich so deklariere
$iDel = 1
dann funktioniert es, aber das Script endet nie
sage ich
$iDel = 0
so passiert gar nix
i2c: sorry - gleicher Fehler, diesmal in Zeile 8
i2c: ich bekomme leider den Fehler "Variable used without being declared."
BugFix : OK - vielen Dank; was aber komisch ist, denn wenn ich den String "zu Fuß" lösche, dann klappt es problemlos;
sprich wenn ich nun 10 zu löschende Einträge habe und 10 Zeilen beginnend mit "RegDelete....." eintrage, so löscht er
alle Einträge zuverlässig;
mache ich das mit dieser for...next Abfrage, so löscht er ein paar und der Rest bleibt stehen; starte ich das Script erneut, so werden wieder ein paar gelöscht
Komisch...
Zitat von »Baruse«
- die Begrenzung auf 30 (ich weiß leider nicht wie ich es variabel gestalten kann
Schreib doch einfach 1.000 oder 10.000 hin. Wenn nichts mehr gefunden wird, wird ja auch die Schleife verlassen.
stimmt schon - ich finde nur daß es "unsauber" aussieht
Zitat von »Baruse«
so löscht er nur ein paar anstatt alle.
Lass dir doch der @error-Wert ausgeben vom Löschvorgang. Evtl. besteht keine Zugriffsberechtigung (bzw. nur Lesen) auf diesen Schlüssel.
das komische ist: wenn ich das nun 3x laufen lasse, so löscht er mir jedesmal ein paar
Schreib doch einfach 1.000 oder 10.000 hin. Wenn nichts mehr gefunden wird, wird ja auch die Schleife verlassen.
Lass dir doch der @error-Wert ausgeben vom Löschvorgang. Evtl. besteht keine Zugriffsberechtigung (bzw. nur Lesen) auf diesen Schlüssel.
Ich habe jetzt mal folgendes eingefügt:
If @error <> 0 then MsgBox (64, "Fehler", @error)
[/autoit]
da kommt dann 7x ein Fenster mit dem Wert "-1" und danach ist Schluß
Hallo zusammen,
ich möchte bestimmte Subkeys in der Registry löschen.
Mit einer for...next Schleife frage ich zunächst einmal die Enträge ab.
Ich habe nun 2 Probleme:
- die Begrenzung auf 30 (ich weiß leider nicht wie ich es variabel gestalten kann
- Das Anzeigen der Einträge in der MsGBox funktioniert - wenn ich per RegDelete löschen will,
so löscht er nur ein paar anstatt alle.
Habt Ihr eine Idee?
for $i = 1 to 30
$var = RegEnumKey("HKCU\Software\Microsoft\Windows\Currentversion\Explorer\Mountpoints2", $i)
If @error <> 0 then ExitLoop
If StringLeft ($var,2) = "##" Then
MsgBox(4096, "SubKey" & $i & " under ", $var)
;RegDelete ("HKCU\Software\Microsoft\Windows\Currentversion\Explorer\Mountpoints2\"&$var)
EndIf
Next
Vielen Dank & viele Grüße
Jörg
Hallo zusammen,
anbei die Silent Installation von Avira 9 mit dauerhafter Deaktivierung
des nervigen Werbefensters.
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.0.0
Author: Baruse
Datum: 26.05.2009
Script Function: Avira AntiVir Installation (Version 9).
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]Opt("TrayIconDebug", 1)
Run ("avira_antivir_personal_de_bd394.exe")
WinWait("Avira AntiVir Personal - Free Antivirus", "")
WinActivate("Avira AntiVir Personal - Free Antivirus", "Weiter")
ControlClick("Avira AntiVir Personal - Free Antivirus", "Weiter", "Button1")
WinWait("Avira AntiVir Personal - Free Antivirus", "Willkommen")
ControlClick("Avira AntiVir Personal - Free Antivirus", "Weiter", "Button2")
WinWait("Avira AntiVir Personal - Free Antivirus", "Avira AntiVir Personal - Free Antivirus ist dafür konzipiert")
ControlClick("Avira AntiVir Personal - Free Antivirus", "Weiter", "Button2")
WinWait("Avira AntiVir Personal - Free Antivirus", "Lizenzvereinbarung")
ControlCommand("Avira AntiVir Personal - Free Antivirus", "Ich &akzeptiere die Bedingungen", "Button1", "Check", "")
WinActivate("Avira AntiVir Personal - Free Antivirus", "Weiter")
ControlClick("Avira AntiVir Personal - Free Antivirus", "Weiter", "Button3")
WinWait("Avira AntiVir Personal - Free Antivirus", "Ich bestätige")
ControlCommand("Avira AntiVir Personal - Free Antivirus", "Ich bestätige", "Button2", "Check", "")
WinActivate("Avira AntiVir Personal - Free Antivirus", "Weiter")
ControlClick("Avira AntiVir Personal - Free Antivirus", "Weiter", "Button5")
WinWait("Avira AntiVir Personal - Free Antivirus", "Wählen Sie aus, wie das Programm installiert")
ControlClick("Avira AntiVir Personal - Free Antivirus", "Vollständig", "Button1")
WinActivate("Avira AntiVir Personal - Free Antivirus", "Weiter")
ControlClick("Avira AntiVir Personal - Free Antivirus", "Weiter", "Button7")
WinWait("Avira AntiVir Personal - Free Antivirus Lizenz-Assistenten", "")
ControlCommand("Avira AntiVir Personal - Free Antivirus Lizenz-Assistenten", "Ja, ich möchte mich für den Avira Newsletter registrieren", "Button1", "UnCheck", "")
ControlCommand("Avira AntiVir Personal - Free Antivirus Lizenz-Assistenten", "Ja, ich möchte mich als Nutzer der Avira AntiVir Personal - Free Antivirus registrieren", "Button2", "UnCheck", "")
WinActivate("Avira AntiVir Personal - Free Antivirus", "Weiter")
ControlClick("Avira AntiVir Personal - Free Antivirus", "Weiter", "Button5")
WinWait("Avira AntiVir Personal - Free Antivirus", "Installation beendet")
ControlCommand("Avira AntiVir Personal - Free Antivirus", "Readme.txt anzeigen", "Button1", "UnCheck", "")
WinActivate("Avira AntiVir Personal - Free Antivirus", "Fertig stellen")
ControlClick("Avira AntiVir Personal - Free Antivirus", "Fertig stellen", "Button12")
WinWait("Konfigurationsassistent", "")
WinActivate("Konfigurationsassistent", "&Weiter >")
ControlClick("Konfigurationsassistent", "&Weiter >", "Button2")
WinWait("Konfigurationsassistent", "CfgWizard::Heuristic")
ControlCommand("Konfigurationsassistent", "AHeAD Heuristik aktivieren", "Button1", "Check", "")
ControlClick("Konfigurationsassistent", "Erkennungsstufe mittel", "Button3")
WinActivate("Konfigurationsassistent", "&Weiter >")
ControlClick("Konfigurationsassistent", "&Weiter >", "Button6")
WinWait("Konfigurationsassistent", "CfgWizard::Unwanted")
WinActivate("Konfigurationsassistent", "&Standardwerte")
ControlClick("Konfigurationsassistent", "&Standardwerte", "Button2")
WinActivate("Konfigurationsassistent", "&Weiter >")
ControlClick("Konfigurationsassistent", "&Weiter >", "Button8")
WinWait("Konfigurationsassistent", "CfgWizard::StartMode")
ControlClick("Konfigurationsassistent", "Normaler Start", "Button1")
WinActivate("Konfigurationsassistent", "&Weiter >")
ControlClick("Konfigurationsassistent", "&Weiter >", "Button10")
WinWait("Konfigurationsassistent", "")
ControlCommand("Konfigurationsassistent", "Kurze Systemprüfung nach der Installation durchführen", "Button1", "Check", "")
WinActivate("Konfigurationsassistent", "&Weiter >")
ControlClick("Konfigurationsassistent", "&Weiter >", "Button11")
WinWait("Konfigurationsassistent", "CfgWizard::Finish")
WinActivate("Konfigurationsassistent", "Fertig stellen")
ControlClick("Konfigurationsassistent", "Fertig stellen", "Button12")
#region ### Werbung abschalten ###
RegWrite("HKLM\SOFTWARE\Policies\Microsoft\Windows\Safer\CodeIdentifiers")
RegWrite("HKLM\SOFTWARE\Policies\Microsoft\Windows\Safer\CodeIdentifiers", "AuthenticodeEnabled", "REG_DWORD", 0)
RegWrite("HKLM\SOFTWARE\Policies\Microsoft\Windows\Safer\CodeIdentifiers", "DefaultLevel", "REG_DWORD", 262144)
RegWrite("HKLM\SOFTWARE\Policies\Microsoft\Windows\Safer\CodeIdentifiers", "ExecutableTypes", "REG_MULTI_SZ", "ADE" & @LF & "ADP" & @LF & "BAS" & @LF & "BAT" & @LF & "CHM" & @LF & "CMD" & @LF & "COM" & @LF & "CPL" & @LF & "CRT" & @LF & "EXE" & @LF & "HLP" & @LF & "HTA" & @LF & "INF" & @LF & "INS" & @LF & "ISP" & @LF & "LNK" & @LF & "MDB" & @LF & "MDE" & @LF & "MSC" & @LF & "MSI" & @LF & "MSP" & @LF & "MST" & @LF & "OCX" & @LF & "PCD" & @LF & "PIF" & @LF & "REG" & @LF & "SCR" & @LF & "SHS" & @LF & "URL" & @LF & "VB" & @LF & "WSC")
RegWrite("HKLM\SOFTWARE\Policies\Microsoft\Windows\Safer\CodeIdentifiers", "PolicyScope", "REG_DWORD", 0)
RegWrite("HKLM\SOFTWARE\Policies\Microsoft\Windows\Safer\CodeIdentifiers", "TransparentEnabled", "REG_DWORD", 1)
RegWrite("HKLM\SOFTWARE\Policies\Microsoft\Windows\Safer\CodeIdentifiers\262144\Paths\{191cd7fa-f240-4a17-8986-94d480a6c8ca}")
RegWrite("HKLM\SOFTWARE\Policies\Microsoft\Windows\Safer\CodeIdentifiers\262144\Paths\{191cd7fa-f240-4a17-8986-94d480a6c8ca}", "Description", "REG_SZ", "allow Windows directory")
RegWrite("HKLM\SOFTWARE\Policies\Microsoft\Windows\Safer\CodeIdentifiers\262144\Paths\{191cd7fa-f240-4a17-8986-94d480a6c8ca}", "ItemData", "REG_EXPAND_SZ", "%HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SystemRoot%")
RegWrite("HKLM\SOFTWARE\Policies\Microsoft\Windows\Safer\CodeIdentifiers\262144\Paths\{191cd7fa-f240-4a17-8986-94d480a6c8ca}", "SaferFlags", "REG_DWORD", 0)
RegWrite("HKLM\SOFTWARE\Policies\Microsoft\Windows\Safer\CodeIdentifiers\262144\Paths\{d2c34ab2-529a-46b2-b293-fc853fce72ea}")
RegWrite("HKLM\SOFTWARE\Policies\Microsoft\Windows\Safer\CodeIdentifiers\262144\Paths\{d2c34ab2-529a-46b2-b293-fc853fce72ea}", "Description", "REG_SZ", "allow programs directory")
RegWrite("HKLM\SOFTWARE\Policies\Microsoft\Windows\Safer\CodeIdentifiers\262144\Paths\{d2c34ab2-529a-46b2-b293-fc853fce72ea}", "ItemData", "REG_EXPAND_SZ", "%HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\ProgramFilesDir%")
RegWrite("HKLM\SOFTWARE\Policies\Microsoft\Windows\Safer\CodeIdentifiers\262144\Paths\{d2c34ab2-529a-46b2-b293-fc853fce72ea}", "SaferFlags", "REG_DWORD", 0)
RegWrite("HKLM\SOFTWARE\Policies\Microsoft\Windows\Safer\CodeIdentifiers\0\Paths\{c367bce4-4071-479c-a4ba-e5d61bff38e6}")
RegWrite("HKLM\SOFTWARE\Policies\Microsoft\Windows\Safer\CodeIdentifiers\0\Paths\{c367bce4-4071-479c-a4ba-e5d61bff38e6}", "ItemData", "REG_EXPAND_SZ", "%ProgramFiles%\Avira\AntiVir Desktop\avnotify.exe")
RegWrite("HKLM\SOFTWARE\Policies\Microsoft\Windows\Safer\CodeIdentifiers\0\Paths\{c367bce4-4071-479c-a4ba-e5d61bff38e6}", "Description", "REG_SZ", "deny Avira Antivir nag screen")
RegWrite("HKLM\SOFTWARE\Policies\Microsoft\Windows\Safer\CodeIdentifiers\0\Paths\{c367bce4-4071-479c-a4ba-e5d61bff38e6}", "SaferFlags", "REG_DWORD", 0)
#endregion ### Werbung abschalten ###
Jaaa - funktioniert!
Vielen vielen Dank!
Ich möchte aus einem Fenster einer Software einzelne Werte in die Zwischenablage kopieren
und dann in ein Textfile einfügen.
Ich kenne bis dato nur den umgekehrten Weg, Werte aus einem file auszulesen und
zu verwenden...
Wie ich an die Werte aus der Software rankomme, weiß ich; wie kann ich den in der
Zwischenablage befindlichen Wert in mein file schreiben?
VIELEN DANK
für die Turboschnelle Hilfe!
Hallo zusammen,
ich habe ein Problem mit meinem Script zur Installation von AutoIt.
Er meldet was von fehlendem EndIf Statement.
Ich bin den Code jetzt schon mehrmals durchgegangen, aber
ich finde den Fehler nicht...
Vielleicht kann mir jemand auf die Sprünge helfen?
Vielen Dank
Jörg
#region ### Variablen ###
$Ver = "3.3.0.0"
$Inst = "AutoIt v" & $Ver & " Setup"
#endregion ### Variablen ###
#region ### Check old Version ###
If Not FileExists(@ProgramFilesDir & "\AutoIt3") Then
_instautoit()
ElseIf FileGetVersion(@ProgramFilesDir & "\AutoIt3\" & "AutoIt3.exe") < $Ver Then
_uninstautoit()
Func _uninstautoit()
ShellExecuteWait(@ProgramFilesDir & "\AutoIt3\Uninstall.exe")
WinWait("AutoIt v", "Uninstall AutoIt")
ControlClick("AutoIt v", "Uninstall", "Button2")
WinWait("AutoIt v", "Uninstallation Complete")
ControlClick("AutoIt v", "Close", "Button2")
EndIf
If FileExists(@ProgramFilesDir & "\AutoIt3") Then
DirRemove(@ProgramFilesDir & "\AutoIt3",1)
EndIf
#endregion ### Check old Version ###
EndFunc
Func _instautoit()
#region ### Installation ###
run("autoit-v" & $Ver & "-setup.exe")
WinWait($Inst, "Welcome to the AutoIt")
ControlClick($Inst, "Next", "Button2")
WinWait($Inst, "License Agreement")
ControlClick($Inst, "I Agree", "Button2")
WinWait($Inst, "Defaults for *.au3")
ControlCommand($Inst, "Edit the script", "Button5", "Check", "")
ControlClick($Inst, "Next", "Button2")
WinWait($Inst, "Choose Components")
ControlClick($Inst, "Next", "Button2")
WinWait($Inst, "Choose Install Location")
ControlSetText($Inst, "Choose the folder in which to install", "Edit1", "C:\Programme\AutoIt3")
ControlFocus($Inst, "Install", "Button2")
ControlClick($Inst, "Install", "Button2")
WinWait($Inst, "Completing the AutoIt v"&$Ver&" Setup Wizard")
ControlClick($Inst, "Show release notes", "Button4")
ControlFocus($Inst, "Finish", "Button2")
ControlClick($Inst, "Finish", "Button2")
#endregion ### Installation ###
#region ### Deutsches Helpfile kopieren ###
FileCopy(@ProgramFilesDir & "\AutoIt3\AutoIt.chm", @ProgramFilesDir & "\AutoIt3\AutoIt_englisch.chm", 1)
;FileCopy("AutoIt_deutsch.chm", @ProgramFilesDir & "\AutoIt3\AutoIt.chm", 1)
FileCopy("*.chm", @ProgramFilesDir & "\AutoIt3\", 1)
#endregion ### Deutsches Helpfile kopieren ###
EndFunc