Beiträge von funkey

  • Progress färben

    Geht doch genau so wie du es schon hast!? Hab nur di eKoordinaten etwas angepasst, damit man was sieht.

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 520, 80, 291, 125)
    $Progress1 = GUICtrlCreateProgress(10, 10, 500, 20)
    GUICtrlSetColor($Progress1, 0xFF0000)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    For $p = 1 To 100 Step 1
    Sleep(10)
    GUICtrlSetData($Progress1, $p)
    Next
    Exit

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

    While 1
    Sleep(9)
    WEnd

    [/autoit]


    Edit:
    Oder so :P

    Spoiler anzeigen
    [autoit]

    $Form1 = GUICreate("Form1", 520, 80, 291, 125)
    $Progress1 = GUICtrlCreateProgress(10, 10, 500, 20)
    GUISetState(@SW_SHOW)

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

    For $p = 1 To 100 Step 1
    Sleep(50)
    GUICtrlSetData($Progress1, $p)
    If Not Mod($p, 10) Then GUICtrlSetColor($Progress1, Random(0, 16777215, 1))
    Next

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

  • Instance

    Das Bild zeigt aber nicht die Details des Controls ;)

    Du kannst die Controls auch über ihre Position bestimmen.

    [autoit]

    ControlClick('Titel', 'Text', '[X:252; Y:86]')

    [/autoit]

  • Dauereinstellungen für Steuerelemente

    Zur ersten Zeile

    [autoit]

    Opt("GUIResizeMode", $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)

    [/autoit]


    Ausnahmen dann wieder mit GUICtrlSetResizing.


    Zur zweiten Zeile: ? Gui_Show ? Die werden doch sowieso angezeigt, mit oder ohne diesen Befeh, also brauchst du diesen Befehl doch nicht, oder? Ansonsten kannst du es über eine Schleife machen mit den Koordinaten z.B. in einem Array.

  • RUN() Errorcode auslesen

    So z.B.:

    Spoiler anzeigen
    [autoit]

    $Programm = 'echo Hallo Autoit.de'
    $Programm = 'dir "C:\"'

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

    Run(@AutoItExe & ' /AutoIt3ExecuteLine "RegWrite(''HKEY_CURRENT_USER\Environment'', ''ERRORL'', ''REG_EXPAND_SZ'', RunWait(@ComSpec & '' /c '' & ''' & $Programm & '''))"')

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

    Do
    $Errorlevel = RegRead('HKEY_CURRENT_USER\Environment', 'ERRORL')
    Sleep(100)
    Until $Errorlevel <> ''

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

    RegDelete('HKEY_CURRENT_USER\Environment', 'ERRORL')
    MsgBox(0,"Errorlevel", $Errorlevel)

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

  • Text in Input einer Website schreiben

    Prinzipiell so:

    Spoiler anzeigen
    [autoit]

    #include <IE.au3>

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

    $url = 'http://www....'

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

    $id = InputBox ($url, "Benutzernamen eingeben")
    If $id = "" Then Exit
    $pw = InputBox ($url, "Passwort eingeben", "", "*")
    If $pw = "" Then Exit

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

    $oIE = _IECreate($url, 0, 1)

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

    $oform = _IEFormGetObjByName($oIE, "loginform")
    $oname = _IEFormElementGetObjByName($oform , "user")
    $opasswd = _IEFormElementGetObjByName($oform , "pass")
    $setname = _IEFormElementSetValue($oname, $id)
    $setpasswd = _IEFormElementSetValue($opasswd, $pw)
    _IEFormSubmit($oform)

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

    Du musst nur die Url, den Formnamen und die Elementnamen kennen ;)

    Die erhälst du z.B. so (Ausgabe in Scite-Console):

    Spoiler anzeigen
    [autoit]

    #include <IE.au3>

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

    $Url = 'www.autoit.de'
    $oIE = _IECreate ($Url)

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

    $oForms = _IEFormGetCollection ($oIE)
    If @error Then
    MsgBox(0, '', 'Keine Formen enthalten')
    Else
    $Index = 0
    For $oForm In $oForms
    ConsoleWrite('Form-Index: ' & $Index & ' / Name: ' & $oForm.Name & @CRLF)
    $oFormElements = _IEFormElementGetCollection($oForm)
    If IsObj($oFormElements) Then
    $IndexElement = 0
    For $oElement In $oFormElements
    ConsoleWrite('Form: ' & $Index & ' /Element: ' & $IndexElement & ' /Name: ' & $oElement.Name & @CRLF)
    $IndexElement += 1
    Next
    EndIf
    $Index += 1
    Next
    EndIf

    [/autoit]

  • Screenshot von Markierung machen

    Sorry, hab dass mit dem Zwischenspeicher überlesen :P

    Spoiler anzeigen
    [autoit]

    #include <Constants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <ScreenCapture.au3>
    #Include <Clipboard.au3>

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

    Opt("GUIOnEventMode", 1)

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

    Global $xStart = 0, $yStart = 0, $xStopp = 0, $yStopp = 0
    Global $title = 'Screenshot markieren'
    If Not IsDeclared("SM_VIRTUALWIDTH") Then Global Const $SM_VIRTUALWIDTH = 78
    If Not IsDeclared("SM_VIRTUALHEIGHT") Then Global Const $SM_VIRTUALHEIGHT = 79
    Global $VirtualDesktopWidth = DllCall("user32.dll", "int", "GetSystemMetrics", "int", $SM_VIRTUALWIDTH)
    $VirtualDesktopWidth = $VirtualDesktopWidth[0]
    Global $VirtualDesktopHeight = DllCall("user32.dll", "int", "GetSystemMetrics", "int", $SM_VIRTUALHEIGHT)
    $VirtualDesktopHeight = $VirtualDesktopHeight[0]

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

    GUICreate($title, $VirtualDesktopWidth, $VirtualDesktopHeight, 0, 0, $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
    GUIRegisterMsg(0x0201, '_WM_LBUTTONDOWN') ;$WM_LBUTTONDOWN
    GUIRegisterMsg(0x0202, '_WM_LBUTTONUP') ;$WM_LBUTTONUP
    ;~ GUIRegisterMsg(0x0204, '_WM_RBUTTONDOWN') ;$WM_RBUTTONDOWN

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

    WinSetTrans($title, "", 30)

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

    Global $hGraphic = GUICtrlCreateGraphic(0, 0, $VirtualDesktopWidth, $VirtualDesktopHeight)
    GUICtrlSetBkColor(-1, 0xffffff)
    GUICtrlSetState(-1, $GUI_DISABLE)
    GUICtrlSetGraphic(-1, $GUI_GR_PENSIZE, 2)

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

    GUISetState()
    HotKeySet('{F8}', '_Make_Screenshot')
    HotKeySet('{ESC}', '_quit')

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

    While 1
    Sleep(100000)
    WEnd

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

    Func _quit()
    Exit
    EndFunc ;==>_quit

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

    Func _WM_LBUTTONDOWN($hWnd, $msg, $wParam, $lParam)
    Local $fwKeys = $wParam, $xPos = BitAND($lParam, 0xFFFF), $yPos = BitShift($lParam, 16)
    GUICtrlSetGraphic($hGraphic, $GUI_GR_COLOR, 0xffffff)
    GUICtrlSetGraphic($hGraphic, $GUI_GR_RECT, $xStart, $yStart, $xStopp - $xStart, $yStopp - $yStart)
    ;~ GUICtrlSetGraphic($hGraphic, $GUI_GR_REFRESH)
    $xStart = $xPos
    $yStart = $yPos
    Return $GUI_RUNDEFMSG
    EndFunc ;==>_WM_LBUTTONDOWN

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

    Func _WM_LBUTTONUP($hWnd, $msg, $wParam, $lParam)
    Local $fwKeys = $wParam, $xPos = BitAND($lParam, 0xFFFF), $yPos = BitShift($lParam, 16)
    $xStopp = $xPos
    $yStopp = $yPos
    GUICtrlSetGraphic($hGraphic, $GUI_GR_COLOR, 0x0)
    GUICtrlSetGraphic($hGraphic, $GUI_GR_RECT, $xStart, $yStart, $xStopp - $xStart, $yStopp - $yStart)
    GUICtrlSetGraphic($hGraphic, $GUI_GR_REFRESH)
    Return $GUI_RUNDEFMSG
    EndFunc ;==>_WM_LBUTTONUP

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

    Func _Make_Screenshot()
    Local $x1, $x2, $y1, $y2, $hBitmap
    Select
    Case $xStart < $xStopp
    $x1 = $xStart
    $x2 = $xStopp
    Case $xStart > $xStopp
    $x1 = $xStopp
    $x2 = $xStart
    EndSelect
    Select
    Case $yStart < $yStopp
    $y1 = $yStart
    $y2 = $yStopp
    Case $yStart > $yStopp
    $y1 = $yStopp
    $y2 = $yStart
    EndSelect
    If $x1 > 0 And $x2 > 0 And $y1 > 0 And $y2 > 0 Then
    $hBitmap = _ScreenCapture_Capture("", $x1, $y1, $x2, $y2, False)
    _ClipBoard_SetData($hBitmap, $CF_BITMAP)
    Exit
    EndIf
    EndFunc ;==>_Make_Screenshot

    [/autoit]

  • Dec Zahl nach Hex Zahl umwalden

    Spoiler anzeigen
    [autoit]

    $result = Hex(14)
    MsgBox(0, "", " Hexzahl " & $result) ; Funktioniert. Gibst 0x0000000E aus
    $result2 = BitOR('0x' & $result, 0x00000001)
    MsgBox(0, "", " Hexzahl2 " & Hex($result2)); Funktioniert nicht. gibt 1 aus

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

    $result = 14
    MsgBox(0, "", " Zahl " & $result) ; Funktioniert. Gibst 0x0000000E aus
    $result2 = $result + 0x00000001
    MsgBox(0, "", " Hexzahl2 " & Hex($result2)); Funktioniert nicht. gibt 1 aus

    [/autoit]