Beiträge von bernd670

Dann kannst du z. B. diese folgendermaßen als Parameter übergeben

RunAs($sUser, $sDomain, $sPassword, 2, @ScriptDir & "\pwrshell.exe -Firma:""NixAG"" -Name:""Huber"" -Vorname:""Klaus""")

In dem Programm Pwrshell.exe müssen diese Parameter dann ausgewertet werden, dass kann man z. B. so machen

If $cmdline[0] > 0 Then
	For $i = 0 To $cmdline[0]
		If StringRegExp($cmdline[$i], "(?i)^\-Firma\:.*?$") Then $szFirma = StringRegExp($cmdline[$i], "(?i)^\-Firma\:(.*?)$", 1)[0]
		If StringRegExp($cmdline[$i], "(?i)^\-Name\:.*?$") Then $szName = StringRegExp($cmdline[$i], "(?i)^\-Name\:(.*?)$", 1)[0]
		If StringRegExp($cmdline[$i], "(?i)^\-Vorname\:.*?$") Then $szVorname = StringRegExp($cmdline[$i], "(?i)^\-Vorname\:(.*?)$", 1)[0]
	Next
EndIf


MsgBox(0, "", "Firma: " & $szFirma & @CRLF & "Name: " & $szName & @CRLF & "Vorname: " & $szVorname & @CRLF  )

Edit:

Jetzt nur noch mal zum Verständnis eine Frage. Machst du in dem Programm pwrshell.exe noch etwas anderes als die Powershell aufzurufen. Wenn nicht kann du den Umweg nämlich sparen.

Hallo,

wenn du dein Programm mit

RunAs($sUser, $sDomain, $sPassword, 2, @ScriptDir & "\pwrshell.exe")

startest, dann läuft doch das Programm schon mit den benötigten Recht Dann sollte normal ein einfaches

Run("Powershell.exe" ...)

reichen.

Ich wollte auch noch was dazu sagen -> CLOSED

Hallo,

kann es sein das du die Einrastfunktion aktiviert hast? Die Tastenkombinationen mit & müssen nämlich normal immer mit Alt+<Taste> aktiviert werden.

Das was du möchtest ist schon möglich, aber erfordert etwas mehr Programmieraufwand und lässt sich nicht eben so aus dem Ärmel schütteln. Man könnte zum Beispiel ein verstecktes Inputfeld definieren das mit einer bestimmen Tastenkombination aktivert wird. Den Text den man dann in das Feld schreibt, auswerten und den Focus (oder den Mauszeiger) auf den entsprechenden Button setzen.

24 bpp sollte eigentlich keine Probleme machen aber natürlich kann man das ändern z. B. mit GIMP oder einem anderen Grafik-Programm.

Vielleicht hat dein BMP ein "exotisches" Format, mit den Farbtiefen 16 und 32 bpp gibt es manchmal Probleme.

Für Tastenkombinationen kannst du doch z. B. das Ampersand-Zeichen benutzen, wenn du bei der Definition eines Buttons, geht natürlich auch mit anderen Ctrls, folgendes schreibst.

$mac = GUICtrlCreateButton("&MAC-Adresse ermitteln", 156, 354, 129, 49)

Kannst du mit Alt+M den Button drücken, genau wie du das von Windows-Anwendungen gewohnt bist. Die Hotkey-Zeichen werden beim Drücken auf Alt unterstrichen dargestellt!

Hallo,

kann keinen Fehler entdecken, funktioniert so wie es da steht ohne Probleme! Wenn es in anderen Ordnern geht, liegt es vielleicht am Ordner!

Zitat von bazii

Meine Buttons sind in der GUI mit TAB nacheinander alle erreichbar. Wie schaffe ich es, dass z. B. mit Drücken der Taste "T" (oder mit Tastenkombination) Alt+T z. B. der Tab "Taskmanager" erreichbar ist?

Hallo,

was meinst du mit dem Tab "Taskmanager" ist das ein Feld in deiner Anwendung, ein Tab in Tab-Control oder soll etwa gleich der Taskmanager starten?

Vielleicht hast du ja schon ein kleines Demo in das man es integrieren kann!

Hallo,

ist das wirklich sinnvoll?
Die Leute mit Sehbehinderung passen sich ihr Windows-Design so an wie Sie es brauchen. Da wäre es eher kontraproduktiv wenn ich in meinen Programmen ein Design verwende welches das Windows-Design wieder aushebelt!

