1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. autoBert

Beiträge von autoBert

  • Rapidshare Punktescript

    • autoBert
    • 1. Februar 2010 um 23:59

    Hallo blackdeath911,

    du hast einmal ein endif vergessen, ausserdem ist eine Variable nicht definiert gewesen, so sieht das Skript dann aus:

    Spoiler anzeigen
    [autoit]

    #Region Includes
    #include <Array.au3>
    #include <File.au3>
    #include <Inet.au3>
    #include <String.au3>
    #EndRegion Includes
    #Region globale variabeln
    Global $i = 0
    Global $s = 0
    Global $a = 0
    Global $sum1 = 0
    Global $sum2 = 0
    Global $12std = 0
    Global $12hwert = 0
    Global $Wert_alt = 0
    Global $Wert_alt2 = 0 ;<============== hat gefehlt
    Global $anzahl = IniRead("data.ini", "accounts", "account", "fail")
    ;Daten aus ini auslesen und in die variabeln einsetzen

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

    Dim $login[$anzahl]
    Dim $pass[$anzahl]
    Dim $account[$anzahl]
    Global $pauseini = IniRead("data.ini", "pause", "pause", "30")
    #EndRegion globale variabeln

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

    While 1
    If $a = $anzahl Then
    ExitLoop
    EndIf
    $login[$a] = IniRead("data.ini", "login", "account" & $a, "fail")
    $pass[$a] = IniRead("data.ini", "pass", "account" & $a, "fail")
    $account[$a] = IniRead("data.ini", "art", "account" & $a, "fail")
    $a = $a + 1
    WEnd
    $a = 0

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

    While True
    ;txt dateien öffenen, wenn nicht geöffnet werden können Fehlerbox + exit
    $punkte = FileOpen("punktefree.txt", 1)
    $punkte2 = FileOpen("punkteprem.txt", 1)
    If $punkte = -1 Then
    MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
    Exit
    EndIf
    If $punkte2 = -1 Then
    MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
    Exit
    EndIf
    While 1
    ;Daten aus der API holen -> Link mit variabeln aus der INI
    $quelltext = _INetGetSource("http://api.rapidshare.com/cgi-bin/rsapi.cgi?sub=getaccountdetails_v1&login=" & $login[$s] & "&password=" & $pass[$s] & "&type=" & $account[$s])
    $s = $s + 1
    $a = $a + 1
    ;array wird erstellt für die fpoints und ppoints
    $array = _StringBetween($quelltext, "fpoints=", "ppoints")
    $array2 = _StringBetween($quelltext, "ppoints=", "curfiles")

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

    ; Free Points Berechnung:
    $Wert = Int($array[0])
    ConsoleWrite("FreePoints: " & $Wert & @CRLF)
    If IsArray($array) Then
    If $i > 0 Then
    If $a = $anzahl Then
    ConsoleWrite("1: " & $Wert - $Wert_alt & @CRLF)
    FileWrite($punkte, $sum1 - $Wert_alt & " Time: " & @HOUR & ":" & @MIN & @CRLF)
    EndIf
    EndIf
    $sum1 = $Wert + $sum1
    If $a = $anzahl Then
    $Wert_alt = $sum1
    EndIf

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

    ; Premium Points Berechnung:
    $Wert2 = Int($array2[0])
    ConsoleWrite("PremiumPoints:" & @TAB & $Wert2 & @CRLF)

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

    If IsArray($array2) Then
    If $a = $anzahl Then
    ConsoleWrite("1: " & $sum2 - $Wert_alt2 & @CRLF)
    FileWrite($punkte2, $sum2 - $Wert_alt2 & @TAB & "Time:" & @TAB & @HOUR & ":" & @MIN & @CRLF)
    EndIf
    EndIf
    $sum2 = $Wert + $sum2
    If $a = $anzahl Then
    $Wert_alt2 = $sum2
    EndIf
    If $a = $anzahl Then
    ExitLoop
    EndIf
    EndIf ;<============== hat gefehlt
    WEnd

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

    ;geöffnete txt´s wieder schließen das man die Punkteaufschreibung auch einsehen kann
    FileClose($punkte)
    FileClose($punkte2)

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

    $pause1 = $pauseini * 60 * 1000
    #Region Wartezeit
    $begin = TimerInit()
    Sleep($pause1)
    $dif = TimerDiff($begin)
    #EndRegion Wartezeit
    $i = $i + 1
    WEnd

    [/autoit]

    es steigt bei mir allerdings wegen der fehlenden INI aus,

    mfg (Auto)Bert

  • ControlSend. Befehle an ein geschlossenes Fenster.

    • autoBert
    • 1. Februar 2010 um 22:53

    [quote='.sh0xx',index.php?page=Thread&postID=135614#post135614Ich verstoße gegen nichts.
    Das ist für meinen eigenen Server.
    Ich habe keine Lust immer Befehle einzugeben.
    Daher das Script ;)[/quote]Zumindest gegen die Netiquette, denn nach 11 Min. schon über einen 2. Beitrag zu pushen :cursing:
    Und das es sich um deinen eigenen Server handelt stufe ich als Schutzbehauptung ein, damit du doch noch zu deinem BOT kommst,

    mfg (Auto)Bert

  • ControlSend. Befehle an ein geschlossenes Fenster.

    • autoBert
    • 1. Februar 2010 um 22:41

    Halo .sh0xx,

    da du mit einem solchen Skript dir Vorteile gegenüber den anderen Mitspielern verschaffst, verstösst du höchstwarscheinlich gegen die AGB's der Gameserverbetreiber, daher solltest dur dir die Forenregeln durchlesen. Dnach verstehst du sicher warum du hier für soetwas keinen Support bekommst,

    mfg (Auto)Bert

  • Gui Browser und eingabefeld

    • autoBert
    • 1. Februar 2010 um 01:39

    Hallo Emex,

    schau dir einmal diesea Thema an: [gelöst] Auf einer Website automatisch ein logen hilft dir beim IE. Für den Firefox gibt es so etwas auch, Stilgar hat da schon sehr oft geholfen,

    mfg (Auto)Bert

  • Instanzen/Controls direkt ansprechen !? Wie?

    • autoBert
    • 31. Januar 2010 um 22:13

    Hallo

    Zitat von Rootbob91

    So besser?


    meinst du nur weil du deinen Beitrag editierst bekommst du jetzt Unterstützung für deinen BOT siehe https://autoit.de/index.php?page…5435#post135435

    mfg (Auto)Bert

  • FileInstall etwas anderes

    • autoBert
    • 31. Januar 2010 um 22:05

    Hallo

    Zitat von Freaky

    Also ob ich FileInstall benutze aber nicht die EXE raushole sondern von Innen starte.

    AFAIK nicht möglich,

    mfg (Auto)Bert

  • Instanzen/Controls direkt ansprechen !? Wie?

    • autoBert
    • 31. Januar 2010 um 22:01

    Hallo Rootbob91,

    Zitat von Rootbob91

    zb. Wollte ich mir selber einen Bot für Wurzelimperium machen, aber leider gibt es bei dem Login schon Probleme!

    BOT''s werden hier nicht supported siehe dazu Forenregeln. Wenn du den IE fernsteuern möchtest solltest du die Beispiele zu IE Benutzerdefinierte Funktion Referenz in der dt. Hilfe durcharbeiten,

    mfg (Auto)Bert

  • Bei der Ausführung des Run-Kommandos bekomme ich nur eine Warnmeldung

    • autoBert
    • 31. Januar 2010 um 21:47

    Hallo

    Zitat von StBotta

    "Unable to determine persistent storage filename from program name :[fractorama]" (wobei fractorama das bewußte Programm ist). Kann mir jemand erklären, was da schief läuft und was ich anders machen muss?

    Es ist eine Fehlermeldung von fractorama, du müsstest dich also mit der FAQ von fractorama auseinandersetzen. Vielleicht fehlt ja auch nur ein Aufrufparameter

    [autoit]

    Run("C:\Programme\Fractorama\fractorama\fractorama.exe PARAMETER","D:\Daten\Bilder\Generiertes\")

    [/autoit]

    mfg (Auto)Bert

  • ListViewItem ohne Vartiable löschen

    • autoBert
    • 31. Januar 2010 um 19:31

    Hallo

    Zitat von Freaky

    Ne das geht viel leichter :)

    [autoit]

    GUICtrlDelete(GUICtrlRead($ListView1))

    [/autoit]

    ob dies leichter ist als _GUICtrlListView_DeleteItemsSelected($hListview) :?: . Du sparst dir nur eine Include Anweisung:

    [autoit]

    #Include <GuiListView.au3>

    [/autoit]

    , dafür hat diese Methode den Vorteil, dass (falls Mehrfachauswahl möglich) alle selektierten Items auf einmal gelöscht werden.

    mfg (Auto)Bert

  • ListViewItem ohne Vartiable löschen

    • autoBert
    • 31. Januar 2010 um 18:56

    freaky,

    schau dir einmal die Hilfe zu

    [autoit]

    _GUICtrlListView_DeleteItemsSelected

    [/autoit]

    an,

    mfg (Ato)Bert

  • GuictrlSetData bzw. FilewriteLine Problem

    • autoBert
    • 31. Januar 2010 um 15:57

    Hallo Leon,

    üblicherweise werden Dateien vor dem Lesen/Schreiben geöfnet und danach wieder geschlossen. Versuch es als einmal so:

    Spoiler anzeigen
    [autoit]

    #include <GuiConstants.au3>
    #NoTrayIcon
    Global $minVal = 10, $maxVal = 255

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

    GUISetState()

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

    Global $sSettings = @ScriptDir & "\settings.conf", $hFile

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

    #Region ### START Koda GUI section ### Form=
    $hFile = FileOpen($sSettings, 0)
    $Form1_1 = GUICreate("Settings", 218, 480, 193, 125)
    $Group1 = GUICtrlCreateGroup("Tasten", 8, 8, 201, 297)
    Global $Input1 = GUICtrlCreateInput(FileReadLine($hFile, 2), 16, 32, 89, 21)
    Global $Input2 = GUICtrlCreateInput(FileReadLine($hFile, 3), 16, 56, 89, 21)
    Global $Input3 = GUICtrlCreateInput(FileReadLine($hFile, 4), 16, 80, 89, 21)
    Global $Input4 = GUICtrlCreateInput(FileReadLine($hFile, 5), 16, 104, 89, 21)
    Global $Input5 = GUICtrlCreateInput(FileReadLine($hFile, 6), 16, 128, 89, 21)
    Global $Input6 = GUICtrlCreateInput(FileReadLine($hFile, 7), 16, 152, 89, 21)
    Global $Input7 = GUICtrlCreateInput(FileReadLine($hFile, 8), 16, 176, 89, 21)
    Global $Input8 = GUICtrlCreateInput(FileReadLine($hFile, 9), 16, 200, 89, 21)
    Global $Input9 = GUICtrlCreateInput(FileReadLine($hFile, 10), 16, 224, 89, 21)
    Global $Input10 = GUICtrlCreateInput(FileReadLine($hFile, 11), 16, 248, 89, 21)
    Global $Input11 = GUICtrlCreateInput(FileReadLine($hFile, 12), 16, 272, 89, 21)
    $Label1 = GUICtrlCreateLabel("lauter", 112, 40, 30, 17)
    $Label2 = GUICtrlCreateLabel("leiser", 112, 64, 28, 17)
    $Label3 = GUICtrlCreateLabel("lautlos", 112, 88, 34, 17)
    $Label4 = GUICtrlCreateLabel("Play", 112, 112, 24, 17)
    $Label5 = GUICtrlCreateLabel("Stop", 112, 136, 26, 17)
    $Label6 = GUICtrlCreateLabel("Pause", 112, 160, 34, 17)
    $Label7 = GUICtrlCreateLabel("Datei öffnen", 112, 184, 62, 17)
    $Label8 = GUICtrlCreateLabel("Radio", 112, 208, 32, 17)
    $Label9 = GUICtrlCreateLabel("Youtube", 112, 232, 44, 17)
    $Label10 = GUICtrlCreateLabel("unsichtbar", 112, 256, 53, 17)
    $Label11 = GUICtrlCreateLabel("sichtbar s.u.", 112, 280, 63, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group2 = GUICtrlCreateGroup("Sprache", 8, 310, 201, 65)
    $lang = GUICtrlCreateInput(FileReadLine($hFile, 16), 14, 335, 89, 21)
    $select = GUICtrlCreateButton("Auswählen", 112, 335, 75, 21, 0)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group2 = GUICtrlCreateGroup("Sichtbarkeit", 8, 380, 201, 65)
    $visible = GUICtrlCreateInput(FileReadLine($hFile, 14), 16, 405, 89, 21)
    $Label12 = GUICtrlCreateLabel("zwischen 10 - 255", 112, 413, 90, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Button1 = GUICtrlCreateButton("Abbrechen", 8, 450, 75, 25, 0)
    $Button2 = GUICtrlCreateButton("Speichern", 134, 450, 75, 25, 0)

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

    GUICtrlSetLimit(-1, 3, 2)
    FileClose($hFile)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $select
    $sprache = FileOpenDialog("SprachDatei", @ScriptDir & "/", "SprachDateien (*.lng; *.lang)")
    $split = StringSplit($sprache, "\")
    $lng = GUICtrlSetData($lang, $split[$split[0]])
    Case $GUI_EVENT_CLOSE

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

    Dim $iMsgBoxAnswer
    $iMsgBoxAnswer = MsgBox(36, "Speichern?", "Möchten Sie die Änderungen speichern? Wenn nicht, gehen sie verloren.")
    Switch $iMsgBoxAnswer
    Case 6 ;Yes
    If _saveConfig() = 0 Then Exit
    Case 7 ;No
    Exit
    EndSwitch
    Case $Button2
    If _saveConfig() = 0 Then Exit

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

    Case $Button1
    Dim $iMsgBoxAnswer
    $iMsgBoxAnswer = MsgBox(36, "Speichern?", "Möchten Sie die änderungen speichern? Wenn nicht, gehen sie verloren.")
    Switch $iMsgBoxAnswer
    Case 6
    If _saveConfig() = 0 Then Exit

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

    Case 7 ;No
    Exit
    EndSwitch
    ;Exit
    EndSwitch
    WEnd

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

    Func _saveConfig()
    Local $sret
    $read = GUICtrlRead($visible)
    If $read < $minVal Or $read > $maxVal Then
    MsgBox(-1, "Zahl außer Reichweite", "Die eingegebene Zahl ist außer Reichweite, bitte geben Sie eine Zahl zwischen 10 und 255 ein!")
    $sret = 1
    Else
    ; FileDelete($sSettings)
    $hFile = FileOpen($sSettings, 2)
    FileWriteLine($hFile, "[Hotkey´s]" & @CRLF)
    FileWriteLine($hFile, GUICtrlRead($Input1) & @CRLF)
    FileWriteLine($hFile, GUICtrlRead($Input2) & @CRLF)
    FileWriteLine($hFile, GUICtrlRead($Input3) & @CRLF)
    FileWriteLine($hFile, GUICtrlRead($Input4) & @CRLF)
    FileWriteLine($hFile, GUICtrlRead($Input5) & @CRLF)
    FileWriteLine($hFile, GUICtrlRead($Input6) & @CRLF)
    FileWriteLine($hFile, GUICtrlRead($Input7) & @CRLF)
    FileWriteLine($hFile, GUICtrlRead($Input8) & @CRLF)
    FileWriteLine($hFile, GUICtrlRead($Input9) & @CRLF)
    FileWriteLine($hFile, GUICtrlRead($Input10) & @CRLF)
    FileWriteLine($hFile, GUICtrlRead($Input11) & @CRLF)
    FileWriteLine($hFile, "[Visible]" & @CRLF)
    FileWriteLine($hFile, GUICtrlRead($visible) & @CRLF)
    FileWriteLine($hFile, "[lang]" & @CRLF)
    FileWriteLine($hFile, GUICtrlRead($lang) & @CRLF)
    FileClose($hFile)
    $hFile = FileOpen($sSettings, 0)

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

    WinSetTrans("NextGenPlayer", "", FileReadLine($hFile, 14))
    FileClose($hFile)
    $sret = 0
    EndIf
    Return $sret
    EndFunc ;==>_saveConfig

    [/autoit]

    des weiteren ist es sinnvoll wiederkehrende Aufgben (hier speichern) in eine func auszulagern und diese dann an den verschiedenen Stellen aufzurufen. Viel Spass mit dem Skript,

    mfg (Auto)Bert

  • Nach Systemzeit eine Aktion auslösen

    • autoBert
    • 31. Januar 2010 um 01:42

    Hallo oh-ha,

    du solltest dein komplettes Skript und die benötigte "Logliste.log" einstellen.
    Lies dir mal die Hilfe zu _nowCalc und _DateDiff durch, denn diese beiden Befehle wirst du warscheins benötigen

    mfg (Auto)Bert

  • AutoStarter neue Version: v 0.7.4

    • autoBert
    • 31. Januar 2010 um 01:32

    Hallo

    es gibt jetzt eine neuere Version v 0.7.4

    @kleiner27, Könntest du es mit dieser noch einml versuchen und mir dann (bitte etwas genauer) die Fehler melden. Das Fenster lässt sich jetzt verschieben

    mfg (Auto)Bert

  • Wenn das Schäuble damals schon gewusst hätte

    • autoBert
    • 31. Januar 2010 um 00:18

    Hallo Community,

    bin auf folgenden Link: Massive Sicherheitslecks bei Funk-Überwachungskameras und schockiert,

    mfg (Auto)Bert

  • Fehler in der deutschen Hilfe bitte hier melden (Hilfedatei 3.3.6.1 2011.05.27)

    • autoBert
    • 30. Januar 2010 um 21:06

    Hallo Tweaky,

    die Beschreibung der Parameter zu Controlmove ist fehlerhaft (anscheinend von winmove kopiert und nicht alles angepasst). Sie müsste so lauten:

    Zitat

    title Der Titel des Fensters, das bewegt werden soll in dem sich das Control befindet.
    text Der Text des Fensters, das bewegt werden soll in dem sich das Control befindet.
    ControlID Die ID des Controls, das beeinflusst werden soll. Siehe Controls.
    x X-Koordinate für das Versetzen, relativ zum entsprechenden Fenster.
    y Y-Koordinate für das Versetzen, relativ zum entsprechenden Fenster.
    width [optional] Neue Breite des Fensters Controls.
    height [optional] Neue Höhe des Fensters Controls.

    Alles anzeigen

    Ist nichts grossartiges, da man es automatisch richtig anendet, sollte aber trotzdem bei Gelegenheit abgeändert werden.

    mfg (Auto)Bert

  • read _GUICtrlDTP_Create ?

    • autoBert
    • 29. Januar 2010 um 06:45

    Hallo Magicmercury.

    wenn du GUICtrlCreateDate anstelle von _GUICtrlDTP_Create nimmst kannst du auch mit GuiCtrlRead abfragen:

    Spoiler anzeigen
    [autoit]

    #AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
    #include <GuiConstantsEx.au3>
    #include <GuiDateTimePicker.au3>
    #include <WindowsConstants.au3>
    #include <GuiConstantsEx.au3>

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

    Opt('MustDeclareVars', 1)

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

    _Main()
    Exit

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

    Func _Main()
    Local $hGUI, $hDTP, $hBtn, $msg

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

    ; Erstellt eine GUI
    $hGUI = GUICreate("DateTimePick: Erstellen (UDF)", 400, 300)
    $hDTP = GUICtrlCreateDate($hGUI, 2, 6, 190)
    $hBtn = GUICtrlCreateButton("&Datum",2,30,190)
    GUISetState()

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

    ; Die Schleife wiederholt sich, bis der Benutzer die Beenden-Aktion der GUI auslöst
    while 1
    $msg = GUIGetMsg()
    Switch $msg
    Case $GUI_EVENT_CLOSE
    ExitLoop
    case $hBtn
    MsgBox(0,"",GUICtrlRead($hDTP))
    EndSwitch
    WEnd
    GUIDelete()
    EndFunc ;==>_Main

    [/autoit]


    genauso bei GUICtrlCreateMonthCal:

    Spoiler anzeigen
    [autoit]

    #AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
    #include <GuiConstantsEx.au3>
    #include <GuiDateTimePicker.au3>
    #include <WindowsConstants.au3>
    #include <GuiConstantsEx.au3>

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

    Opt('MustDeclareVars', 1)

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

    _Main()
    Exit

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

    Func _Main()
    Local $hGUI, $hDTP, $hBtn, $msg

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

    ; Erstellt eine GUI
    $hGUI = GUICreate("DateTimePick: Erstellen (UDF)", 400, 300)
    $hDTP = GUICtrlCreateMonthCal($hGUI, 2, 6, 190,-1,BitOr($MCS_NOTODAY,$MCS_WEEKNUMBERS))
    $hBtn = GUICtrlCreateButton("&Datum",2,270,190)
    GUISetState()

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

    ; Die Schleife wiederholt sich, bis der Benutzer die Beenden-Aktion der GUI auslöst
    while 1
    $msg = GUIGetMsg()
    Switch $msg
    Case $GUI_EVENT_CLOSE
    ExitLoop
    case $hBtn
    MsgBox(0,"",GUICtrlRead($hDTP))
    EndSwitch
    WEnd
    GUIDelete()
    EndFunc ;==>_Main

    [/autoit]

    mfg (Auto)Bert

  • Play Chip Sound from Memory

    • autoBert
    • 29. Januar 2010 um 05:17

    Halo UEZ,

    ich kann zwar nicht komponieren, aber mein Netbook liefert mit Hilfe deines Tools nette Hintergrundmusik:
    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.
    Aufgenommen habe ich das ganze mit dem Audio Recorder von eukalyptus.
    Ich hatte eigentlich irgenwelche chaotische, disharmonische Geräusche erwartet, aber das ganze klingt melodiös,

    mfg (Auto)Bert

    Dateien

    2010-01-29_05-06-41_Recording.zip 865,42 kB – 657 Downloads
  • _GUICtrlRichEdit_GetText() verschluckt letzen Buchstaben

    • autoBert
    • 29. Januar 2010 um 04:03

    Hallo SEuBo,

    kann in deinem Skript keinen Fehler finden, die Anzeige in der Console ist aber definitv falsch. Ich habe das Beispiel aus der Hilfe etwas abgeändert, da kommt der Fehler nicht vor.

    Spoiler anzeigen
    [autoit]

    #AutoIt3Wrapper_Au3Check_Parameters= -d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
    #include <GuiRichEdit.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

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

    Global $lblMsg, $hRichEdit

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

    Main()

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

    Func Main()
    Local $hGui, $hRichEdit, $iMsg
    $hGui = GUICreate("Example (" & StringTrimRight(@ScriptName, 4) & ")", 320, 350, -1, -1)
    $hRichEdit = _GUICtrlRichEdit_Create($hGui, "This is a test.", 10, 10, 300, 220, _
    BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
    $lblMsg = GUICtrlCreateLabel("", 10, 235, 300, 100)
    Local $btnGet = GUICtrlCreateButton("Get Text", 10, 330, 300, 18)
    GUISetState()

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

    _GuiCtrlRichEdit_AppendText($hRichEdit, @CR & "This is appended text.")

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

    Report("Text Appended: " & @CR & @CR & _GUICtrlRichEdit_GetText($hRichEdit))

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

    While True
    $iMsg = GUIGetMsg()
    Switch $iMsg
    Case $GUI_EVENT_CLOSE
    GUIDelete()
    Exit
    Case $btnGet
    MsgBox(0, "Text: ", _GUICtrlRichEdit_GetText($hRichEdit))
    EndSwitch
    if _GUICtrlRichEdit_IsModified($hRichEdit) Then
    Report("Text Appended: " & @CR & @CR & _GUICtrlRichEdit_GetText($hRichEdit))
    _GUICtrlRichEdit_SetModified($hRichEdit, False)
    EndIf
    WEnd
    EndFunc ;==>Main

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

    Func Report($sMsg)
    GUICtrlSetData($lblMsg, $sMsg)
    EndFunc ;==>Report

    [/autoit]

    Vielleicht ist die GuiRichEdit.au3 ja etwas buggy und es tritt nur bei besonderen Konteallationen auf :?:

    mfg (Auto)Bert

  • Battlefront II Server steuerung mit autoit realisieren

    • autoBert
    • 29. Januar 2010 um 03:22

    Hallo Matthias_199,

    hier gibt's die wichtigsten Hinweise zu deinem Problem,

    mfg (Auto)Bert

  • Label $PBS_Marquee

    • autoBert
    • 29. Januar 2010 um 01:52

    hallo m-obi,

    deine UDF veröffentlichst du am besten im Forum Skripte, da wird sie leichter gefunden,

    mfg (Auto)Bert

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™