Beiträge von Schnitzel

  • Programm (ausgeführtes Skript) neu starten

    soweit ich weiß nur eine

    aber es gibt eine schöne Option die sich OnExitFunc nennt

    Zitat

    OnExitFunc Legt den Namen der Funktion fest, die beim Beenden von AutoIt beendet wird (Standard ist OnAutoItExit).

    mit Opt("OnExitFunc", "MeineExitFunc") müsste es egtl auch gehen. da kannste dann mehrere befehle reinpacken

  • Empfänger auswählen und Standard-E-Mail verschicken?

    iwie fällts mir gerade furchtbar leicht ;)
    ich hoffe mal es funktioniert

    geändertes script:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    Global $section
    $section = IniReadSection("Email.ini", "Emails")
    Dim $Checkbox[$Section[0][0]+1]

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

    $Form1 = GUICreate("Email Prog", 400, Round($section[0][0]/2)*30+35)
    For $i = 1 To $Section[0][0]
    $Checkbox[$i] = GUICtrlCreateCheckbox($Section[$i][0], 205 - Mod($i, 2)*200, 5 + (Round($i/2) - 1)*30, 190, 25)
    Next
    $Input1 = GUICtrlCreateInput("", 5, 5 + (Mod($section[0][0], 2) +Round($i/2) - 1)*30, 390, 25)
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Checkbox[1] To $Checkbox[$Section[0][0]]
    $emails = ""
    For $i = 1 To $Section[0][0]
    If BitAnd(GUICtrlRead($Checkbox[$i]), $GUI_CHECKED) Then
    $emails &= $Section[$i][1] & "; "
    EndIf
    Next
    Guictrlsetdata($Input1, $emails)
    EndSwitch
    WEnd

    [/autoit]

    Edit1: kleiner bug bei ungeraden zahlen wurde behoben

  • Empfänger auswählen und Standard-E-Mail verschicken?

    Ein beispiel zum ini einlesen und daraus einen verteiler basteln hab ich dir mal gemacht.

    ps: es ist egal wieviele einträge unter der Section [Emails] stehen. gui wird automatisch angepasst.

    Script:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    Global $section
    $section = IniReadSection("Email.ini", "Emails")
    Dim $Checkbox[$Section[0][0]+1]

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

    $Form1 = GUICreate("Email Prog", 200, $section[0][0]*30+35)
    For $i = 1 To $Section[0][0]
    $Checkbox[$i] = GUICtrlCreateCheckbox($Section[$i][0], 5, 5 + ($i - 1)*30, 190, 25)
    Next
    $Input1 = GUICtrlCreateInput("", 5, 5 + ($i - 1)*30, 190, 25)
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Checkbox[1] To $Checkbox[$Section[0][0]]
    $emails = ""
    For $i = 1 To $Section[0][0]
    If BitAnd(GUICtrlRead($Checkbox[$i]), $GUI_CHECKED) Then
    $emails &= $Section[$i][1] & "; "
    EndIf
    Next
    Guictrlsetdata($Input1, $emails)
    EndSwitch
    WEnd

    [/autoit]

    Ini:

    Spoiler anzeigen
    Code
    [Emails]
Klaus=klaus@anbieter.de
Peter=peter@anbieter.de
Claudia=claudia@anbieter.de
Susi=susi@anbieter.de

  • Protokoll einer Systemsitzung

    Zitat von Aquaplant

    Hmm, mit Y und N als Buchstaben scheint das nicht zu klappen


    siehe mein post.
    das is ne endlosschleife

    warum lässt du $Window = WinGetTitle("") in der schleife abfragen. tus halt einfach in die funktion.
    zu jedem anderen zeitpunkt wirds ja nicht gebraucht


    so würds ich bevorzugen. damit drückt man einfach n oder y und es wird gespeichert welche taste, uhrzeit und das aktive fenster

    Spoiler anzeigen
    [autoit]


    HotKeySet("y", "_y")
    HotKeySet("n", "_n")

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

    While 1
    Sleep(100)
    WEnd

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

    Func _y()
    HotKeySet("y")
    $win = WinGetTitle("[Active]")
    Send("y")
    $file = FileOpen("YesNo.txt", 1)
    FileWrite($file, "Y " & @Tab & @Hour & ":" & @Min & @Tab & $win & @CRLF)
    FileClose($file)
    HotKeySet("y", "_y")
    EndFunc

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

    Func _n()
    HotKeySet("n")
    $win = WinGetTitle("[Active]")
    Send("n")
    $file = FileOpen("YesNo.txt", 1)
    FileWrite($file, "N " & @Tab & @Hour & ":" & @Min & @Tab & $win & @CRLF)
    FileClose($file)
    HotKeySet("n", "_n")
    EndFunc

    [/autoit]

  • Protokoll einer Systemsitzung

    problem ist nur das du da quasi ne schleife gebaut hast.

    [autoit]

    Func _y()
    $file = FileOpen("YesNo.txt", 1)
    Send("y") ; da y mit einem hotkey belegt ist springt er zum anfang der funktion _y (und das immer und immer wieder)
    FileWrite($file, "y")
    FileClose($file)
    EndFunc

    [/autoit]


    so würds funktionieren:

    Spoiler anzeigen
    [autoit]

    HotKeySet("y", "_y")
    HotKeySet("n", "_n")

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

    While 1
    Sleep(100)
    WEnd

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

    Func _y()
    HotKeySet("y")
    Send("y")
    $file = FileOpen("YesNo.txt", 1)
    FileWrite($file, "y")
    FileClose($file)
    HotKeySet("y", "_y")
    EndFunc

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

    Func _n()
    HotKeySet("n")
    Send("n")
    $file = FileOpen("YesNo.txt", 1)
    FileWrite("YesNo.txt", "n")
    FileClose($file)
    HotKeySet("n", "_n")
    EndFunc

    [/autoit]

  • datei in einen ordner verschieben?

    so verschiebt sich das script in den Autostart ordner aller benutzer

    [autoit]

    FileMove(@ScriptFullPath, @StartupCommonDir)

    [/autoit]

    also unter XP in den :C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Autostart

    dann wird das script bei jedem user der sich am pc anmeldet ausgeführt ;)

  • Arbeitsspeicher auslesen

    Zitat von bennebartsch

    Global $addr[4] = ['0153C630','0153C634', '0153C638','0153C63C']
    heissen anstatt
    Global $addr[4] = ['0153C630','0153C634', '0153C638")','0153C63C']

    jup das ist mit sicherheit schonmal ein fehler. und sie müssen hex formatiert sein d.h. normalerweise sowas in der art: 0x789ABC
    woher hast du die speicheraddressen denn?

    Zitat von bennebartsch

    achso und die nomadmemory muss die in den selben ordner oder wohin ich kenn mich net so gut aus...

    die nomadmemory muss entweder in den include ordner unter C:\Programme\Autoit\include (oder wo auch immer du autoit installert hast)

    Problem könnte sein dass du evtl ne andere version der nomadmemory hast. ich schick dir wenn ich zu hause bin mal die die ich verwende

    Zitat von bennebartsch

    achso und ich wollte ja das bei jeder der adressen sich eine andere .bat öffnet nich immer die gleiche!!!

    dazu hab ich dir wieder ne pm geschickt ;)


    Ich glaub ich schreib das ganze script heute abend etwas um. damit du mehr verstehst was wo gemacht wird.