Beiträge von i2c

  • "Du hast keine Verbindung zu diesem Benutzer."

    Du meinst das Budy-System hier im Forum?

    Du kannst einzelne Benutzer in ihrem Benutzerprofil als Freund hinzufügen. Deine Freunde werden dann in deinem Profil angezeigt. In Profilen anderer Benutzer siehst du dann ob derjenige ein direkter Freund ist oder indirekt über einen anderen Benutzer mit dir in Verbindung steht. Nach dem Prinzip "ich kenn da einen, der kennt einen der einen kennt der ....".

  • Kleine Ini. Problem

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 438, 351, 192, 124)
    GUISetFont(12, 400, 0, "MS Sans Serif")
    $Input1 = GUICtrlCreateInput("Password", 136, 80, 241, 28)
    $Input2 = GUICtrlCreateInput("Password", 136, 144, 241, 28)
    $Label1 = GUICtrlCreateLabel("Password :", 40, 80, 91, 24)
    GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
    $Label2 = GUICtrlCreateLabel("Bestätigen:", 32, 143, 96, 24)
    GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
    $Label3 = GUICtrlCreateLabel("Legen Sie ihr Sysrem Password fest", 128, 16, 258, 24)
    $Button1 = GUICtrlCreateButton("Übernehmen", 128, 232, 105, 33, $WS_GROUP)
    $Button2 = GUICtrlCreateButton("Information", 264, 232, 113, 33, $WS_GROUP)
    GUISetState(@SW_SHOW)
    #endregion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    If GUICtrlRead($Input1) = GUICtrlRead($Input2) Then
    _correct()
    Else
    MsgBox(0, "", "Passwörter stimmen nicht überein")
    EndIf
    Case $Button2
    $readini = IniRead("pw.ini", "Password", "Password", "")
    MsgBox(0, "Informationen", "Ihr aktuelles Password lautet:" & $readini)
    EndSwitch
    WEnd

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

    Func _correct()
    IniWrite("pw.ini", "Password", "Password", GUICtrlRead($Input1))
    MsgBox(0, "", "Succesfull")
    EndFunc ;==>_correct

    [/autoit]

  • Kleine Ini. Problem

    Doch, wird er. Die Änderung von Sprenger120 ist leider nicht korrekt. $read1 ist kein Control und muss/kann deshalb nicht ausgelesen werden. Die IniWrite Zeile also so lassen wie sie war.

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 438, 351, 192, 124)
    GUISetFont(12, 400, 0, "MS Sans Serif")
    $Input1 = GUICtrlCreateInput("Password", 136, 80, 241, 28)
    $Input2 = GUICtrlCreateInput("Password", 136, 144, 241, 28)
    $Label1 = GUICtrlCreateLabel("Password :", 40, 80, 91, 24)
    GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
    $Label2 = GUICtrlCreateLabel("Bestätigen:", 32, 143, 96, 24)
    GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
    $Label3 = GUICtrlCreateLabel("Legen Sie ihr Sysrem Password fest", 128, 16, 258, 24)
    $Button1 = GUICtrlCreateButton("Übernehmen", 128, 232, 105, 33, $WS_GROUP)
    $Button2 = GUICtrlCreateButton("Information", 264, 232, 113, 33, $WS_GROUP)
    GUISetState(@SW_SHOW)
    #endregion ### END Koda GUI section ###

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

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

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

    Case $Button1
    If GUICtrlRead($Input1) = GUICtrlRead($Input2) Then
    _correct()
    Else
    MsgBox(0, "", "Passwörter stimmen nicht überein")
    EndIf

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

    Case $Button2
    $readini = IniRead("pw.ini", "Password", "Password", "")
    MsgBox(0, "Informationen", "Ihr aktuelles Password lautet:" & $readini)

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

    EndSwitch
    WEnd

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

    Func _correct()
    IniWrite("pw.ini", "Password", "Password", GUICtrlRead($Input1))
    MsgBox(0, "", "Succesfull")
    EndFunc ;==>_correct

    [/autoit]

  • Strings in Quellcode austauschen (mit RegEx)

    Moin,

    ich hab zwar nicht ganz verstanden was genau du als Ausgabe benötigst aber evtl. hilft dir das hier.

    Spoiler anzeigen
    [autoit]

    #include <array.au3>
    $sString = ' CTEXT L"\x20\x20\x20\x41f\x43e\x43b\x43e\x436\x435\x43d\x438\x435\x20\x433\x43b\x430\x432\x43d\x43e\x433\x43e\x20\x432\x430\x43b\x430\x20\x20\x20\x20\x20\x20\x5b\x413\x420\x410\x414\x5d",IDST_TITEL,0,0,'
    $aArray = StringRegExp($sString, 'L\"\\x(.+)\"\,', 3)
    $nArray = StringSplit($aArray[0], '\x', 1)
    _ArrayDisplay($nArray)

    [/autoit]

  • kleines problem mit skript

    &quot;oder so&quot;
    [autoit]

    $file = FileOpen("usbdata.txt", 0)
    $text = FileRead($file)
    FileClose($file)
    $newtext = StringReplace(StringReplace(StringReplace(StringReplace(StringReplace($text, "$", ""), ",", ""), @CRLF, ""), @CR, ""), @LF, "")
    $file = FileOpen("usbdata.txt", 2)
    FileWrite($file, "0x" & $newtext)
    FileClose($file)

    [/autoit]

  • StringRegExp <- wie filtere ich meine zeichenkette

    Spoiler anzeigen
    [autoit]

    #include <array.au3>
    $string = '12.123.123.2(guter server)|131.2.32.2|http://www.test.de|blavla.de|ee.asdfasd.eu(hallo)'
    $string = StringRegExpReplace($string, '\(.+?\)', '')
    $array = StringSplit($string, '|')
    _ArrayDisplay($array)

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

    $hfile = FileOpen(@ScriptDir & "\log.txt", 1)
    For $i = 1 To $array[0]
    FileWrite($hfile, $array[$i] & @CRLF)
    Next
    FileClose($hfile)

    [/autoit]

    edit: zu langsam, noch nicht ganz ausgeschlafen :)

  • TCP-Send geht nicht (zum 100sten) ;)

    Der erste Parameter von TCPConnect() muss eine IP sein.

    TCPNameToIP()

    [autoit]

    _check("server.alteriw.net", 13000)

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

    Func _check($hostname, $port)
    global $socket = -1
    TCPStartup()
    $socket = TCPConnect(TCPNameToIP($hostname), $port)
    MsgBox(0,"Erfolg?", $socket)
    EndFunc

    [/autoit]

  • Hilfe zu Hotkey in .txt dateien schreiben (seite 3)

    Hotkeys werden vom Skript reserviert, sind also zur Laufzeit nicht nutbar.
    Send() muss auch ein Ziel haben. Dein a verschwindet irgendwo zwischen Desktop und Papierkorb ins Windows Nirvana.

    Wenn du die Eingabe eines Users in eine Datei schreiben möchtest dann bau die eine GUI mit 'nem Input. Das ist deutlich einfacher als jede Taste einzeln abzufangen. Ausserdem bewegen wir uns hier immer mehr in Richtung Keylogger. Das ist überhaupt nicht gut.

    edit: holla, 2 Mann waren schneller

  • Hilfe zu Hotkey in .txt dateien schreiben (seite 3)

    &quot;...alles Dinge die so auch in der Hilfe beschrieben sind
    [autoit]

    #include <file.au3>
    HotKeySet("a", "_write") ;Hotkey setzen und Funktion zuweisen
    While 1
    Sleep(100)
    WEnd

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

    Func _write()
    $file = FileOpen(@ScriptDir & "\testfile.txt", 1)
    FileWrite($file, "Du hast den Hotkey a gedrückt")
    FileClose($file)
    MsgBox(64, "", "Text wurde in " & @ScriptDir & "\testfile.txt geschrieben")
    EndFunc

    [/autoit]