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. Derpy Hooves

Beiträge von Derpy Hooves

  • Farbige Zeilen in GUICtrlCreateEdit

    • Derpy Hooves
    • 11. Juni 2010 um 19:52

    ja da liegt das Problem, wenn man dann transferieren will, da wird ja auch erst die funktion genutzt
    kann dir jetzt leider nicht unsere DB geben wegen der Sicherheit xD

  • Farbige Zeilen in GUICtrlCreateEdit

    • Derpy Hooves
    • 11. Juni 2010 um 19:40

    ah ja, gerne^^ is ne erweiterte/neuere Version meines TS3-Rechte-Transfer-Programms^^

    Spoiler anzeigen
    [autoit]

    #RequireAdmin

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

    ;[includes]
    #include <GuiEdit.au3>
    #include <GuiRichEdit.au3>
    #include <SQLite.au3>
    #include <SQLite.dll.au3>

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

    Opt("GUIOnEventMode", 1)

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

    Global $b_sqlite_opened = False

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

    $h_MainGui = GUICreate("TS3 Rights Transferer, Version 0.02", 500, 300)
    GUISetOnEvent(-3, "_exit", $h_MainGui)
    GUICtrlCreateLabel("ts3server.sqlitedb path:", 5, 5)
    $hi_ts3sqlite_input = GUICtrlCreateInput("", 5, 25, 300, 20)
    GUICtrlSetState(-1, 128)
    GUICtrlCreateButton("...", 310, 25, 60, 20)
    GUICtrlSetOnEvent(-1, "__sqlite_file_lookup")
    GUICtrlCreateButton("Load", 375, 25, Default, 20)
    GUICtrlSetOnEvent(-1, "_load_all_groups")
    GUICtrlCreateLabel("Template Groups:", 5, 60)
    $hc_template_groups = GUICtrlCreateCombo("no ts3sqlite file", 5, 75, 100)
    GUICtrlSetState(-1, 128)
    GUICtrlCreateLabel("------------", 110, 78)
    GUICtrlCreateLabel("----------->", 255, 78)
    $hb_transfer_button = GUICtrlCreateButton("transfer", 140, 75, 120, 20)
    GUICtrlSetState(-1, 128)
    GUICtrlSetOnEvent(-1, "_transfer_rights")
    GUICtrlCreateLabel("Server Groups:", 300, 60)
    $hc_server_groups = GUICtrlCreateCombo("no ts3sqlite file", 300, 75, 100)
    GUICtrlSetState(-1, 128)
    $hl_console = GUICtrlCreateLabel("Now:", 5, 135, 495)
    $hre_console = _GUICtrlRichEdit_Create($h_MainGui, "", 0, 150, 500, 150, BitOR(4, 0x00200000, 64,256, 2048))
    GUISetState()

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

    If FileExists("ts3server.sqlitedb") Then
    GUICtrlSetData($hi_ts3sqlite_input, @ScriptDir & "\ts3server.sqlitedb")
    EndIf

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

    Func _console_write($s_console_type, $s_console_text)
    GUICtrlSetData($hl_console, "Now: "&$s_console_text)
    Local $hex_color = 0x000000
    If $s_console_type = "INFO" Then $hex_color = 0x000000
    If $s_console_type = "DELETE" Then $hex_color = 0xff0000
    If $s_console_type = "UPDATE" Then $hex_color = 0x0000ff
    If $s_console_type = "INSERT" Then $hex_color = 0x00ff00
    _RichEdit_AddColoredText($hre_console, $s_console_text, $hex_color)
    _GUICtrlRichEdit_ScrollLines($hre_console, +1)
    EndFunc

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

    Func _console_flush()
    $i_reLineCount = _GUICtrlRichEdit_GetLineCount($hre_console)
    _GUICtrlRichEdit_ScrollLines($hre_console, -$i_reLineCount)
    _GUICtrlRichEdit_SetText($hre_console, "")
    EndFunc

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

    Func _RichEdit_AddColoredText($hre_RichEdit, $s_Text, $hex_Color)
    Local $a_Sel, $a_NSel
    $a_Sel = _GUICtrlRichEdit_GetSel($hre_RichEdit)
    _GUICtrlRichEdit_AppendText($hre_RichEdit, $s_Text)
    $aNSel = _GUICtrlRichEdit_GetSel($hre_RichEdit)
    _GUICtrlRichEdit_SetSel($hre_RichEdit, $a_Sel[0], $a_NSel[0], True)
    _GUICtrlRichEdit_SetCharColor($hre_RichEdit, $hex_Color)
    _GUICtrlRichEdit_SetSel($hre_RichEdit, -1, -1)
    EndFunc

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

    Func _transfer_rights()
    _console_flush()
    $s_chosen_temmplate_grp = GUICtrlRead($hc_template_groups)
    $s_chosen_server_grp = GUICtrlRead($hc_server_groups)

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

    $as_chosen_server_grp = StringSplit($s_chosen_server_grp, ":")
    $s_chosen_server_grp_svrid = $as_chosen_server_grp[1]
    $s_chosen_server_grp_name = $as_chosen_server_grp[2]

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

    __sqlite_open()
    Local $aResult, $iRows, $iColumns, $iRval
    $iRval = _SQLite_GetTable(-1, "SELECT group_id FROM groups_server WHERE server_id = 0 AND type = 0 AND name = '"&$s_chosen_temmplate_grp&"';", $aResult, $iRows, $iColumns)
    If $iRval = $SQLITE_OK Then
    If $aResult[0] <> 2 Then Exit
    $s_template_group_id = $aResult[2]
    Else
    MsgBox(16, "SQLite Error: "&$iRval, _SQLite_ErrMsg())
    EndIf
    $iRval = _SQLite_GetTable(-1, "SELECT group_id FROM groups_server WHERE server_id = "&$s_chosen_server_grp_svrid&" AND type = 1 AND name = '"&$s_chosen_server_grp_name&"';", $aResult, $iRows, $iColumns)
    If $iRval = $SQLITE_OK Then
    If $aResult[0] <> 2 Then Exit
    $s_server_group_id = $aResult[2]
    Else
    MsgBox(16, "SQLite Error: "&$iRval, _SQLite_ErrMsg())
    EndIf

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

    _console_write("INFO", "Transfer der Rechte: group_id="&$s_template_group_id&" zu group_id="&$s_server_group_id & @CRLF)

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

    $iRval = _SQLite_GetTable(-1, "SELECT perm_id, perm_value, perm_negated, perm_skip FROM perm_server_group WHERE server_id = 0 AND id1="&$s_template_group_id&";", $aResult, $iRows, $iColumns)
    If $iRval = $SQLITE_OK Then
    Local $hQuery, $aRow
    For $i = 5 To $aResult[0] Step 4
    $s_perm_id = $aResult[$i]
    $s_perm_value = $aResult[$i+1]
    $s_perm_negated = $aResult[$i+2]
    $s_perm_skip = $aResult[$i+3]
    _SQLite_Query(-1, "SELECT ROWID FROM perm_server_group WHERE perm_id='"&$s_perm_id&"' AND server_id="&$s_chosen_server_grp_svrid&" AND id1="&$s_server_group_id&";", $hQuery)
    _SQLite_FetchData($hQuery, $aRow, False, True)
    _SQLite_QueryFinalize($hQuery)
    If $aRow[0] <> "" Then
    _SQLite_Exec(-1, "UPDATE perm_server_group SET perm_value="&$s_perm_value&", perm_negated="&$s_perm_negated&", perm_skip="&$s_perm_skip&" WHERE ROWID="&$aRow[0]&";")
    _console_write("UPDATE", "Updated PERM:"&$aRow[0]&":"&$s_perm_id&" GRP:"&$s_chosen_server_grp_svrid&":"&$s_server_group_id)
    Else
    _SQLite_Exec(-1, "INSERT INTO perm_server_group (server_id, id1, id2, perm_id, perm_value, perm_negated, perm_skip) VALUES ("&$s_chosen_server_grp_svrid&", "&$s_server_group_id&", 0, '"&$s_perm_id&"', "&$s_perm_value&", "&$s_perm_negated&", "&$s_perm_skip&");")
    _console_write("INSERT", "Inserted PERM:"&$s_perm_id&" GRP:"&$s_chosen_server_grp_svrid&":"&$s_server_group_id)
    EndIf
    Next
    Else
    MsgBox(16, "SQLite Error: "&$iRval, _SQLite_ErrMsg())
    EndIf

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

    $iRval = _SQLite_GetTable(-1, "SELECT ROWID, perm_id FROM perm_server_group WHERE server_id = "&$s_chosen_server_grp_svrid&" AND id1="&$s_server_group_id&";", $aResult, $iRows, $iColumns)
    If $iRval = $SQLITE_OK Then
    Local $hQuery, $aRow
    For $i = 3 To $aResult[0] Step 2
    $s_rowid = $aResult[$i]
    $s_perm_id = $aResult[$i+1]
    _SQLite_Query(-1, "SELECT ROWID FROM perm_server_group WHERE perm_id='"&$s_perm_id&"' AND server_id=0 AND id1="&$s_template_group_id&";", $hQuery)
    _SQLite_FetchData($hQuery, $aRow, False, True)
    _SQLite_QueryFinalize($hQuery)
    If $aRow[0] = "" Then
    _SQLite_Exec(-1, "DELETE FROM perm_server_group WHERE ROWID="&$s_rowid&";")
    _console_write("DELETE", "Deleted PERM:"&$s_rowid&":"&$s_perm_id&" GRP:"&$s_chosen_server_grp_svrid&":"&$s_server_group_id)
    EndIf
    Next
    Else
    MsgBox(16, "SQLite Error: "&$iRval, _SQLite_ErrMsg())
    EndIf
    GUICtrlSetData($hl_console, "Now: Finished")
    __sqlite_close()
    EndFunc

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

    Func _load_all_groups()
    _load_template_groups()
    _load_server_groups()
    GUICtrlSetState($hb_transfer_button, 64)
    EndFunc

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

    Func _load_template_groups()
    $s_template_groups = ""
    __sqlite_open()
    Local $aResult, $iRows, $iColumns, $iRval
    $iRval = _SQLite_GetTable(-1, "SELECT name FROM groups_server WHERE server_id = 0 AND type = 0;", $aResult, $iRows, $iColumns)
    If $iRval = $SQLITE_OK Then
    For $i = 2 To $aResult[0]
    $s_template_groups &= "|"&$aResult[$i]
    Next
    Else
    MsgBox(16, "SQLite Error: "&$iRval, _SQLite_ErrMsg())
    EndIf
    __sqlite_close()
    GUICtrlSetData($hc_template_groups, $s_template_groups)
    GUICtrlSetState($hc_template_groups, 64)
    EndFunc

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

    Func _load_server_groups()
    $s_server_groups = ""
    __sqlite_open()
    Local $aResult, $iRows, $iColumns, $iRval
    $iRval = _SQLite_GetTable(-1, "SELECT server_id, name FROM groups_server WHERE server_id != 0 AND type = 1 ORDER BY server_id;", $aResult, $iRows, $iColumns)
    If $iRval = $SQLITE_OK Then
    For $i = 3 To $aResult[0] Step 2
    $s_server_groups &= "|"&$aResult[$i]&":"&$aResult[$i+1]
    Next
    Else
    MsgBox(16, "SQLite Error: "&$iRval, _SQLite_ErrMsg())
    EndIf
    __sqlite_close()
    GUICtrlSetData($hc_server_groups, $s_server_groups)
    GUICtrlSetState($hc_server_groups, 64)
    EndFunc

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

    Func __sqlite_file_lookup()
    If $b_sqlite_opened Then __sqlite_close()
    $s_ts3sqlite_file = FileOpenDialog("ts3sqlite file search", @ScriptDir, "ts3sqlite(ts3server.sqlitedb)", 1 + 2)
    GUICtrlSetData($hi_ts3sqlite_input, $s_ts3sqlite_file)
    EndFunc

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

    Func __sqlite_open()
    _SQLite_Startup()
    $s_ts3sqlite_path = GUICtrlRead($hi_ts3sqlite_input)
    _SQLite_Open($s_ts3sqlite_path)
    $b_sqlite_opened = True
    EndFunc

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

    Func __sqlite_close()
    _SQLite_Close()
    _SQLite_Shutdown()
    $b_sqlite_opened = False
    EndFunc

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

    Func _exit()
    If $b_sqlite_opened Then __sqlite_close()
    Exit
    EndFunc

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

    While 1 * Sleep(10)
    WEnd

    [/autoit]
  • Farbige Zeilen in GUICtrlCreateEdit

    • Derpy Hooves
    • 11. Juni 2010 um 18:12

    ok danke soweit, ich kann leider nicht sagen dass es funktioniert, aber es klingt logisch

    mein Problem ist nun folgendes:
    wenn er da was reinschreiben soll, unter verwendung deiner Funktion, bekomm ich ne Fehlermeldung

    Code
    _GUICtrlRichEdit_SetSel($hre_RichEdit, $a_Sel[0], $a_NSel[0], True)
    _GUICtrlRichEdit_SetSel($hre_RichEdit, $a_Sel[0], $a_NSel^ ERROR

    Die von dir geschriebene Version hab ich nur angepasst, sie wird durch eine andere Funktion aufgerufen:

    [autoit]

    Func _console_write($s_console_type, $s_console_text)
    GUICtrlSetData($hl_console, "Now: "&$s_console_text)
    Local $hex_color = 0x000000
    If $s_console_type = "INFO" Then $hex_color = 0x000000
    If $s_console_type = "DELETE" Then $hex_color = 0xff0000
    If $s_console_type = "UPDATE" Then $hex_color = 0x0000ff
    If $s_console_type = "INSERT" Then $hex_color = 0x00ff00
    _RichEdit_AddColoredText($hre_console, $s_console_text, $hex_color)
    _GUICtrlRichEdit_ScrollLines($hre_console, +1)
    EndFunc

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

    Func _RichEdit_AddColoredText($hre_RichEdit, $s_Text, $hex_Color)
    Local $a_Sel, $a_NSel
    $a_Sel = _GUICtrlRichEdit_GetSel($hre_RichEdit)
    _GUICtrlRichEdit_AppendText($hre_RichEdit, $s_Text)
    $aNSel = _GUICtrlRichEdit_GetSel($hre_RichEdit)
    _GUICtrlRichEdit_SetSel($hre_RichEdit, $a_Sel[0], $a_NSel[0], True)
    _GUICtrlRichEdit_SetCharColor($hre_RichEdit, $hex_Color)
    _GUICtrlRichEdit_SetSel($hre_RichEdit, -1, -1)
    EndFunc

    [/autoit]
  • Farbige Zeilen in GUICtrlCreateEdit

    • Derpy Hooves
    • 11. Juni 2010 um 15:40

    ich hab schon gesucht aber keine gute Anleitung für RichEdit Controls unter AutoIT gefunden

    und wieso schaffst du es hier das zu schreiben aber im anderen Forum nit X(

  • Farbige Zeilen in GUICtrlCreateEdit

    • Derpy Hooves
    • 11. Juni 2010 um 15:30

    ja, ich suche die Möglichkeit, wie unten in Scite in der Console, einzelne Zeilen farbig zu gestalten... halt in einem GUICtrlCreateEdit

    hat da wer ne Idee?

  • Teamspeak 3 UDF

    • Derpy Hooves
    • 11. Mai 2010 um 14:21

    argh X(

    ersma nen großes Lob an den UDF-Ersteller^^
    schon son bisschen böse... jetz sitze ich schon über 3 monate an meinem TS3-Admin Tool geschrieben in AutoIT und acker mich ab mit den Befehlen und jetz sehe ich es gibt mitlerweile ne UDF xD

  • _FFXPath fehleranfällig?

    • Derpy Hooves
    • 21. Februar 2010 um 22:31

    ah ok danke... ich find gar keinen Changelog zu Version V0.6.0.1b-3 xD

  • _FFXPath fehleranfällig?

    • Derpy Hooves
    • 21. Februar 2010 um 21:32

    ok ich hab hier jetz mal auch nen schönen Fehler mit _FFXPath

    Code
    _FFConnect: OS:	WIN_7 WIN32_NT 7600 
    _FFConnect: AutoIt:	3.3.2.0
    _FFConnect: FF.au3:	0.6.0.1b-3
    _FFConnect: IP:	127.0.0.1
    _FFConnect: Port:	4242
    _FFConnect: Delay: 	2ms
    _FFConnect: Socket: 	568
    _FFConnect: Browser:	Mozilla/5.0 (Windows; U; Windows NT 6.1; de; rv:1.9.1.7) Gecko/20091221 Firefox/3.5.7
    __FFSendJavaScripts: Sending functions to FireFox .......... done
    __FFSend: try{FFau3 != null?1:0}catch(e){'_FFCmd_Err';};
    __FFRecv: 1
    Alles anzeigen


    ersma die Verbindung... klappt soweit

    Code
    __FFSend: FFau3.xpath=null;try{FFau3.xpath=FFau3.WCD.evaluate("/html/body/div[1]",FFau3.WCD,null,XPathResult.FIRST_ORDERED_NODE_TYPE,null).singleNodeValue;}catch(e){'_FFXPath_Error: '+e;};
    __FFRecv: [object HTMLDivElement] — {scrollWidth: 260, clientLeft: 0, clientHeight: 15, clientWidth: 260, clientTop: 0, getClientRects: function() {…}, getBoundingClientRect: function() {…}, ...}


    ja... versteh den __FFRecv iwie nit 8| allein schon was der __FFSend da sendet is anders als bei der älteren FF.au3
    Das hier is die neueste nicht-Testversion
    und das ganze bei der Abfrage hier:

    [autoit]

    If _FFIsConnected() Then
    _FFFrameEnter(7)
    $sString = _FFXPath("/html/body/div[1]")
    _FFFrameLeave()
    EndIf

    [/autoit]

    mit der FF.au3 Version 0.6.0.0b-5 bekomme ich bei gleichen Befehl das hier

    Code
    __FFSend: FFau3.xpath=null;try{FFau3.xpath=window.content.top.frames[7].document.evaluate("/html/body/div[1]",window.content.top.frames[7].document,null,XPathResult.STRING_TYPE,null).stringValue;}catch(e){'_FFXPath_Error: '+e;};
    __FFRecv: 
     Lorem ipsum dolor sit amet....


    allein schon der __FFSend sieht ganz anders aus

    weitere Daten:
    FireFox Version 3.5.7
    MozRepl Version 1.0.0.2009122217

  • RegEx Problem

    • Derpy Hooves
    • 8. Februar 2010 um 11:16

    wohooo
    danke euch beiden klappt wunderbar...
    RegExBuddy hat da iwie gemeckert und meines hat da super geklappt aber so danke euch^^

  • RegEx Problem

    • Derpy Hooves
    • 8. Februar 2010 um 11:01

    ok folgendes:
    Mein String: $sString = "a: 123, b: 456"

    RegEx + Ergebnisse:

    [autoit]

    $aArray = StringRegExp($sString, '\s(\d){1,4}', 1, 1)
    For $iii=0 To UBound($aArray)-1
    MsgBox(0, "", $aPos[$iii])
    Next
    ;Liefert 1 MsgBox mit dem Inhalt 3

    [/autoit][autoit]

    $aArray = StringRegExp($sString, '\s(\d){1,4}', 2, 1)
    For $iii=0 To UBound($aArray)-1
    MsgBox(0, "", $aPos[$iii])
    Next
    ;Liefert 2 MsgBoxen mit den Inhalten 123 und 3

    [/autoit][autoit]

    $aArray = StringRegExp($sString, '\s(\d){1,4}', 3, 1)
    For $iii=0 To UBound($aArray)-1
    MsgBox(0, "", $aPos[$iii])
    Next
    ;Liefert 2 MsgBoxen mit den Inhalten 3 und 6

    [/autoit][autoit]

    $aArray = StringRegExp($sString, '\s(\d){1,4}', 4, 1)
    For $iii=0 To UBound($aArray)-1
    MsgBox(0, "", $aPos[$iii])
    Next
    ;Liefert 2 MsgBoxen ohne Inhalt

    [/autoit]

    Ich brauch aber die beiden exakten werte (also 123 und 456)
    und ja, sie sind variabel... Koordinatensysteme ftw X(

  • Einfacher Einstieg?

    • Derpy Hooves
    • 3. Februar 2010 um 18:31

    wir helfen immer wieder gern...

    sollte es also Probleme geben scheue dich nicht, diese hier im Forum vorzubringen... wir beißen dir auch nicht den Kopf ab ( den brauchste auch noch xP )

  • Einfacher Einstieg?

    • Derpy Hooves
    • 3. Februar 2010 um 10:47

    Der Aufwand ist nicht groß... AutoIT ist recht einfach also Vorwissen ist eh kaum notwendig
    um eine Funktion hinter die Knöpfe packen zu können solltest du dich erstmal mit den beiden GUI-Modi auseinander setzen... der GUIMessageLoopMode und der GUIOnEventMode
    ich empfehle ja den GUIOnEventMode...

    [autoit]

    ;AutoIT Kommentar... hiermit werde ich Befehle im Quelltext erklären
    Opt("GUIOnEventMode", 1) ;Einstellen der Option auf den On-Event-Modus
    GUICtreate("Titel", 1024, 768, -1, -1) ;GUICreate("title", width, height, left, top) wobei bei left und top "-1" für zentriert steht...
    ;erstellt also eine zentrierte GUI mit der Breit von 1024px und der Höhe von 768px mit dem Titel "Titel"
    $hKlickMichButton = GUICtrlCreateButton("Klick mich", 5, 5) ;GUICtrlCreateButton("text", left, top) erstellt hier einen Button mit dem Text "Klick mich",
    ;welcher im der GUI von oben und links jeweils 5px entfernt ist
    GUICtrlOnEvent(-1, "_klickMichClicked") ;registriert wenn der Button betätigt wurde und führt dann die Funktion "_klickMichClicked()" aus

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

    While 1 * Sleep(10)
    ;While-Schleife damit das Programm nicht sofort wieder ausgeht
    WEnd

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

    Func _klickMichClicked()
    ;was in der Funktion ausgeführt werden soll...
    ;zum Beispiel ein ShellExecute
    EndFunc

    [/autoit]

    //EDIT:
    hatte die While-Loop vergessen

  • Das ausgelesene Text in den Input(Edit) einfügen.

    • Derpy Hooves
    • 31. Januar 2010 um 20:50

    dann bitte noch deinen ersten Post editieren also des Prefix auf [gelöst] setzen....
    und dann kann der Thread denke ich auch geclosed werden aber das entscheiden eh unsere lieben Mods :thumbup:

  • Das ausgelesene Text in den Input(Edit) einfügen.

    • Derpy Hooves
    • 31. Januar 2010 um 20:33

    Das ma Probieren:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <IE.au3>

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

    $hGUI = GUICreate("PasswortChar", 306, 77, 247, 255)
    $hInput = GUICtrlCreateInput("", 8, 8, 289, 21)
    $hOKButton = GUICtrlCreateButton("OK", 8, 40, 291, 25, 0)
    GUISetState(@SW_SHOW)

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

    While 1 * Sleep(10)
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $hOKButton
    $oIE = _IECreate('URL')
    _IELoadWait($oIE)
    $oForm = _IEFormGetCollection($oIE, 1)
    $okeywords = _IEFormElementGetCollection($oForm, 7)
    $sInhalt = _IEFormElementGetValue($okeywords)
    ;~ MsgBox(0,'Info',$Inhalt)
    GUICtrlSetData($hInput, $sInhalt)
    EndSwitch
    WEnd

    [/autoit]

    Aber der Fehler war schon vorher drin... ein EndSwitch hat gefehlt

  • Das ausgelesene Text in den Input(Edit) einfügen.

    • Derpy Hooves
    • 31. Januar 2010 um 18:24

    Probiers ma:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <IE.au3>

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

    $hGUI = GUICreate("PasswortChar", 306, 77, 247, 255)
    $hInput = GUICtrlCreateInput("", 8, 8, 289, 21)
    $hOKButton = GUICtrlCreateButton("OK", 8, 40, 291, 25, 0)
    GUISetState(@SW_SHOW)

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

    While 1 * Sleep(10)
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $hOKButton
    $oIE = _IECreate('URL')
    _IELoadWait($oIE)
    $oForm = _IEFormGetCollection($oIE, 1)
    $okeywords = _IEFormElementGetCollection($oForm, 7)
    $sInhalt = _IEFormElementGetValue($okeywords)
    ;~ MsgBox(0,'Info',$Inhalt)
    GUICtrlSetData($hInput, $sInhalt)
    WEnd

    [/autoit]
  • Das ausgelesene Text in den Input(Edit) einfügen.

    • Derpy Hooves
    • 31. Januar 2010 um 17:19

    ok ich kanns leider auch nich testen und dann dran rumbasteln weil ich gar keinen IE mehr habe aber kannst du bitte genau die Probleme erklären und wenn möglich nenne in dem Zusammenhang auch gleich die Fehlermeldungen die du bekommst (In der Console von SciTE müssten Fehlermeldungen ausgespuckt werden... besonders wenn das script einfach crasht!)

    Des Weiteren kennen ich kein Gegenstück zu einer Messagebox was eine Textbox darstellen soll...
    was dem nur noch nahe kommt wäre ein Edit (GUICtrlCreateEdit)

  • ToolBar Icons - nur Bitmap?

    • Derpy Hooves
    • 18. Januar 2010 um 16:43

    ich wollte fragen ob es irgendwie möglich ist auch an andere Icon Bilder als mit
    _GUICtrlToolbar_AddBitmap ($hToolbar, 1, -1, $IDB_STD_LARGE_COLOR)
    zu kommen...

    und es sollen keine Bitmap bilder sein ich brauch selbst erstellte .ico dateien am besten dadrin

  • Script wirft Probleme mit MessageLoop und mit OnEvent Modus auf

    • Derpy Hooves
    • 18. Januar 2010 um 00:27

    danke Oscar ich werde das script mal anpassen.... ich benutze dann noch als option den UseIndex damit kann ich super was anfangen^^

  • Script wirft Probleme mit MessageLoop und mit OnEvent Modus auf

    • Derpy Hooves
    • 17. Januar 2010 um 20:46

    ok ehrlich ich glaub ich gebs auf ich verstehe weder den _GUICtrlTreeView_HitTest als auch manch andere sachen
    leider funktioniert die idee von cartan nicht aufgrund dessen dass ich das ja in einer for schleife mache und dann autoit rummeckert von wegen missing Next

    warum kann autoit nich so wie javascript sein? ;(
    onClick= <- so eine schöne funktion fehlt mir einfach noch X(

    gibts da nich noch ne einfachere Möglichkeit wie ich rausbekomme zu welchem treeview item das "Umbennen" oder das "Detailansicht" Menu Item gehört?

  • Script wirft Probleme mit MessageLoop und mit OnEvent Modus auf

    • Derpy Hooves
    • 17. Januar 2010 um 14:29

    was bringt es mir wenn ich die id auslese wenn ich danach wieder linksklick auf nen anderes Item mache, in diesem fall ja mein MenuItem (Umbenennen)?

    [autoit]

    Func fRightClick()
    $cursor = GUIGetCursorInfo($GUI_mainWindow)
    _GUICtrlTreeView_SelectItem($GUI_mainWindow, $cursor[4])
    EndFunc

    [/autoit]


    klappt leider nicht und
    MsgBox(0, "", $cursor[4])
    liefert oft einfach nur 0 zurück
    es sei denn ich bleibe mit meiner maus auf dem element aber dann gibts immer nur 6 zurück

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™