Beiträge von Baruse

  • Frage zu ftp upload

    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!

  • Verbindung zu MS SQL Server

    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

  • Frage zu ftp upload

    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:

    Spoiler anzeigen
    [autoit]

    #Include <FTPEx.au3>
    #include <File.au3>
    #include <Array.au3>
    #include <Misc.au3>

    [/autoit] [autoit][/autoit] [autoit]

    $FTPServer = "ftp.test.it"
    $FTPBenutzer = "username"
    $FTPPasswort = "passw"
    $FTPFolder = "/folder1/subfolder"
    $FTPSession = "mysession"

    [/autoit] [autoit][/autoit] [autoit]

    $OPEN = _FTP_Open("MeinFTP")
    $CONN = _FTP_Connect($OPEN,$FTPServer,$FTPBenutzer,$FTPPasswort)

    [/autoit] [autoit][/autoit] [autoit]

    _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)

    [/autoit]

  • Frage zu ftp upload

    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

  • Problem mit for...next

    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

  • Problem mit for...next

    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

    Spoiler anzeigen
    [autoit]

    $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

    [/autoit]

    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:

  • Problem mit for...next

    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...

  • Problem mit for...next

    Zitat von BugFix

    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 BugFix

    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

    Zitat von BugFix

    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:

    Spoiler anzeigen
    [autoit]

    If @error <> 0 then MsgBox (64, "Fehler", @error)

    [/autoit]


    da kommt dann 7x ein Fenster mit dem Wert "-1" und danach ist Schluß

  • Problem mit for...next

    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?

    Spoiler anzeigen
    [autoit]

    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

    [/autoit]

    Vielen Dank & viele Grüße
    Jörg

  • Avira Antivir 9 Installation inkl. Werbefenster deaktivieren

    Hallo zusammen,

    anbei die Silent Installation von Avira 9 mit dauerhafter Deaktivierung
    des nervigen Werbefensters.

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------

    [/autoit] [autoit][/autoit] [autoit]

    AutoIt Version: 3.3.0.0
    Author: Baruse
    Datum: 26.05.2009
    Script Function: Avira AntiVir Installation (Version 9).

    [/autoit] [autoit][/autoit] [autoit]

    #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")

    [/autoit] [autoit][/autoit] [autoit]

    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")

    [/autoit] [autoit][/autoit] [autoit]

    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")

    [/autoit] [autoit][/autoit] [autoit]

    #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)

    [/autoit] [autoit][/autoit] [autoit]

    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)

    [/autoit] [autoit][/autoit] [autoit]

    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)

    [/autoit] [autoit][/autoit] [autoit]

    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 ###

    [/autoit]

  • Werte aus Programm auslesen und in ein Textfile schreiben

    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?

  • Problem mit If und EndIf

    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

    Spoiler anzeigen
    [autoit]

    #region ### Variablen ###
    $Ver = "3.3.0.0"
    $Inst = "AutoIt v" & $Ver & " Setup"
    #endregion ### Variablen ###

    [/autoit] [autoit][/autoit] [autoit]

    #region ### Check old Version ###
    If Not FileExists(@ProgramFilesDir & "\AutoIt3") Then
    _instautoit()
    ElseIf FileGetVersion(@ProgramFilesDir & "\AutoIt3\" & "AutoIt3.exe") < $Ver Then
    _uninstautoit()

    [/autoit] [autoit][/autoit] [autoit]

    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

    [/autoit] [autoit][/autoit] [autoit]

    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 ###

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    #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

    [/autoit]