Beiträge von Yjuq

  • Funktion wird nicht ausgeführt.

    Da kann und werde ich Freeman unterstützen...
    Ich selber hatte den Auftrag ([ in Arbeit ] Erweiterungsprogramm für Mafiaspiele) angenommen, allerdings ist mir der Code zu "unsauber" etc... (Wenn ich das früher gewusst hätte :P)
    Werde demnach nicht bearbeiten. (Auch wegen zeitgründen her).

    Es ist tatsächlich kein Spielebot sondern soll weitere Spielfeatures einfügen.
    (Soviel ich aus dem Code verstanden habe)

    Die betroffene Seite ist https://autoit.de/www.rotlichtking.com (wie Freeman schon erwähnte...)
    Unten auf der Startseite ist eindeutig "Design © by Freeman" zu erkennen.

    Demnach verstößt dies nicht gegen die AGB von meinemafia.de sowie unseren Forenregeln.


    Ich hoffe dass damit alle zweifel behoben sind. Ich hatte selber auch zweifel als ich mir den Code ansah.
    MfG. MG :)

  • AutoIT Software

    Zitat

    Alles klar, es heißt "AutoIt". ^^

    Der erste Lernerfolg! Mach weiter so! :D

    Zitat

    Tut mir ja leid, ist nicht mit Absicht.

    Ja, ich hatte es auch damals falsch geschrieben :x *g*


    Okey, erstmal vorweg: AutoIt ist nicht Objekt Orientiert. Also kannst du das mit den Objekten wie du das eventuell aus Java und PHP kennst vergessen. Ich wünsche viel Spaß beim lernen! :)

  • AutoIT Software

    Du kannst AutoIt kostenlos von der offiziellen englischen Homepage downloaden.
    Tutorials sowie Einstiegshilfen findest du genug im Netz.

    Zudem würde ich dir die Deutsche Hilfedatei ans Herz legen, wenn du der englischen Sprache nicht mächtig bist.


    Hier die Downloads:
    Aktuelle Stabile AutoIt Version: [brauchst du] http://www.autoitscript.com/cgi-bin/getfil…3.8.1-setup.exe
    Aktuelle Erweiterte SciTE: [empfehlenswert] http://www.autoitscript.com/cgi-bin/getfil…iTE4AutoIt3.exe
    Aktuelle Deutsche Hilfe zum Download: [empfehlenswert] http://translation.autoit.de/autoitinfo/hil…nd-28_12_12.zip

  • txt zeile mit Endung rauswerfen

    Weil der Punkt sich doch nur am Ende der Zeile befindet, kannst du ihn einfach abschneiden.
    Dateiendungen haben mindestens 1 Buchstabe...
    Daher kannst du das ohne bedenken machen ^^

    €dit:
    Eine weitere Möglichkeit wäre zu überprüfen wäre, ob das letzte Zeichen ein "\" ist oder die letzten beiden Zeichen ein "\." ist...
    Kannst dir ja jetzt was aussuchen.

    Spoiler anzeigen
    [autoit]

    ; AutoIt Version: 3.3.9.4 (beta)
    ; Author: Make-Grafik

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

    ; ++++++++++ +++++++++ ++++++++ +++++++ ++++++ +++++ ++++ +++ ++ +

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

    #include <File.au3>

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

    Opt('MustDeclareVars', 1)
    Global $sDatei, $hOpen, $avRead, $iCounter

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

    ; ++++++++++ +++++++++ ++++++++ +++++++ ++++++ +++++ ++++ +++ ++ +

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

    $sDatei = 'SID gefunden: C:\Users\username\Desktop\test\.' & @CRLF & _
    'SID gefunden: C:\Users\username\Desktop\test\hallo.txt' & @CRLF & _
    'SID gefunden: C:\Users\username\Desktop\test\Thumbs.db.' & @CRLF & _
    'SID gefunden: C:\Users\username\Desktop\Application\' & @CRLF & _
    'SID gefunden: C:\Users\username\Desktop\Application\test.txt' & @CRLF & _
    '5 Dateien erfolgreich verarbeitet, bei 0 Dateien ist ein Verarbeitungsfehler aufgetreten.'

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

    $hOpen = FileOpen('ACL-Sample.txt', 2)
    FileWrite($hOpen, $sDatei)
    FileClose($hOpen)

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

    ConsoleWrite(@CRLF & '! Vorher:' & @CRLF & FileRead('ACL-Sample.txt') & @CRLF)

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

    ; ++++++++++ +++++++++ ++++++++ +++++++ ++++++ +++++ ++++ +++ ++ +

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

    ;~ _FileReadToArray('ACL-Sample.txt', $avRead)
    ;~ $hOpen = FileOpen('ACL-Sample.txt', 2)

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

    ;~ For $iCounter = 1 To $avRead[0] - 1
    ;~ If Not StringInStr($avRead[$iCounter], '.', 0, 1, 1, StringLen($avRead[$iCounter]) - 1) Then FileWrite($hOpen, $avRead[$iCounter] & @CRLF)
    ;~ Next

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

    ;~ FileWrite($hOpen, $avRead[$avRead[0]])
    ;~ FileClose($hOpen)

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

    ; ++++++++++ +++++++++ ++++++++ +++++++ ++++++ +++++ ++++ +++ ++ +

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

    _FileReadToArray('ACL-Sample.txt', $avRead)
    $hOpen = FileOpen('ACL-Sample.txt', 2)

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

    For $iCounter = 1 To $avRead[0] - 1
    If StringTrimLeft($avRead[$iCounter], StringLen($avRead[$iCounter]) - 1) = '\' Or _
    StringTrimLeft($avRead[$iCounter], StringLen($avRead[$iCounter]) - 2) = '\.' Then
    FileWrite($hOpen, $avRead[$iCounter] & @CRLF)
    EndIf
    Next

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

    FileWrite($hOpen, $avRead[$avRead[0]])
    FileClose($hOpen)

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

    ; ++++++++++ +++++++++ ++++++++ +++++++ ++++++ +++++ ++++ +++ ++ +

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

    ConsoleWrite(@CRLF & '! Nachher:' & @CRLF & FileRead('ACL-Sample.txt') & @CRLF & @CRLF)

    [/autoit]

  • txt zeile mit Endung rauswerfen

    Lies einfach jede Zeile der *.txt einzelnd ein, und überprüfe dann mit einem StringRegExp Pattern ob die Datei eine Dateiendung hat.
    Hatte schonmal sowas geschrieben. Ich suche es mal eben auf mein rechner bzw. Tippe es neu...

    Achja, speicher in einer Variable die Zeilennummer,... Kannst dann den Text ersetzen.


    €dit:
    Machs dir doch noch einfacher... Lies jede Zeile einzelnd aus und überprüfe ob sich ein Punkt " . " im String befindet. Wenn ja, hat es definitiv eine Dateiendung ^^
    Vorraussgesetzt der Aufbau bleibt so gleich...

  • #Tidy_Parameters [ gelöst ] | WM_KEYDOWN [ gelöst ]

    Ja, ich weiß...
    WM_CHAR war sowieso das erste was ich in betracht gezogen habe...
    Demnach muss ich das irgendwie anders regeln. Möchte so ziemlich jegliche Tasten aufnehmen.
    Wäre gut wenn man da eine einfache Möglichkeit finden.

    Wie gesagt: _IsPressed auf keinen Fall. Ich habe dies schon versucht und möchte nach Möglichkeit meinen
    Code beschleunigen. Es ist ein derzeitiges Projekt was ich noch nicht veröffentlichen werde.

    Möchte Geschwindigkeits vergleich machen. Aber soviel kann ich schon sagen:
    Es ist für eine Cheat Konsole sowie einen eigenen Chat (Selbst erstelltes Input "Control" in GDI+)...
    Ich versuche den Gesammten GUI Aufbau nur in GDI+ zu zeichnen. Also keine Controls!

    Gründe jibts bei mir dafür persönlich viele ^^

  • Nachricht senden bei nicht fokussiertem Fenster (ICQ)

    Hey, eventuell könnte da _SendMessage() helfen.
    Bin aber nicht zu 100% sicher...

    Hatte damals ebenfalls ein ähnliches Problem...
    Hab noch im Bot Forum ein Thread dazu.

    Das sollte sich doch garantiert irgendwie umschreiben lassen um es in ICQ nutzbar zu machen.
    Melde mich dann wenn ich was hab. Nur jetzt so als kleiner "Richtungs stubser"...

  • #Tidy_Parameters [ gelöst ] | WM_KEYDOWN [ gelöst ]

    Hallo AutoIt Community!
    Ich nutze dieses Thread einfach mal doppelt damit ich nicht ein zweites Thread öffnen muss.


    #Tidy_Parameters: [ gelöst ]
    Ich schaffe es einfach nicht, dass Tidy bei mir so aufräumt wie ICH das will. Kann mir wer sagen was ich falsch mache?
    Es soll derzeitig nur die Funktionsnamen als Kommentar nach dem EndFunc schreiben. So etwa:

    [autoit]

    Func _Example()
    EndFunc ;==> _Example()

    [/autoit]

    Kann mir jemand sagen was ich hier falsch mache?

    Spoiler anzeigen
    [autoit]

    ; /sefc -> Skip_EndFunc_Comment
    ; *** Add comment to EndFunc statement e.g. "EndFunc ;==> UDF_Name"
    #Tidy_Parameters = /sefc 1

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

    ConsoleWrite('TEST' & @CRLF)

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

    _TEST()

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

    Func _TEST()
    ConsoleWrite('TEST' & @CRLF)
    EndFunc

    [/autoit]


    WM_KEYDOWN: [ gelöst ]
    Ich möchte gerne zu der Windows Message die Enter Taste registrieren. Zudem soll auch unter groß und kleinschreibung unterschieden werden. Gibt es eine einfache Möglichkeit um dies zu erreichen (bitte kein _IsPressed() oder ähnliche Funktionen)? Hier ein Codebeispiel:
    (Es ist deutlich zu erkennen dass die eingegebenen Tasten als Großbuchstaben ausgegeben werden...)

    Spoiler anzeigen
    [autoit]

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

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

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

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

    Global $hGUI

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

    GUIRegisterMsg($WM_KEYDOWN, 'WM_KEYDOWN')

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

    $hGUI = GUICreate('Example')
    GUISetOnEvent($GUI_EVENT_CLOSE, 'GUI_EVENT_CLOSE')
    GUISetState()

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

    While Sleep(1000)
    WEnd

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

    Func WM_KEYDOWN($hWnd, $Msg, $wParam, $lParam)
    Local Static $iCounter

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

    If $iCounter = 20 Then
    $iCounter = 0
    ConsoleWrite(@CRLF)
    Else
    $iCounter += 1
    EndIf

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

    ConsoleWrite(Chr($wParam))
    EndFunc

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

    Func GUI_EVENT_CLOSE()
    Exit
    EndFunc

    [/autoit]

  • GUI-Fenstergröße maximal / minimal

    Hier hab ich was:

    Spoiler anzeigen
    [autoit]

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

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

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

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

    Global Enum $iMin, $iMax
    Global $ai_Width[2], $ai_Height[2]
    Global $hGUI

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

    $ai_Width[$iMin] = 200
    $ai_Width[$iMax] = 800

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

    $ai_Height[$iMin] = 150
    $ai_Height[$iMax] = 600

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

    $hGUI = GUICreate('Example - MG', 400, 300, -1, -1, $WS_CAPTION + $WS_SIZEBOX + $WS_SYSMENU)
    GUIRegisterMsg($WM_SIZING, 'WM_SIZING')
    GUISetOnEvent($GUI_EVENT_CLOSE, 'GUI_EVENT_CLOSE')
    GUISetState()

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

    While Sleep(1000)
    WEnd

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

    Func WM_SIZING($hWnd, $Msg, $wParam, $lParam)
    Local Enum $iLeft = 1, $iTop, $iRight, $iBottom, $iWidth, $iHeight
    Local Enum $WMSZ_LEFT = 1, $WMSZ_RIGHT, $WMSZ_TOP, $WMSZ_TOPLEFT, $WMSZ_TOPRIGHT, $WMSZ_BOTTOM, $WMSZ_BOTTOMLEFT, $WMSZ_BOTTOMRIGHT
    Local $ai_Pos[7]

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

    Local $tStruct = DllStructCreate($tagRECT, $lParam)

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

    $ai_Pos[$iLeft] = DllStructGetData($tStruct, $iLeft)
    $ai_Pos[$iTop] = DllStructGetData($tStruct, $iTop)
    $ai_Pos[$iRight] = DllStructGetData($tStruct, $iRight)
    $ai_Pos[$iBottom] = DllStructGetData($tStruct, $iBottom)
    $ai_Pos[$iWidth] = $ai_Pos[$iRight] - $ai_Pos[$iLeft]
    $ai_Pos[$iHeight] = $ai_Pos[$iBottom] - $ai_Pos[$iTop]

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

    $wParam = int($wParam)

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

    If $ai_Pos[$iWidth] < $ai_Width[$iMin] Then
    If $wParam = $WMSZ_LEFT Or _
    $wParam = $WMSZ_TOPLEFT Or _
    $wParam = $WMSZ_BOTTOMLEFT Then
    DllStructSetData($tStruct, $iLeft, $ai_Pos[$iRight] - $ai_Width[$iMin])
    Else
    DllStructSetData($tStruct, $iRight, $ai_Pos[$iLeft] + $ai_Width[$iMin])
    EndIf
    ElseIf $ai_Pos[$iWidth] > $ai_Width[$iMax] Then
    If $wParam = $WMSZ_LEFT Or _
    $wParam = $WMSZ_TOPLEFT Or _
    $wParam = $WMSZ_BOTTOMLEFT Then
    DllStructSetData($tStruct, $iLeft, $ai_Pos[$iRight] - $ai_Width[$iMax])
    Else
    DllStructSetData($tStruct, $iRight, $ai_Pos[$iLeft] + $ai_Width[$iMax])
    EndIf
    EndIf

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

    If $ai_Pos[$iHeight] < $ai_Height[$iMin] Then
    If $wParam = $WMSZ_TOP Or _
    $wParam = $WMSZ_TOPLEFT Or _
    $wParam = $WMSZ_TOPRIGHT Then
    DllStructSetData($tStruct, $iTop, $ai_Pos[$iBottom] - $ai_Height[$iMin])
    Else
    DllStructSetData($tStruct, $iBottom, $ai_Pos[$iTop] + $ai_Height[$iMin])
    EndIf
    ElseIf $ai_Pos[$iHeight] > $ai_Height[$iMax] Then
    If $wParam = $WMSZ_TOP Or _
    $wParam = $WMSZ_TOPLEFT Or _
    $wParam = $WMSZ_TOPRIGHT Then
    DllStructSetData($tStruct, $iTop, $ai_Pos[$iBottom] - $ai_Height[$iMax])
    Else
    DllStructSetData($tStruct, $iBottom, $ai_Pos[$iTop] + $ai_Height[$iMax])
    EndIf
    EndIf
    EndFunc

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

    Func GUI_EVENT_CLOSE()
    Exit
    EndFunc

    [/autoit]

  • GUI-Fenstergröße maximal / minimal

    Klar kann man das :)
    Aber die Funktion die in GUIRegisterMsg übergeben wurde, wird zuerst (bei WM_SIZING) aufgerufen.
    Das bedeutet: Das Fenster wird nicht erst vergrößert bzw. verkleinert.
    So kann man das ganze einfach verhindern das überhaupt was verändert wird.

  • int -> char

    Vielen herzlichen dank lieber Märchenonkel!
    Du hast mir kein Stück weitergeholfen... ^^

    Okey, entweder hast du nicht kapiert was ich will oder ich habe es falsch erklärt...
    Vermutlich ist Punkt 1 die Konsiquenz aus Punkt 2! ^^

    Ja, das selbe habe ich doch hier im Thread (im Spoiler das Script) gemacht.
    Nur halb direkt die Hex Zahlen (zur besseren übersicht der ASCII Tabelle willen) eingesetzt.
    Intern werden sie aber als Integer angesehen.

    Es geht mir aber um die verlinkten Skripte.
    Dort verwende ich die Pointer.au3 und rätsel immernoch wie man die Integers nun zusammen setzt...

    Ist ein bischen schwer zu erklären ^^