Beiträge von Alina

  • Neue Betrugsmasche: Ermittlungsverfahren..

    Emails sind immer dann Gerichtsverwertbar, wenn deren Verfasser eindeutig nachgewiesen werden kann.
    Mit DE-Mail fängt sicherlich eine "neue Zeit" an, aber deren Anmeldung bis zur letztendlichen Anwendung ist derzeitig bei dem e-Brief für einigen Usern ein Problem.
    Weiß das es da bereits zahlreiche Anwender gibt, die alles Codes bekommen haben, die sich Identifiziert haben und und und. Aber es arbeitet bis heute nicht. Das Anmedleverfahren ist nach über sechs Monate noch nicht abgeschlossen. Telefonsupport sehr mangelhaft und zum Teil sehr unfreundlich.
    Aber wenn das ganze dann mal läuft und die evtl. noch nicht bekannten Sicherheitslücken (so es welche gibt *fg* ) geschlossen sind, wird es immer wieder diese blöden SPAM Mails geben und sicherlich genauso viele Betrugsfälle im Netz.
    Man kann sich selber sehr gut absichern und bekommt sehr gute Hilfe im Internet. Grundhilfe gibt es beim BSI (Bundesamt für Sicherheit in der Informationstechnik) und dem 'Sicherheitsportal des Bundesamts für Sicherheit in der Informationstechnik.

    Weitere Links gibt es dort und wenn man in guten Foren, wie z. B. AutoIt, Fragen zu Sicherheit des Systems hat, bekommt man auch viele Hilfe.

  • Neue Betrugsmasche: Ermittlungsverfahren..

    Moin Moin.

    Mal aus beruflicher erfahrung mitteilt, das ein Rechtsanwalt immer auf den Weg des Briefes sich an die Gegenstelle wendet. Ansosnten einfach bei der Rechtsanwaltskammer erst einmal nachfragen ob es den RA gibt und wenn ja, dann die Rufnummer geben lassen, wenn diese nicht sogar im Telefonbuch steht.

    Gruß, Alina.

  • hauke96

    Moin-Moin Hauke.

    Gruß ans ostfriesische Land ;)

    Willkommen im Forum und viel ERFOLG mit AutoIt. Ich bin auch damals vom btachen zu AutoIt gekommen. Batch-Dateien haben mir damals nicht weiter geholfen und ich war auf der Suche, wie ich damals ein Problem lösen könnte und habe es DANK AutoIt und besonders DANK diesem Forum und den netten / lieben User gelöst.

    Also, hau in die Tasten ;)

    Alina

  • Musik Datei analysieren - Vorzugsweise Morsecode - dringend

    Moin zusammen.

    Bekomme folgede Fehlermeldung:
    E:\test.au3(39,37) : ERROR: _BASS_LoWord(): undefined function.
    $iLeft = _BASS_LoWord($iLong)
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    E:\test.au3(40,38) : ERROR: _BASS_HiWord(): undefined function.
    $iRight = _BASS_HiWord($iLong)
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    E:\test.au3 - 2 error(s), 0 warning(s)

  • User einlesen

    Hallo Blubbstar.

    Wenn es fertig ist kommt es on ! ;)


    Edit:
    Sicherlich ist es um einiges besser zu scripten, aber ich hatte da was gelesen und geschaut, ob man es mit AutoIt umsetzen kann.

    Spoiler anzeigen
    [autoit]


    #cs
    Danke an :
    blubbstar = _ReturnUser()
    KingLoL = Combo statt List
    Blume = Zeile 87 und nachfolgende Zeilen
    #ce

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

    #include <GUIConstantsEx.au3>
    #include <String.au3>
    $Form1_1 = GUICreate("Logintimer", 417, 315, 287, 147)
    $Label1 = GUICtrlCreateLabel("Benutzername", 10, 72, 109, 24)
    $Combo1 = GUICtrlCreateCombo("", 160, 72, 249, 25)
    GUICtrlSetData(-1, _ReturnUser())
    $Label2 = GUICtrlCreateLabel("Montag", 29, 122, 49, 20)
    $Label3 = GUICtrlCreateLabel("Dienstag", 23, 150, 58, 20)
    $Label4 = GUICtrlCreateLabel("Mittwoch", 27, 176, 55, 20)
    $Label5 = GUICtrlCreateLabel("Donnerstag", 8, 204, 74, 20)
    $Label6 = GUICtrlCreateLabel("Freitag", 36, 231, 46, 20)
    $Label7 = GUICtrlCreateLabel("Samstag", 25, 258, 58, 20)
    $Label8 = GUICtrlCreateLabel("Sonntag", 29, 285, 54, 20)
    $Label9 = GUICtrlCreateLabel("von", 88, 104, 26, 14)
    $Label10 = GUICtrlCreateLabel("bis", 122, 104, 22, 14)
    $Input1 = GUICtrlCreateInput("0", 88, 120, 25, 24)
    $Input2 = GUICtrlCreateInput("24", 120, 120, 25, 24)
    $Input3 = GUICtrlCreateInput("0", 88, 147, 25, 24)
    $Input4 = GUICtrlCreateInput("24", 120, 147, 25, 24)
    $Input5 = GUICtrlCreateInput("0", 88, 174, 25, 24)
    $Input6 = GUICtrlCreateInput("24", 120, 174, 25, 24)
    $Input7 = GUICtrlCreateInput("0", 88, 201, 25, 24)
    $Input8 = GUICtrlCreateInput("24", 120, 201, 25, 24)
    $Input9 = GUICtrlCreateInput("0", 88, 228, 25, 24)
    $Input10 = GUICtrlCreateInput("24", 120, 228, 25, 24)
    $Input11 = GUICtrlCreateInput("0", 88, 255, 25, 24)
    $Input12 = GUICtrlCreateInput("24", 120, 255, 25, 24)
    $Input13 = GUICtrlCreateInput("0", 88, 282, 25, 24)
    $Input14 = GUICtrlCreateInput("24", 120, 282, 25, 24)
    $Label14 = GUICtrlCreateLabel("L O G I N - T I M E R", 104, 8, 227, 33)
    GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
    $Label15 = GUICtrlCreateLabel("Du entscheidest, wann wer sich an dem PC anmeldet", 88, 40, 256, 17)
    $plus = GUICtrlCreateButton("Einschränken setzen", 160, 248, 123, 25, 0)
    $minus = GUICtrlCreateButton("Freigabe aller Einschränkungen", 160, 280, 251, 25, 0)
    $ergebnis = GUICtrlCreateButton("Einschränken ansehen", 286, 248, 123, 25, 0)
    $Label11 = GUICtrlCreateLabel("Nutzungshinweise", 232, 112, 106, 17)
    GUICtrlSetFont(-1, 8, 800, 4, "MS Sans Serif")
    $Label12 = GUICtrlCreateLabel("+ Einschränkungen immer nur volle Stunden.", 174, 128, 215, 18)
    $Label13 = GUICtrlCreateLabel("+ Nutzung auf eigene Gefahr.", 204, 145, 144, 14)
    GUISetState(@SW_SHOW)
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $plus
    ;net user Benutzer /times:Mo,7-21;Di,7-21;Mi,7-21;Do,7-21;Fr,7-21
    Run("net user " & GUICtrlRead($Combo1) & " /times:Mo," & GUICtrlRead($Input1) & "-" &GUICtrlRead($Input2) & ";Di,"& GUICtrlRead($Input3) & "-" & GUICtrlRead($Input4) & ";Mi,"& GUICtrlRead($Input5) & "-" & GUICtrlRead($Input6) & ";Do,"& GUICtrlRead($Input7) & "-" & GUICtrlRead($Input8) & ";Fr,"& GUICtrlRead($Input9) & "-" & GUICtrlRead($Input10) & ";Sa,"& GUICtrlRead($Input11) & "-" & GUICtrlRead($Input12) & ";So,"& GUICtrlRead($Input13) & "-" & GUICtrlRead($Input14))
    sleep(500)
    msgBox(0,"Einschränkungen", "Einschränkungen aktiviert")
    Case $minus
    ; net user Benutzer /times:all
    Run("net user " & GUICtrlRead($Combo1) & " /times:all")
    sleep(500)
    msgBox(0,"Einschränkungen", "Einschränkungen deaktiviert")
    Case $ergebnis
    ; net user Benutzer
    FileDelete(@ScriptDir & "/info.txt")
    sleep(200)
    Run(@ComSpec & " /c net user "& GUICtrlRead($Combo1) & " >>info.txt")
    Sleep(200)
    ; Blume's Idee; Diese Funktion heute gleich zwei mal verwendet. ;)
    $sText = FileRead(@ScriptDir & "/info.txt")
    Sleep(200)
    $sStart = "Anmeldezeiten"
    $sEnde = "Lokale"
    $sText = _StringBetween($sText, $sStart, $sEnde)
    $sText = $sText[0]
    $sText = $sStart & $sText
    MsgBox(0,"Ergebniss",$sText)
    EndSwitch
    WEnd
    Func _ReturnUser()
    Local $CMDRead, $sUser
    $CMD = Run(@ComSpec & " /c net user", @SystemDir, @SW_HIDE, 0x2)
    While 1
    $CMDRead &= StdoutRead($CMD)
    If @error Then ExitLoop
    WEnd
    $CMDRead = StringRegExp($CMDRead, "(.+?) ", 3)
    For $i = 0 To UBound($CMDRead) - 1
    If StringStripWS($CMDRead[$i], 8) <> '' Then $sUser &= StringStripWS($CMDRead[$i], 8) & "|"
    Next
    Return StringTrimRight($sUser, 1)
    EndFunc ;==>_ReturnUser

    [/autoit]

    Exe-Datei: Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

  • Text aus TXT

    Ich habe eine Textdatei (z. B. info.txt) und irgendwo kommt das Wortpaar "Start Anfang " vor und irgendwo später das Wortpaar "Ziel Ende".
    Ich möchte nun den im folgenden Beispieltext rot geschriebenen Text in eine MSgBox ausgeben. Nur wie ???

    Spoiler anzeigen


    hier stehen einige Angaben
    Start Anfang ist der heutige Tag 31.02.2000
    17.06.1900 ist einiges davor
    aber morgen ist übermorgen schon wieder gestern

    Und dann noch irgend ein Text hier und hier.
    die Zeilenzahl ist flexibel, also kann man nicht die Zeilen nehmen ;)


    Ziel Ende und das hier .... und ???

  • User einlesen

    Moin Moin zusammen.

    Folgendes GUI besteht und ich möchte in das Listfeld alle Benutzer auswählen können, die sich an dem PC anmelden können.

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>
    $Form1 = GUICreate("Sperrung / Freigabe", 417, 315, 287, 147)
    $Label1 = GUICtrlCreateLabel("Benutzername", 10, 72, 109, 24)
    $List1 = GUICtrlCreateList("Benutzer 1", 120, 72, 289, 24)
    $Label2 = GUICtrlCreateLabel("Montag", 29, 122, 49, 17)
    $Label3 = GUICtrlCreateLabel("Dienstag", 23, 150, 55, 20)
    $Label4 = GUICtrlCreateLabel("Mittwoch", 27, 176, 51, 19)
    $Label5 = GUICtrlCreateLabel("Donnerstag", 8, 204, 70, 18)
    $Label6 = GUICtrlCreateLabel("Freitag", 36, 231, 42, 20)
    $Label7 = GUICtrlCreateLabel("Samstag", 25, 258, 53, 19)
    $Label8 = GUICtrlCreateLabel("Sonntag", 29, 285, 49, 19)
    $Label9 = GUICtrlCreateLabel("von", 89, 104, 24, 16)
    $Label10 = GUICtrlCreateLabel("bis", 122, 105, 20, 14)
    $Input1 = GUICtrlCreateInput("0", 88, 120, 25, 24)
    $Input2 = GUICtrlCreateInput("23", 120, 120, 25, 24)
    $Input3 = GUICtrlCreateInput("0", 88, 147, 25, 24)
    $Input4 = GUICtrlCreateInput("23", 120, 147, 25, 24)
    $Input5 = GUICtrlCreateInput("0", 88, 174, 25, 24)
    $Input6 = GUICtrlCreateInput("23", 120, 174, 25, 24)
    $Input7 = GUICtrlCreateInput("0", 88, 201, 25, 24)
    $Input8 = GUICtrlCreateInput("23", 120, 201, 25, 24)
    $Input9 = GUICtrlCreateInput("0", 88, 228, 25, 24)
    $Input10 = GUICtrlCreateInput("23", 120, 228, 25, 24)
    $Input11 = GUICtrlCreateInput("0", 88, 255, 25, 24)
    $Input12 = GUICtrlCreateInput("23", 120, 255, 25, 24)
    $Input13 = GUICtrlCreateInput("0", 88, 282, 25, 24)
    $Input14 = GUICtrlCreateInput("23", 120, 282, 25, 24)
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

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

    EndSwitch
    WEnd

    [/autoit]

    Eigentlich möchte ich, das ich die Benutzer nicht manuell ins Script eingeben muss, sondern das sie ausgelesen werden.

    Danke bereits hier für Eure Hilfe.