Weitere Möglichkeiten:
1. EXE mit IrfanView öffnen und als Typ "Icon" abspeichern
2. EXE mit "IcoFX" öffnen, ggf. Icon auswählen, ggf. bearbeiten und speichern (meine bevorzugte Methode)
3. EXE mit "BeCyIconGrabber" öffnen, ggf. Icon auswählen, und speichern.
Ich habe mir schon so einiges an GDI+ Uhren aus Interesse angesehen, aber...
das ist doch mal ne Uhr 
Der Fritz-Repeater ist echt eine Wucht.
Mein Signal vom schwachbrüstigen Alice-Router kam kaum vom Keller in den ersten Stock. Das Signal brach ständig ab. Wenn das Signal dann auch noch diagonal durch Wände und Decken sollte, war gar nix mehr mit Surfen.
Der Repeater nimmt das Signal im Wohnzimmer (EG) nun auf, dient dort gleichzeitig noch als LED-Uhr und ballert das WLAN Signal diagonal über 20m durch mehrere Wände und Decken durch unser ganzes Haus !
Alles per WPA2 ! Der Repeater ist einmal Client mit Verbindung zum Router (daher geht WPA2 auch mit nahezu allen Routern und Access-Points) und einen Moment später dann Access-Point für die Clients.
Wenn ihr noch weiter Fragen habt, versuche ich euch darüber Auskünfte zu geben.
Das Ding ist einfach nur der Hammer. Einrichtung dauert 2 Minuten. Nur etwas teurer ist er. Ich habe aber noch die ältere (teurere) Version. In der günstigeren fehlt wohl die Audio-Bridge.
Also wenn MS von SMS nach SCCM nich alles Bekannte über den Haufen geworfen hat, sollten die SCCM-Informationen in einer SQL-DB liegen.
Und für MS-SQL gibt es meines Wissens nach auch diverse UDF's.
EndFunc() fehlt 
Also bei mir funktioniert es einwandfrei. Sowohl ausgeführt unter Win7 x64, wie auch kompiliert als x64 unter Win7.
Und das mit der V3.3.6.1 !
...bitte....
; =================================================================================================
; Func _ShellExecuteEx($sCmd, $sParams = "", $sFolder = "", $sVerb = "", $iState = @SW_SHOWNORMAL,$bCloseProcessHandle=True)
;
; Parameters are the same as ShellExecute(), except for the addition of:
;
; $bCloseProcessHandle = If True (recommended unless planning on using Process Handles),
; then the Process Handle (if received) is closed
; If False, the Process Handle (if received) is returned - this can be used to do additional work with Processes
; Usage is mostly recommended for the _ShellExecuteExWait() function and/or getting exit code.
;
; Return is different from ShellExecute() in the following way:
; Success: @error = 0, and either the process ID (if $bCloseProcessHandle is True, and process ID received) is returned,
; or a 2-element array (if $bCloseProcessHandle is False):
; $array[0]=Process ID if new process started (and process handle+ID received),
; $array[1]=Process Handle if new process started (and process handle received)
; Failure: @error set and 0 is returned
; @error = 1 = parameters error
; @error = 2 = call failed (probably due to parameter error. can use _WinAPI_GetLastError())
;
; NOTE: Recommended to run on Windows 2000 or higher because:
; According to Microsoft at http://msdn2.microsoft.com/en-us/library/bb762154.aspx,
; Windows 95/98/Me: ShellExecuteEx is supported by the Microsoft Layer for Unicode (MSLU).
; To use this, you must add certain files to your application,
; as outlined in Microsoft Layer for Unicode on Windows Me/98/95 Systems.
; So it appears it will break on those machines without MSLU(?)
;
; Initial Code from MrCreatoR on AutoIt Forum Topic:: http://www.autoitscript.com/forum/index.php?showtopic=69868
; Enhancements/Modifications by: Ascend4nt
; (including process handle/ID extract & close-handle code, plus Unicode/path enhancements, & CoInitializeEx call)
; =================================================================================================
Func _ShellExecuteEx($sCmd, $sParams = "", $sFolder = "", $sVerb = "", $iState = @SW_SHOWNORMAL,$bCloseProcessHandle=True)
Local $stINFO,$stVerb,$stPath,$stArgs,$stWDir,$aRet,$hWnd=0,$aProcessArray[2]=[0,0]
Local $iParamLen,$iCmdLen,$iFolderLen
$iParamLen=StringLen($sParams)
; Verify string lengths are less than maximum.
; Through testing, 1997 (1996+1 NULL-term) is the maximum parameter length for this call (Unicode)
If $iParamLen>1996 Then Return SetError(1,0,0)
$iCmdLen=StringLen($sCmd)
; Verify string lengths are less than maximum. [MAX_PATH is 260, but Unicode allows exceptions]
; 32767 max length for Unicode strings if prefixed with '\\?\'
If $iCmdLen>259 Then
; 32767-NULL=32766 - 4 (\\?\) = 32762
If $iCmdLen>(32766-4) Then Return SetError(1,0,0)
$sCmd='\\?\' & $sCmd
EndIf
$iFolderLen=StringLen($sFolder)
; Verify string lengths are less than maximum. [MAX_PATH is 260, but Unicode allows exceptions]
; 32767 max length for Unicode strings if prefixed with '\\?\'
If $iFolderLen>259 Then
; 32767-NULL=32766 - 4 (\\?\) = 32762
If $iFolderLen>(32766-4) Then Return SetError(1,0,0)
$sFolder='\\?\' & $sFolder
EndIf
; Setup string structures
$stVerb = DllStructCreate("wchar["&(StringLen($sVerb)+1)&"]")
$stPath = DllStructCreate("wchar[" &($iCmdLen+1)& "];wchar")
$stArgs = DllStructCreate("wchar[" &($iParamLen+1)& "];wchar")
$stWDir = DllStructCreate("wchar[" &($iFolderLen+1)& "];wchar")
; Initialize string structures (which are then used by pointer in the larger SHELLEXECUTEINFO structure)
DllStructSetData($stVerb, 1, $sVerb)
DllStructSetData($stPath, 1, $sCmd)
DllStructSetData($stWDir, 1, $sFolder)
DllStructSetData($stArgs, 1, $sParams)
; SHELLEXECUTEINFO structure
$stINFO = DllStructCreate("ulong;ulong;long;ptr;ptr;ptr;ptr;long;long;ptr;ptr;long;ulong;long;long")
; SHELLEXECUTEINFO structure initialize
DllStructSetData($stINFO, 1, DllStructGetSize($stINFO)) ; cbSize, size (in bytes) of structure
; ------------------------------------------------------------------------------------------------------
; fMask Options:
; 0x40 = SEE_MASK_NOCLOSEPROCESS. The 15th element in structure (hProcess) will be set with the Process handle
; NOTE: per MSDN, this handle *must* be closed by the caller. (similar to how "OpenProcess" must use "CloseProcess")
; 0x400 = SEE_MASK_FLAG_NO_UI = Do not display an error message box if an error occurs.
; This is not default ShellExecute() behavior, which will display the error message box
; ------------------------------------------------------------------------------------------------------
DllStructSetData($stINFO, 2, BitOR(0x40,0x400)) ; fMask
; HWND - MSDN: A window handle to any message boxes that the system might produce while executing this function.
DllStructSetData($stINFO, 3, $hWnd) ; Is this supposed to *receive* instead of send? I have yet to get clarity on this.
DllStructSetData($stINFO, 4, DllStructGetPtr($stVerb)) ; lpVerb: pointer to the verb string
DllStructSetData($stINFO, 5, DllStructGetPtr($stPath)) ; lpFile: pointer to the $cmd string
DllStructSetData($stINFO, 6, DllStructGetPtr($stArgs)) ; lpParameters: pointer to the parameters/arguments string
DllStructSetData($stINFO, 7, DllStructGetPtr($stWDir)) ; lpDirectory: pointer to working directory string
DllStructSetData($stINFO, 8, $iState) ; nShow = state to show window as
#cs
; ------------------------------------------------------------------------------------------------------
; Per MSDN Documentation, the following call should be done prior to calling ShellExecuteEx:
; CoInitializeEx(NULL, COINIT_APARTMENTTHREADED | COINIT_DISABLE_OLE1DDE) ; COINIT_APARTMENTTHREADED = 0x2,COINIT_DISABLE_OLE1DDE = 0x4
; Reason:
; "Because ShellExecuteEx can delegate execution to Shell extensions (data sources, context menu handlers, verb implementations)
; that are activated using Component Object Model (COM), COM should be initialized before ShellExecuteEx is called.
; Some Shell extensions require the COM single-threaded apartment (STA) type. In that case, COM should be initialized as shown here.
; There are certainly instances where ShellExecuteEx does not use one of these types of Shell extension and those instances would not
; require COM to be initialized at all. Nonetheless, it is good practice to always initalize COM before using this function."
; ------------------------------------------------------------------------------------------------------
#ce
DllCall("ole32.dll", "int", "CoInitializeEx", "ptr", Chr(0), "dword", BitOR(2,4))
; I don't care if it succeeds. Doesn't seem to make much difference even to call it.
$aRet=DllCall("shell32.dll", "int", "ShellExecuteExW", "ptr", DllStructGetPtr($stINFO))
If @error Or Not $aRet[0] Then
; DLLStructDelete()'s:
$stINFO=0
$stVerb=0
$stPath=0
$stArgs=0
$stWDir=0
Return SetError(2,@error,0)
EndIf
; Get Process Handle, if one exists (non-NULL if new process started, otherwise
; NULL if app that performs 'verb' is already running, or is perhaps a 'properties' dialog etc)
$aProcessArray[1]=DllStructGetData($stINFO,15)
; Get Process ID from Handle
If ($aProcessArray[1]) Then
$aRet=DllCall("Kernel32.dll","dword","GetProcessId","long",$aProcessArray[1])
If IsArray($aRet) Then $aProcessArray[0]=$aRet[0]
EndIf
;ConsoleWrite("Handle passed to function:" & Number($hWnd) & ", Handle AFTER call:" & Number(DllStructGetData($stINFO,3)) & @CRLF)
;ConsoleWrite("Process Handle:" & Number($hProcess) & ", Process ID:" & Number($vProcessID) & @CRLF)
; Close Handle
If $bCloseProcessHandle And $aProcessArray[1] Then DllCall('kernel32.dll','ptr', 'CloseHandle','ptr', $aProcessArray[1])
; DLLStructDelete()'s:
$stINFO=0
$stVerb=0
$stPath=0
$stArgs=0
$stWDir=0
If ($bCloseProcessHandle) Then Return SetError(0,0,$aProcessArray[0])
SetError(0,0)
Return $aProcessArray
EndFunc
Wenn ich dem Programm diese -rechte nicht gebe, funktioniert es nicht.
Das einzige was in Deinem Script die Adminrechte benötigt, ist der Pfad in dem Du die "Überwachung.txt" anlegst.
Im Root-Pfad "C:\" darf halt im Normalfall ein User nicht schreiben.
Wenn Du das Logfile in einem Ordner anlegst wo ein User auch schreiben darf. sollte das Script auch ohne #RequireAdmin laufen.
Gestarte per Registry/Run sieht es der User dann auch schwer, außer er kontrolliert die Prozesse.
Danke, das wars. Ich bin einfach nicht drauf gekommen.
Nur ist mir dabei nicht erklärlich, warum _GUICtrlListView_InsertItem() funktioniert und _GUICtrlListView_DeleteItem() nicht ?
Aber funktioniert ja nun.
Es gibt Versionen von PsExec die liefern den Rückgabewert der remote ausgeführeten Anwendung zurück und die meisten (gerade die aktuellen) Version eben nicht. Im Anhang eine Version die den entfernten Rückgabewert übermittelt.
Das zweite was ich sehe ist, das Du im Run() immer @ComSpec nutzt, obwohl die bei Standard-Exe-Dateien nicht notwendig ist, sondern nur bei "internen" Befehlen der Kommandozeilen-Shell wir z.B. DIR. Hier gibt es eine "DIR.EXE" nicht !
Dein Run() sieht wie folgt aus: Run --> CMD.EXE --> PsExec.exe --> (Remotes Kommando)
Nur ist die Frage was Du nun zurückbekommst.
Wenn Du die Zeile 59 auskommentierst, funktioniert es weiterhin nur ist der Ablauf wie folgt:
Dein Run() sieht wie folgt aus: Run --> PsExec.exe --> (Remotes Kommando)
Und wenn nun PsExec die entfernte Rückgabe übermittelt, solltest Du sie auch auslesen können. Jedenfalls klappt es bei mir.
Ich habe eine alte Funktion von bugfix und AspirinJunkie aufgegriffen und an die aktuelle Autoit-Version angepasst.
Beim Testen bin ich auf folgenden Fehler gestoßen, den ich beim besten Willen nicht lokalisieren kann:
Verschiebe ich per Drag'n Drop ein LV-Item so funktioniert das einwandfrei. Fasse ich das bereits einmal verschobene Item erneut an, wird es zwar am neuen Ziel eingefügt, aber das Item an der alten Position nicht entfernt, so das ich jedesmal ein LV-Element mehr erhalte.
Hat jemand eine Idee ?
Hier das Beispiel und die Funktion:
#include <GUIConstants.au3>
#include <GuiListView.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]$GUI = GUICreate("Test-GUI", 500, 300, -1, -1, -1, $WS_EX_ACCEPTFILES)
GUISetOnEvent($GUI_EVENT_CLOSE, "raus")
GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, "_MoveListViewItem")
$ListView = GUICtrlCreateListView("Eintrag", 10, 10, 480, 280)
_GUICtrlListView_SetColumnWidth($ListView, 0, 475)
For $i = 1 To 10
$Item = GUICtrlCreateListViewItem("Eintrag " & $i, $ListView)
Next
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]While 1
Sleep(100)
WEnd
Func raus()
Exit
EndFunc ;==>raus
;Function by [email='AspirinJunkie@german-nlite.de'][/email] (benötigt globale Variable $ListView)
Func _MoveListViewItem()
Local $von, $bis
Local $down = GUIGetCursorInfo($GUI)
If $down[4] = $ListView Then
$von = _GUICtrlListView_GetHotItem($ListView)
While $down[2]
$down = GUIGetCursorInfo($GUI)
Sleep(50)
WEnd
If $down[4] = $ListView Then
$bis = _GUICtrlListView_GetHotItem($ListView)
If Not ($von = $bis) Then
_MoveLVItem($von, $bis - $von, $ListView)
_GUICtrlListView_SetItemSelected($ListView, $bis, 1, 1)
EndIf
EndIf
EndIf
EndFunc ;==>_MoveListViewItem
;----------------------------------------------------------------------------------------------------------------------
; Funktion _MoveLVItem($ItemIndex, $StepWidth, $hLV)
;
; Beschreibung verschiebt per Index angegebenen Eintrag eines ListViewCtrl um eine Anzahl Positionen
;
; Parameter $ItemIndex: Index der Zeile
; $StepWidth: Anzahl Zeilen um die der Eintrag verschoben wird (negative Zahl - aufwärts)
; $hLV: ListView ID
;
; Erfordernisse #include <GuiListView.au3>
;
; Autor BugFix ([email='bugfix@autoit.de'][/email])
;----------------------------------------------------------------------------------------------------------------------
#include <GuiListView.au3>
Func _MoveLVItem($ItemIndex, $StepWidth, $hLV)
If ($ItemIndex + $StepWidth) < 0 Or _
($ItemIndex + $StepWidth) > _GUICtrlListView_GetItemCount($hLV) - 1 Then
SetError(1)
Return 0
EndIf
Local $txt2skip = _GUICtrlListView_GetItemText($hLV, $ItemIndex)
If $StepWidth > 0 Then
_GUICtrlListView_BeginUpdate($hLV)
_GUICtrlListView_InsertItem($hLV, $txt2skip, $ItemIndex + $StepWidth + 1)
;msgbox(0,">0",$ItemIndex)
;msgbox(0,"",_GUICtrlListView_GetItemText($hLV, $ItemIndex))
_GUICtrlListView_DeleteItem($hLV, $ItemIndex)
_GUICtrlListView_EndUpdate($hLV)
Else
_GUICtrlListView_BeginUpdate($hLV)
_GUICtrlListView_InsertItem($hLV, $txt2skip, $ItemIndex + $StepWidth)
;msgbox(0,"<=0",$ItemIndex & " +1")
;msgbox(0,"",_GUICtrlListView_GetItemText($hLV, $ItemIndex + 1))
_GUICtrlListView_DeleteItem($hLV, $ItemIndex + 1)
_GUICtrlListView_EndUpdate($hLV)
EndIf
Return -1
EndFunc ;==>_MoveLVItem
Bleibt nur die Frage: Wie kommst du auf 15V?
In deinem Beispiel (Post #1) wäre es dann 12V-2V = 10V/0.18A = 56 Ohm
Also würde bei 470Ohm und 9 parallelen LEDs
an jeder 1/9 des Stromes anliegen
Ist korrekt ! Nur leuchten sie dann nicht mehr.
Wenn ja, was ist der kleinste Widerstand? 0Ohm?
Ja.
Du solltest feststellen, welchen maximalen Widerstand Du benötigst, damit die LED's überhaupt noch leuchten. Dann nimmst Du den vorhandenen 470Ohm Widerstand und schaltest einen Poti (von sagen wir mal 270Ohm, Schaltung unten) in Reihe, so das Du auf den Gesamtwiderstand kommst.
Aber bedenke die Gesamtverlustleistung des Poti's bzw. des Vorwiderstandes:
z.B.: 20x Led (a' 20mA) = 0,4A * Spannungsfall am Poti (geschätzt) ca. 4V = (0,4A * 4V) = 1,6 Watt (das ist schon ein wenig)
Besser wäre ein Spannungsregler (z.B. LM317) zu nehmen und mit ein paar Bauteilen und Poti im Bereich von ca. 1,5V bis 2,2V (Bereich müsste man testen) einstellbar zu machen. Hieran werden dann die LED in Parallelschaltung betrieben. Vom Strom her kann der LM317 einige LED's betreiben.
Ich habe mir euer DeskStream2 nun auch einmal angesehen. Für Autoit nicht übel !
Ich würde mir eine Verbesserung wünschen, die bisher in allen Remote-Tools nicht möglich war:
Ich möchte nur 1 Fenster sehen, welches auf dem Zielrechner läuft. Könnte man euer Tool dahingehend umbauen, das man einen Fenstertitel (-teil) des Servers mitgibt, und man dann im Client nur den Inhalt dieses Fensters bekommt, wenn es vorhanden ist ?
Dadurch würde sich auch die Menge der übertragenden Bildinformationen deutlich verringern und man bekäme für dieses eine Fenster eine schnellere Darstellung.
Habe im MSDN nochmal nachgesehen:
Das Task-Scheduler-Object gibt es erst ab Windows Vista.
Gut, solltest Du vielleicht in die UDF mit reinschreiben. Sonst testet sich noch einer dumm und dusselig !
Na hab ich doch ! Und als Beispiel, wie beschrieben, den Code aus Zeile 14 der UDF.
Hab es gerade mal unter Win7 getestet als User geht es standardmäßig nicht (was zu erwarten war), aber als Admin ohne Fehler.
Vor einiger Zeit habe ich einmal ähnliches versucht. Ich weiß aber nicht mehr warum ich es nicht weiter verfolgt hatte.
Jedenfalls wollte ich das in der Include-Datei vorhandene Beispiel testen. Aber es kommt dort schon zu folgender Fehlermeldung, die ich beim besten Willen ncht weg bekommen:
System ist: Windows XP SP3 mit Adminrechten.
Unmöglich. Ich änder den Wert und in der Zeit hab ich ca. 100.000 Registry aktivitäten aufgezeichnet.
Jetzt nach 20 Sekunden bin ich bereits bei 1,2 Millionen.
Nimm "RegShot" !
Der zeigt Dir nur die Differenzen zweier Registry-Snapshot's. Das reduziert deutlich den Aufwand.
Ich kann den Fehler reproduzieren. Aber "CREDITS" geht bei mir auch !
Die anderen Funktionen innerhalb der SWF-Datei greifen scheinbar direkt ins Internet.
Warum das aber zu Fehler führt kann ich z.Zt. auch nicht reproduzieren.
Direkt mit Opera/IE gestartet, zeigen die betreffenden Buttons zwar auch keine Funktion, aber die Browser stürzen wenigstens nicht ab.
