Beiträge von bugmenot1

  • Digitaluhr

    Hey Oscar,
    weis nicht ob du die Digitaluhr noch pflegst, aber was mir aufgefallen ist...hab ich damals schon geschrieben...eben das sich die Uhr nicht mehr aktualisiert wenn ich per Win+L den PC Sperre.
    Da hast du ja dann etwas am Code geändert, und die Uhrzeit...zumindest minuten + sekunen aktualisieren sich dann nach ca 20 und laufen richtig.
    Die Stundenanzeige und die Tagesanzeige allerdings nicht.
    Weis nicht ob man das ändern kann, denn ich muss halt jetzt wenn ich morgens den PC wieder entsperre die Uhr neustarten damit sie aktuell von der Zeit und Datum ist xD.

    Grüße
    Apollo

  • Inhalt von Ordner löschen

    Hey Xenobiologist,
    erst mal big THX für die Scripte...bin grad dabei mich da einzulesen/einzulernen...
    aber wenn ich das erste Script ausführe sagt er mir
    ==> Subscript used with non-Array variable. (kommt bei For $X = 1 To $fileList[0]

    ich brauch ja die eckigen Klammern für das Array...warum macht es dann da einen Fehler? *Angst*

    Habs auch grad mit der neuesten Stable Version getestet...gleicher Fehler =(

    was mach ich nur jetzt schon falsch

    Mfg
    Apollo 13

    Edit:
    Ich habs jetzt schlussendlich doch anders gelöst...weil mir das mit AutoIT zu kompliziert dann war...und ich nich so viel lust und zeit hab das in der Arbeit rumzuprobieren bis es geht xD.
    Ich hab mit hilfe von robocopy und ner kleinen batchdatei das jetzt gemacht.
    macht auch das was ich will...gott sei dank =)
    und wenns unbedingt sein müsste und ich mal viel zeit hab^^ dann kann ich das ja noch mit autoit "verfeinern"

    Trotzdem nochmal danke an alle die geholfen haben =)

  • neue Tastatur G15 oder doch Cherry?

    jop
    kann mich der Meinung nur anschliesen =)
    Die Tastatur is einfach ein TRAUM!!!!
    hab zwar "nur" die G11...aber die is auch super in ordnung...wollte nich 20 € mehr für so nen beschissenes Display ausgeben^^
    von der neuen G15 rat ich eher ab...nen kumpel von mir hat die...sagt mir gar nich zu...fehlen einfach 2 reihen G-Tasten :D
    G11 und G15 sind auf des Display komplett gleich...heisst allerdings das bei der G15 die USB Anschlüsse schlechter sein sollen (nur 1.1 statt 2.0)

    Hoffentlich hilfts dir weiter

    Grüße
    Apollo 13

  • Digitaluhr

    is die ganze normale Windows Sperre, sprich Win+L... "der Computer wird gerade verwendet und ist gesperrt"
    internet müsste weiter gehn, denn wenn ich mit dem Download Manager was sauge, geht das ja auch weiter.
    Und die Longhorn Uhr zb, also die ersatz Uhr für die Taskleiste...die läuft auch richtig...
    Kenn mich da aber nich so aus an was es liegen könnte, das die autoit Uhr nich weiter läuft.


    Mfg
    Apollo 13

  • Digitaluhr

    Hey...
    mir is noch was aufgefallen...weis nicht ob das schon jemand bereits gesagt hat...
    aber wenn ich die Uhr laufen lasse...und dann meinen PC Sperre, dann läuft die Uhr am nächsten morgen einen tag nach...oder wenn ich den PC sperre, und für ne stunde weg bin, dann geht sie auch ne stunde nach...
    Uhrzeit mit Atomuhr abgleichen bringt dann auch nix...
    nur neustarten der Uhr, dann läuft wieder alles perfekt....

    Is mir nämlich aufgefallen, da ich die Uhr bei uns in der Arbeit auf CITRIX verwende, damit ich ne uhr und nen datum seh xD.

    Hab leider keinen Lösungsvorschlag...aber vlt findest du da ja auch was =)
    aba an dem solls nicht scheitern die uhr einfach mal neuzustarten xD.
    Hauptsache sie läuft

    jut jut...dann hör ich mal wida auf...hab feierabend xD.

    Schönen Nachmittag/Abend noch

    Apollo 13

  • Programm versteckt starten und fernsteuern??

    genau so isses bei mir auch...
    blos wenn ich das Beispeilscript aus der Hilfe nehme, dann wird Notepad schon versteckt.
    Nur meine Installationen die ich starten will wollen sich nicht verstecken lassen...

    Spoiler anzeigen
    [autoit]

    $val = RunWait("Notepad.exe", @WindowsDir, @SW_HIDE)
    ; script waits until Notepad closes
    MsgBox(0, "Program returned with exit code:", $val)

    [/autoit]

  • Inhalt von Ordner löschen

    soso...
    also ich habe jetzt noch mal etwas Zeit zum überdenken gehabt. Dabei hat sich bei einem Gespräch mit meinem Chef nun etwas anderes ergeben. Und zwar soll der Ordner jetzt einfach komplett auf ein anderes Laufwerk verschoben werden, und dann einfach nur wieder ein leer Ordner angelegt werden.
    Soweit ist ja auch alles für mich kein Problem.
    Nur möchte ich gerne einen Fortschrittsbalken einbauen, da der Ordner sehr groß ist, und man so nicht weiß ob er noch etwas kopiert, oder wie weit er gerade ist.

    Hier mal mein vorläufiger Code:

    Spoiler anzeigen
    [autoit]

    $Datenaustausch = "\\fs-piagms05\allgemein\Datenaustausch test"
    $Datenaustausch2 = "\\fs-piagms05\daten03\edv\Datenaustausch Backup"

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

    If FileExists($Datenaustausch) = 1 Then
    Call("_copy")
    Else
    MsgBox(16, "Error", "Datenaustausch Ordner existiert nicht!")
    ;Eventuell mit IniWrite Fehlerprotokoll erstellen? ->Ereignisanzeige?
    Exit
    EndIf

    Func _copy()
    MsgBox(0, "", "Ordner vorhanden!")

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

    If FileExists($Datenaustausch2) = 1 Then
    MsgBox(0, "", "Backup Ordner bereits vorhanden")
    Call("_del")
    Else
    DirMove($Datenaustausch, $Datenaustausch2, 1)
    Exit
    EndIf
    EndFunc

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

    Func _del()
    DirRemove("\\fs-piagms05\daten03\edv\Datenaustausch Backup", 1)

    If FileExists($Datenaustausch2) = 0 Then
    MsgBox(0, "", "Ordner Datenaustausch Backup erfolgreich gelöscht")
    Call("_copy")
    Else
    MsgBox(16, "", "Ordner wurde nicht gelöscht!")
    ;Eventuell mit IniWrite Fehlerprotokoll erstellen? ->Ereignisanzeige?
    Exit
    EndIf
    EndFunc

    [/autoit]

    Wie kann ich hier jetzt am einfachsten noch eine Progressbar einbauen, die mir dann angezeigt wird wenn der Ordner kopiert wird?

    Mfg
    Apollo 13

    P.S.: Ich habe bereits die Boardsuche benutzt, aber die Beispiele kann ich irgendwie nicht anwenden xD
    Wenn mir vlt einer zeigen könnte was ich noch einbinden muss, etc. das es so funktioniert wie gedacht.

  • Obfocusator

    Hey Leute...
    hab ein Problem...
    und zwar habe ich mir mal ein Script geschrieben was mit eine Silent Office Installation macht (mit diversen Zusatzprogrammen und Einstellungen noch), dieses hab ich dann scheinbar mal durch den Obbi gejagt...und wie mir gerade eben aufgefallen ist hab ich als source nur noch das Script was ich ja nicht mehr lesen kann =(
    Kommt noch besser...beim Firmenseitigen Backup isses au ned mit drauf.
    Es gibt keine Möglichkeit das Script wieder zu deobfocusieren?
    Bin mir nicht ganz sicher ob die fertige exe aus dem Obfocusaten Script entstanden ist, wenn nicht, dann könnte man die ja theoretisch wieder decompilen...
    ich mag des ganze script nich nochmal schreiben =(

    Mfg
    Apollo 13

  • Inhalt von Ordner löschen

    Hey Leute,
    hab mal wieder ne Frage.
    Und zwar möchte ich ein Script schreiben, was mir in einem festgelegten Ordner (z.B. N:\Datenaustausch) alles löscht bis auf sogenannte User Ordner (haben alle nur 3 Zeichen), aber der Inhalt der User Ordner soll ebenfalls gelöscht werden.
    Sprich im gesamten sollen dann in dem Ordner Datenaustausch nur noch User Ordner ohne Inhalt sein, alles andere soll gelöscht werden.
    Weis einer eine Möglichkeit wie ich das möglichst simpel bewerkstelligen kann? Vielleicht alle Ordnernamen in eine ini Datei schreiben und dann einfach alles löschen und dann jeden Ordner neu anlegen lassen.
    Hoff einer kann mir weiter helfen, ich proier derweil selber mal was ich da so zusammenbekomm.

    Mfg
    Apollo 13

  • Mein Script lässt sich nicht beenden

    Probiers doch mal so:

    Spoiler anzeigen
    [autoit]

    AutoItSetOption ("WinTitleMatchMode",2)

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

    $Adresse = InputBox("Ping", "Geben Sie die IP Adresse ein:")
    run("cmd.exe")
    WinWait("cmd")
    Send("ping " & $Adresse)
    Sleep(100)
    Send("{ENTER}")
    Exit

    [/autoit]


    //Edit...kann ja so eig gar ned gehn...weil dem die Buttons eig egal sind...egal was du klickst...er macht immer das selbe...mhm...wie hatte ich das letztes mal gemacht...es liegt mir auf der zunge...wenn ichs wieder weis schreib ichs xD


    so habs...war doch voll einfach :D
    du darfst die exe einfach nicht ping nennen...sonst startet die cmd die exe wieder und wieder :D
    die buttons sind da egal xD

    Spoiler anzeigen
    [autoit]

    AutoItSetOption ("WinTitleMatchMode",2)

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

    $Adresse = InputBox("Ping", "Geben Sie die IP Adresse ein:")
    If $Adresse = "" Then Exit
    run(@SystemDir & "\cmd.exe")
    WinWait("cmd")
    Send("ping " & $Adresse)
    Sleep(100)
    Send("{ENTER}")
    Exit

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

    Mfg
    Apollo 13

  • Software zum Telefonieren innerhalb eines Netzwerkes

    mhm....also wenn du nicht willst das das über einen Server der Hersteller geht, dann würd ich mal TeamSpeak vorschlagen. Einfach einen Server in deinem VPN aufmachen, und dann kann die andere Person auch beitreten. Verschlüsselung gibts glaub ich nicht, aber man kann die Channel auf jeden Fall mal mit einem Passwort schützen, das niemand anders reinkann.
    Es ist halt keine Direktverbindung zu einer anderen IP.
    Aber ich würde es bei mir jetzt so machen. Weis halt nicht ob das deinen Sicherheitsansprüchen entsprechen würde. Kannst dir ja mal anguggn.

    https://autoit.de/www.goteamspeak.com

    Mfg
    Apollo 13

  • Habe öfters Probleme mit WinWaitActive(), zb bei TuneUp

    Hey mach des ganze halt nen bisschen anders mit deinem Script....
    hier mal mein Source, zwar noch vom 2007er, dürfte aber kein Problem sein das auf das 2008er anzuwenden.
    Nicht unbedingt so mit Tastenkombis senden, sondert mit Control Buttons...schaus dir einfach mal an...is recht simple...
    Ich lass dann gleich noch nen paar Einstellungen im TuneUp einstellen (z.B. das die Willkommensbildschirme nicht mehr angezeigt werden...Auto Update nicht mehr ausgeführt werden kann, und und und).

    Viel Erfolg
    Mfg
    Apollo 13

    Spoiler anzeigen
    [autoit]

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

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

    AutoIt Version: 3.2.8.1
    Author: $cR!pT k!ddY

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

    Script Function:
    TuneUp Utilities 2007 installieren

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

    #ce ----------------------------------------------------------------------------

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

    ;$cR!pT Start

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

    ;TuneUp Utilities installieren
    ShellExecute(@Scriptdir & "\TuneUp Utillities 2007.exe")
    $title="TuneUp Utilities 2007"
    $title1="Update-Prüfung empfohlen"
    $title2="Vielen Dank!"
    $title3="Programm-Neustart erforderlich"
    WinWait($title, "Willkommen")
    ControlClick($title, "&Weiter >","Button1")
    WinWait($title, "ENDBENUTZER-LIZENZBESTIMMUNGEN")
    ControlClick($title, "Ich &akzeptiere den Lizenzvertrag","Button3")
    ControlClick($title, "&Weiter >","Button4")
    WinWait($title, "Diese Anwendung")
    ControlClick($title, "&Weiter >","Button4")
    WinWait($title, "Wählen Sie einen Ordner")
    ControlClick($title, "&Weiter >","Button1")
    WinWait($title, "Legen Sie die Installationseinstellungen fest")
    ControlClick($title, "TuneUp Shredder in das Kontextmenü von Dateien integrieren","Button4")
    ControlClick($title, "Symbol zum Start von TuneUp Utilities 2007 auf den Desktop legen","Button7")
    ControlClick($title, "Symbol zur 1-Klick-Wartung auf den Desktop legen","Button5")
    ControlClick($title, "TuneUp Utilities 2007 nach der Installation starten","Button6")
    ControlClick($title, "&Weiter >","Button1")
    WinWait($title, "wurde erfolgreich installiert")
    ControlClick($title, "&Fertig stellen","Button1")
    WinWait($title1, "bitte erneut erinnern")
    ControlClick($title1, "&Nein, bitte erneut erinnern","TRadioButton2")
    ControlClick($title1, "OK","TButton1")
    WinWaitActive($title, "Code eingeben")
    ControlClick($title, "Code eingeben","TButton3")
    ;Send("Name")
    Send("{TAB}")
    ;Send("Firma")
    Send("{TAB}")
    ;Send("Seriennummer")
    $title1="Code eingeben"
    WinWait($title1, "Abbrechen")
    ControlClick($title1 ,"OK", "TButton2")
    WinWait($title2, "Bitte bewahren")
    ControlClick($title2, "OK","Button1")
    WinWait($title3, "Sie müssen")
    ControlClick($title3, "OK","Button1")

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

    RegWrite("HKEY_CURRENT_USER\SOFTWARE\TuneUp\Utilities\6.0\WelcomeScreen","DisableCounter","REG_DWORD","1")
    RegWrite("HKEY_CURRENT_USER\SOFTWARE\TuneUp\Utilities\6.0\WelcomeScreen","ws_DiskCleaner","REG_DWORD","0")
    RegWrite("HKEY_CURRENT_USER\SOFTWARE\TuneUp\Utilities\6.0\WelcomeScreen","ws_DiskDoctor","REG_DWORD","0")
    RegWrite("HKEY_CURRENT_USER\SOFTWARE\TuneUp\Utilities\6.0\WelcomeScreen","ws_DiskExplorer","REG_DWORD","0")
    RegWrite("HKEY_CURRENT_USER\SOFTWARE\TuneUp\Utilities\6.0\WelcomeScreen","ws_IconEngineer","REG_DWORD","0")
    RegWrite("HKEY_CURRENT_USER\SOFTWARE\TuneUp\Utilities\6.0\WelcomeScreen","ws_MemOptimizer","REG_DWORD","0")
    RegWrite("HKEY_CURRENT_USER\SOFTWARE\TuneUp\Utilities\6.0\WelcomeScreen","ws_ProcessManager","REG_DWORD","0")
    RegWrite("HKEY_CURRENT_USER\SOFTWARE\TuneUp\Utilities\6.0\WelcomeScreen","ws_RegistryCleaner","REG_DWORD","0")
    RegWrite("HKEY_CURRENT_USER\SOFTWARE\TuneUp\Utilities\6.0\WelcomeScreen","ws_RegistryDefrag","REG_DWORD","0")
    RegWrite("HKEY_CURRENT_USER\SOFTWARE\TuneUp\Utilities\6.0\WelcomeScreen","ws_RegistryEditor","REG_DWORD","0")
    RegWrite("HKEY_CURRENT_USER\SOFTWARE\TuneUp\Utilities\6.0\WelcomeScreen","ws_RescueCenter","REG_DWORD","0")
    RegWrite("HKEY_CURRENT_USER\SOFTWARE\TuneUp\Utilities\6.0\WelcomeScreen","ws_Shredder","REG_DWORD","0")
    RegWrite("HKEY_CURRENT_USER\SOFTWARE\TuneUp\Utilities\6.0\WelcomeScreen","ws_StartUpManager","REG_DWORD","0")
    RegWrite("HKEY_CURRENT_USER\SOFTWARE\TuneUp\Utilities\6.0\WelcomeScreen","ws_SystemControl","REG_DWORD","0")
    RegWrite("HKEY_CURRENT_USER\SOFTWARE\TuneUp\Utilities\6.0\WelcomeScreen","ws_SystemInformation","REG_DWORD","0")
    RegWrite("HKEY_CURRENT_USER\SOFTWARE\TuneUp\Utilities\6.0\WelcomeScreen","ws_SystemOptimizer","REG_DWORD","0")
    RegWrite("HKEY_CURRENT_USER\SOFTWARE\TuneUp\Utilities\6.0\WelcomeScreen","ws_Undelete","REG_DWORD","0")
    RegWrite("HKEY_CURRENT_USER\SOFTWARE\TuneUp\Utilities\6.0\WelcomeScreen","ws_UninstallManager","REG_DWORD","0")
    RegWrite("HKEY_CURRENT_USER\SOFTWARE\TuneUp\Utilities\6.0\WelcomeScreen","ws_UpdateWizard","REG_DWORD","0")
    RegWrite("HKEY_CURRENT_USER\SOFTWARE\TuneUp\Utilities\6.0\WelcomeScreen","ws_WinStyler","REG_DWORD","0")
    RegWrite("HKEY_CURRENT_USER\SOFTWARE\TuneUp\Utilities\Shredder","ShowContextMenuIcon","REG_DWORD","0")
    RegWrite("HKEY_CURRENT_USER\SOFTWARE\TuneUp\Utilities\Shredder","ShowContextMenuItem","REG_DWORD","0")
    FileDelete(@HomeDrive & "\WINDOWS\Tasks\1-Klick-Wartung.job")
    FileDelete(@HomeDrive & "\Dokumente und Einstellungen\All Users\Startmenü\Programme\TuneUp Utilities 2007.lnk")
    FileMove(@HomeDrive & "\Programme\TuneUp Utilities 2007\UpdateWizard.exe", @HomeDrive & "\Programme\TuneUp Utilities 2007\UpdateWizard.exe.bak")
    ShellExecute(@Scriptdir & "\Settings.reg")
    WinWait("Registrierungs-Editor","Möchten Sie die Informationen")
    ControlClick("Registrierungs-Editor","&Ja","Button1")
    Sleep(200)
    ControlClick("Registrierungs-Editor","OK","Button1")

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

    ;$cR!pT End

    [/autoit]

  • Hilfe bei GUI funcs

    hey mal ne kurze Frage...für mich hat das alles den Anschein, als würden wir (also jetzt nicht ich xD) dir dein ganzes Script/Programm schreiben. Wie wärs mal selber etwas zu coden, auszuprobieren und dann mal nen Source anzuhängen, das man sich ein bisschen in dein Problem, etc. reindenken kann. Aba da war ja jetzt gar niX da...wenn du doch schon was probiert hast.
    Darfst jetzt nicht falsch sehen, aber mir fällt das halt jetzt blos so auf.

    Mfg
    Apollo 13