Beiträge von Jam00

  • frage zu GUICtrlCreateTabItem

    autoBert
    Sehe ich ganu so^^

    Spoiler anzeigen
    [autoit]

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

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 633, 452, 193, 125)
    $Tab1 = GUICtrlCreateTab(16, 48, 593, 385,$TCS_MULTILINE)
    For $1 = 1 To 18
    GUICtrlCreateTabItem("TabSheet" & $1)
    Next
    GUICtrlCreateTabItem("")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

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

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

    EndSwitch
    WEnd

    [/autoit]

  • TreeView Transparent

    autoBert
    Nein das habe ich nicht Probiert! Guck dir doch mal an was ich gemacht habe! Das habe ich Probiet! Ich habe nur den Falschen Style ausprobiert, deswegen brauchte ich trozdem noch _Move() was ChaosKeks dann behoben hat

  • Eigenen kleinen Explorer

    Wenn du die Datein und Ortner nicht auf der Platte speichern willst musst du sie wohl in einer ini speicher, also die namen
    Und dann wenn man ortner doppelt anklickt alle Items löschen die gerade in der ListView sind und die Orter aus der Ini Erstellen

  • TreeView Transparent

    Tschuldigung für den Doppel-Post, aber ich hab es geschafft! Meine Eigene Kreation:

    Spoiler anzeigen
    [autoit]

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

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 237, 447, 193, 125)
    GUICtrlCreatePic (@ScriptDir & "\bg1.jpg",0,0,237,447)
    GUISetState(@SW_SHOW)
    $PosOld = WinGetPos ($Form1)
    $hWnd = GUICreate("Form1", 237, 417, 193, 125+29,$WS_POPUP,$WS_EX_LAYERED,$Form1)
    GUISetBkColor(0xFFFFFF)
    $TreeView1 = GUICtrlCreateTreeView(8, 8, 217, 433)
    GUICtrlSetColor (-1,0xFF0000)
    $TreeView1_0 = GUICtrlCreateTreeViewItem("test", $TreeView1)
    $TreeView1_1 = GUICtrlCreateTreeViewItem("test", $TreeView1_0)
    $TreeView1_2 = GUICtrlCreateTreeViewItem("test", $TreeView1_1)
    $TreeView1_3 = GUICtrlCreateTreeViewItem("test1", $TreeView1)
    $TreeView1_4 = GUICtrlCreateTreeViewItem("Test", $TreeView1_3)
    $TreeView1_5 = GUICtrlCreateTreeViewItem("Test", $TreeView1_3)
    $TreeView1_6 = GUICtrlCreateTreeViewItem("test2", $TreeView1)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    GUIRegisterMsg($WM_MOVE, "_Move")
    DllCall("user32.dll", "int", "SetLayeredWindowAttributes", "hwnd", $hWnd, "long", 0xFFFFFF, "byte", 255, "long",True)
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

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

    EndSwitch
    WEnd
    Func _Move()
    $Pos = WinGetPos ($Form1)
    If $Pos[0] <> $PosOld[0] Or $Pos[1] <> $PosOld[1] Then
    $PosOld = WinGetPos ($Form1)
    WinMove ($hWnd,"",$Pos[0],$Pos[1]+29)
    EndIf
    EndFunc

    [/autoit]

  • Old-Style programmieren

    Ich habe es so gemacht:

    Spoiler anzeigen
    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Compression=4
    #AutoIt3Wrapper_Res_Description=Eigene veränderliche Titelleiste
    #AutoIt3Wrapper_Res_Fileversion=1.0.0.0
    #AutoIt3Wrapper_Res_LegalCopyright=funkey
    #AutoIt3Wrapper_Res_Language=3079
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <Color.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    Opt("GUIOnEventMode", 1)

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

    Global $start
    Global $n = 0
    Global $MousePos = True
    Global $pos
    Global $clickspeed = RegRead("HKEY_CURRENT_USER\Control Panel\Mouse", "DoubleClickSpeed")

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

    Const $WS_EX_COMPOSITED = 0x2000000
    Global $title = "Hallo Autoit.de ;-)"
    Global $hGui = GUICreate($title, 400, 500, -1, -1, BitOR($WS_POPUP, $WS_DLGFRAME, $WS_SIZEBOX), $WS_EX_COMPOSITED)
    ;~ GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
    ;~ GUISetOnEvent($GUI_EVENT_RESTORE, "_Restore")
    GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, '_PRIMARYdown')
    GUISetOnEvent($GUI_EVENT_PRIMARYUP, '_PRIMARYup')
    GUISetIcon("shell32.dll", 42)
    GUICtrlCreateIcon("shell32.dll", 42, 2, 2, 16, 16, 0x0300)
    GUICtrlSetResizing(-1, 256 + 512 + 32 + 2)

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

    Global $Btn_Min = GUICtrlCreateButton('0', 348, 3, 16, 15) ; _
    ;~ GUICtrlSetOnEvent(-1, '_Minimize')
    GUICtrlSetResizing(-1, 256 + 512 + 32 + 4)
    GUICtrlSetTip(-1, 'Minimieren')
    GUICtrlSetFont(-1, 8, 0, 0, 'Marlett')

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

    Global $Btn_Max = GUICtrlCreateButton('1', 364, 3, 16, 15) ;
    ;~ GUICtrlSetOnEvent(-1, '_Maximize')
    GUICtrlSetResizing(-1, 256 + 512 + 32 + 4)
    GUICtrlSetTip(-1, 'Maximieren')
    GUICtrlSetFont(-1, 8, 0, 0, 'Marlett')

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

    Global $Btn_Restore = GUICtrlCreateButton('2', 364, 3, 16, 15) ;
    ;~ GUICtrlSetOnEvent(-1, '_Restore')
    GUICtrlSetResizing(-1, 256 + 512 + 32 + 4)
    GUICtrlSetTip(-1, 'Verkleinern')
    GUICtrlSetFont(-1, 8, 0, 0, 'Marlett')
    GUICtrlSetState(-1, $GUI_HIDE)

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

    Global $Btn_Close = GUICtrlCreateButton('r', 382, 3, 16, 15) ; x
    ;~ GUICtrlSetOnEvent(-1, '_Exit')
    GUICtrlSetResizing(-1, 256 + 512 + 32 + 4)
    GUICtrlSetTip(-1, 'Schließen')
    GUICtrlSetFont(-1, 8, 0, 0, 'Marlett')

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

    Global $Lbl_Caption = GUICtrlCreateLabel(" " & $title, 0, 0, 400, 20, 0x4000200, 0x00000020)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetResizing(-1, 512)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetFont(-1, 9, 551, 0);, 'MS Sans Serif')

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

    Global $hChild = GUICreate('Child', 3200, 20, 0, 0, $WS_CHILD, -1, $hGui)
    Global $Ctrl_Grafik = _CreateColorTransition(0, 0, 3200, 20, 0xFF0000, 0x0B6295, 1, 4)
    GUISetState()
    GUISwitch($hGui)

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

    GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")

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

    GUISetState()

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

    AdlibEnable('_RotateCaption', 350)

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

    While 1
    Sleep(20000)
    WEnd

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

    Func _RotateCaption()
    Local $aPosC = WinGetPos($hChild), $aPosG = WinGetPos($hGui)
    If $aPosC[0] - $aPosG[0] <= -1600 Then
    WinMove($hChild, '', -20, 0)
    Else
    WinMove($hChild, '', $aPosC[0] - $aPosG[0] - 20, 0)
    EndIf
    EndFunc ;==>_RotateCaption

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

    Func _Minimize()
    GUISetState(@SW_MINIMIZE)
    EndFunc ;==>_Minimize

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

    Func _Maximize()
    GUISetState(@SW_MAXIMIZE)
    GUICtrlSetState($Btn_Max, $GUI_HIDE)
    GUICtrlSetState($Btn_Restore, $GUI_SHOW)
    EndFunc ;==>_Maximize

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

    Func _Restore()
    GUISetState(@SW_RESTORE)
    GUICtrlSetState($Btn_Restore, $GUI_HIDE)
    GUICtrlSetState($Btn_Max, $GUI_SHOW)
    EndFunc ;==>_Restore

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

    Func _Exit()
    Exit
    EndFunc ;==>_Exit

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

    Func WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
    Local $nNotifyCode = BitShift($wParam, 16)
    Local $nID = BitAND($wParam, 0x0000FFFF)
    Local $hCtrl = $lParam
    Switch $nID
    Case $Btn_Min
    If $nNotifyCode = 0 Then
    GUICtrlSetState($Lbl_Caption, $GUI_FOCUS)
    _Minimize()
    EndIf
    Case $Btn_Max
    If $nNotifyCode = 0 Then
    GUICtrlSetState($Lbl_Caption, $GUI_FOCUS)
    _Maximize()
    EndIf
    Case $Btn_Restore
    If $nNotifyCode = 0 Then
    GUICtrlSetState($Lbl_Caption, $GUI_FOCUS)
    _Restore()
    EndIf
    Case $Btn_Close
    If $nNotifyCode = 0 Then
    GUICtrlSetState($Lbl_Caption, $GUI_FOCUS)
    _Exit()
    EndIf
    EndSwitch
    EndFunc ;==>WM_COMMAND

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

    Func _CreateColorTransition($iPosx, $iPosy, $iWidth, $iHeight, $nColorStart, $nColorEnd, $iAlignment = 0, $iWaveFaktor = 1)
    ; funkey
    Local $startRot, $startGruen, $startBlau, $endRot, $endGruen, $endBlau, $Color
    Local $ColorOffsetRot, $ColorOffsetGruen, $ColorOffsetBlau, $Grafik
    $startRot = _ColorGetRed($nColorStart)
    $startGruen = _ColorGetGreen($nColorStart)
    $startBlau = _ColorGetBlue($nColorStart)
    $endRot = _ColorGetRed($nColorEnd)
    $endGruen = _ColorGetGreen($nColorEnd)
    $endBlau = _ColorGetBlue($nColorEnd)
    $Grafik = GUICtrlCreateGraphic($iPosx, $iPosy, $iWidth, $iHeight, 0)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $iHeight += $iWaveFaktor - Mod($iHeight, $iWaveFaktor)
    Switch $iAlignment
    Case 0
    $ColorOffsetRot = ($endRot - $startRot) / ($iHeight / $iWaveFaktor)
    $ColorOffsetGruen = ($endGruen - $startGruen) / ($iHeight / $iWaveFaktor)
    $ColorOffsetBlau = ($endBlau - $startBlau) / ($iHeight / $iWaveFaktor)
    Switch Mod($iWaveFaktor, 2)
    Case 0
    For $w = 1 To $iWaveFaktor - 1 Step 2
    For $i = ($w - 1) * ($iHeight / $iWaveFaktor) To ($w) * ($iHeight / $iWaveFaktor) - 1
    $Color = '0x' & Hex($startRot + $ColorOffsetRot * ($i + 1 - (($w - 1) * $iHeight / $iWaveFaktor)), 2) & _
    Hex($startGruen + $ColorOffsetGruen * ($i + 1 - (($w - 1) * $iHeight / $iWaveFaktor)), 2) & _
    Hex($startBlau + $ColorOffsetBlau * ($i + 1 - (($w - 1) * $iHeight / $iWaveFaktor)), 2)
    GUICtrlSetGraphic(-1, $GUI_GR_COLOR, $Color)
    GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 0, $i)
    GUICtrlSetGraphic(-1, $GUI_GR_LINE, $iWidth, $i)
    Next
    For $i = $w * ($iHeight / $iWaveFaktor) To ($w + 1) * ($iHeight / $iWaveFaktor) - 1
    $Color = '0x' & Hex($endRot - $ColorOffsetRot * ($i - ($w * $iHeight / $iWaveFaktor) + 1), 2) & _
    Hex($endGruen - $ColorOffsetGruen * ($i - ($w * $iHeight / $iWaveFaktor) + 1), 2) & _
    Hex($endBlau - $ColorOffsetBlau * ($i - ($w * $iHeight / $iWaveFaktor) + 1), 2)
    GUICtrlSetGraphic(-1, $GUI_GR_COLOR, $Color)
    GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 0, $i)
    GUICtrlSetGraphic(-1, $GUI_GR_LINE, $iWidth, $i)
    Next
    Next
    Case 1
    For $i = 0 To $iHeight - 1
    $Color = '0x' & Hex($startRot + $ColorOffsetRot * ($i + 1), 2) & _
    Hex($startGruen + $ColorOffsetGruen * ($i + 1), 2) & _
    Hex($startBlau + $ColorOffsetBlau * ($i + 1), 2)
    GUICtrlSetGraphic(-1, $GUI_GR_COLOR, $Color)
    GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 0, $i)
    GUICtrlSetGraphic(-1, $GUI_GR_LINE, $iWidth, $i)
    Next
    EndSwitch
    Case Else
    $ColorOffsetRot = ($endRot - $startRot) / ($iWidth / $iWaveFaktor)
    $ColorOffsetGruen = ($endGruen - $startGruen) / ($iWidth / $iWaveFaktor)
    $ColorOffsetBlau = ($endBlau - $startBlau) / ($iWidth / $iWaveFaktor)
    Switch Mod($iWaveFaktor, 2)
    Case 0
    For $w = 1 To $iWaveFaktor - 1 Step 2
    For $i = ($w - 1) * ($iWidth / $iWaveFaktor) To ($w) * ($iWidth / $iWaveFaktor) - 1
    $Color = '0x' & Hex($startRot + $ColorOffsetRot * ($i + 1 - (($w - 1) * $iWidth / $iWaveFaktor)), 2) & _
    Hex($startGruen + $ColorOffsetGruen * ($i + 1 - (($w - 1) * $iWidth / $iWaveFaktor)), 2) & _
    Hex($startBlau + $ColorOffsetBlau * ($i + 1 - (($w - 1) * $iWidth / $iWaveFaktor)), 2)
    GUICtrlSetGraphic(-1, $GUI_GR_COLOR, $Color)
    GUICtrlSetGraphic(-1, $GUI_GR_MOVE, $i, 0)
    GUICtrlSetGraphic(-1, $GUI_GR_LINE, $i, $iHeight)
    Next
    For $i = $w * ($iWidth / $iWaveFaktor) To ($w + 1) * ($iWidth / $iWaveFaktor) - 1
    $Color = '0x' & Hex($endRot - $ColorOffsetRot * ($i - ($w * $iWidth / $iWaveFaktor) + 1), 2) & _
    Hex($endGruen - $ColorOffsetGruen * ($i - ($w * $iWidth / $iWaveFaktor) + 1), 2) & _
    Hex($endBlau - $ColorOffsetBlau * ($i - ($w * $iWidth / $iWaveFaktor) + 1), 2)
    GUICtrlSetGraphic(-1, $GUI_GR_COLOR, $Color)
    GUICtrlSetGraphic(-1, $GUI_GR_MOVE, $i, 0)
    GUICtrlSetGraphic(-1, $GUI_GR_LINE, $i, $iHeight)
    Next
    Next
    Case 1
    For $i = 0 To $iHeight - 1
    $Color = '0x' & Hex($startRot + $ColorOffsetRot * ($i + 1), 2) & _
    Hex($startGruen + $ColorOffsetGruen * ($i + 1), 2) & _
    Hex($startBlau + $ColorOffsetBlau * ($i + 1), 2)
    GUICtrlSetGraphic(-1, $GUI_GR_COLOR, $Color)
    GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 0, $i)
    GUICtrlSetGraphic(-1, $GUI_GR_LINE, $iWidth, $i)
    Next
    EndSwitch
    EndSwitch
    Return $Grafik
    EndFunc ;==>_CreateColorTransition
    Func _PRIMARYdown()

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

    $pos = MouseGetPos()
    Select
    Case _CheckCtrlDblClick($hGui, $Lbl_Caption)
    If GUICtrlGetState ($Btn_Max) = "80" Then
    _Maximize()
    Else
    _Restore()
    EndIf
    Case Else
    $MousePos = False
    EndSelect
    EndFunc ;==>_PRIMARYdown

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

    Func _PRIMARYup()
    If $MousePos Then
    If $n = 2 Then
    $n = 0
    Else
    $start = TimerInit()
    EndIf
    EndIf
    EndFunc ;==>_PRIMARYup

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

    Func _CheckCtrlDblClick($GUI, $CTRL)
    $Pos = GUIGetCursorInfo ($GUI)
    If $Pos[4] = $CTRL Then
    $n += 1
    $MousePos = True
    If $n = 2 And (TimerDiff($start) < $clickspeed) Then
    Return True
    Else
    $start = TimerInit()
    $n = 1
    EndIf
    EndIf
    EndFunc ;==>_CheckCtrlDblClick

    [/autoit]

    Habe das von BugFix noch ein bischen umgebaut, ich hoffe er ist mir nicht böse^^

  • Wir suchen beta tester

    @zodiak
    Die Tester stehen fest^^ Aber wenn es fertig ist Poste ich es ja für alle!

    Alzulange kann es nicht mehr dauern, muss nur noch ein bischen Bugs entfernen und Info und so hinzufügen und vieleicht schreib ich noch eine kleine Hilfe bzw. Infomationen

  • Skript wird als Virus erkannt

    Das ist komisch! Also Kaspersky hat mal ein Script von mir als KeyLogger erkannt, so wie es war war es zwar keiner aber man hätte ohne viel mühe es dazu umbauen können, aber sonst ist mir das noch nie Pasiert!

    Poste doch mal dein Script