Beiträge von autoBert

  • STDout(Consolewrite) umleiten in ein anderes Programm

    Hallo mario2323,

    Auszug aus der Hilfe (Beta 3.3.1.1) zu InetGet:

    Zitat

    Return Value

    Success: The return value changes depending on if the download is in the background:
    Background: A handle is returned. The handle can be used with InetGetInfo(). The handle must be closed with InetClose().
    Wait: The number of bytes downloaded.
    Failure: Sets @error to non-zero and returns 0

    .

    mfh (Auto)Bert

  • FirePlayer 1.3

    Hallo GE IXI TIM,

    Zitat von GE IXI TIM

    achsoo...
    falls jemand zuuufällig über eine Möglichkeit stolpert wie man mehrere selektierte Dateien mit $CDMLINE übergeben kann würde ich mich nicht weigern diese anzunehmen :whistling:
    Beispiel: ich habe einen Ordner X. In dem sind 20 Mp3-Dateien, die auf mein Programm registriert sind. Ich markiere alle und öffne sie. Dann öffnet sich mein Programm 20 mal :thumbdown: Pro Datei einmal -.-
    Wenn also jmd ne Lösung hat, immer her damit :D

    Schreib eine kleine Starter-Exe, die nichts anderes tut als die CMDLINE in eine INI zu schreiben und sich dann beendet.
    Mit _singleton kannst du verhindern, dass dein Fireplayer mehrfach gestartet wird. Hier liest du dann immer wieder diese INI aus und löschst sofort den eingelesenen Wert.
    Die MP3 Files müssen dann auf die Starter.Exe registriert werden,

    mfg (Auto)Bert

  • Wie benutzt man die GUIToolTip - UDF?

    Hallo DeepRed92,

    diese Dateien befinden sich im normalen Helpfile-Ordner der Version 3.3.0.0:

    Code
    _GUICtrlRebar_GetToolTips.au3
