Beiträge von autoBert

  • Gleiche Werte aus Quelltext auslesen

    wie wärs mit

    [autoit]

    GuiCtrlCreatePic

    [/autoit]

    :?:

    zu deinem Edit: mit Load_BMP_From_Mem von UEZ findest du hier
    [ gelöst ] Binärcode eines Bildes als Bild in einer GUI darstellen
    zusammen mit

    [autoit]

    _InetGetSource

    [/autoit]

    und GDI+ Funktionen sollte es möglich sein es ohne ein TMP-File auf die Platte zu laden ein Bild auf der Gui z erzeugen.
    Der normale Weg ist aber

    [autoit]

    InetGet("PfadImInternet", @TempDir & "\Bild.jpg", 1,0)
    GUICtrlCreatePic( @TempDir & "\Bild.jpg",$left, $top, $width, $height)

    [/autoit]

    mfg autoBert

  • Gleiche Werte aus Quelltext auslesen

    Hilfe lesen hilft und spart unnötige Posts:

    Beispiel aus Hilfe
    [autoit]


    #AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
    #include <String.au3>
    #include <Array.au3>

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

    _Main()

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

    Func _Main()
    Local $aArray1 = _StringBetween('[18][20][3][5][500][60]', '[', ']')
    _ArrayDisplay($aArray1, 'Standardsuche')
    EndFunc ;==>_Main

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

    mfg autoBert

  • Autoit Debugger

    @Daffi,

    diesen Debugger hab ich mir jetzt interessehalber auch downgeloaded, da er selbst einen Editor enthält kann man dort sogar die Skripte direkt ändern (Syntax-Highligtning funktioniert selbstverständlich). Auch nach dem Abspeichern dort kann Scite das Skript selbstverständlich einlesen (alles andere hätte mich auch gewundert).
    Die Änderung der deutschen Umlaute sollte man eigentlich schom im Editor des Debuggers sofort bemerken, man muss ja danach nicht abspeichern. Anstatt hier im Forum das Produkt schlecht zu machen, hättest du dich ja ganz einfach an den Author des Programmes wenden können: Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist. .

    ProblemUser: der Fehler kommt nicht vom Decompilen, sondern der AU3Check (läuft falls man dummerweise abspeichert) nicht mehr

    mfg autoBert

  • Dropbox für Links aus Browsern

    Hallo _peter_,

    das RichEditControl beherscht es, siehe

    das Beispiel aus der Hilfe zu: _GUICtrlRichEdit_GetCharAttributes

    #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>

    Global $lblMsg, $hRichEdit

    Main()

    Func Main()
    Local $hGui, $iMsg, $iCp1
    $hGui = GUICreate("Beispiel (" & StringTrimRight(@ScriptName,4) &")", 320, 350)
    $hRichEdit = _GUICtrlRichEdit_Create($hGui, "Dies ist ein Test.", 10, 10, 300, 220, _
    BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
    $lblMsg = GUICtrlCreateLabel("", 10, 235, 300, 60)
    GUISetState()

    _GuiCtrlRichEdit_AutoDetectURL($hRichEdit, True)
    _GuiCtrlRichEdit_AppendText($hRichEdit, @CR & "http://www.autoitscript.com")
    $iCp1 = _GuiCtrlRichEdit_GetFirstCharPosOnLine($hRichEdit, 2)
    _GuiCtrlRichEdit_SetSel($hRichEdit, $iCp1, $iCp1 + 3)
    Report("Die Zeichen Attribute, der zweiten Start Zeile sind " & _
    _GuiCtrlRichEdit_GetCharAttributes($hRichEdit))
    While True
    $iMsg = GUIGetMsg()
    Select
    Case $iMsg = $GUI_EVENT_CLOSE
    GUIDelete()
    Exit
    EndSelect
    WEnd
    EndFunc ;==>Main

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

    [autoit][/autoit]


    AutoTim, genau das hat er ja vor (vielliecht nicht mit Edit, aber das spielt ja keine Rolle)

    mfg autoBert

  • Problem mit einem Label und Guictrlsetdata

    Hallo [CF[*Gaming*],

    mach es so:

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <ComboConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <ProgressConstants.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

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

    $sIniName = @ScriptDir & "\Data.txt"
    $aSender = IniReadSection($sIniName, "Sender")

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

    #region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Online Radios", 248, 156, 197, 128)
    GUISetFont(9, 400, 0, "Arial")
    $Combo1 = GUICtrlCreateCombo("", 8, 8, 233, 25, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL, $CBS_OEMCONVERT, $CBS_SORT))
    If IsArray($aSender) Then
    For $i = 1 To $aSender[0][0]
    GUICtrlSetData($Combo1, $aSender[$i][0])
    Next
    EndIf
    $Progress1 = GUICtrlCreateProgress(128, 136, 105, 17)
    $Label1 = GUICtrlCreateLabel("Bitte waehlen sie einen Sender aus", 8, 136, 114, 19)

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

    $Button1 = GUICtrlCreateButton("STart", 72, 88, 97, 33, $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 $Combo1
    $sBtnLabel = GUICtrlRead($Label1)
    Switch $sBtnLabel
    Case "Bitte waehlen sie einen Sender aus"
    GUICtrlSetData($Progress1, "25")
    Sleep(500)
    GUICtrlSetData($Label1, "Der Sender wird gesucht!")
    ContinueCase
    Case "Der Sender wird gesucht!"
    GUICtrlSetData($Progress1, "50")
    Sleep(500)
    GUICtrlSetData($Label1, "Sender gefunden!")
    Case "Sender gefunden!"
    GUICtrlSetData($Progress1, "75")
    ContinueCase
    EndSwitch
    $sSenderBez = GUICtrlRead($Combo1)
    $sSenderComand = IniRead($sIniName,"Sender",$sSenderBez,"")
    ConsoleWrite($sSenderBez & ", " & $sSenderComand & @CRLF)
    Case $Label1

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

    EndSwitch
    WEnd

    [/autoit]

    bei INI einlesen habe ich auch Änderungen vorgenommen

    mfg autoBert

  • filelister

    Hallo 93Lucas,

    mach es so:

    Spoiler anzeigen
    [autoit]

    ;Recursive File Lister
    #include <Array.au3>

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

    ;Main Programmm anfang
    Dim $FolderName = FileSelectFolder ("Wähle den Ordner aus","") ;Sagt welcher Ort zu durchsuchen ist
    Global $hFile = FileOpen(@ScriptDir & "\FileList.txt",2) ;sonst wird bei jedem Durchlauf an das TXT-File angehängt
    FileWriteLine($hFile,"Dateien von " & $FolderName)
    Dim $FileCount = 0 ;setzt den zähler auf 0
    Dim $size = 10
    Dim $used = 0
    Dim $blocksize = 1
    Dim $avArray[$size]

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

    ScanFolder($FolderName) ;startet die durchsuchung des ortes
    FileWriteLine($hFile,"insgesamt " & $FileCount)
    FileClose($hFile)
    MsgBox(0,"Fertig","Alles fertig :D") ;Ausgabebox mit Meldung das durchsuchung fertig ist und wieviele dateien/ordner gefunden wurden
    Exit

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

    ;beginn des durchsuchungvorganges
    Func ScanFolder($SourceFolder) ;
    Local $Search ;initialisiert die variable "Search"
    Local $File ;initialisiert die variable "File"
    Local $FileAttributes ;initialisiert die variable "FileAttributes"
    Local $FullFilePath ;initialisiert die variable "FullFilePath"

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

    ;code für array

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

    If $used = $size Then
    $size = $size + $blocksize
    ReDim $avArray [$size]
    EndIf
    $avArray[$used] = $SourceFolder
    $used = $used + 1

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

    ;code für array

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

    $Search = FileFindFirstFile($SourceFolder & "\*.*") ; ?

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

    ;schleifenbeginn
    While 1
    If $Search = -1 Then ;
    ExitLoop
    EndIf

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

    $File = FileFindNextFile($Search)
    If @error Then ExitLoop

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

    $FullFilePath = $SourceFolder & "\" & $File
    $FileAttributes = FileGetAttrib($FullFilePath)

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

    If StringInStr($FileAttributes,"D") Then
    ScanFolder($FullFilePath)
    Else
    LogFile($FullFilePath)
    EndIf

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

    WEnd
    ;schleifenende

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

    FileClose($Search)
    EndFunc
    ;ende des durchsuchungvorganges

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

    ;schreibt eine Zeile in die zuvor geöffnete txt-datei
    Func LogFile($FileName)
    FileWriteLine($hFile,StringReplace($FileName,$FolderName,""))
    $FileCount += 1
    EndFunc
    ;ende des vorganges zum schreiben in eine txt datei

    [/autoit]

    mfg autoBert

  • Brauche hilfe bei SciTE

    yxyx,

    falls du das englische Scite mit Hotkeys bedient hast, dauert es etwas sich daran zu gewöhnen, auch sind nicht alle HotKeys korrekt eingeduetscht wie mir gerade auffällt. Ich werde deshalb wieder auf englisch umstellen,

    mfg autoBert

  • Brauche hilfe bei SciTE

    Hallo Tony,

    dieses Skript:

    [autoit]

    ;http://www.autoit.de/index.php?page…6433#post176433 Progandy
    $Uninst = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\SciTE4AutoIt3", "UninstallString")
    $path = StringRegExpReplace($Uninst, "^(.*[\\/])[^\\/]+$", "\1", 1)
    If Not $path Then Exit MsgBox(0, '', "SciTe4AutoIt nicht gefunden")
    If Not InetGet("http://www.scintilla.org/locale.de.properties", $path & "locale.properties", 1) Then
    Exit MsgBox(0, '', "Fehler beim herunterladen der deutschen Sprachdatei")
    EndIf
    MsgBox(0, "", "Deutsche Sprache installiert. SciTe neustarten")

    [/autoit]

    von @progandy laufen lassen, dann hast du in Scite Deutsch als Sprache,

    mfg autoBert

  • Maus-in-Region-funktion funktioniert nicht

    Hallo BOSSnier,

    [autoit]

    While 1
    if _Mouse_bereich_(0,50,400,356) then MsgBox(0,"test","test")
    WEnd

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

    Func _Mouse_bereich_($X, $Y, $X2, $Y2)
    local $Mousepos = MouseGetPos()
    If ($Mousepos[0] >= $X And $Mousepos[0] <= $X2) and ($Mousepos[1] <= $Y And $Mousepos[1] >= $Y2) Then
    return true
    else
    return false
    Endif
    EndFunc

    [/autoit]

    deine Abfrage konnte nicht klappen, da die Maus die Bedingungen für $Y Und $Y2 nicht gleichzeitig erfüllen kann, denke mal Tippfehler (jeweils < > verwechselt) und später übersehen,

    mfg autoBert

  • Button aus INI laden

    Hallo gabischatz,

    wie yxyx schon anmerkte überschreibst du den Pfad zum Bild im Array, ausserdem kann afaik ein Button entweder Bild oder Text haben, wobei das Bild (sofern gültiger Pfad vorhanden) den Vorang hat,

    mfg autoBert