Beiträge von Torni

  • ContextMenu bei ListviewItems?

    Ich hab das bei mir so (auszugsweise):

    [autoit]

    ...
    Global $LVUsers = GUICtrlCreateListView("Login|Vollständiger Name|Beschreibung|Telefon", 20, 43, $win_w / 2 , $win_h - 140, -1, BitOR($WS_EX_CLIENTEDGE,$LVS_EX_GRIDLINES,$LVS_EX_FULLROWSELECT))
    ; Kontextmenu erstellen
    Global $aUContext[7] = ["Laufwerksgröße H","Laufwerksgröße P","ins H-LW", _
    "ins P-LW", "entsperren","PW ändern", "Rechte ändern"]
    Global $aUContextI[7]
    Global $UHelpContext = GUICtrlCreateContextMenu($LVUsers)
    For $i = 0 to UBound($aUContext) -1
    $aUContextI[$i] = GUICtrlCreateMenuItem($aUContext[$i], $UHelpContext)
    GUICtrlCreateMenuItem("", $UHelpContext) ; separator
    Next
    ...

    [/autoit]


    in der While-Schleife:

    [autoit]


    ...
    Global $nMsg = GUIGetMsg(1)
    ...
    For $i = 0 To UBound($aUContextI) - 1
    If $nmsg[0] = $aUContextI[$i] Then
    $iBenutzername = _GUICtrlListView_GetItemText($LVUsers, _GUICtrlListView_GetSelectionMark($LVUsers),0)
    ContextU($i); auf das gewählte Context-Item reagieren..
    EndIf
    Next
    ...

    [/autoit]

    und wenn bestimmte kein Context bekommen sollen, kann man ja oben abfragen usw..

  • Registry Zweig auslesen und als Reg File speichern

    sind da nicht zu viele If's drin??

    Spoiler anzeigen
    [autoit]


    #cs ----------------------------------------------------------------------------

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

    AutoIt Version: 3.3.4.0
    Author: myName

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

    Script Function:
    Template AutoIt script.

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

    #ce ----------------------------------------------------------------------------

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

    #RequireAdmin

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

    $HLM = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\WinRar", "exe64")
    $HCU = RegRead("HKEY_CURRENT_USER\Software\WinRAR", "")
    $themes = @AppDataDir &"\WinRAR\Themes"

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

    if Not FileExists($HLM) Or ($HCU) Then
    MsgBox(0,"Fehler!", "Winrar ist zur Zeit nicht installiert! Das Programm wird nun beendet.")
    Exit
    Else
    IniWrite ("rar.ini","Rar_local_machine", "Install_Pfad", $HLM)
    IniWrite ("rar.ini","Rar_all users", "Install_Pfad", $HCU)
    EndIf

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

    If ProcessExists ( "WinRAR.exe") Then
    MsgBox (0,"Hinweis!", "WinRAR ist derzeit geöffnet. Der Prozess wird nun geschlossen")
    ProcessClose ( "WinRAR.exe")
    Run('Regedit /e ' & @ScriptDir & '\Backups\WinRAR\winrar.reg HKEY_CURRENT_USER\Software\WinRAR') ; Liest die Reg aus und speichert sie
    DirCopy ($themes , @ScriptDir & "\Backups\WinRAR" ,1 )
    MsgBox (0,"WinRAR Backup!", "Die komplette WinRAR sicherung ist nun abgeschlossen Sie können WinRAR nun starten.")
    Exit
    EndIf

    [/autoit]

  • PCI Karte selbst entwerfen

    ich finde das cool, zumal ich mit Hardware basteln 7 linke Hände habe..
    Ohne Anleitung würde ich so was kaum hinbekommen..

    Also immer schön aufschreiben , was du wo wie machst und da wird es bestimmt mind. ein Nachahmer geben *G*

  • WMI-Error abfangen

    Hallo,
    ich habe hier 2 Funktionen (keine Ahnung mehr woher).
    Die erste funktioniert unter windows 7 nur bedingt, da wenn keine Seriennummer abgefragt werden kann, er in Zeile 8 bei

    [autoit]

    For $colItems In $WMIWmiMonitorID

    [/autoit]


    abbricht.
    Die 2.te Funktion unten bringt mir unter Windows 7 nicht immer eine Seriennummer, obwohl eine eingetragen ist. Wenn eine da ist, bringt mir die obere Funktion ebenso die Serial.
    Ich würde gerne die obere nutzen, aber weiss grad nicht wie ich den Fehler oben abfangen soll, da ich mit WMI und dergleichen auf Kriegsfuss stehe.

    Spoiler anzeigen
    [autoit]

    Func _CI_GetMonitor($LHost)
    Local $colItems, $objWMIService, $WMIWmiMonitorID, $sMonitorInfo; $objItem,

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

    $objWMIService = ObjGet('winmgmts:\\' & $LHost & '\root\wmi')
    If Not IsObj($objWMIService) Then Return SetError(1, 0, 0)
    $WMIWmiMonitorID = $objWMIService.ExecQuery("SELECT * FROM WmiMonitorID WHERE Active='True'")
    If IsObj($WMIWmiMonitorID) Then
    For $colItems In $WMIWmiMonitorID
    For $i = 0 To UBound($colItems.SerialNumberID) - 1
    Local $sSerialNumberID = $colItems.SerialNumberID($i)
    If StringLen($sSerialNumberID) <> 0 Then
    $sMonitorInfo = $sMonitorInfo & String(Chr($sSerialNumberID))
    EndIf
    Next
    Next
    EndIf
    Return $sMonitorInfo
    EndFunc ;==>_CI_GetMonitor

    [/autoit]
    Spoiler anzeigen
    [autoit]


    Func Monitor_XP($strComputer = $LHost)
    Local $wbemFlagReturnImmediately = 0x10
    Local $wbemFlagForwardOnly = 0x20

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

    Local $objWMIService = ObjGet ("winmgmts:\\" & $strComputer & "\root\CIMV2")

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

    If Not IsObj($objWMIService) Then Return

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

    Local $colItems = $objWMIService.ExecQuery ("SELECT * FROM Win32_DesktopMonitor", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
    Local $j = 0

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

    If IsObj ($colItems) Then
    For $objItem In $colItems
    Local $PNPDeviceID = $objItem.PNPDeviceID
    Local $screenwidth = $objItem.ScreenWidth
    If $screenwidth = 0 Then ExitLoop
    Local $monedid = RegRead("\\" & $strComputer & "\HKEY_LOCAL_MACHINE\System\CurrentControlSet\Enum\" & $PNPDeviceID & "\Device Parameters", "EDID")
    if StringLen($monedid) >0 Then
    Dim $edidarray[StringLen($monedid) ]
    Else
    Dim $edidarray[1]
    EndIf
    $edidarray[0]= (StringLen($monedid) / 2) + 1
    For $i = 1 To StringLen($monedid) Step 2
    $j = $j + 1
    $edidarray[$j] = Dec(StringMid($monedid, $i, 2))
    Next
    Next

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

    Local $sernumstr = ""
    Local $sernum = 0
    For $i = 1 To (UBound($edidarray) / 2) - 4
    If $edidarray[$i] = "0" And $edidarray[$i + 1] = "0" And $edidarray[$i + 2] = "0" And $edidarray[$i + 3] = "255" And $edidarray[$i + 4] = "0" Then
    $sernum = $i + 4
    EndIf
    Next
    If $sernum <> 0 Then
    Local $endstr = 0
    $sernumstr = ""
    For $i = 1 To 13
    If $edidarray[$sernum + $i] = "10" Then
    $endstr = 1
    Else
    If $endstr = 0 Then
    $sernumstr = $sernumstr & Chr($edidarray[$sernum + $i])
    EndIf
    EndIf
    Next
    Else
    $sernumstr = ""
    EndIf
    EndIf

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

    Return $sernumstr
    EndFunc

    [/autoit]

  • AutoIT Code schützen

    einen richtigen Schutz wirste nie finden.
    Ich hatte früher in der "illegalen" Zeit so gut wie jedes Program / Spiel ge-cracked, das mir zwischen die Finger kam..

    Ist immer die Frage wer das Programm hat und was er davon will..

    Und grade AutoIT-Code schützen zu wollen ist absolut unnötig..wer ASM kann, dem ist egal wie das Teil "gewandelt" wird..

  • Registrywert in unbekanntem Schlüssel suchen und ändern

    aus der outlookEX-UDF:

    [autoit]


    #include <OutlookEX.au3>

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

    Global $oOutlook = _OL_Open()

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

    ; *****************************************************************************
    ; Example 1
    ; List all Email signatures for the current mail account
    ; *****************************************************************************
    Global $aSignatures = _OL_MailSignatureGet()
    If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF: _OL_MailSignatureGet Example Script", "Error accessing mail signatures. @error = " & @error & ", @extended: " & @extended)
    _ArrayDisplay($aSignatures, "OutlookEX UDF: All email signatures for the current mail account", _
    -1, 0, "", "|", "Row|Name|Used for new messages?|Used for reply messages?")

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

    _OL_Close($oOutlook)

    [/autoit]

    Ist ja mal ein Ansatz wert wenn auch nur für dne angemeldeten user..geht doch bestimmt auch für andere ?!?!
    Ansonsten mal water in nem Thread hier ansprechen, der kann dir da bestimmt weiterhelfen..