_GUICtrlRebar_SetToolTips.au3
_GUICtrlTab_GetToolTips.au3
_GUICtrlTab_SetToolTips.au3
_GUICtrlToolbar_GetToolTips.au3
_GUICtrlToolbar_SetToolTips.au3

    mfg (Auto)Bert

  • problem

    Hallo last evolution,

    du darfst dir jede ganze Zahl aussuchen, nur nicht die 0, aslo 1,2,3 usw. darf auch negativ sein. Aber schau dir doch einfach einmal andere Skripte an

    mfg (Auto)Bert

  • Rechnung gib an einer stelle falsches regebnis aus????

    Hallo kleiner27,

    setze mal diesen Skript-Code ein:

    [autoit]

    $xxx = round(($xx - $soaus),2); <-- und hir sobald ich hir 21 tage abziehen lasse vom soll wert dann bekomm ich -7.80000000000001 und bei 23 tagen 7.80000000000001
    ; woher er aufeinmal 0000000000001 herbekommt keine ahnung das wurmt mich gut ich habe es anders gelöst doch es wurmt mich!

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

    #cs
    If StringLen($xxx) = 17 Then
    GUICtrlSetData($soller, StringLeft($xxx, 5))
    ElseIf StringLen($xxx) = 16 Then
    GUICtrlSetData($soller, StringLeft($xxx, 4))
    Else
    GUICtrlSetData($soller, StringLeft($xxx, 6))
    EndIf
    #ce
    GUICtrlSetData($soller, $xxx))

    [/autoit]

    mfg (Auto)Bert

  • Wie benutzt man die GUIToolTip - UDF?

    Hallo DeepRed92,

    ich bin mir nicht sicher, aber dieser Auszug aus der Hilfe zu _GUIToolTip_Create

    Zitat

    Rückgabewert

    Erfolg: Das Handle des ToolTip-Fensters
    Fehler: 0

    und der Umstand dass in allen von mir gesichteten Beispielen (Ordner :C:\Programme\AutoIt3\Examples\Helpfile\) mit _GUICtrlToolBar_Create eine Toolbar ereugt wird, lässt doch stark vermuten dass dieser ToolTip nur zusammen mit einer ToolBar funktioniert. Kannst es ja mal austesten,

    mfg (Auto)Bert

  • Listview auslesen

    Hallo Raupi ,

    Zitat von Raupi

    autoBert, irgendwie hab ich schon geahnt das du dieses Beispiel posten wirst. :D

    Warum hast du es dann nicht selbst gepostet, $LVS_SINGLESEL war doch als Style vorgegeben :?:

    Zitat von Raupi

    Warum bist du eigentlich immer Unsichtbar? Willst du nicht erkannt werden.
    Sorry wegen der Frage, aber ich habe dich noch nie Online gesehen.

    Es gab durchaus Zeiten, in denen ich auch sichtbar war, geniesse aber die Privatsphäre und wenn ich auf Themen antworte gebe ich mich doch zu erkennen

    mfg (Auto)Bert

  • Listview auslesen

    Hallo Reaker,

    falls keine Mehrfachauswahl benötigt wird, kannst du es auch so machen:

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <ListViewConstants.au3>
    #include <WindowsConstants.au3>
    #include <GuiListView.au3>

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 144, 308, 192, 124)
    $ListView1 = GUICtrlCreateListView("Spalte", 6, 6, 127, 220, BitOR($LVS_REPORT,$LVS_NOCOLUMNHEADER,$LVS_SINGLESEL,$LVS_SHOWSELALWAYS))
    GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 120)
    $ListView1_0 = GUICtrlCreateListViewItem("item1", $ListView1)
    $ListView1_1 = GUICtrlCreateListViewItem("item2", $ListView1)
    $ListView1_2 = GUICtrlCreateListViewItem("item3", $ListView1)
    $ListView1_3 = GUICtrlCreateListViewItem("item4", $ListView1)
    $Button1 = GUICtrlCreateButton("getdata", 12, 240, 103, 28, $WS_GROUP)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    case $Button1
    $value = _GUICtrlListView_GetItemTextString($ListView1)

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

    MsgBox(0, "", $value)
    EndSwitch
    WEnd

    [/autoit]

    mfg (Auto)Bert

  • _Pack_String() & _DePackString()

    Hallo GE IXI TIM,

    nein die beiden Strings sind unterschiedlich, auch wenn man es nicht sieht. Beweis: lass mal dieses Skript laufen

    Spoiler anzeigen
    [autoit]

    #include <INet.au3>
    #include <array.au3>

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

    $sText = "Dies ist ein Test! Ich bin auch ein Test. Auch das ist ein Test. Ist das Test Programm auch ein Test? Manche Programme sind Test Programme"
    ;$sText = _INetGetSource("http://natune.net/zitate/autor/Heinz+Erhardt")
    MsgBox(0,"Start","Jetzt geht's los!")
    $tDiff = TimerInit()
    $sGepackt = _Pack_String($sText)
    $sEnpackt = _DePack_String($sGepackt)
    $tDiff = TimerDiff($tDiff)

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

    $iLenG = StringLen($sGepackt)
    $iLenO = StringLen($sText)
    $iLenE = StringLen($sEnpackt)
    if $sText = $sEnpackt then
    MsgBox(0,"Gratuliere","Hat geklappt!" & @crlf & @crlf & "Dauer: " & $tDiff & @CRLF & "Länge org:" & $iLenO & @CRLF & "Länge gepackt:" & $iLenG & @CRLF & "Länge entpackt:" & $iLenE)
    Else
    MsgBox(0,"Satz mit X","War wohl nix!" & @crlf & @crlf & "Dauer: " & $tDiff& @CRLF & "Länge org:" & $iLenO & @CRLF & "Länge gepackt:" & $iLenG & @CRLF & "Länge entpackt:" & $iLenE)
    EndIf

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

    ConsoleWrite($sText & @CRLF)
    ConsoleWrite($sEnpackt & @CRLF)

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

    Func _Pack_String($sString)
    Local $aOneWord[1], $zaehler = 0, $aSame[1], $sEndString = "", $All = ""
    If $sString = "" Then
    SetError(1)
    Return "2| | |"
    EndIf
    If $sString <> "" Then
    $words = StringSplit($sString, " ", 1)
    If IsArray($words) Then
    Local $aSame[$words[0] + 5][2]
    For $i = 1 To $words[0]
    If _ArraySearch($aOneWord, $words[$i] ) = -1 Then
    _ArrayAdd($aOneWord, $words[$i] )
    If $aSame[$i - 1][1] = "" Then
    $aSame[$i - 1][1] = $zaehler + 1
    $aSame[$i - 1][0] = $words[$i]
    EndIf
    If $aSame[$i - 1][1] <> "" Then
    $aSame[$i][1] = $zaehler + 1
    $aSame[$i][0] = $words[$i]
    EndIf
    $zaehler = $zaehler + 1
    EndIf
    If _ArraySearch($aOneWord, $words[$i] ) <> -1 Then
    $sEndString = $sEndString & $aSame[_ArraySearch($aSame, $words[$i] )][1] & "|"
    EndIf
    Next
    EndIf
    EndIf
    For $i = 1 To UBound($aOneWord) - 1
    If $aOneWord[$i] <> "" Then $All = $All & $aOneWord[$i] & "|"
    Next
    $All = $All & $sEndString
    $end = UBound($aOneWord) & "|" & $All
    Return $end
    EndFunc ;==>_Pack_String

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

    Func _DePack_String($sPackedString)
    Local $alle = "", $dick = 0
    If $sPackedString = "" Then
    SetError(1)
    Return -1
    EndIf
    $data = StringSplit($sPackedString, "|")
    If IsArray($data) Then
    Local $aTable[$data[0]]
    Local $aTables[$data[0] + 5]
    For $i = 2 To $data[1]
    $aTables[$i] = $data[$i]
    $aTable[$i] = $i - 1
    Next
    For $i = $data[1] To $data[0]
    $dick = _ArraySearch($aTable, $data[$i])
    If $dick <> -1 Then $alle = $alle & $aTables[$dick] & " "
    Next
    EndIf
    Return $alle
    EndFunc ;==>_DePack_String

    [/autoit]


    Das ist die Ausgabe nach dem Test von deinem Thread:

    Zitat

    ---------------------------
    Satz mit X
    ---------------------------
    War wohl nix!
    Dauer: 872551.775155781

    Länge org:610352

    Länge gepackt:130761

    Länge entpackt:619964

    Bei einfacheren Test kam ich immer auf den Unterschied von 2 Bytes


    mfg (Auto)Bert

  • _Pack_String() & _DePackString()

    Hallo GE IXI TIM,

    hab deine Routinen gerade mit diesem Skript getestet:

    Spoiler anzeigen
    [autoit]

    #include <INet.au3>
    #include <array.au3>

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

    $sText = _INetGetSource("http://www.autoit.de/index.php?page=Thread&threadID=14844")
    MsgBox(0,"Start","Jetzt geht's los!")
    $tDiff = TimerInit()
    $sGepackt = _Pack_String($sText)
    $sEnpackt = _DePack_String($sGepackt)
    $tDiff = TimerDiff($tDiff)
    if $sText = $sEnpackt then
    MsgBox(0,"Gratuliere","Hat geklappt!" & @crlf & "Dauer: " & $tDiff)
    Else
    MsgBox(0,"Satz mit X","War wohl nix!" & @crlf & "Dauer: " & $tDiff)
    EndIf

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

    Func _Pack_String($sString)
    Local $aOneWord[1], $zaehler = 0, $aSame[1], $sEndString = "", $All = ""
    If $sString = "" Then
    SetError(1)
    Return "2| | |"
    EndIf
    If $sString <> "" Then
    $words = StringSplit($sString, " ", 1)
    If IsArray($words) Then
    Local $aSame[$words[0] + 5][2]
    For $i = 1 To $words[0]
    If _ArraySearch($aOneWord, $words[$i] ) = -1 Then
    _ArrayAdd($aOneWord, $words[$i] )
    If $aSame[$i - 1][1] = "" Then
    $aSame[$i - 1][1] = $zaehler + 1
    $aSame[$i - 1][0] = $words[$i]
    EndIf
    If $aSame[$i - 1][1] <> "" Then
    $aSame[$i][1] = $zaehler + 1
    $aSame[$i][0] = $words[$i]
    EndIf
    $zaehler = $zaehler + 1
    EndIf
    If _ArraySearch($aOneWord, $words[$i] ) <> -1 Then
    $sEndString = $sEndString & $aSame[_ArraySearch($aSame, $words[$i] )][1] & "|"
    EndIf
    Next
    EndIf
    EndIf
    For $i = 1 To UBound($aOneWord) - 1
    If $aOneWord[$i] <> "" Then $All = $All & $aOneWord[$i] & "|"
    Next
    $All = $All & $sEndString
    $end = UBound($aOneWord) & "|" & $All
    Return $end
    EndFunc ;==>_Pack_String

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

    Func _DePack_String($sPackedString)
    Local $alle = "", $dick = 0
    If $sPackedString = "" Then
    SetError(1)
    Return -1
    EndIf
    $data = StringSplit($sPackedString, "|")
    If IsArray($data) Then
    Local $aTable[$data[0]]
    Local $aTables[$data[0] + 5]
    For $i = 2 To $data[1]
    $aTables[$i] = $data[$i]
    $aTable[$i] = $i - 1
    Next
    For $i = $data[1] To $data[0]
    $dick = _ArraySearch($aTable, $data[$i])
    If $dick <> -1 Then $alle = $alle & $aTables[$dick] & " "
    Next
    EndIf
    Return $alle
    EndFunc ;==>_DePack_String

    [/autoit]

    hatte leider keinen Erfolg,

    mfg (Auto)Bert

  • Ich brauche euch noch mal bitte

    Hallo systemtrader01,

    ich hoffe ich habe dich richtig verstanden:

    Spoiler anzeigen
    [autoit]

    #include <array.au3>

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

    $zahl = "Buy" ;muss mit einem der beiden möglichen Zuständen vorbelegt sein (eventuell tauschen)

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

    While 1
    ;--------------------------------------------------------------------------------------
    $text = FileRead("TradeReport auto test k2.txt")

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

    $pattern = '(\d{2}:\d{2}:\d{2})(?:\s+\d+\s+)(\w+)'
    $ret = StringRegExp($text, $pattern, 3)
    ;~ _ArrayDisplay($ret)

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

    ;MsgBox(0, 'Letzte Zeile', $ret[UBound($ret)-2] & ' ' & $ret[UBound($ret)-1])
    ;--------------------------------------------------------------------------------------
    If $ret[UBound($ret)-1]="StopLoss" And $zahl = "Buy" Then
    $zahl = "StopLoss"
    MsgBox(0, "Success", "verkaufen")
    ElseIf $ret[UBound($ret)-1]="Buy" And $zahl = "StopLoss" Then
    $zahl = "Buy"
    MsgBox(0, "Success", "kaufen")
    EndIf

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

    Sleep(7000)
    WEnd

    [/autoit]

    mfg (Auto)Bert

  • IE fernsteuern - Problem mit dynamischem(?) Formular

    Hallo SEuBo,

    Zitat von SEuBo

    Ich arbeite momentan an einem Tool für ein Browsergame, mit dem einem die täglichen Aufgaben (Truppen Bauen, Gebäude bauen, rabzüge durchführen) später einmal erhablich vereinfacht werden sollen. Momentan arbeite ich an einer Funktion, mit der man Rohstoffe schnell und einfach tauschen kann.

    Du solltest dir einmal die Forenregeln durchlesen. Auch §7 der AGB's von Travian vebietet dein Handeln ausdrücklich,

    Zitat von SEuBo

    Für das nachfolgende ist es am besten sich im Game einzuloggen
    http://IrgendeineSpieleSeite.de/login.php

    Name: XXXXXXX
    Passwort: XXXXXXXXXXX
    Dann auf ...... gehen

    Siehe dazu § 7 AGB und

    Zitat

    Auszug aus den Spielregeln: §1.3. Weitergabe des Passwortes gilt als Regelverstoß und wird bestraft.

    Du solltest deine Logindaten also aus dem Post entfernen, ebenso das Skript

    mfg (Auto)Bert

    MoD Thread bitte cleanen und closen