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

  • Seltsames ComboBox Verhalten

    • autoBert
    • 14. Januar 2013 um 00:37

    Hallo Fliwatt,

    warum so eine starre (und offensichtlich fehleranfällige) Implementierung für 2 Comboboxen mit Abhängigkeit der 2. von der 1.?
    Hier ein kleines Beispiel mit Hilfe einer Textdatei, so dass bei Erweiterungen nur die Textdatei ergänzt werden muss:

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <GuiComboBox.au3>
    #include <GUIConstantsEx.au3>
    #include <array.au3>
    #include <File.au3>

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

    Const $sCSV = @ScriptDir & "\2cbo.TXT"
    Const $sElect = "bitte auswählen"
    Dim $a_sCSV, $aSplit, $scboChr = ""
    _FileReadToArray($sCSV, $a_sCSV)
    Dim $aCSV[$a_sCSV[0]][2]
    For $i = 1 To UBound($a_sCSV) - 1
    ConsoleWrite($i & $a_sCSV[$i] & @CRLF)
    $aSplit = StringSplit($a_sCSV[$i], ";")
    If Not StringInStr($scboChr, $aSplit[1]) Then $scboChr &= $aSplit[1] & "|"
    $aCSV[$i - 1][0] = $aSplit[1]
    $aCSV[$i - 1][1] = $aSplit[2]
    Next
    ConsoleWrite($scboChr & @CRLF)

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

    $hGui = GUICreate("2 Comboboxen aus 1er CSV", 250, 120, 302, 218)
    $hcboChr = GUICtrlCreateCombo($sElect, 8, 8, 200, 25)
    GUICtrlSetData(-1, $scboChr)
    $hcboChrNr = GUICtrlCreateCombo("", 8, 35, 200, 25)
    $hbtnExit = GUICtrlCreateButton("Be&enden", 8, 65)
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE, $hbtnExit
    Exit
    Case $hcboChr
    $sVal = GUICtrlRead($hcboChr)
    GUICtrlSetData($hcboChrNr, "")
    If $sVal <> $sElect Then
    $aSplit = _ArrayFindAll($aCSV, $sVal, 0, 0, True, True, 0)
    $scboChr = ""
    For $i = 0 To UBound($aSplit) - 1
    $scboChr &= $aCSV[$aSplit[$i]][1] & "|"
    Next
    ConsoleWrite($scboChr & @CRLF)
    GUICtrlSetData($hcboChrNr, $scboChr)
    _GUICtrlComboBox_SetCurSel($hcboChrNr, 0)
    EndIf
    EndSwitch
    WEnd

    [/autoit]

    Und hier noch die benötigte Datei: Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    mfg autoBert

  • Fehlermeldung nur bei Start von Windows?

    • autoBert
    • 13. Januar 2013 um 03:56
    Zitat von DevFly

    Da ich noch nicht mit OBFUSCATED gearbeitet habe hättest du mal ein Beispiel die Option beim Kompielern nur anzugeben wird es ja nicht sein oder?Gruß DevFly


    Zusätzlich muss naürlich auch ausgewäht werden, dass der Obfuscator vor dem Kompilieren gestartet wird, das ist alles.

    mfg autoBert

  • Bei jedem Betätigen der "Enter"-Taste, minus 0,5

    • autoBert
    • 11. Januar 2013 um 19:51
    Zitat von chesstiger

    Also mir sind keine Nachteile bekannt.


    wie bereits zu _IsPressed erwähnt:

    Zitat von autoBert

    Dies empfinde ich als Nachteil, da das Skript aich Tastendrücke verarbeitet die nicht für das Skript gedacht waren.

    mfg autoBert

  • Fehlermeldung nur bei Start von Windows?

    • autoBert
    • 10. Januar 2013 um 23:56

    Die Zeilennummer ermitteln geht am einfachsten bei mit Striponly OBFUSCATEDen EXEn. Dazu muss das Skript Name_Obfuscated.au3 natürlich aufbewahrt werden. Bei einer Fehlermeldung kann man dann einfach in Name_Obfuscated.au3 nachschauen, die angegebene Zeilennummer stimmt exakt.

    mfg autoBert

  • Aus Function GuiGetMsg() beeinflussen

    • autoBert
    • 10. Januar 2013 um 16:50

    Du scheinst nach ContinueCase zu suchen:

    Spoiler anzeigen
    [autoit]

    ;### Tidy Error: Func statement without parentheses ().
    Func _Gui

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

    gui....

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case 2
    _Func2()
    ContinueCase
    Case 1
    MsgBox(0, "", "tadaa")
    EndSwitch
    WEnd
    EndFunc ;==>

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

    Func _Func2()

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

    Do something
    Return (1)
    EndFunc

    [/autoit]

    mfg autoBert

  • Word UDF - Bild in .docx Dokument platzieren

    • autoBert
    • 10. Januar 2013 um 16:29
    Zitat von qwert23

    Die erzeugte Grafik (BMP-File) wird mit _ClipBoard_SetDataEx an die Zwischenablage übergeben.


    Ich hatte es mit _ClipBoard_SetData probiert bin aber nicht ans Ziel gekommen.

    Zitat von qwert23

    Dann ist diese, so wie von Dir ursprünglich beschrieben, in das Dokument einfügbar. Dein Lösungsweg ist absolut korrekt gewesen.
    (Funktionsbeispiel habe ich aus dem QR-Creator 1.0 von BugFix entnommen)

    War nur gelesenes wiedergegeben. Ich werd wohl meinen "Titel" ändern müssen BugFix QR-Creator habe ich in diesem Zusammenhang nicht gefunden.

    Kannst du ein (abgespecktes) Beispiel deiner Lösung für die Nachwelt hier verewigen, danke

    mfg autoBert

  • Extract File by C0dex

    • autoBert
    • 10. Januar 2013 um 15:59
    Zitat von PainTain

    Wie könnensolche "Nicht-Deutsch sprechenden" Leute sich überhaupt hierher verirren?


    Weil sie Löungen suchen die sie sich hier erhoffen. Das Skript ist relativ einfach gehalten beim analysieren hat man nur geringfügig mehr Probleme wie bei anderen Skripten ohne "für sich sprechende Namen". Die einzige Aktion die für mich keinen Sinn ergibt ist die Statistik? (Button4) hier wäre es hifreich den dazughörigen Labeltext zu verstehen. Im Skript selbst habe ich (oder war es AU3Check?) nur einen Fehller gefunden, da mir aber das Gelesene (davon Bruchstücke verstanden) zu UEZ's 2. Link nicht gefällt:

    Zitat

    Soi C0dex(Fabian)
    Me gusta programmar en Autoit ,Sql injection database y me gustaria aprender mucha mas cosas con vosotros un abrazo ! :smt023

    Codex

    Mensajes: 2
    Registrado: 30 Oct 2012, 22:20

    behalte ich es für mich.

    PS.: MACH dir nichts aus der dir von mir zugeordneten GRAFIK

    mfg autoBert

  • Bei jedem Betätigen der "Enter"-Taste, minus 0,5

    • autoBert
    • 10. Januar 2013 um 15:19
    Zitat von PainTain

    Mit AutoIt-Mitteln ist es (glaub ich) nicht möglich das der Tastendruck registriert wird ohne das er komplett abgefangen wird. =\


    Da täuchst du dich aber, mit _IsPressed (IPU's Lösung) wird der Tastendruck nicht abgefangen sondern an die gerade aktive Anwendung durchgelassen, zusätzich wird aber auch der Skriptcode dafür verarbeitet. Dies empfinde ich als Nachteil, da das Skript aich Tastendrücke verarbeitet die nicht für das Skript gedacht waren. GUISetAccelerators ist auch eine Methde ohne Nebenwirkungen auf andere Fenster.

    mfg autoBert

  • Extract File by C0dex

    • autoBert
    • 10. Januar 2013 um 08:51
    Zitat von chesstiger

    Was hat das mit PNs zutun?

    In diesem Fal nichts wie ich jetzt auch festgestellt habe :sleeping: . Sorry PainTain. Ich hatte mich bereits am Montag über PN-Zitate in [ offen ] Hilfeee ! geärgert und dies vorhin mit dir in Verbindung gebracht.

    mfg autoBert

  • Bei jedem Betätigen der "Enter"-Taste, minus 0,5

    • autoBert
    • 10. Januar 2013 um 05:01

    Hier eine Lösung mit Default-Button:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <ButtonConstants.au3>

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

    GUICreate('', 220, 120)
    $idInpValue = GUICtrlCreateInput('10', 10, 10, 200, 25)
    $idBtnMinus = GUICtrlCreateButton("Minus 0.5", 10, 40, 200, 25, $BS_DEFPUSHBUTTON)
    GUISetState()

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

    While 1
    $iMsg = GUIGetMsg()
    Switch $iMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $idBtnMinus
    GUICtrlSetData($idInpValue, GUICtrlRead($idInpValue) - 0.5)
    EndSwitch
    WEnd

    [/autoit]

    garantiert ohne Nebenwirkungen (genau wie IPU's)auf andere Fenster

    mfg autoBert

  • Extract File by C0dex

    • autoBert
    • 10. Januar 2013 um 04:18
    Zitat von PainTain

    Beschreibung und alles wäre toll...

    @Xeno: Du wirst wenn nur eine Google Übersetzer - Antwort bekommen, der ist Spanier ... dürfte sich verirrt haben 8|


    @Cyber: Do you speak English? And translate this script, we don't know what to do with it. :)

    aus PN's zitieren finde ich zum [Blockierte Grafik: http://www.lima-city.de/images/smilies/puke.gif]


    mfg autoBert

  • Hilfe FTP

    • autoBert
    • 10. Januar 2013 um 02:56
    Zitat von CyberKode01

    Ich habe einen FTP-Programm und funktioniert nicht :-s ?( ?( ?(


    Dies ist keine Fehlerbeschreibung! Was funtioniert nicht?
    Der Code sieht nach einem kurzen Überfliegen funktionstüchtig aus. Hast du korrekte Zugangsdaten verwendet?

    Edit: Das Skript hat wirklich einen Fehler beim FileOpenDialog und scheint auch noch nicht vollendet zu sein. Den Fehler habe ich behoben und zudem Rückmeldungen an den Benutzer eingebaut:

    Spoiler anzeigen
    [autoit]

    #include <StaticConstants.au3>
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <TreeViewConstants.au3>
    #include <WindowsConstants.au3>
    #include <FTPEx.au3>
    #include <TreeViewConstants.au3>

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

    Global $DirForUpdate, $oFTP
    $Form1 = GUICreate("FileZilla by C0dex", 643, 631, 192, 124)
    $Nick = GUICtrlCreateInput("Nick", 8, 8, 169, 25)
    GUICtrlSetFont(-1, 9, 800, 0, "Palatino Linotype")
    GUICtrlSetColor(-1, 0xFF0000)
    $password = GUICtrlCreateInput("Password", 192, 8, 169, 25, BitOR($GUI_SS_DEFAULT_INPUT, $ES_PASSWORD))
    GUICtrlSetFont(-1, 9, 800, 0, "Palatino Linotype")
    GUICtrlSetColor(-1, 0xFF0000)
    $Server = GUICtrlCreateInput("Server", 384, 8, 169, 25)
    GUICtrlSetFont(-1, 9, 800, 0, "Palatino Linotype")
    GUICtrlSetColor(-1, 0xFF0000)
    $connect = GUICtrlCreateButton("Connect", 560, 8, 75, 25)
    GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
    $Group1 = GUICtrlCreateGroup("Update File :", 8, 48, 625, 57)
    GUICtrlSetFont(-1, 9, 800, 0, "Palatino Linotype")
    $up = GUICtrlCreateInput("Upload", 16, 72, 169, 25)
    $Filedirectory = GUICtrlCreateInput("File Directory Server", 200, 72, 201, 25)
    $upload = GUICtrlCreateButton("Upload", 416, 72, 83, 25)
    GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
    $dir = GUICtrlCreateButton("Chosen Dir", 528, 72, 91, 25)
    GUICtrlSetFont(-1, 9, 800, 0, "Palatino Linotype")
    $Group2 = GUICtrlCreateGroup("Delete a File", 8, 112, 345, 65)
    GUICtrlSetFont(-1, 9, 800, 0, "Palatino Linotype")
    $del = GUICtrlCreateInput("Delete Directory Server", 24, 136, 233, 25)
    $delete = GUICtrlCreateButton("Delete", 264, 136, 75, 25)
    GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
    $Group3 = GUICtrlCreateGroup("Server File Status", 360, 120, 273, 57)
    GUICtrlSetFont(-1, 9, 800, 0, "Palatino Linotype")
    $Input4 = GUICtrlCreateInput("Path of server", 368, 144, 185, 25)
    $Button5 = GUICtrlCreateButton("Refresh", 560, 144, 67, 25)
    GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
    $TreeView1 = GUICtrlCreateTreeView(8, 184, 625, 400)
    GUICtrlCreateGraphic(0, 595, 643, 2, $SS_BLACKRECT)
    $idLblMessage = GUICtrlCreateLabel("", 8, 600, 637, 25)
    GUICtrlSetData($idLblMessage, "Not connected")
    GUICtrlSetState($upload, $GUI_DISABLE)
    GUICtrlSetState($delete, $GUI_DISABLE)
    GUICtrlSetState($Button5, $GUI_DISABLE)
    GUISetState(@SW_SHOW)

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

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

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

    Case $connect
    $Nick = GUICtrlRead($Nick)
    $password = GUICtrlRead($password)
    $Server = GUICtrlRead($Server)
    $oFTP = _FTP_Open("oFTP")
    $cFTP = _FTP_Connect($oFTP, $Server, $Nick, $password)
    If @error Then
    GUICtrlSetData($idLblMessage, "Not connected")
    GUICtrlSetState($upload, $GUI_DISABLE)
    GUICtrlSetState($delete, $GUI_DISABLE)
    GUICtrlSetState($Button5, $GUI_DISABLE)
    MsgBox(16, "Fehler: ", @error)
    Else
    GUICtrlSetState($upload, $GUI_ENABLE)
    GUICtrlSetState($delete, $GUI_ENABLE)
    GUICtrlSetState($Button5, $GUI_ENABLE)
    GUICtrlSetData($idLblMessage, "Connected with " & $Server)
    EndIf

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

    Case $dir
    Local $message = "Press Ctrl or Shift to choose multiple files."
    Local $var = FileOpenDialog($message, @DocumentsCommonDir & "\", "Alle (*.*)")
    If @error Then
    MsgBox(16, "", "No File chosen")
    Else
    $DirForUpdate = StringReplace($var, "|", @CRLF)
    MsgBox(4096, "", "You chose " & $var)
    EndIf
    GUICtrlSetData($up, $DirForUpdate)
    Case $upload
    $Fdir = GUICtrlRead($Filedirectory)
    $pFTP = _FTP_FilePut($cFTP, GUICtrlRead($up), $Fdir)
    If @error Then
    MsgBox(16, "Fehler: ", @error)
    GUICtrlSetData($idLblMessage, "File " & $Fdir & " not uploaded")
    Else
    GUICtrlSetData($idLblMessage, "File " & $Fdir & " uploaded")
    EndIf
    Case $delete
    $s_RemoteFile = GUICtrlRead($del)
    _FTP_FileDelete($cFTP, $s_RemoteFile)
    If @error Then
    MsgBox(16, "Fehler: ", @error)
    GUICtrlSetData($idLblMessage, "File " & $s_RemoteFile & " not deleted")
    Else
    GUICtrlSetData($idLblMessage, "File & " & $s_RemoteFile & " deleted")
    EndIf
    Case $Button5
    MsgBox(0, "", "To be continued!")

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

    EndSwitch
    WEnd

    [/autoit]

    mfg autoBert

  • Word UDF - Bild in .docx Dokument platzieren

    • autoBert
    • 10. Januar 2013 um 02:11
    Zitat von qwert23

    Danke, autoBert - das setze ich so um...


    Spar dir die Mühe, ich habe es getestet schaffe es aber nur Text damit ein zu fügen. Eine andere Möglichkeit ist in das Dokument eine Textmarke einzufügen und ein Makro zu erstellen (im Dokument speichern), dass an die Tetmarke springt:

    Code
    Sub GeheZuTextmarke (Dateiname)
    '
    ' GeheZuTextmarke Makro
    ' Makro erstellt am 10.01.2013 von autoBert
    '
        Selection.GoTo What:=wdGoToBookmark, Name:="Bild1"
        Selection.InlineShapes.AddPicture FileName:=Dateiname, _
            LinkToFile:=False, _
            SaveWithDocument:=True
    End Sub

    Dies kannst du dann über AutoIt aufrufen:

    [autoit]

    #include <Word.au3>

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

    $sfile = @ScriptDir & "\testbild.png" ; irgendein Bild
    $oWordApp = _WordCreate(@ScriptDir & "\Test.doc")
    _WordMacroRun($oWordApp,"GeheZuTextmarke",$sfile)
    _WordQuit($oWordApp)

    [/autoit]

    mfg autoBert

  • Kleines Problem bei einer Listview

    • autoBert
    • 9. Januar 2013 um 20:16

    Hallo Croco1984,

    Eine Listview kann keine Zeilenumbrüche darstellen. Du musst dir also etwas anderes (aufwendigeres) einfallen lassen.

    mfg autoBert

  • Word UDF - Bild in .docx Dokument platzieren

    • autoBert
    • 9. Januar 2013 um 19:37

    Da _WordDocFindReplace 1 zurückgibt kann dein Versuch nicht funktionieren. Nimm statt dessen den Weg über die Zwischenablage.

    Zitat

    _WordDocFindReplace

    Startet die angegebene "Suchen und Ersetzen"-Operation.
    ...
    Rückgabewert

    Erfolg: Gibt 1 zurück
    ...
    Bemerkungen

    Man kann durch passende Zeichencodes nach Sonderzeichen suchen. Zum Beispiel entspricht "^p" dem Paragraphenzeichen, "^t" dem Tabulatorzeichen.

    Sonderzeichen und erweiterte Suchkriterien kann man genauso wie bei einem angegebenen Suchtext festlegen. Um ein Grafik-Objekt oder andere 'Nicht-Text-Zeichen' als Ersetzung anzugeben, ist das entsprechende Zeichen in die Zwischenablage zu kopieren und für $s_ReplaceWith "^c" einzusetzen.

    mfg autoBert

  • Funktion wird ungewollt und wiederholt aufgerufen

    • autoBert
    • 8. Januar 2013 um 23:06

    Der Fehler tritt auf wenn das entsprechende Control noch nicht erstellt ist aber schon geprüft wird ob es ein Event abgefeuert hat. Abhilfe vorher erstellen oder der globalen Variable einen Wert, der weder für Controls noch für EventIDs verwendet wird z.B. -9999, zuweisen.

    mfg autoBert

  • Adobe Photoshop C2 kostenlos downloaden

    • autoBert
    • 8. Januar 2013 um 22:43

    Ich will euch auf:

    Zitat

    Nachtrag vom 8. Januar 2013, 6:40 Uhr

    Adobe verschenke keine Software, macht das Unternehmen deutlich. Die Creative Suite 2 sei nur deshalb samt Seriennummern online gestellt worden, um den eigenen Kunden zu helfen. Denn Adobe hat am 13. Dezember 2012 die Aktivierung der Creative Suite 2, ihrer Einzelapplikationen und Acrobat 7 wegen technischer Probleme eingestellt. Damit Kunden, die die Software verwenden, sie auch weiterhin nutzen können, habe man die Seriennummern veröffentlicht, teilt Adobe in einem Forumskommentar mit. Die URL, unter der die Software gestern abrufbar war, ist allerdings wieder aktiviert, die Software kann wieder heruntergeladen werden.
    Quelle: http://www.golem.de/news/photoshop…1301-96720.html

    hiweisen.

    mfg autoBert

  • Fehlerhandling

    • autoBert
    • 8. Januar 2013 um 14:12
    Zitat von bordermax

    Was mach ich falsch ?


    Du versuchst mit @error auf den Fehler eines Objekts zu reagieren. @error wird be nur von AutoIt-Funktionen gesetzt. Dz musst dir mit

    [autoit]

    ObjEvent

    [/autoit]

    eine Fehlerabfrage für das Objekt $oConn basteln. Schau dir dazu das 2. Beipiel zu ObjEvent an.

    mfg autoBert

  • _IEFormSubmit funktioniert nicht, es sind mehr als 2 Buttons auf der Seite

    • autoBert
    • 6. Januar 2013 um 17:12
    Zitat von Blanke

    Nimm halt von mir aus Ogame.... Das soll nur auf meinen gewünschten Button klicken mehr nicht. Wenn du mir nicht helfen kannst/willst, lass es ...


    Es vestösst gegen die Forenregeln und deshalb nochmals: Vote für Close

    mfg autoBert

  • _IEFormSubmit funktioniert nicht, es sind mehr als 2 Buttons auf der Seite

    • autoBert
    • 6. Januar 2013 um 16:54
    Zitat von Blanke

    Das kann ich nicht benutzten weil wie oben geschrieben die Information "name" nicht vorhanden ist.


    Dann benenne die WebSite!

    Da du seltsamerweise im "bösen" Forum einen fast identisches Thema hast:

    Zitat

    Diese Form kommt davor... Diese wird immer geklickt... (art Ogame) und meine Flotte kommt immer zurück....

    und deswegen hier sogar beim Quelltexten der Seite schummelst: Vote für Close

    mfg autoBert

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™