Beiträge von philipp

  • Keybinder

    Zitat von Kanashius


    1. MsgBox(64, "Erfolgreich geladet!", "Sie haben erfoglreich geladet.")
    MsgBox(64, "Erfolgreich geladen!", "Sie haben erfoglreich geladen.")
    Manche legen auf Sprache Wert ;D


    Haha und immer noch ein Fehler drin:D
    erfolgreich nicht erfoglreich

  • ClipSelector

    Nachdem ich - wenn ich Texte schreibe oder Programmiere oder sonst irgendwas am Computer mache - oft STRG + C und STRG + V verwende und dauernd andere Sachen kopiere aber dann wieder auf die alten zurückspringen will dachte ich mir ich mach eine Art aufzeichnungsprogramm des Clips. Wenn ich dann STRG + C drück kann ich auswählen welchen Clip ich in meiner Zwischenablage haben will (der aktuelle Clip wird selbstverständlich als erster markiert!).

    Hier der Code:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <GuiListBox.au3>
    #include <Misc.au3>
    #include <File.au3>

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

    $ini = @MyDocumentsDir & "\_ClipSelector.ini"
    While 1
    If _IsPressed("11") And _IsPressed("12") And _IsPressed("43") Then
    Send("^c")
    ElseIf _IsPressed("11") And _IsPressed("43") Then
    _ClipSelector()
    EndIf
    WEnd

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

    Func _ClipSelector()
    $count = IniReadSection($ini, "clips")
    If IsArray($count) Then
    If IniRead($ini, "clips", $count[0][0], "") <> ClipGet() Then IniWrite($ini, "clips", $count[0][0]+1, StringRegExpReplace(ClipGet(), @CRLF, "<br>"))
    Else
    If IniRead($ini, "clips", 1, "") <> ClipGet() Then IniWrite($ini, "clips", 1, StringRegExpReplace(ClipGet(), @CRLF, "<br>"))
    EndIf
    GUICreate("ClipSelector", 340, 190, @DesktopWidth-340, 0, $WS_POPUPWINDOW)
    GUISetFont(11, 400, 1, "Century Gothic")
    $list = GUICtrlCreateList("", -3, -3, 346, 220, $LBS_EXTENDEDSEL)
    GUISetState()

    _GUICtrlListBox_BeginUpdate($list)
    $count = IniReadSection($ini, "clips")
    For $i = $count[0][0] To 1 Step -1
    _GUICtrlListBox_AddString($list, IniRead($ini, "clips", $i, ""))
    Next
    _GUICtrlListBox_EndUpdate($list)
    _GUICtrlListBox_SetSel($list, 0)

    WinSetOnTop("ClipSelector", "", 1)
    WinActivate("ClipSelector")

    While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then
    GUIDelete()
    ExitLoop
    ElseIf _IsPressed("0D") And WinGetTitle("") = "ClipSelector" Then
    $sel = _GUICtrlListBox_GetSelItemsText($list)
    ClipPut(StringRegExpReplace($sel[1], "<br>", @CRLF))
    GUIDelete()
    ExitLoop
    EndIf
    WEnd
    EndFunc

    [/autoit]

  • ListView

    Also sowas wie in einem Kalender wenn ein tag noch frei ist dann grün ansonsten rot, sowas?

    Hab hier einen Code aus dem Englischen Forum der dir weiterhelfen wird:

    Spoiler anzeigen
    [autoit]

    #include <GuiConstants.au3>
    #include <GuiListView.au3>
    #include <String.au3>
    #include <WindowsConstants.au3>
    #include <ColorConstants.au3>

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

    Opt("GUICloseOnESC", 0) ; ESC does not close GUI
    Opt("GUIOnEventMode", 1) ; Change to OnEvent mode
    Opt('MustDeclareVars', 1)
    OnAutoItExitRegister("Event_GUIClose")
    Opt("GUIEventOptions", 1) ;0=default, 1=just notification, 2=GuiCtrlRead tab index

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

    Global $mainWin_hWnd, $listView_hWnd, $listView_ID, $colorButton_hWnd, $colorButton_ID
    Global $aMasterList[6], $aColors[4]

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

    _Main()
    ExitStageLeft(0)

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

    ;;;;;;;;;;;;;;;;;;;;;;;;;;
    ; _Main() - Main function
    ;;;;;;;;;;;;;;;;;;;;;;;;;;
    Func _Main()

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

    createMainWin()
    createListView()
    createColorButton()
    createMasterList()
    setupColorsArray()

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

    GUISetOnEvent($GUI_EVENT_CLOSE, "Event_GUIClose")
    GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
    GUICtrlSetOnEvent($colorButton_ID, "handle_Color_btn")

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

    GUISetState()

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

    loadListView() ; importand to do this after registering WM_NOTIFY events

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

    While 1
    Sleep(500)
    WEnd

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

    EndFunc ;==>_Main

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

    Func ExitStageLeft($ret)
    Exit ($ret)
    EndFunc ;==>ExitStageLeft

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

    Func Event_GUIClose()
    ExitStageLeft(1)
    EndFunc ;==>Event_GUIClose

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

    Func createMainWin()
    $mainWin_hWnd = GUICreate("Test2", 250, 200, -1, -1, BitOR($WS_CAPTION, $WS_SIZEBOX))
    ConsoleWrite("+++: $mainWin_hWnd = " & $mainWin_hWnd & @CRLF)
    if ($mainWin_hWnd == 0) Then exit (1)
    EndFunc ;==>createMainWin

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

    Func createListView()
    $listView_ID = GUICtrlCreateListView("", 10, 10, 230, 160, $LVS_REPORT)
    $listView_hWnd = GUICtrlGetHandle($listView_ID)

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

    _GUICtrlListView_InsertColumn($listView_hWnd, 0, "Color#+Name", 120)
    _GUICtrlListView_InsertColumn($listView_hWnd, 1, "Ax", 50)
    _GUICtrlListView_InsertColumn($listView_hWnd, 2, "Bx", 50)
    EndFunc ;==>createListView

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

    Func createColorButton()
    $colorButton_ID = GUICtrlCreateButton("Bump row 3's color", 10, 170, 100, 30)
    $colorButton_hWnd = GUICtrlGetHandle($colorButton_ID)
    EndFunc ;==>createColorButton

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

    Func createMasterList()
    $aMasterList[0] = "Name1|A1|B1~0"
    $aMasterList[1] = "Name2|A2|B2~1"
    $aMasterList[2] = "Name3|A3|B3~2"
    $aMasterList[3] = "Name4|A4|B4~0"
    $aMasterList[4] = "Name5|A5|B5~1"
    $aMasterList[5] = "Name6|A6|B6~2"
    EndFunc ;==>createMasterList

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

    Func loadListView()
    Local $item, $parts, $colornum, $str, $iIndex, $hWnd
    $hWnd = $listView_hWnd

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

    _GUICtrlListView_DeleteAllItems($hWnd)

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

    _GUICtrlListView_BeginUpdate($hWnd)

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

    For $item In $aMasterList
    $parts = StringSplit($item, "~") ; split the item from the colornum
    $item = $parts[1]
    $colornum = $parts[2]

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

    $parts = StringSplit($item, "|") ; break up the item into parts
    $str = StringFormat("(%d) ", $colornum) & $parts[1] ; prefix with the colornum
    $iIndex = _GUICtrlListView_AddItem($hWnd, $str, -1, $colornum)
    _GUICtrlListView_AddSubItem($hWnd, $iIndex, $parts[2], 1)
    _GUICtrlListView_AddSubItem($hWnd, $iIndex, $parts[3], 2)
    Next

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

    _GUICtrlListView_EndUpdate($hWnd)
    EndFunc ;==>loadListView

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

    Func setupColorsArray()
    $aColors[0] = RGB2BGR($COLOR_BLACK) ; 0x000000 - Normal
    $aColors[1] = RGB2BGR($COLOR_RED) ; 0xFF0000 - Secure
    $aColors[2] = RGB2BGR($COLOR_BLUE) ; 0x0000FF - CNS
    $aColors[3] = RGB2BGR($COLOR_YELLOW) ; 0xFFFF00 - Other
    EndFunc ;==>setupColorsArray

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

    Func RGB2BGR($iColor)
    Local $sH = Hex($iColor, 6)
    Return '0x' & StringRight($sH, 2) & StringMid($sH, 3, 2) & StringLeft($sH, 2)
    EndFunc ;==>RGB2BGR

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

    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    ; WM_NOTIFY(0 - Handle the WM_NOTIFY event
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
    #forceref $hWnd, $iMsg, $iwParam, $ilParam
    Local $hWndFrom, $iCode, $tNMHDR
    $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
    $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
    $iCode = DllStructGetData($tNMHDR, "Code")
    Switch $hWndFrom
    Case $listView_hWnd
    Switch $iCode
    Case $NM_CUSTOMDRAW
    Local $iDrawStage, $tCustDraw
    $tCustDraw = DllStructCreate($tagNMLVCUSTOMDRAW, $ilParam)
    $iDrawStage = DllStructGetData($tCustDraw, 'dwDrawStage')
    Switch $iDrawStage
    Case $CDDS_ITEMPREPAINT ; 0x00010001
    setItemColor($tCustDraw, $hWndFrom)
    Return $CDRF_NOTIFYSUBITEMDRAW
    EndSwitch
    EndSwitch
    EndSwitch

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

    Return $GUI_RUNDEFMSG
    EndFunc ;==>WM_NOTIFY

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

    Func setItemColor($tCustDraw, $hWnd)
    Local $iIndex, $color, $colornum

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

    $iIndex = DllStructGetData($tCustDraw, 'dwItemSpec')
    $colornum = _GUICtrlListView_GetItemParam($hWnd, $iIndex)
    $color = $aColors[$colornum]

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

    DllStructSetData($tCustDraw, 'clrText', $color)
    EndFunc ;==>setItemColor

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

    Func handle_Color_btn()
    Local $item, $parts

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

    $item = $aMasterList[2]
    $parts = StringSplit($item, "~") ; split the item from the colornum
    $parts[2] += 1
    $parts[2] = Mod($parts[2], 4)
    $item = $parts[1] & "~" & $parts[2]
    $aMasterList[2] = $item
    loadListView()
    EndFunc ;==>handle_Color_btn

    [/autoit]

  • AutoIT/Script Hilfe benötigt

    Also mal von Anfang an:D

    Du öffnest dein schönes AutoIt Window Info Tool.
    Dann ziehst du dieses Zieldings AUF den Button in deinem Fenster.
    Dann wählst du unten 'Summary' aus.
    Dann scrollst du runter bis zum '>>>>Control<<<<'.
    Dann suchst du die ID und die ControlClick Coords.
    Dann öffnest du SciTe und schreibst rein:

    [autoit]

    Sleep(6000)
    Run("C:\Program Files\NVIDIA Corporation\Control Panel Client\nvcplui.exe")
    WinWaitActive("NVIDIA Control Panel")
    ControlClick("NVIDIA Control Panel", "", [Die ID die in der Window Info steht], "left", 1, [Die erste Zahl der ControlClick Coords], [Die zweite Zahl der ControlClick Coords])

    [/autoit]


    Die eckigen Klammern müssen natürlich weg, alsi jetzt nicht "[1021]" oder sowas hinschreiben sondern nur die Zahlen!

  • _StringEncrypt() und _StringDecrypt() funktionieren nicht, weil es sie nicht gibt?!

    Zitat von KriZza

    Den Fehler schmeißt der bei _StringDecrypt() raus oder?

    ..

    Du brauchst nur _StringEncrypt(). Der erste Parameter ist wichtig: 1 zum verschlüsseln, 0 zum entschlüsseln.


    Nene die anderen hatten schon Recht es liegt daran, dass es in der 'neuen' Version von AutoIt nicht mehr mit drin ist hab ich um halb 2 auch auf AutoItScript.com oder so gelesen da steht des alles. Ich weiß nich aber mit der Crypt.au3 komm ich nicht wirklich zurecht, hat sich immer alles aufgehängt als ich es benutzt hab also hab ich mir die alte String.au3 wieder beschafft und die Funktion in des mit reingehaun, weil ich die Funktion einfach leichter finde *lol*. Hatte heute nacht einfach keinen Bock mehr hier reinzuschreiben sorry. Und mir _StringDecrypt() meinte ich natürlich _StringEncrypt(0, ...).. Tut mir leid. Also danke trotzdem allen, ich fand es nur etwas seltsam zu glauben dass die funktion rausgenommen wurde!!

  • _StringEncrypt() und _StringDecrypt() funktionieren nicht, weil es sie nicht gibt?!

    Hallo,

    also als ich heute versucht hab die _StringEncrypt() Funktion zu verwenden kam aufeinmal der Fehler 'Unknown funktion name', nichts allzu ungewöhnliches, hab halt vergessen zu #includen. Dann schnell den #include <String.au3> hinzugefügt, ausgeführt aber es kam wieder der gleiche Fehler. Danach hab ich in der String.au3 nachgeschaut und es gab die Funktion wirklich nichtmehr!!!!??? Wieso? kann mir jemand helfen?

    _Crypt_EncryptData() ist mir übrigens zu langsam!

    Lg Phil-IT

  • AutoIT/Script Hilfe benötigt

    Nimm doch zum klicken einfach MouseClick("left", xPos, yPos), ich kenn jetzt nicht alle deine Positionen aber die kannst du ja mit der AutoIt WinInfo rausfinden!

    [autoit]

    Sleep(6000)
    Run ("C:\Program Files\NVIDIA Corporation\Control Panel Client\nvcplui.exe")
    WinWaitActive ("NVIDIA Control Panel")
    MouseClick("left", 45, 225)
    WinClose ("NVIDIA Control Panel")

    [/autoit]

  • SMTP E-Mail Funktion funktioniert nicht!

    Ich habs nochmal von meiner GMX Mail mit SSL versucht - mit Port 465 - sowie auch mit meiner Yahoo Mail mit SSL - und Port 465 - aber keins von beidem hat funktioniert. Ich hab keine Ahnung woran das liegen kann..
    OMG?! Sieht das wirklich keiner? OMG??? mir fällt es genau jetzt auf wo ich mir mein Script nochmal Zeile für Zeile anschau:

    Es fehlt ganz einfach der Aufruf der Funktion?!?!?!?! OMG.________. Tut mir leid! Danke tdm für die Hilfe mit der SSL, hab ich davor zwar auch schon alles versucht aber ohne Aufruf bring die Funktion gar nix!:D