Evtl. Hilft das weiter -> How to Run the Exchange Management Shell EMS in PowerShell

Hab das Thema mal verschoben, wird jetzt doch zu Powershell/Exchange lastig!

Ich habe keinen Exchange am laufen aber wenn du die Exchange-Management-Tools installierst sind evtl. auch die Module für Powershell enthalten. Müssen dann evtl. nur noch über "Windows-Funktionen aktivieren oder deaktivieren" hinzugefügt werden.

Das heisst das New-Mailbox unbekannt ist. Entweder musst du in Powershell noch ein Modul importieren und/oder auf einem Exchange-Server ausführen.

Nein für Shellexecute benötigst du in dieser Form keine weiteren Includes. Läuft dein Powershell-script denn wenn du es direkt in einer PS-Umgebung ausführst?

Hallo,

die Antwort steht doch da!

Die Datei "C:\Users\xyz\Desktop\autoitps1.ps1" kann nicht geladen werden, d
a die Ausführung von Skripts auf diesem System deaktiviert ist. Weitere Informa
tionen erhalten Sie mit "get-help about_signing".

Man muss erstmal die Ausführung von Powershell-Scripten erlauben, Standard ist das nur signierte Scripte ausgeführt werden dürfen. Mit Set-ExecutionPolicy RemoteSigned -Force dürfen alle lokale Scirpte ausgeführt werden signiert oder unsigniert. Von einer Netzfreigabe müssen sie immer noch signiert sein. Wenn du in Powershell mal get-help about_signing bekommst du alle nötigen Infos dazu.

Damit du auch gleich siehst wie es mit ShellExecute funktioniert!

ShellExecute("powershell.exe", "-command ""&{if ((Get-ExecutionPolicy) -notmatch 'RemoteSigned') {Set-ExecutionPolicy RemoteSigned -Force} }""")

Dein Aufruf muss also so lauten:

ShellExecute("powershell.exe", "-File autoitps1.ps1")

Zitat von YaeroxXO

Das geht ?

$MSG = MsgBox
$MSG(0, "", 55)

funktioniert bei mir nicht. Mich würde die Version interessieren ..

Mit der aktuellen Version geht das auf jeden Fall!
Welche Version hast du denn?

Ich finde nur es macht das lesen von Programmen nicht unbedingt einfacher. Vor allem wenn man Funktionen wie GUICtrlCreateListViewItem der Variable $add zuweist, man sollte dann wenigstens Namen nehmen aus denen man noch die Funktion herleiten kann.

Hallo und willkommen im Forum!

Ein guter Anfang ist evtl. der Beitrag Prallel Port Control.

Zitat von Tweaky

@bernd670 warum kein AdlibRegister? Nachteile?

Ist kein Nachteil, aber dafür ist Adlib eigentlich nicht vorgesehen und man kann zu viel falsch machen, z. B. eine Endlosschleife in der Adlibfunktion!

Das passiert wenn du den direkten AutoIt-Tag benutzt, mach es mit dem Code-Tag, so -> https://autoit.de/index.php/Thre…ne-Alternative/ dann geht's!

Hallo,

AdlibRegister ist da unnötig. Ich würde das so machen!

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


$1 = 1
$2 = 2


$iTimer = 0
$iTimeOut = 60000 ; 60 alle Sekunden Status checken


#Region ### START Koda GUI section ### Form=
$Check = GUICreate("Testing", 321, 108, -1, -1)
GUICtrlCreateLabel("C:", 8, 8, 294, 17)
$1 = GUICtrlCreateLabel("Status: ", 8, 40, 293, 17)
$2 = GUICtrlCreateLabel("Size: ", 8, 72, 310, 17)
GUISetState(@SW_SHOW)


#EndRegion ### END Koda GUI section ###


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


	EndSwitch


	If TimerDiff($iTimer) > $iTimeOut Then
		Check()
		$iTimer = TimerInit()
	EndIf


WEnd


Func check()
	$state = DriveStatus("C:")
	$a = DriveSpaceFree("C:")
	$b = DriveSpaceTotal("C:")
	$size = StringFormat("%.3f / %.3f MB",$a, $b)
	GUICtrlSetData($2, "Size: " & $size)
	GUICtrlSetData($1, "Status: " & $state)
EndFunc   ;==>check

Mit $iTimeOut (ms) kannst einstellen in welchen Interval der Check durchgeführt wird.