cmd Problem für VR Brillen Projekt

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von Rattenfänger.

    cmd Problem für VR Brillen Projekt

    Hallo,

    aktuell arbeite ich an einem kleinen Privaten VR Projekt. Ziel dieses Projektes ist zu testen ob VR auch für die Arbeit genutzt werden kann. D.h nicht nur in der Konstruktion oder 3D Visualisierung, sondern auch andere Bereiche, also auch IT, Verwaltung etc.!
    Hierfür nutze ich aktuell vorhandene Programme Windows Mixed Reality, Steam, Desktop+(Steam), Virtual Desktop(Steam).

    Desktop+ und Virtual Desktop unterscheiden sich in der Anwendung. Deshalb nutze ich Virtual Desktop zum Zocken(bessere Performance) und Desktop+ für die Arbeit(Programmieren und konstruieren etc.).

    Jetzt möchte ich die ganzen Prozesse die ich manuell starte automatisieren, insbesondere das Aktivieren der Virtuellen Monitore.
    Hierzu habe ich diese Treiber heruntergeladen und Installiert. Ist bei dem dazugehörigen tutorial bei dem Youtube Video.

    youtube.com/watch?v=ybHKFZjSkVY

    Hierzu habe ich mir 2 cmd's gebastelt um diese, je nach anwendungsfall zu starten:

    Quellcode: Games.cmd

    1. @cd /d "%~dp0"
    3. @goto %PROCESSOR_ARCHITECTURE%
    4. @exit
    6. :AMD64
    7. @cmd /c Pfad zu Virtueller_Monitor\usbmmidd_v2\deviceinstaller64.exe install G:\Windows_Profiles\Users\Zeljko\Downloads\System\Virtueller_Monitor\usbmmidd_v2\usbmmidd.inf usbmmidd
    8. @cmd /c Pfad zu Virtueller_Monitor\usbmmidd_v2\deviceinstaller64.exe enableidd 1
    9. @goto end
    11. :end
    12. @pause


    Quellcode: Arbeit.cmd

    1. @cd /d "%~dp0"
    2. @goto %PROCESSOR_ARCHITECTURE%
    3. @exit:
    4. AMD64
    5. @cmd /c Pfad zu Virtueller_Monitor\usbmmidd_v2\deviceinstaller64.exe install G:\Windows_Profiles\Users\Zeljko\Downloads\System\Virtueller_Monitor\usbmmidd_v2\usbmmidd.inf usbmmidd
    6. @cmd /c Pfad zu Virtueller_Monitor\usbmmidd_v2\deviceinstaller64.exe enableidd 1
    7. @cmd /c Pfad zu Virtueller_Monitor\usbmmidd_v2\deviceinstaller64.exe enableidd 1
    8. @cmd /c Pfad zu Virtueller_Monitor\usbmmidd_v2\deviceinstaller64.exe enableidd 1
    9. @cmd /c Pfad zu Virtueller_Monitor\usbmmidd_v2\deviceinstaller64.exe enableidd 1
    10. @goto end
    11. :end
    12. @pause


    Der Unterschied ist das Spielen nur einen Monitor erstellt und Arbeit 4 Monitore(Anzahl soll Später noch ausgewählt werden).

    Danach stelle ich je nach bedarf die Auflösung der Virtuellen Monitore ein. Für Spielen 4K und für die Arbeit sollen die Monitore auf 1920x1080 eingestellt werden(auch das soll änderbar sein).

    Die Einstellung der Monitore konnte ich schon Automatisieren, jedoch das Abarbeiten der CMD's bereitet mir irrsinnige Probleme. Da die Virtuellen Monitore über mein Programm nicht angelegt bzw. Installiert werden können.

    Anbei mein kpl. Code:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    3. Imports System.Windows.Forms
    4. Imports System.Drawing
    6. Imports System.Runtime.InteropServices
    8. Class MainWindow
    10. <DllImport("user32.dll")>
    11. Private Shared Function EnumDisplayDevices(ByVal Unused As Integer,
    12. ByVal iDevNum As Integer, ByRef lpDisplayDevice As DISPLAY_DEVICE, ByVal dwFlags As Integer) As Integer
    13. End Function
    15. 'This function retrieves information about one of the graphics modes for a display device
    16. <DllImport("user32.dll")>
    17. Private Shared Function EnumDisplaySettings(ByVal lpszDeviceName As String,
    18. ByVal iModeNum As Integer, ByRef lpDevMode As DEVMODE) As Integer
    19. End Function
    21. 'The ChangeDisplaySettingsEx function changes the settings of the specified display device to the specified graphics mode
    22. <DllImport("user32.dll")>
    23. Private Shared Function ChangeDisplaySettingsEx(ByVal lpszDeviceName As String,
    24. ByRef lpDevMode As DEVMODE, ByVal hWnd As Integer, ByVal dwFlags As Integer,
    25. ByVal lParam As Integer) As Integer
    26. End Function
    28. Private Const CCDEVICENAME As Short = 32
    29. Private Const CCFORMNAME As Short = 32
    30. Private Const DM_BITSPERPEL = &H40000
    31. Private Const DM_PELSWIDTH = &H80000
    32. Private Const DM_PELSHEIGHT = &H100000
    33. Private Const CDS_UPDATEREGISTRY = &H1
    35. Private Const DISPLAY_DEVICE_ATTACHED_TO_DESKTOP = &H1 'Display Device Attached To Desktop Device
    36. Private Const DISPLAY_PRIMARY_DEVICE = &H4 'Primary Display Device
    38. Private Structure DISPLAY_DEVICE
    39. Public cb As Integer
    40. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=CCDEVICENAME)>
    41. Public DeviceName As String
    42. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=128)>
    43. Public DeviceString As String
    44. Public StateFlags As Short
    45. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=128)>
    46. Public DeviceID As String
    47. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=128)>
    48. Public DeviceKey As String
    49. End Structure
    51. Private Structure DEVMODE
    52. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=CCDEVICENAME)>
    53. Public dmDeviceName As String
    54. Public dmSpecVersion As Short
    55. Public dmDriverVersion As Short
    56. Public dmSize As Short
    57. Public dmDriverExtra As Short
    58. Public dmFields As Integer
    59. Public dmOrientation As Short
    60. Public dmPaperSize As Short
    61. Public dmPaperLength As Short
    62. Public dmPaperWidth As Short
    63. Public dmScale As Short
    64. Public dmCopies As Short
    65. Public dmDefaultSource As Short
    66. Public dmPrintQuality As Short
    67. Public dmColor As Short
    68. Public dmDuplex As Short
    69. Public dmYResolution As Short
    70. Public dmTTOption As Short
    71. Public dmCollate As Short
    73. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=CCFORMNAME)>
    74. Public dmFormName As String
    75. Public dmLogPixels As Short
    76. Public dmBitsPerPel As Short
    77. Public dmPelsWidth As Integer
    78. Public dmPelsHeight As Integer
    79. Public dmDisplayFlags As Integer
    80. Public dmDisplayFrequency As Integer
    81. Public dmICMMethod As Integer
    82. Public dmICMIntent As Integer
    83. Public dmMediaType As Integer
    84. Public dmDitherType As Integer
    85. Public dmReserved1 As Integer
    86. Public dmReserved2 As Integer
    87. Public dmPanningWidth As Integer
    88. Public dmPanningHeight As Integer
    90. End Structure
    91. Public Sub New()
    93. InitializeComponent()
    95. End Sub
    96. Private Function Removecmd() As String
    98. Dim tempcmd As String
    100. tempcmd = "@cmd /c G:\Windows_Profiles\Users\Zeljko\Downloads\System\Virtueller_Monitor\usbmmidd_v2\deviceinstaller64.exe stop usbmmidd"
    101. tempcmd = tempcmd & vbNewLine & "End"
    102. tempcmd = tempcmd & vbNewLine & "Pause"
    103. Return tempcmd
    105. End Function
    106. Private Function AddGameDisplaycmd() As String
    108. Dim tempcmd As String
    110. tempcmd = "@cmd /c G:\Windows_Profiles\Users\Zeljko\Downloads\System\Virtueller_Monitor\usbmmidd_v2\deviceinstaller64.exe install G:\Windows_Profiles\Users\Zeljko\Downloads\System\Virtueller_Monitor\usbmmidd_v2\usbmmidd.inf usbmmidd"
    111. tempcmd = tempcmd & vbNewLine & "@cmd /c G:\Windows_Profiles\Users\Zeljko\Downloads\System\Virtueller_Monitor\usbmmidd_v2\deviceinstaller64.exe enableidd 1"
    112. tempcmd = tempcmd & vbNewLine & "End"
    113. tempcmd = tempcmd & vbNewLine & "Pause"
    114. Return tempcmd
    116. End Function
    117. Private Sub Game_BTN_Click(sender As Object, e As RoutedEventArgs)
    119. 'RunCommandCom(Removecmd)
    120. RunCommandCom(AddGameDisplaycmd)
    121. 'StartProcessasAdmin("G:\Windows_Profiles\Users\Zeljko\Desktop\Spielen.cmd")
    122. System.Threading.Thread.Sleep(5000)
    123. ChangeResulution(3840, 2160)
    125. 'Process.Start("G:\Windows_Profiles\Users\Zeljko\Desktop\Virtual Desktop.url")
    127. End Sub
    128. Private Sub RunCommandCom(ByVal command As String)
    130. Dim p As Process = New Process()
    131. Dim pi As ProcessStartInfo = New ProcessStartInfo()
    133. pi.Arguments = command
    134. pi.FileName = "cmd.exe"
    135. pi.Verb = "runas"
    137. p.StartInfo = pi
    139. p.Start()
    141. End Sub
    142. Private Sub Work_BTN_Click(sender As Object, e As RoutedEventArgs)
    144. Process.Start("G:\Windows_Profiles\Users\Zeljko\Desktop\Remove.bat")
    145. Process.Start("G:\Windows_Profiles\Users\Zeljko\Desktop\Arbeit.bat")
    147. ChangeResulution(1920, 1080)
    149. Process.Start("G:\Windows_Profiles\Users\Zeljko\Desktop\Desktop+.url")
    151. End Sub
    152. Private Sub ChangeResulution(ByVal DP_Width As Integer, ByVal DP_Height As Integer)
    154. Dim dmCurrResolution As DEVMODE 'Create Resolution Object
    155. Dim dmResolutions() As DEVMODE 'Create Resolution Array Because There Will Be More Than One Screen
    157. Dim ddCurrDisplay As DISPLAY_DEVICE 'Create DisplayDevice Object
    158. Dim ddDevices() As DISPLAY_DEVICE 'Create Display Device Array Because There Will Be More Than One Screen
    160. Dim intResult As Integer = 1 'Result Of EnumDisplayDevices API Call
    161. Dim sMonitors As Integer 'How Many Monitors?
    163. 'Loop Through All Available Monitors And get Their Current Settings
    164. Do While intResult <> 0 'Do While There Are Monitors
    166. ddCurrDisplay.cb = Marshal.SizeOf(ddCurrDisplay) 'Initialize Current Display Object
    167. dmCurrResolution.dmSize = CShort(Marshal.SizeOf(dmCurrResolution)) 'get Size
    169. intResult = EnumDisplayDevices(0, sMonitors, ddCurrDisplay, 0) 'Determine Number Of Monitors
    171. 'Determine How Monitors Are Connected To System
    172. If ddCurrDisplay.StateFlags = DISPLAY_DEVICE_ATTACHED_TO_DESKTOP Or
    173. ddCurrDisplay.StateFlags = DISPLAY_PRIMARY_DEVICE Or
    174. ddCurrDisplay.StateFlags = (DISPLAY_DEVICE_ATTACHED_TO_DESKTOP Or DISPLAY_PRIMARY_DEVICE) Then
    176. ReDim Preserve ddDevices(sMonitors) 'Allocate Space For Each Monitor In Array
    178. ddDevices(sMonitors) = ddCurrDisplay 'Store Their Settings
    180. End If
    182. sMonitors += 1 'Increment
    184. Loop
    186. 'Loop Through All Monitors And Set Resolution
    187. For sMonitors = 0 To UBound(ddDevices)
    189. Debug.Print(ddDevices(sMonitors).DeviceString & "- " & ddDevices(sMonitors).DeviceName)
    191. ReDim Preserve dmResolutions(sMonitors)
    193. If ddDevices(sMonitors).DeviceString = "USB Mobile Monitor Virtual Display" Then
    195. 'Determine Size
    196. dmResolutions(sMonitors).dmSize = CShort(Marshal.SizeOf(dmResolutions(sMonitors)))
    197. dmResolutions(sMonitors).dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT Or DM_BITSPERPEL 'Get Settings
    199. dmResolutions(sMonitors).dmPelsWidth = DP_Width 'Change X
    200. dmResolutions(sMonitors).dmPelsHeight = DP_Height 'Change Y
    202. dmResolutions(sMonitors).dmBitsPerPel = 32 ' Use Correct BPP Setting, Could Be 8, 16, 32 Or 4
    204. 'Change
    205. intResult = ChangeDisplaySettingsEx(ddDevices(sMonitors).DeviceName, dmResolutions(sMonitors), 0, CDS_UPDATEREGISTRY, 0)
    207. If intResult = -1 Then 'Error Thrown
    209. MessageBox.Show("Invalid Setting")
    211. End If
    213. End If
    215. Next
    217. End Sub
    219. End Class



    Ich hatte erst versucht über process.start direkt die cmd's aufzurufen, jedoch hat das auch nicht geholfen deshalb habe ich das dann versucht direkt im Programm zu verarbeiten.

    Code-Tags eingefügt. Spoiler-Tag eingefügt. (Der Code ist doch recht lang, da kann man den schon mal spendieren ;) ) Thunderbolt

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Thunderbolt“ ()

    Rattenfänger schrieb:

    Ich hatte erst versucht über process.start direkt die cmd's aufzurufen
    Erstell Dir Process-Instanzen mit New Process() und gib ihnen das Arbeitsverzeichnis mit, in dem die Programme laufen sollen:
    ProcessStartInfo.WorkingDirectory
    learn.microsoft.com/de-de/dotn…ingdirectory?view=net-6.0
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hallo @RodFromGermany,

    leider hat das nichts geholfen, die Fehlermeldung erscheint(siehe Bild).

    Er cutet mir den Befehl nach "usbmmidd.inf" und erstellt da einen Punkt !?!

    Jedoch lautet die Befehlszeile ja komplett:

    @cmd /c G:\Windows_Profiles\Users\Zeljko\Downloads\System\Virtueller_Monitor\usbmmidd_v2\deviceinstaller64.exe install G:\Windows_Profiles\Users\Zeljko\Downloads\System\Virtueller_Monitor\usbmmidd_v2\usbmmidd.inf usbmmidd

    anbei mein geänderter Code(zumindest die geänderten Funktionen/Prozeduren):

    VB.NET-Quellcode

    1. ​
    2. Private Sub RunCommandCom(ByVal command As String)
    4. Dim p As Process = New Process()
    5. Dim pi As ProcessStartInfo = New ProcessStartInfo()
    7. pi.Arguments = command
    8. pi.WorkingDirectory = "G:\Windows_Profiles\Users\Zeljko\Downloads\System\Virtueller_Monitor\usbmmidd_v2"
    9. pi.FileName = "cmd.exe"
    10. pi.Verb = "runas"
    12. p.StartInfo = pi
    14. p.Start()
    16. End Sub
    18. Private Function AddGameDisplaycmd() As String
    20. Dim tempcmd As String
    22. tempcmd = "@cmd /c deviceinstaller64.exe install usbmmidd.inf usbmmidd"
    23. tempcmd = tempcmd & vbNewLine & "@cmd /c deviceinstaller64.exe enableidd 1"
    24. tempcmd = tempcmd & vbNewLine & "End"
    25. tempcmd = tempcmd & vbNewLine & "Pause"
    26. Return tempcmd
    28. End Function
    Bilder

    • Unbenannt.PNG

      51,84 kB, 1.257×696, 56 mal angesehen

    @Rattenfänger Was passierst, wenn Du die Batch-Datei vom Explorer aus ausführst?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @Rattenfänger Dann schreibe die CMD und starte sie im dem richtigen WorkingDirectory.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    1.) war ein Fehler drin. Er hat mir jedesmal einen neuen Treiber installiert. Den Fehler habe ich beseitigt!
    2.) Funktioniert es dennoch nicht nach der korrektur. Weder als *.bat oder *.cmd

    Es erscheint kurz die Kommando Konsole und das wars.

    VB.NET-Quellcode

    1. Private Sub RunCommandCom(ByVal command As String)
    2. Dim p As Process = New Process()
    3. Dim pi As ProcessStartInfo = New ProcessStartInfo()
    4. 'pi.Arguments = command
    5. pi.WorkingDirectory = "G:\Windows_Profiles\Users\Zeljko\Downloads\System\Virtueller_Monitor\usbmmidd_v2\"
    6. pi.FileName = "Spielen.bat"
    7. pi.Verb = "runas"
    8. p.StartInfo = pi
    9. p.Start()
    10. End Sub
    12. Private Function AddGameDisplaycmd() As String
    14. Dim tempcmd As String
    16. 'tempcmd = "@cmd /c deviceinstaller64.exe install usbmmidd.inf usbmmidd"
    17. tempcmd = "@cmd /c deviceinstaller64.exe enableidd 1"
    18. tempcmd = tempcmd & vbNewLine & "End"
    19. tempcmd = tempcmd & vbNewLine & "Pause"
    20. Return tempcmd
    22. End Function




    Habe es auch mal wieder als normaler User gestartet, da win10 user und Admin seperat hält. Also Ebene des Admins ist komplett anders.

    @Rattenfänger Bring die CMD zum Laufen.
    Danach portierst Du das ganze nach VB.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Wenn, dann gleich

    Quellcode

    1. tempcmd = """@cmd /c deviceinstaller64.exe enableidd 1"""
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    also die cmd, lässt sich jetzt aus vb.net heraus starten. hier musste ich die cmd, bis auf eine zeile kürzen.

    deviceinstaller64.exe enableidd 1

    habe das natürlich gleich auch so in vb versucht, ging natürlich nicht :/ .

    im schlimmsten fall werde ich die cmd(Datei), im installationsordner mit einbauen. Das ist für den Anfang erstmal nicht schlimm.

Facebook
Telefonspende