Beiträge von autoBert

  • Passwort geschützten Ordner auslesen

    Hallo Ghostleader,

    du kannst afair nicht verhindern dass ein Admin eines PC evtl. von dir vergebene Ordnerbeschränkungen wieder aufhebt. Da euer Tool ja auch irgendwie darauf zugreifen muss ist dies praktisch unmöglich einen sicheren Schutz aufzubauen.

    Du kannst aber mit den Funktionen der Encryption.au3

    [autoit]

    _Crypt_EncryptFile

    [/autoit]

    auf eurer Seite und

    [autoit]

    _Crypt_DecryptFile

    [/autoit]

    beim User vor dem Eintragen in die Tabelle(n) dafür sorgen das Neugierige ohne das notwendige Hintergrundwissen und krimineller Energie an die Daten kommen. Falls sie nur einmal verarbeitet werden müssen einfach nach der Verarbeitung löschen.

    mfg autoBert

  • Programm auf einer partition finden!

    Hallo DFPWare,

    wenn du nur den Dateinamen (mit Erweiterung weist) kannst du es so machen:

    Spoiler anzeigen
    [autoit]

    #include <Array.au3>
    $sFileToFind = InputBox("einzelne Datei suchen","Dateiname mit Erweiterung angeben!")

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

    $sType = "Fixed" ;möglich sind "ALL", "CDROM", "REMOVABLE", "FIXED", "NETWORK", "RAMDISK" oder "UNKNOWN"
    _SearchForFile($sFileToFind,$sType)
    ;
    Func _SearchForFile($sFileToFind,$sType)
    $adrives = DriveGetDrive($sType)
    for $i = 1 to $adrives[0]
    $aSearch = _SearchInDrive($sFileToFind, $adrives[$i]&"\")
    for $j = 0 to UBound($aSearch) -1
    $aItem = StringSplit($aSearch[$j],"\")
    if $aItem[$aItem[0]] = $sFileToFind Then
    ShellExecute($aSearch[$j])
    ExitLoop 2
    EndIf
    Next
    Next
    EndFunc

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

    Func _SearchInDrive($sFile, $sDir = "\")
    Local $aReturn
    RunWait(@ComSpec & ' /C dir /S /B /A: H S R A ' & $sDir & ' | FIND /I "' & $sFile & '" > ' & @TempDir & '\TempSearch.TXT', "", @SW_HIDE)
    Return StringSplit(StringStripWS(FileRead(@TempDir & '\TempSearch.txt'), 3), @CRLF, 3)
    EndFunc

    [/autoit]

    dauert aber logischerweise etwas länger, wenn du also wirklich nur den Laufwerksbchstaben nicht weist solltest du progandy 's Vorschlag nehmen,

    mfg autoBert

  • Zufall Script

    Hallo SionS,

    dann mach es so:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>

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

    Global $iSpalte, $iZeile, $iZahlOderBuchstabe, $iKlein

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

    #region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 543, 183, 245, 198)
    $Label1 = GUICtrlCreateLabel("Label1", 15, 15, 516, 17)
    $Input1 = GUICtrlCreateInput("Input1", 15, 45, 211, 21)
    $Button1 = GUICtrlCreateButton("KeyGen Go!", 240, 45, 91, 46, 0)
    $Button2 = GUICtrlCreateButton("Stop!", 345, 45, 91, 46, 0)
    GUISetState(@SW_SHOW)
    #endregion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    KeyGen()
    Case $Button2
    KeyGenStop()
    EndSwitch
    WEnd

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

    Func KeyGenStop()
    AdlibUnRegister("CreateKey")

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

    EndFunc ;==>KeyGenStop

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

    Func KeyGen()
    AdlibRegister("CreateKey")
    EndFunc ;==>KeyGen

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

    Func CreateKey()
    $iAbruch = Random(5, 19, 1) ; mindest. 6 Zeichen höchtens 20
    $sKey = ""
    For $iSpalte = 0 To 19
    $iZahlOderBuchstabe = Random(0, 3, 1) ;Buchstaben sollen häufiger vorkommen als Zahlen 1. Zahl muss 0 sein für FALSE je grösser die 2. Zahl desto wahrscheunlicher kommen Buchstaben
    If not $iZahlOderBuchstabe Then
    $sKey &= Random(0, 9, 1) ;Zufallszahl anhängen
    Else
    $iKlein = Random(0, 3, 1) ; Kleinbuchstaben sollen häufiger vorkommen 1. Zahl muss 0 sein für FALSE je grösser die 2. Zahl desto wahrscheunlicher kommen Kleibuchstaben
    If $iKlein Then
    $sKey &= Chr(Random(97, 122, 1)) ;mit Kleinbuchstabe anhängen
    Else
    $sKey &= Chr(Random(65, 90, 1)) ;mit Grossbuchstabe anhängen
    EndIf
    EndIf
    If $iSpalte = $iAbruch Then ExitLoop
    Next
    GUICtrlSetData($Input1,$sKey)
    EndFunc

    [/autoit]

    aus meinem vorhergehendem Skript abgeleitet und in deines eingebaut von den benötigten Funktionen war ja schon alles da bis auf Adlib-Funktionen und den Verketten-Operator.

    mfg autoBert

  • Zufall Script

    Hallo SionS,

    Hier ein einfaches Beispiel für den Umgang mit random und Schleifen:

    Spoiler anzeigen
    [autoit]

    #include <Array.au3>

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

    Global $iSpalte, $iZeile, $iZahlOderBuchstabe
    Global $aSuchArray[20][20] ;20 Zeilen und 20 Spalten
    For $iZeile = 0 To 19
    $iAbruch = Random(5,19,1) ; mindest. 6 Zeichen höchtens 20
    For $iSpalte = 0 To 19
    $iZahlOderBuchstabe = Random(0, 1, 1)
    If $iZahlOderBuchstabe Then
    $aSuchArray[$iZeile][$iSpalte] = Random(0, 9, 1) ;mit Zufallszahlen belegen
    Else
    $iGross = Random(0, 1, 1)
    If $iGross Then
    $aSuchArray[$iZeile][$iSpalte] = Chr(Random(65, 90, 1)) ;mit Zufallsbuchstaben belegen
    Else
    $aSuchArray[$iZeile][$iSpalte] = Chr(Random(97, 122, 1)) ;mit Zufallsbuchstaben belegen
    EndIf
    EndIf
    if $iSpalte = $iAbruch Then ExitLoop
    Next
    Next
    _ArrayDisplay($aSuchArray)

    [/autoit]

    mfg autoBert

  • Letzter Fenstertitel ermitteln

    Hallo meinnameisthase,

    interessant wäre es wie sich das vorhergehende Problem geklärt hat.

    Zu deiner neuen Frage, da gibt es viele Möglichkeiten, eine davon

    [autoit]

    $sPath = "C:\Program Files (x86)\Mozilla Firefox\firefox.exe"

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

    $aPath = StringSplit($sPath,"\")
    $sFile = $aPath[$aPath[0]]

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

    MsgBox(0,"",$sFile)

    [/autoit]

    mfg autoBert

  • Doppelklick auf eine Datei und mein Programm...

    Hallo IPsycho,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die deutsche Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    und jetzt zu deiner Frage: in deinem Programm musst du $cmdline auswerten:

    Zitat von Hilfe

    Kommandozeilenparameter
    Das besondere Array $CmdLine wird mit den, deinem AutoIt-Skript übergebenen, Kommandozeilenparametern initialisiert.

    Unter Windows musst du den gewünschten Dateityp einmal auf dein Programm installieren. Benutze hierzu bitte die Board eigene Suchfunktion,

    mfg autoBert

  • Letzter Fenstertitel ermitteln

    Hallo meinnameisthase,

    die Lösung ist so simpel, dass du eigentlich mit etwas nachdenken selbst darauf kommen könntest: frage den Fenstertitel vor dein eigenen GUI-Erstellung ab, also Zeile 19 nach Zeile 6 verschieben,

    mfg autoBert

  • ListViewItems deaktivieren

    Hallo vurman,

    hier eine 2. Mögflichkeit:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <GUIListView.au3>
    #include <WindowsConstants.au3>

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

    Opt('GUIOnEventMode', 1)
    Opt('GUICloseOnESC', 0)

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

    GUICreate('listview', 220, 170)

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

    Local $listview = GUICtrlCreateListView('value1', 10, 10, 200, 150, -1) ;, $LVS_EX_CHECKBOXES)
    Local $item1 = GUICtrlCreateListViewItem('item1', $listview)
    Local $item2 = GUICtrlCreateListViewItem('item2', $listview)
    Local $item3 = GUICtrlCreateListViewItem('item3', $listview)
    _GUICtrlListView_SetItemParam($listview,0,1)

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

    GUISetOnEvent($GUI_EVENT_CLOSE, 'GuiExit')
    GUISetState(@SW_SHOW)

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

    GUIRegisterMsg($WM_NOTIFY, 'WM_Notify_DoubleClick')

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

    While 1
    Sleep(20)
    WEnd

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

    Func GuiExit()
    Exit
    EndFunc

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

    Func WM_Notify_DoubleClick($hWndGUI, $MsgID, $wParam, $lParam)
    Local $tagNMHDR, $event
    $tagNMHDR = DllStructCreate('int;int;int', $lParam)
    If @error Then Return
    $event = DllStructGetData($tagNMHDR, 3)
    If $event = $NM_DBLCLK AND $wParam = $listview AND _GUICtrlListView_GetSelectedCount($listview) = 1 Then
    $iItem = _GUICtrlListView_GetSelectionMark($listview)
    $iOK = _GUICtrlListView_GetItemParam($listview,$iItem)
    ConsoleWrite($iOK & @CRLF)
    if $iOK = 1 Then MsgBox(64, 'Info', '-> ' & _GUICtrlListView_GetItemText($listview, $iItem))
    EndIf
    EndFunc

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

    @kara2010: das dürfte allen Lesern klar sein

    mfg autoBert

  • ListViewItems deaktivieren

    Hallo vurman,

    hier eine Möglichkeit damit die MsgBox nur bei gewünschten Items erscheint:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <GUIListView.au3>
    #include <WindowsConstants.au3>

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

    Opt('GUIOnEventMode', 1)
    Opt('GUICloseOnESC', 0)

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

    GUICreate('listview', 220, 170)

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

    Local $listview = GUICtrlCreateListView('value1|Eabled', 10, 10, 200, 150, -1) ;, $LVS_EX_CHECKBOXES)
    Local $item1 = GUICtrlCreateListViewItem('item1|YES', $listview)
    Local $item2 = GUICtrlCreateListViewItem('item2|NO', $listview)
    Local $item3 = GUICtrlCreateListViewItem('item3', $listview)
    GUICtrlSetState(-1, $GUI_DISABLE)
    _GUICtrlListView_SetColumnWidth($listview,1,0)

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

    GUISetOnEvent($GUI_EVENT_CLOSE, 'GuiExit')
    GUISetState(@SW_SHOW)

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

    GUIRegisterMsg($WM_NOTIFY, 'WM_Notify_DoubleClick')

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

    While 1
    Sleep(20)
    WEnd

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

    Func GuiExit()
    Exit
    EndFunc

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

    Func WM_Notify_DoubleClick($hWndGUI, $MsgID, $wParam, $lParam)
    Local $tagNMHDR, $event
    $tagNMHDR = DllStructCreate('int;int;int', $lParam)
    If @error Then Return
    $event = DllStructGetData($tagNMHDR, 3)
    If $event = $NM_DBLCLK AND $wParam = $listview AND _GUICtrlListView_GetSelectedCount($listview) = 1 Then
    $aItem = _GUICtrlListView_GetItemTextArray($listview)
    if $aItem[2] = "YES" Then MsgBox(64, 'Info', '-> ' & $aItem[1])
    EndIf
    EndFunc

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

    @victor: genau so hatte es vurman ja probiert

    mfg autoBert

  • Auswerten von Daten

    Hallo Hallo ,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die deutsche Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    und jetzt zu deinem Problem: MsgBoxen sind eigentlich denkbar ngeeignet für soetwas, aber wenn es unbedint MsgBoxen sein sollen dann verkette die Ausgabe mit & und dem Makro @CrLf. Ich würde aber eine Listview vorschlagen.

    Wenn du deine INI einstellst hilft dir sicher einer bei deinem Problem.

    mfg autoBert

  • Bekomme Sprungmarken Warnings

    Da es in AutoIt keine Sprungmarken gibt bekommst du auch keine Sprungmarken-Wabrings sondern Warnings und später vielleicht auch Errors für fehlende Variablendeklaration. Deklariere also am Anfabg nach den Includes die beiden Variablen und das Problem ist zumindest AU3Check technisch gelöst.

    mfg autoBert