Beiträge von nuts

  • Neuer Wettbewerb - Was haltet ihr davon ?

    Zitat von stayawayknight

    Ja, als Beispiel würde ich z.B. einen Gleichungslöser interessant finden


    Hm kommt auf die Gleichung an.
    Je nach Gleichung ist das per Skript schon nichtsmehr für Nichtmathematiker 8)


    Eine gemeinsame Basis braucht es ja nicht umbedingt.
    Dabei sein ist alles oder? ;)
    Auch "googel-Lösungen" sind gar nicht so einfach per Skript umzusetzen!
    Hab ich selbst bei der triangle intersection gemerkt. Dafür gibt es verschiedene Ansätze um das Problem per PC zu lösen, aber skripte das erstmal :whistling:

    Integralrechnung wäre glaube ich was zum skripten, aber ohne das Thema in der Schule behandelt zu haben kann man halt kaum mitmachen.

  • Com Objekt - Errormanagment möglich?

    Hey,

    beim arbeiten mit Objekten von Fremdprogrammen gibt es häufiger das Problem, dass mein Skript per autoit Fehlermeldung aussteigt.
    z.B. wenn das Fremdprogramm gar nicht läuft und somit das Objekt nicht erreichbar ist.

    Hier mal ein typischer Fall:

    Spoiler anzeigen
    [autoit][/autoit] [autoit][/autoit] [autoit]

    HotKeySet("{F1}", "_showdata")
    HotKeySet("{F2}", "_SetData")
    HotKeySet("{F3}", "_showosd")
    HotKeySet("{F4}", "_exit")

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

    Global $DVBViewer = ObjGet ("", "DVBViewerServer.DVBViewer")

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

    If $DVBViewer = 0 Then
    MsgBox (1, "", "Keine Verbindung zum DVBViewer möglich")
    exit
    EndIf

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

    while 1

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

    Sleep(1000)

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

    wend

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

    func _exit()
    Exit
    EndFunc

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

    func _showdata()
    local $epg=$DVBViewer.Datamanager.Value("#EPG.Channelnr")
    MsgBox(1, "", $epg)
    endfunc

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

    func _setdata()
    $DVBViewer.Datamanager.Value("#EPG.Channelnr")=18
    endfunc

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

    func _showosd()
    $DVBViewer.Datamanager.Value("#EPG.Channelnr")=18
    _showdata() ; -> 18
    $DVBViewer.WindowManager.ShowWindow(2) ; -> klappt
    _showdata() ; -> wieder der derzeit verwendete Sender
    endfunc

    [/autoit]


    Solange das Programm läuft funktionierts einwandfrei, aber ohne erreichbares Objekt steigt eben das Skript mit der Meldung:

    Code
    ==> The requested action with this object has failed.:


    aus.

    Kann ich das irgendwie verhindern, sodass man auf den Fehler im Skript reagieren kann?


    Gruß nuts

  • [Gelöst] Notebook Hardware Problem!

    Also der Proz. wird 65-70 °C warm?
    Wieso schaltet dann das Ding ab?
    Das sollte erst viel später passieren (ab ~85° Core-Temp. schätze ich mal)!

    Den CPU Kühler würde ich auch mal genauer untersuchen:
    Läuft der Lüfter an?
    Sitzt der Kühler richtig?
    Wärmeleitpaste richtig aufgetragen?

    Wenn das alles stimmt bleibt ja nur noch eine Überspannung vom Mainboard (vermutlich durch die Spannungswandler).
    Das wäre dann ein Totalschaden und dann sind die Anwälte dran.

  • Variable bis zu einem bestimmten Zeichen auslesen

    [autoit]

    func _gettok($1,$2,$3)
    $aTokens = StringSplit($1, $2)
    Return $aTokens[$3]
    EndFunc

    [/autoit]


    ?(
    Mit etwas errorhandling und "vernünftigen" Variablen sieht das dann so aus:

    [autoit]

    $test="C:\Programme\EventGhost\EventGhost.exe"

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

    $split=_stringsplit_ex($test, "\", 4)
    if @error then MsgBox(1, "", @error)
    MsgBox(1, "", $split)

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

    func _stringsplit_ex($sdata, $ssearch, $iret)
    local $aret=StringSplit($sdata, $ssearch)
    if @error then return SetError(1, 0, 0)
    if not IsInt($iret) then return SetError(2, 0, 0)
    If $iret > $aret[0] then return SetError(3, 0, 0)
    Return $aret[$iret]
    EndFunc

    [/autoit]

  • send($Variable)

    "$Input1" enthält nur die ID von "GUICtrlCreateInput"
    Mit Guictrlread wird das Control dann ausgelesen:

    Spoiler anzeigen
    [autoit]


    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form2 = GUICreate("Form1", 405, 294, 302, 218)
    $Input1 = GUICtrlCreateInput("Input1", 72, 64, 217, 21)
    $Button1 = GUICtrlCreateButton("Button1", 144, 208, 105, 65, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    case $Button1
    run("notepad")
    sleep(1000)
    send(Guictrlread($Input1) )
    EndSwitch
    WEnd

    [/autoit]

    edit \ da war jemand schneller :thumbup:

  • Timebomb - Programmausführung zeitlich begrenzen.

    Also jedes Ausführungsdatum muss man auch abspeichern.
    Sonst kann das Systemdatum ja immer auf einen Wert zwischen Installation und Ablauf geändert werden.
    Danke für den Hinweis chip.

    Dann gehts weiter:

    Man macht nach der Installation gleich ein Backup und überschreibt im Fall der "roten Karte" die bisherige Konfig.-Datei.
    Jetzt kann man bei einem Systemdatum zwischen Installation und Ablaufdatum das Programm weiter verwenden :(
    Tjo so leicht kanns gehen - dazu fällt mir jetzt auch nichts mehr ein :(

    Vielleicht doch besser einen versteckten Eintrag in der Registrierung.

  • Timebomb - Programmausführung zeitlich begrenzen.

    Hey,

    ich suche Ideen wie man einem Programm eine zeitlich begrenzte Nutzungsdauer geben kann.

    Dazu gibt es zwei Einschränkungen:
    1. offline Betrieb muss möglich sein
    2. Registrierungseinträge möchte ich vermeiden

    Was ich dem "gemeinen" User zutraue ist der "blöde" Trick das Systemdatum zu ändern um die Nutzungsdauer zu beeinflussen und leicht erkennbare Datumseinträge in einer Konfigurationsdatei zu ändern.

    Hintergrund:
    Damit das Programm sinnvoll arbeiten kann muss ich von Zeit zu Zeit geänderte Basisdaten bereitstellen.
    Nur da einige bestimmt glauben schlauer zu sein wird darauf möglicherweise verzichtet und man versucht selbst rumzuwurschteln.

    Ich dachte mir das so:
    1. Installation -> Zeitpunkt kryptisch (Passwort im Quellcode) in der Konfigurationsdatei ablegen
    2. Beim Startup die Systemzeit auslesen
    3. Prüfen ob die Systemzeit hinter dem Installationszeitpunkt liegt und ggf. die rote Karte zeigen
    4. Über Datediff den Installationszeitpunkt mit der Systemzeit vergleichen und beim Überschreiten einer bestimmten Zeitspanne kommt wieder die rote Karte
    5. Updates über einen Patch, der den neuen Zeitpunkt wieder kryptisch ablegt und die Basisdaten mitbringt.

    Was meint ihr? Einen wichtigen Aspekt vergessen? Gibt es Risiken? Oder andere Ansätze?
    Ich hab da leider null Erfahrung im Umgang mit reinen Usern und weiss daher nicht auf was ich achten sollte. :wacko:


    Gruß nuts

    P.S.
    Decompilierer usw. ist bekannt und spielt keine Rolle.

  • Fokus auf Button

    Hier eine anfängerfreundliche Variante ohne gleich zu "hooken" ;)

    Spoiler anzeigen
    [autoit]


    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 487, 182, 192, 124)
    $Input1 = GUICtrlCreateInput("Input1", 8, 32, 329, 21)
    $Input2 = GUICtrlCreateInput("Input2", 8, 82, 329, 21)
    $Button1 = GUICtrlCreateButton("Button1", 344, 32, 131, 25, $BS_DEFPUSHBUTTON)
    $test = GUICtrlCreateButton("test", 344, 72, 131, 25)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    case $button1
    if _CheckFokus("Form1") then MsgBox(1, "", Guictrlread($Input1))
    EndSwitch
    WEnd

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

    Func _CheckFokus($sGui)
    local $focus=ControlGetFocus($sGui)
    switch $focus
    case "Edit1"
    return true
    case "Button1"
    return true
    case else
    return false
    endswitch
    Endfunc

    [/autoit]

  • Treeview FileExplorer

    Ich hab mal die Tastaturbedienung eingebaut:

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>
    #include <GuiImageList.au3>
    #include <GuiTreeView.au3>
    #include <StructureConstants.au3>
    #include <TreeViewConstants.au3>
    #include <WindowsConstants.au3>
    #include <GuiImageList.au3>

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

    $hGui = GUICreate('FileExplorer', 400, 400)
    $hTreeview = GUICtrlCreateTreeView(10, 10, 380, 360)
    $hWndTreeview = GUICtrlGetHandle($hTreeview)
    $hOk = GUICtrlCreateButton('Ok', 240, 375, 60, 22)
    $hCancel = GUICtrlCreateButton('Cancel', 320, 375, 60, 22)

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

    $hImage = _GUIImageList_Create(16, 16, 5, 1)
    _GUIImageList_AddIcon($hImage, 'shell32.dll', 3) ; Verzeichnis-Icon
    _GUIImageList_AddIcon($hImage, 'shell32.dll', 110) ; Verzeichnis-Icon mit Haken
    _GUIImageList_AddIcon($hImage, 'shell32.dll', 1) ; Datei-Icon
    _GUIImageList_AddIcon($hImage, 'shell32.dll', 5) ; Diskette
    _GUIImageList_AddIcon($hImage, 'shell32.dll', 7) ; Wechseldatenträger
    _GUIImageList_AddIcon($hImage, 'shell32.dll', 8) ; Festplatte
    _GUIImageList_AddIcon($hImage, 'shell32.dll', 11) ; CDROM
    _GUIImageList_AddIcon($hImage, 'shell32.dll', 12) ; Netzwerklaufwerk
    _GUIImageList_AddIcon($hImage, 'shell32.dll', 53) ; Unbekannt
    _GUICtrlTreeView_SetNormalImageList($hTreeview, $hImage)

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

    GUISetState()
    GUICtrlSetStyle($hTreeview, Default, $WS_EX_COMPOSITED + $WS_EX_CLIENTEDGE)

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

    $aDrives = DriveGetDrive('ALL')
    ToolTip('Please wait...', Default, Default, 'Read Directory', 1)
    For $i = 1 To $aDrives[0]
    $iLWindex = 0
    Switch DriveGetType($aDrives[$i])
    Case 'Fixed'
    $iLWindex = 5
    Case 'CDROM'
    $iLWindex = 6
    Case 'RAMDisk'
    $iLWindex = 7
    Case 'Removable'
    $iLWindex = 4
    If StringLeft($aDrives[$i], 2) = 'a:' Or StringLeft($aDrives[$i], 2) = 'b:' Then $iLWindex = 3
    Case Else
    $iLWindex = 8
    EndSwitch
    $hRoot = _GUICtrlTreeView_Add($hTreeview, $hTreeview, StringUpper($aDrives[$i]), $iLWindex, $iLWindex)
    If DriveStatus($aDrives[$i]) <> 'READY' Then ContinueLoop
    _GUICtrlTreeView_BeginUpdate($hTreeview)
    _GUICtrlTreeView_FileExplorerRecursive($hTreeview, $hRoot, $aDrives[$i], 1)
    _GUICtrlTreeView_EndUpdate($hTreeview)
    Next
    ToolTip('')

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

    GUIRegisterMsg($WM_NOTIFY, '_WM_NOTIFY')
    While True
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE, $hCancel
    Exit
    Case $hOk
    $iSelect = _GUICtrlTreeView_GetSelection($hTreeview)
    $sTree = StringReplace(_GUICtrlTreeView_GetTree($hTreeview, $iSelect), '|', '\')
    MsgBox(0, 'Selected Path/File', $sTree)
    EndSwitch
    WEnd

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

    Func _WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
    #forceref $hWnd, $iMsg, $iwParam
    Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $tInfo, $ItemText, $wVKey

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

    $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
    $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
    $iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
    $iCode = DllStructGetData($tNMHDR, "Code")
    Switch $hWndFrom
    Case $hWndTreeview
    Switch $iCode
    Case $NM_DBLCLK ;Doppelklick (linke Maustaste)

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

    Case $NM_CLICK ;linke Maustaste
    ToolTip('Please wait...', Default, Default, 'Read Directory', 1)
    _GUICtrlTreeView_FileExplorer($hGui, $hTreeview)
    ToolTip('')
    Case $NM_RCLICK ; rechte Maustaste

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

    Case $NM_RDBLCLK ;Doppelklick (rechte Maustaste)

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

    Case $TVN_KEYDOWN
    Local $tagLVKEYDOWN = $tagNMHDR & "; USHORT wVKey; UINT flags;"

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

    $tNMHDR = DllStructCreate($tagLVKEYDOWN, $ilParam)
    $wVKey = DllStructGetData($tNMHDR, "wVKey")
    ;ConsoleWrite ($wVKey & " " &@CRLF)
    Switch $wVKey
    Case 40 ;runter

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

    Case 38 ;hoch

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

    Case 37; rechte Pfeiltaste

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

    Case 39 ;linke Pfeiltaste
    ToolTip('Please wait...', Default, Default, 'Read Directory', 1)
    _GUICtrlTreeView_FileExplorer($hGui, $hTreeview, False)
    ToolTip('')
    EndSwitch
    EndSwitch
    EndSwitch
    Return $GUI_RUNDEFMSG
    EndFunc ;==>_WM_NOTIFY

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

    Func _GUICtrlTreeView_FileExplorer($hGui, $hTreeview, $mode = True)
    Local $aTVPos, $aPos, $hItem, $hChild, $sTree
    $aTVPos = ControlGetPos($hGui, '', $hTreeview)
    Switch $mode
    Case True
    $aPos = GUIGetCursorInfo($hGui)
    $hItem = _GUICtrlTreeView_HitTestItem($hTreeview, $aPos[0], $aPos[1] - $aTVPos[1])
    If _GUICtrlTreeView_GetExpanded($hTreeview, $hItem) Then Return
    Case False
    $hItem = _GUICtrlTreeView_GetSelection($hTreeview)
    If _GUICtrlTreeView_GetExpanded($hTreeview, $hItem) Then Return

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

    EndSwitch
    $hChild = _GUICtrlTreeView_GetFirstChild($hTreeview, $hItem)
    If $hChild <> 0 Then
    _GUICtrlTreeView_BeginUpdate($hTreeview)
    $sTree = StringReplace(_GUICtrlTreeView_GetTree($hTreeview, $hChild), '|', '\')
    _GUICtrlTreeView_DeleteChildren($hTreeview, $hChild)
    _GUICtrlTreeView_FileExplorerRecursive($hTreeview, $hChild, $sTree, 1)
    Do
    $hChild = _GUICtrlTreeView_GetNextChild($hTreeview, $hChild)
    If $hChild <> 0 Then
    $sTree = StringReplace(_GUICtrlTreeView_GetTree($hTreeview, $hChild), '|', '\')
    _GUICtrlTreeView_DeleteChildren($hTreeview, $hChild)
    $iTimer = TimerInit()
    _GUICtrlTreeView_FileExplorerRecursive($hTreeview, $hChild, $sTree, 1)
    EndIf
    Until $hChild = 0
    _GUICtrlTreeView_EndUpdate($hTreeview)
    EndIf
    EndFunc ;==>_GUICtrlTreeView_FileExplorer

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

    Func _GUICtrlTreeView_FileExplorerRecursive($hTreeview, $hItem, $sPath, $iRec)
    Local $aDirList, $aFileList, $tmp
    If StringRight($sPath, 1) <> '\' Then $sPath &= '\'
    $iRec -= 1
    $aDirList = _MyFileListToArray($sPath, 2)
    If IsArray($aDirList) Then
    For $sDir In $aDirList
    $tmp = _GUICtrlTreeView_AddChild($hTreeview, $hItem, $sDir, 0, 1)
    If $iRec > 0 Then _GUICtrlTreeView_FileExplorerRecursive($hTreeview, $tmp, $sPath & $sDir, $iRec)
    Next
    EndIf
    $aFileList = _MyFileListToArray($sPath, 1)
    If IsArray($aFileList) Then
    For $sFile In $aFileList
    $tmp = _GUICtrlTreeView_AddChild($hTreeview, $hItem, $sFile, 2, 2)
    Next
    EndIf
    EndFunc ;==>_GUICtrlTreeView_FileExplorerRecursive

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

    Func _MyFileListToArray($sPath, $iFlag)
    Local $sFileList = '', $hSearch, $sFile
    $hSearch = FileFindFirstFile($sPath & '*')
    If @error Then Return
    While True
    $sFile = FileFindNextFile($hSearch)
    If @error Then ExitLoop
    If ($iFlag + @extended = 2) Then ContinueLoop
    $sFileList &= $sFile & '|'
    WEnd
    FileClose($hSearch)
    If $sFileList = '' Then Return
    Return StringSplit(StringTrimRight($sFileList, 1), '|', 2)
    EndFunc ;==>_MyFileListToArray

    [/autoit]

    Vielleicht wars das ja schon 8)