Beiträge von funkey

  • Problem mit Ausfüllen von Internet Seite.

    Spoiler anzeigen
    [autoit]

    #include <IE.au3>

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

    $oIE = _IECreate('http://sen.pytalhost.de/Ghost/Index.php')
    $oForm = _IEFormGetCollection($oIE, 0)
    $oTextarea = _IEFormElementGetObjByName($OForm, 'notiz')
    _IEFormElementSetValue($oTextarea, 'Neuer Text')
    _IEFormSubmit($oForm)

    [/autoit]

  • DllCall und Array als Parameter

    Hätte es so probiert, kann es ja aber leider nicht testen.

    Spoiler anzeigen
    [autoit]

    $Struct = DllStructCreate('char[2]')
    DllStructSetData($Struct, 1, "GROUP1")
    DllStructSetData($Struct, 2, "GROUP2")

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

    $objDll = DllOpen("SMSRsGen.dll")
    $intResult = DllCall($objDll, "int", "DDRAddStringArray", "str", "System Group Name", "ptr", DllStructGetPtr($Struct), "int", 2, "int", 64, "dword", 16)
    DllClose($objDll)

    [/autoit]

  • Mit GDI+ um einen Punkt Striche Zeichnen

    Das kann ja nicht gehen, wenn du nur eine Variable veränderst!

    Spoiler anzeigen
    [autoit]

    #include <GDIPlus.au3>
    #include <WindowsConstants.au3>
    #include <GUIConstantsEx.au3>

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

    Global $index, $hPen
    Global Const $Pi = 4 * ATan(1)
    Global $x1 = @DesktopWidth / 2
    Global $y1 = @DesktopHeight / 2
    Global $x2 = 0, $y2 = 0
    Global $radians = 180 * 2.50
    Global $i

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

    $GUI_Handle = GUICreate("GDI+", 1024, 768)
    GUISetBkColor(0x000000)
    GUISetState(@SW_SHOW)
    $hWnd = WinGetHandle($GUI_Handle)

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

    _GDIPlus_Startup()
    $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hWnd)
    _GDIPlus_GraphicsSetSmoothingMode($hGraphic, 4) ; AntiAlias

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

    Line_Color()

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Quit()

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

    EndSwitch

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

    _GDIPlus_GraphicsDrawLine($hGraphic, $x1, $y1, $x2, $y2, $hPen) ;draw line
    _GDIPlus_PenDispose($hPen)
    Line_Color()

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

    If $x2 < @DesktopWidth And $y2 = 0 Then
    $x2 += 1
    ElseIf $x2 = @DesktopWidth And $y2 < @DesktopHeight Then
    $y2 +=1
    ElseIf $y2 = @DesktopHeight And $x2 > 0 Then
    $x2 -= 1
    Else
    $y2 -=1
    EndIf

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

    ;~ Sleep(10)
    WEnd

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

    Func Line_Color() ;thanks to monoceres for the code
    Local $RedM = 1, $BlueM = 1.25, $GreenM = 1.50
    $index += 0.0075
    $color = "0x2F" & Hex(255 * ((Sin($index * $RedM) + 1) / 2), 2) & Hex(255 * ((Sin($index * $GreenM) + 1) / 2), 2) & Hex(255 * ((Sin($index * $BlueM) + 1) / 2), 2)
    $hPen = _GDIPlus_PenCreate($color)
    EndFunc ;==>Line_Color

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

    Func Quit() ; exit program
    _GDIPlus_PenDispose($hPen)
    _GDIPlus_GraphicsDispose($hGraphic)
    _GDIPlus_Shutdown()
    Exit
    EndFunc ;==>Quit

    [/autoit]

  • Menü überall platzieren

    Hallo!

    Hab in der Hilfe eine Funktion gefunden, mittels derer man ein (Kontext-)Menü an beliebiger Stelle aufrufen kann. Hab das ganze gleich mal zweckentfremdet ;)

    Spoiler anzeigen
    [autoit]

    Opt('GUIOnEventMode', 1)

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

    Global $hGui = GUICreate("Mein eigenes Menü", 270, 140, -1, -1);, 0x80000000)
    GUISetOnEvent(-3, '_Exit')

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

    GUICtrlCreateLabel('Das Menü befindet sich unterhalb ;)', 50, 15)

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

    GUICtrlCreateLabel('', 0, 48, 270, 2, 0x1000)

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

    $MenueDatei = GUICtrlCreateLabel('&Datei', 95, 50, 40, 19, 0x201)
    GUICtrlSetOnEvent(-1, '_MenuPressed')

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

    $DateiContext = GUICtrlCreateContextMenu(GUICtrlCreateDummy())
    $OptionsOpen = GUICtrlCreateMenuItem("Ö&ffnen", $DateiContext)
    $OptionsClose = GUICtrlCreateMenuItem("S&chließen", $DateiContext)
    GUICtrlCreateMenuItem("", $DateiContext)
    $OptionsExit = GUICtrlCreateMenuItem("B&eenden", $DateiContext)
    GUICtrlSetOnEvent(-1, '_Exit')

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

    $MenueHelp = GUICtrlCreateLabel("&Hilfe", 135, 50, 30, 19, 0x201)
    GUICtrlSetOnEvent(-1, '_MenuPressed')

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

    $HelpContext = GUICtrlCreateContextMenu(GUICtrlCreateDummy())
    $HelpWWW = GUICtrlCreateMenuItem("&Website", $HelpContext)
    GUICtrlSetOnEvent(-1, '_Website')
    GUICtrlCreateMenuItem("", $HelpContext)
    $HelpAbout = GUICtrlCreateMenuItem("Ü&ber...", $HelpContext)
    GUICtrlSetOnEvent(-1, '_About')

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

    GUICtrlCreateLabel('', 0, 70, 270, 2, 0x1000)

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

    GUISetState()

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

    Global $AccelKeys[2][2]=[["!d", $MenueDatei], ["!h", $MenueHelp]]
    GUISetAccelerators($AccelKeys)

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

    While 1
    Sleep(10000)
    WEnd

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

    Func _Exit()
    Exit
    EndFunc

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

    Func _MenuPressed()
    Switch @GUI_CtrlId
    Case $MenueDatei
    ShowMenu($hGui, $MenueDatei, $DateiContext)
    Case $MenueHelp
    ShowMenu($hGui, $MenueHelp, $HelpContext)
    EndSwitch
    EndFunc

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

    Func _About()
    MsgBox(64, "About...", "Beispiel für ein eigenes Menü")
    EndFunc

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

    Func _Website()
    MsgBox(64, "Website...", "www.autoit.de")
    EndFunc

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

    ; Show a menu in a given GUI window which belongs to a given GUI ctrl
    Func ShowMenu($hWnd, $CtrlID, $nContextID)
    Local $arPos, $x, $y
    Local $hMenu = GUICtrlGetHandle($nContextID)

    $arPos = ControlGetPos($hWnd, "", $CtrlID)

    $x = $arPos[0]
    $y = $arPos[1] + $arPos[3]

    ClientToScreen($hWnd, $x, $y)
    TrackPopupMenu($hWnd, $hMenu, $x, $y)
    EndFunc ;==>ShowMenu

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

    ; Convert the client (GUI) coordinates to screen (desktop) coordinates
    Func ClientToScreen($hWnd, ByRef $x, ByRef $y)
    Local $stPoint = DllStructCreate("int;int")

    DllStructSetData($stPoint, 1, $x)
    DllStructSetData($stPoint, 2, $y)

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

    DllCall("user32.dll", "int", "ClientToScreen", "hwnd", $hWnd, "ptr", DllStructGetPtr($stPoint))

    $x = DllStructGetData($stPoint, 1)
    $y = DllStructGetData($stPoint, 2)
    ; release Struct not really needed as it is a local
    $stPoint = 0
    EndFunc ;==>ClientToScreen

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

    ; Show at the given coordinates (x, y) the popup menu (hMenu) which belongs to a given GUI window (hWnd)
    Func TrackPopupMenu($hWnd, $hMenu, $x, $y)
    DllCall("user32.dll", "int", "TrackPopupMenuEx", "hwnd", $hMenu, "int", 0, "int", $x, "int", $y, "hwnd", $hWnd, "ptr", 0)
    EndFunc ;==>TrackPopupMenu

    [/autoit]

  • große ergebnisse

    Das Ergebnis stimmt, es dauert aber ca. 20 Minuten :rofl:

    Spoiler anzeigen
    [autoit]

    ;~ (230911 hoch 1721) mod 263713 = 1715
    #include 'BigNum.au3'

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

    Local $Ergebnis = 230911

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

    For $i = 1 To 1720
    $Ergebnis = _BigNum_Mul($Ergebnis, 230911)
    Next

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

    MsgBox(0,"", _BigNum_Mod($Ergebnis, 263713))

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

  • GuiGetMsg() und ein Array

    Hier ein Beispiel für den OnEvent-Modus:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <windowsconstants.au3>

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

    Opt('GUIOnEventMode', 1)

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

    $GUI = GUICreate("On-Event-Modus")
    GUISetOnEvent(-3, '_Exit')

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

    For $i = 0 To 18
    GUICtrlCreateButton('Button ' & $i + 1, 10, 10 + 20 * $i, 50, 18)
    GUICtrlSetOnEvent(-1, '_Button_Clicked')
    Next

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

    GUISetState()

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

    While True
    Sleep(10000)
    WEnd

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

    Func _Exit()
    Exit
    EndFunc ;==>_Exit

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

    Func _Button_Clicked()
    MsgBox(0, "Button", GUICtrlRead(@GUI_CtrlId))
    EndFunc ;==>_Button_Clicked

    [/autoit]

  • GUICtrlCreateDiagramm by Faweyr

    Nicht schlecht! :thumbup:
    Aber wie Nuts bereits gesagt hat ist es noch ziemlich lang. ;)

    Schnell gekürzte Fassung
    [autoit]

    GUICreate("Diagramm")
    GUICtrlCreateDiagramm(30, 30, 300, 200, -1, 10, "", 20, 0xFF9933, 30, 0x33FF00, 50, 0xabc, 100, 0x50aa50)
    GUISetState()

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

    Do
    Until GUIGetMsg() = -3

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

    Func GUICtrlCreateDiagramm($left, $top, $width, $height, $color, $d1, $c1, $d2 = "", $c2 = "", $d3 = "", $c3 = "", $d4 = "", $c4 = "", $d5 = "", $c5 = "", _
    $d6 = "", $c6 = "", $d7 = "", $c7 = "", $d8 = "", $c8 = "", $d9 = "", $c9 = "", $d10 = "", $c10 = "")

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

    If Not $color = "-1" Then GUICtrlSetBkColor(-1, $color)
    Local $anzahl = Ceiling((@NumParams -5) / 2)

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

    ;Höhe der Balken berechnen:
    Local $BalkenHoehe = (($height - 20) / $anzahl) - 3

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

    ;1 Prozent des Balken berechnen:
    Local $Prozent = ($width - 20) / 100
    ;Erstellen der Balken:

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

    For $i = 1 To $anzahl
    Assign('balken'&$i, GUICtrlCreateGraphic($left + 10, $top + 10 + $BalkenHoehe *($i-1), $Prozent * Execute('$d'&$i), $BalkenHoehe))
    GUICtrlSetBkColor(-1, Execute('$c'&$i))
    $balken2 = GUICtrlCreateLabel(Execute('$d'&$i) & "%", $width + 50, $top + 10 + 7 + $BalkenHoehe*($i-1))
    If Not $color = "" Then GUICtrlSetBkColor(-1, $color)
    GUICtrlSetColor(-1, Execute('$c'&$i))
    Next
    EndFunc ;==>GUICtrlCreateDiagramm

    [/autoit]

    Da kann man aber auch noch einiges verbessern.

  • Problem UDF RMChart

    Spoiler anzeigen
    [autoit]

    #include 'rmchart.au3'

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

    Opt('GUIOnEventMode', 1)

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

    Global $hGUI = GUICreate("Chart Test", 700, 500)
    GUISetOnEvent(-3, '_Exit')

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

    Global $ChartID = 2101, $struct
    Global $ChartDefinition = '00003600|00004450|000051|000061|00009412|00011Tahoma|100011|100035|' & _
    '100045|10005-5|10006-5|1000910|100101|100112|100181|100481|10063-1|100652|100680|100690|1007011|' & _
    '100718|1007612|100810|10082100|1008311|100848|100899|100950|10096100|1009711|100988|101040|10105100|' & _
    '1010611|101078|101131|110011|1100270|1100470|110061|1102121|110221|110235|110241|110255|110271|110531*2*3*4*5|110544*2*0*2*4'

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

    _RMC_LoadDLL("rmchart.dll")
    _RMC_CreateChartFromFile($hGUI, $ChartID, 10, 10, 0, $ChartDefinition)
    _RMC_Draw($ChartID)

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

    GUISetState()

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

    While 1
    Sleep(10000)
    WEnd

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

    Func _Exit()
    Exit
    EndFunc

    [/autoit]

  • Aktuellen Source Code auslesen

    Zitat von PokerFace

    Oder gibt es ne Möglichkeit die Adressleiste auszulesen? Irgendwie muss das ja gehen

    [autoit]

    #include <IE.au3>

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

    $oIE = _IECreate('www.google.at')
    MsgBox(0,"", _IEPropertyGet($oIE, "locationurl"))

    [/autoit]

  • Klettersteig

    Sieht so aus als ob das außer leviathan nicht wirklich viele hier machen würden. Warscheinlich habt ihr einfach zu wenig Berge zum Klettern oder ihr habt wegen AutoIt keine Zeit dafür. :D
    Ich kann euch nur sagen: Ihr verpasst etwas! :rock:

  • _GUICtrlListView_GetItemChecked bzw. _GUICtrlListView_GetItemSelected UND GUICtrlCreateListView

    Spoiler anzeigen
    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_icon=D:\AutoIT\icon.ico
    #AutoIt3Wrapper_UseUpx=n
    #AutoIt3Wrapper_UseAnsi=y
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

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

    ; Dank an das AutoIt Forum hier Andy und alle die geholfen haben!!!
    #include <GuiListView.au3>
    #include <ListBoxConstants.au3>
    #include <ListViewConstants.au3>
    #include <WindowsConstants.au3>
    #include <File.au3>
    #include <GUIConstantsEx.au3>

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

    Opt("GUIOnEventMode", 1)

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

    Global $aIn[1]

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

    Local $iExWindowStyle = BitOR($WS_EX_DLGMODALFRAME, $WS_EX_CLIENTEDGE, $LBS_EXTENDEDSEL)
    Local $iExListViewStyle = BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_GRIDLINES, $LVS_EX_CHECKBOXES, $LVS_EX_DOUBLEBUFFER, $LVS_EX_TRACKSELECT)

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

    _FileReadToArray("_inhalt2.txt", $aIn) ; hier angepsst
    For $i = 1 To $aIn[0]
    $aIn[$i] = StringReplace(StringStripWS($aIn[$i], 7), "|", "|", 5) ; hier angepsst
    Next
    _FileWriteFromArray("inhalt2_out.txt", $aIn, 2) ; hier angepsst

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

    GUICreate("listview items", 1250, 530, 10, 10, -1) ; hier angepsst

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

    $listview = GUICtrlCreateListView($aIn[1], 10, 10, 1230, 510, $iExWindowStyle, $iExListViewStyle) ; hier angepsst
    _GUICtrlListView_SetExtendedListViewStyle($listview, $iExListViewStyle)

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

    $context = GUICtrlCreateContextMenu($listview) ;contextmenu, rechtsklick zum kopieren
    $item1 = GUICtrlCreateMenuItem("Kopieren nach...", $context)
    GUICtrlSetOnEvent($item1, "_kopieren")
    $item2 = GUICtrlCreateMenuItem("Markierte Titel aus der Liste löschen", $context)
    GUICtrlSetOnEvent($item2, "_deselect")
    GUISetOnEvent($GUI_EVENT_CLOSE, "_GUIClose")
    ; GUICtrlSetOnEvent($item2, "_Delete")
    GUICtrlSetOnEvent($listview, "List1Click")
    _GUICtrlListView_RegisterSortCallBack($listview, True, True) ;sortierfunktion einschalten

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

    For $i = 2 To $aIn[0] ; bei Index 2 starten, dann ist die erste Zeile weg
    $item1 = GUICtrlCreateListViewItem($aIn[$i], $listview)
    Next

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

    For $i = 0 To _GUICtrlListView_GetColumnCount($listview) -1
    _GUICtrlListView_SetColumnWidth($listview, $i, $LVSCW_AUTOSIZE)
    Next

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

    GUISetState()

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

    While 1
    Sleep(50)
    WEnd

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

    Func _deselect()
    For $i = 0 To _GUICtrlListView_GetItemCount($listview) -1
    _GUICtrlListView_SetItemChecked($listview, $i, 0)
    Next
    EndFunc

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

    Func _kopieren()
    DirCreate(@ScriptDir & "\auswahlliste")

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

    MsgBox(0,"Kopiervorgang startet", "Kopiervorgang startet. Bitte haben Sie ein wenig Geduld.")
    For $iIndex = 0 To _GUICtrlListView_GetItemCount($listview) ;nacheinander die listenitems aufrufen
    If _GUICtrlListView_GetItemChecked($listview, $iIndex) Or _GUICtrlListView_GetItemSelected($listview, $iIndex) Then ;wenn angehakt,dann kopieren
    $titel = _GUICtrlListView_GetItem($listview, $iIndex, 1) ;schau mal in die Hilfe....
    $pfad = _GUICtrlListView_GetItem($listview, $iIndex, 8) ;schau mal in die Hilfe....
    ;_arraydisplay($titel)
    FileCopy($pfad[3], @ScriptDir & "\auswahlliste\" & $titel[3] & ".mp3")
    ;MsgBox(0, "Kopieren: " & $titel[3], $pfad[3])

    EndIf
    Next
    MsgBox(0,"Kopiervorgang erfolgreich", "Kopiervorgang erfolgreich.")
    EndFunc ;==>_kopieren

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

    Func List1Click()
    _GUICtrlListView_SortItems(GUICtrlGetHandle($listview), GUICtrlGetState($listview))
    EndFunc ;==>List1Click

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

    Func _bearbeiten()
    _GUICtrlListView_BeginUpdate($listview)
    _GUICtrlListView_EndUpdate($listview)
    EndFunc ;==>_bearbeiten

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

    ;deaktiviert
    #cs
    Func _delete() ;zeilen in der liste löschen
    If MsgBox(262144 + 32 + 4, "", "Markierte bzw. angehakte Zeilen aus der Liste löschen? ") = 6 Then
    _GUICtrlListView_DeleteItemsSelected(GUICtrlGetHandle($listview))
    EndIf
    EndFunc ;==>_delete
    #ce

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

    Func _GUIClose()
    _GUICtrlListView_UnRegisterSortCallBack($listview)
    Exit
    EndFunc ;==>_GUIClose

    [/autoit]