Beiträge von bobekos

  • Consolenbefehle ausführen

    versuch es mal mit

    [autoit]


    ShellExecute("msconfig.exe","","C:\Windows\System32")

    [/autoit]

    Guck aber natürlich auch ob msconfig auch in System32 liegt sollte das nicht der Fall sein müsste die EXE hier liegen:
    C:\Windows\PCHealth\HelpCtr\Binaries

    Getestet unter Windows XP

    ps.Der Run befehl funktioniert bei mir auch nicht

  • multipoint [gdiplus]

    find das ganze schon ziemlich geil :D Gut gemacht ;)

    Ps: Bei mir hackt das aber trotzdem bisschen obwohl es konstant über 70 fps bleibt.
    Ps2: In deinem Code den du hochgeladen hat ist das #include für gdiplus.au3 falsch geschrieben nur als Hinweis

  • Text automatisch vergrößern

    so was vil. auf die schnelle

    [autoit]


    $Main = GUICreate("",300,300,-1,-1)
    $Label = GUICtrlCreateLabel("Aaaaaa",1,1,300,300)
    While 1
    GUISetState(@SW_SHOW,$Main)
    For $a = 9 to 30 Step 1
    Sleep(500)
    GUICtrlSetFont($Label ,$a, 400, 0, "Arial")
    Next
    WEnd

    [/autoit]

  • Inputfeldeingaben in Variable speichern

    also ich hab da mal auch was mit ner Verschlüsselung gebastelt wenn dir das hilft (ich meine in der INI stehen ja jetzt die Passwörter).
    Einmal die User Generate au3 wo man User anlegen kann

    [autoit]


    #include <Crypt.au3>
    $benutzer = InputBox("Benutzer Generator","Bitte den gewünschten Benutzernamen eingeben:")
    If @error Then
    Exit
    EndIf
    $pw = InputBox("PW Generator","Bitte das Passwort eingeben:")
    If @error Then
    Exit
    EndIf
    $pwmd5 =_Crypt_HashData($pw,$CALG_MD5)
    $benutzermd5 = _Crypt_HashData($benutzer,$CALG_MD5)
    FileWrite(@ScriptDir&"\data",$benutzermd5&"="&$pwmd5)
    If @error Then
    MsgBox(16,"Fehler","Benutzer konnte nicht erstellt werden, bitte Vorgang wiederholen")
    Exit
    EndIf
    MsgBox(0,"Info","Benutzer wurde erfolgreich erstellt.")
    Exit

    [/autoit]


    und einmal das eigentlich Programm wo man mit dem Passwort zugreifen muss natürlich kann man auch beide Scripte in ein Script packen.

    [autoit]


    ;Anmelde Maske
    #include <Crypt.au3>
    $data = FileReadLine(@ScriptDir&"\data",1)
    ;~ ;MsgBox(0,"",$pwbe[1]&" "&$pwbe[2]);~
    If @error Then
    MsgBox(16,"Fehler","Bitte zuerst die User Generate.exe ausführen")
    Exit
    EndIf
    $pwbe = StringSplit($data,"=")
    $benutzer = InputBox("Benutzer","Benutzernamen eingeben:")
    $benutzermd5=_Crypt_HashData($benutzer,$CALG_MD5)
    If $benutzermd5 = $pwbe[1] Then
    $pw = InputBox("Passwort","Bitte das Passwort eingeben:","","*")
    $pwmd5=_Crypt_HashData($pw,$CALG_MD5)
    If $pwmd5 = $pwbe[2] Then
    MsgBox(0,"Geschafft","Das Programm kann gestartet werden")
    ;FileDelete(@ScriptDir&"\data")
    Else
    MsgBox(16,"Fehler","Falsches Passwort eingegeben")
    EndIf
    Else
    MsgBox(16,"Fehler","Benutzernamen nicht bekannt")
    Exit
    EndIf

    [/autoit]

  • Ältere Dateien Löschen

    versuch mal hier mit:

    [autoit]


    #include <Date.au3>
    #include <File.au3>
    #include <Array.au3>
    $Server=("C:\Temp")
    $Tage=1
    $Filter="*.pdf"
    _FileDeleteAfterXDays($Server,$Tage,True,True,True,True)
    ;===============================================================================
    ; Function Name: _FileDeleteAfterXDays($sPath, $iDays[, $bForceDel][, $bRek][, $bDirDel][, $bLog])
    ; Description:: löscht Dateien in einem ausgewähltem Verzeichnis (rekursiv)
    ; nach einer angegebenen Anzahl von Tagen
    ; Parameter(s): $sPath = Verzeichnis, aus dem die Dateien gelöscht werden sollen.
    ; $iDays = Dateien, die älter als $iDays (in Tagen) sind, löschen.
    ; $bForceDel = wenn "True" werden auch Dateien/Verzeichnisse gelöscht,
    ; die gegen löschen geschützt sind ("R"-Attribut)
    ; $bRek = wenn "True" wird das Verzeichnis rekursiv (inkl. Unter-
    ; verzeichnisse) durchsucht.
    ; $bDirDel = wenn "True" wird das Unterverzeichnis gelöscht, wenn
    ; es (aufgrund der Löschaktion) leer ist.
    ; $bLog = wenn "True" wird das Ergebnis der Löschaktion in die
    ; Console geschrieben.
    ; Requirement(s): AutoIt-Version min. v3.3.2.0
    ; #include <Date.au3>
    ; Return Value(s): bei Erfolg Rückgabe = 1
    ; bei Fehler Rückgabe = 0
    ; und @error:
    ; 1 = $iDays ist keine oder eine negative Zahl
    ; 2 = Das übergebene Verzeichnis existiert nicht oder ist leer.
    ; Author(s): Oscar (http://www.autoit.de)
    ; Micha_he (http://www.autoit.de)
    ;
    ;===============================================================================
    Func _FileDeleteAfterXDays($sPath, $iDays, $bForceDel = False, $bRek = True, $bDirDel = True, $bLog = True)
    Local $hSearchm, $hEmpty, $sFile, $sDate, $iRet
    If (Not IsNumber($iDays)) Or ($iDays < 0) Then Return SetError(1, 0, 0)
    If StringRight($sPath, 1) <> '\' Then $sPath &= '\'
    $hSearch = FileFindFirstFile($sPath & $Filter)
    If @error Then Return SetError(2, 0, 0)
    While 1
    $sFile = FileFindNextFile($hSearch)
    If @error Then ExitLoop
    If @extended Then
    If $bRek Then
    _FileDeleteAfterXDays($sPath & $sFile, $iDays, $bForceDel, $bRek, $bDirDel, $bLog)
    If $bDirDel Then
    $hEmpty = FileFindFirstFile($sPath & $sFile & "\" &$Filter)
    If @error Then
    If $bForceDel Then FileSetAttrib($sPath & $sFile, '-R')
    $iRet = DirRemove($sPath & $sFile)
    If $bLog Then ConsoleWrite('Delete Folder "' & $sPath & $sFile & '" = ' & StringMid('No Yes', $iRet * 3 + 1, 3) & @CR)
    EndIf
    FileClose($hEmpty)
    EndIf
    EndIf
    Else
    $sDate = StringRegExpReplace(FileGetTime($sPath & $sFile, 0, 1), '(\d{4})(\d{2})(\d{2})(.*)', '$1/$2/$3')
    If _DateDiff('D', $sDate, _NowCalc()) > $iDays Then
    If $bForceDel Then FileSetAttrib($sPath & $sFile, '-R')
    $iRet = FileDelete($sPath & $sFile)
    If $bLog Then ConsoleWrite('Delete File "' & $sPath & $sFile & '" = ' & StringMid('No Yes', $iRet * 3 + 1, 3) & @CR)
    EndIf
    EndIf
    WEnd
    FileClose($hSearch)
    Return 1
    EndFunc

    [/autoit]

  • ZahlenRaten

    Es hängt doch alles von der Wahrscheinlichkeit ab. Es kann ja gut sein das ich beim ersten Versuch die richtige Zahl treffe. Wenn ich das Intervall benutze minimiere ich die Anzhal der Möglichkeiten somit steigt meine Wahrscheinlichkeit die Zahl zu treffen. Deswegen ist es wohl die beste Möglichekeit.

  • Iniwritesection Problem mit einem Array

    Ich hab jetzt das Problem nicht so ganz verstanden :D Also mein Array hat doch 2 Spalten oder sehe ich da was falsch?

    Ich hab das Problem jetzt mit:

    [autoit]


    IniWrite($iniMAIN,"TEST",$x,$y)

    [/autoit]


    gelöst. Sonst würde mir natürlich Iniwritesection auch jedesmal eben eine neue Section machen (denke ich mal).
    Vielen Dank für eure Hilfe! ;)

  • Iniwritesection Problem mit einem Array

    Zitat von x0r

    "IniWriteSection($iniMAIN,"TEST",$aFELD)" <- nimm doch statt der Variable einfach dein Array?

    [autoit]

    $aFELD[$x][$y]

    [/autoit]


    Deine Methode funktioniert leider auch nicht. Die Hilfe Datei sagt:
    Das Array muss 2D sein. ->ist es
    Dabei wird die zweite Dimension als das Element gespeichert.
    Also musste

    [autoit]


    $aFELD

    [/autoit]


    reichen.Man ich hab einfach keine Idee was das sein könnte.

  • Iniwritesection Problem mit einem Array

    Moin,

    ich hab ein kleines Problem und zwar.Erstmal mein Quellcode (Ist nur ein Ausschnitt):

    So nun gibt mir aber Iniwritesection ein Fehler aus die var $iniMAIN gibt es natürlich.Woran kann das denn liegen.
    Schon mal vielen Dank. ;)