Virtuelle Desktops wolle nicht

Leseratte · 3. Januar 2012, 17:15

Hallo, ich wollte ein Program machen mit dem ich verschiedene Desktops verwalten kann, aber der erstellt einfach keinen Desktop. Mein Code ist folgender:

Mein Code

VB.NET-Quellcode

Class Form1
Private Const CCHFORMNAME = 32
Private Const CCHDEVICENAME = 32
Private Structure SECURITY_ATTRIBUTES
Dim nLength As Integer
Dim lpSecurityDescriptor As Integer
Dim bInheritHandle As Integer
End Structure
Private Structure DEVMODE
Dim dmDeviceName As String
Dim dmSpecVersion As Short
Dim dmDriverVersion As Short
Dim dmSize As Short
Dim dmDriverExtra As Short
Dim dmFields As Integer
Dim dmOrientation As Short
Dim dmPaperSize As Short
Dim dmPaperLength As Short
Dim dmPaperWidth As Short
Dim dmScale As Short
Dim dmCopies As Short
Dim dmDefaultSource As Short
Dim dmPrintQuality As Short
Dim dmColor As Short
Dim dmDuplex As Short
Dim dmYResolution As Short
Dim dmTTOption As Short
Dim dmCollate As Short
Dim dmFormName As String
Dim dmUnusedPadding As Short
Dim dmBitsPerPel As Integer
Dim dmPelsWidth As Integer
Dim dmPelsHeight As Integer
Dim dmDisplayFlags As Integer
Dim dmDisplayFrequency As Integer
End Structure
Private Declare Function CreateDesktop Lib "user32" Alias "CreateDesktopW" ( _
ByVal lpszDesktop As Long, _
ByVal lpszDevice As Long, _
ByVal pDevmode As Object, _
ByVal dwFlags As Long, _
ByVal dwDesiredAccess As Long, _
ByVal lpsa As Object _
) As Long
Private Declare Function SwitchDesktop Lib "user32" (ByVal hDesktop As Long) As Long
Private Declare Function GetThreadDesktop Lib "user32" (ByVal dwThread As Long) As Long
Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long
Private Declare Function OpenInputDesktop Lib "user32" ( _
ByVal dwFlags As Long, _
ByVal fInherit As Boolean, _
ByVal dwDesiredAccess As Long _
) As Long
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Normal As IntPtr = GetCurrentThreadId()
Dim Sperr As IntPtr = CreateDesktop(12345, 0, Nothing, 0, 0, 0) REM Hier kommt der Fehler
SwitchDesktop(Sperr)
System.Threading.Thread.Sleep(20000)
SwitchDesktop(Normal)
End Sub
End Class

Aber in der Markierten Zeile

VB.NET-Quellcode

Dim Sperr As IntPtr = CreateDesktop(12345, 0, Nothing, 0, 0, 0)

Kommt folgender Fehler:

Fehler

Hä?

Kann mir einer sagen was ich falsch mach?

Danke
Leseratte

haiyyu · 3. Januar 2012, 17:24

Änder ich den API-Deklarationen mal alle Longs zu Integers (Parameter und Rückgabewert).

Leseratte · 3. Januar 2012, 17:27

Immernoch.

Spoiler anzeigen

VB.NET-Quellcode

Public Class Form1
Private Const CCHFORMNAME = 32
Private Const CCHDEVICENAME = 32
Private Structure SECURITY_ATTRIBUTES
Dim nLength As Integer
Dim lpSecurityDescriptor As Integer
Dim bInheritHandle As Integer
End Structure
Private Structure DEVMODE
Dim dmDeviceName As String
Dim dmSpecVersion As Short
Dim dmDriverVersion As Short
Dim dmSize As Short
Dim dmDriverExtra As Short
Dim dmFields As Integer
Dim dmOrientation As Short
Dim dmPaperSize As Short
Dim dmPaperLength As Short
Dim dmPaperWidth As Short
Dim dmScale As Short
Dim dmCopies As Short
Dim dmDefaultSource As Short
Dim dmPrintQuality As Short
Dim dmColor As Short
Dim dmDuplex As Short
Dim dmYResolution As Short
Dim dmTTOption As Short
Dim dmCollate As Short
Dim dmFormName As String
Dim dmUnusedPadding As Short
Dim dmBitsPerPel As Integer
Dim dmPelsWidth As Integer
Dim dmPelsHeight As Integer
Dim dmDisplayFlags As Integer
Dim dmDisplayFrequency As Integer
End Structure
Private Declare Function CreateDesktop Lib "user32" Alias "CreateDesktopW" ( _
ByVal lpszDesktop As Long, _
ByVal lpszDevice As Long, _
ByVal pDevmode As Object, _
ByVal dwFlags As Long, _
ByVal dwDesiredAccess As Long, _
ByVal lpsa As Object _
) As Long
Private Declare Function SwitchDesktop Lib "user32" (ByVal hDesktop As Integer) As Integer
Private Declare Function GetThreadDesktop Lib "user32" (ByVal dwThread As Integer) As Integer
Private Declare Function GetCurrentThreadId Lib "kernel32" () As Integer
Private Declare Function OpenInputDesktop Lib "user32" ( _
ByVal dwFlags As Integer, _
ByVal fInherit As Boolean, _
ByVal dwDesiredAccess As Integer _
) As Long
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Normal As IntPtr = GetCurrentThreadId
Dim Sperr As IntPtr = CreateDesktop(12345, 0, Nothing, 0, 0, 0)
SwitchDesktop(Sperr)
System.Threading.Thread.Sleep(20000)
SwitchDesktop(Normal)
End Sub
End Class

haiyyu · 3. Januar 2012, 17:33

Bei CreateDesktop hast du nichts verändert.

Dodo · 3. Januar 2012, 17:37

Schalte mal Option Strict auf On und beseitige alle Fehlermeldungen die dort auftreten. Das dürften einige sein wenn ich mir den Code so ansehe, dann nutze die richtige API Deklaration, hierzu kannst du pinvoke.net nutzen, bsp.:

pinvoke.net/default.aspx/user32.switchdesktop

SystemUnknow · 3. Januar 2012, 17:49

codeproject.com/KB/cs/csdesktopswitching.aspx

Leseratte · 3. Januar 2012, 18:53

Mit dem Code hier:

Spoiler anzeigen

VB.NET-Quellcode

Option Strict On
Imports System.Collections.Generic
Imports System.Runtime.InteropServices
Imports System.Text
Public Class Form1
Private Const CCHFORMNAME = 32
Private Const CCHDEVICENAME = 32
Private Structure SECURITY_ATTRIBUTES
Dim nLength As Integer
Dim lpSecurityDescriptor As Integer
Dim bInheritHandle As Integer
End Structure
Private Structure DEVMODE
Dim dmDeviceName As String
Dim dmSpecVersion As Short
Dim dmDriverVersion As Short
Dim dmSize As Short
Dim dmDriverExtra As Short
Dim dmFields As Integer
Dim dmOrientation As Short
Dim dmPaperSize As Short
Dim dmPaperLength As Short
Dim dmPaperWidth As Short
Dim dmScale As Short
Dim dmCopies As Short
Dim dmDefaultSource As Short
Dim dmPrintQuality As Short
Dim dmColor As Short
Dim dmDuplex As Short
Dim dmYResolution As Short
Dim dmTTOption As Short
Dim dmCollate As Short
Dim dmFormName As String
Dim dmUnusedPadding As Short
Dim dmBitsPerPel As Integer
Dim dmPelsWidth As Integer
Dim dmPelsHeight As Integer
Dim dmDisplayFlags As Integer
Dim dmDisplayFrequency As Integer
End Structure
Private Declare Function CreateDesktop Lib "user32" Alias "CreateDesktopW" ( _
ByVal lpszDesktop As Integer, _
ByVal lpszDevice As Integer, _
ByVal pDevmode As Object, _
ByVal dwFlags As Integer, _
ByVal dwDesiredAccess As Integer, _
ByVal lpsa As Object _
) As Integer
Private Declare Function SwitchDesktop Lib "user32" (ByVal hDesktop As Integer) As Integer
Private Declare Function GetThreadDesktop Lib "user32" (ByVal dwThread As Integer) As Integer
Private Declare Function GetCurrentThreadId Lib "kernel32" () As Integer
Private Declare Function OpenInputDesktop Lib "user32" ( _
ByVal dwFlags As Integer, _
ByVal fInherit As Boolean, _
ByVal dwDesiredAccess As Integer _
) As Long
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Normal As Integer = GetCurrentThreadId
Dim Sperr As Integer = CreateDesktop(12345, 0, Nothing, 0, 0, 0)
SwitchDesktop(Sperr)
System.Threading.Thread.Sleep(20000)
SwitchDesktop(Normal)
End Sub
End Class

Kommt jetzt auch mit Option Strict on kein fehler in der IDE, aber zur Laufzeit kommt immernoch "Es wurde versucht, im geschützten Speicher zu lesen oder zu schreiben. Dies ist häufig ein Hinweis darauf, dass anderer Speicher beschädigt ist.". Ich schau mir mal die Links an.

EDIT: Bei der Funktion hier:

VB.NET-Quellcode

Private Declare Function CreateDesktop Lib "user32" Alias "CreateDesktop" ( _
ByVal desktopname As String, _
ByVal lpszDevice As String, _
ByVal pDevmode As String, _
ByVal dwFlags As Integer, _
ByVal dwDesiredAccess As Integer, _
ByVal lpsa As SECURITY_ATTRIBUTES _
) As IntPtr

Kommt jetzt: Der Einstiegspunkt "CreateDesktop" wurde nicht in der DLL "user32" gefunden.
Hä?

SystemUnknow · 3. Januar 2012, 19:06

VB.NET-Quellcode

Private Declare Function CreateDesktop Lib "user32.dll" Alias "CreateDesktopA" (ByVal lpszDesktop As String, ByVal lpszDevice As String, ByRef pDevmode As DEVMODE, ByVal dwFlags As Int32, ByVal dwDesiredAccess As Int32, ByRef lpsa As SECURITY_ATTRIBUTES) As Int32

Leseratte · 3. Januar 2012, 19:13

Gut, mit dem Code funzts jetzt (zumindest kommt kein Fehler) aber wenn ich das jetzt starte, passiert nix? Und wie kann ich dann Programme auf dem 2. Desktop starten?

SystemUnknow · 3. Januar 2012, 19:17

schau dir C# source an (siehe mein link), dort steht beschrieben wie man in virt.desktop ein process gestartet wird.

Leseratte · 3. Januar 2012, 19:26

Ich hab den c# code jetzt übertragen aber da sind noch ein Paar sachen die ichnicht übersetzt bekomme:

Mein Code

VB.NET-Quellcode

Option Strict On
Imports System.Collections.Generic
Imports System.Runtime.InteropServices
Imports System.Text
Public Class Form1
Private Const CCHFORMNAME = 32
Private Const CCHDEVICENAME = 32
Private Structure SECURITY_ATTRIBUTES
Dim nLength As Integer
Dim lpSecurityDescriptor As Integer
Dim bInheritHandle As Integer
End Structure
Private Structure DEVMODE
Dim dmDeviceName As String
Dim dmSpecVersion As Short
Dim dmDriverVersion As Short
Dim dmSize As Short
Dim dmDriverExtra As Short
Dim dmFields As Integer
Dim dmOrientation As Short
Dim dmPaperSize As Short
Dim dmPaperLength As Short
Dim dmPaperWidth As Short
Dim dmScale As Short
Dim dmCopies As Short
Dim dmDefaultSource As Short
Dim dmPrintQuality As Short
Dim dmColor As Short
Dim dmDuplex As Short
Dim dmYResolution As Short
Dim dmTTOption As Short
Dim dmCollate As Short
Dim dmFormName As String
Dim dmUnusedPadding As Short
Dim dmBitsPerPel As Integer
Dim dmPelsWidth As Integer
Dim dmPelsHeight As Integer
Dim dmDisplayFlags As Integer
Dim dmDisplayFrequency As Integer
End Structure
Private Declare Function CreateDesktop Lib "user32.dll" Alias "CreateDesktopA" (ByVal lpszDesktop As String, _
ByVal lpszDevice As String, ByRef pDevmode As DEVMODE, ByVal dwFlags As Int32, _
ByVal dwDesiredAccess As Int32, ByRef lpsa As SECURITY_ATTRIBUTES) As Int32 REM lpszDevice, pdevmode, dwflags must be 0
Private Declare Function SwitchDesktop Lib "user32" (ByVal hDesktop As IntPtr) As Boolean
Private Declare Function GetThreadDesktop Lib "user32" (ByVal dwThread As Integer) As IntPtr
Private Declare Function GetCurrentThreadId Lib "kernel32" () As IntPtr
Private Declare Function OpenInputDesktop Lib "user32" ( _
ByVal dwFlags As UInteger, _
ByVal fInherit As Boolean, _
ByVal dwDesiredAccess As UInteger _
) As IntPtr
<DllImport("kernel32.dll")> _
Private Shared Function CreateProcess(ByVal lpApplicationName As String, ByVal lpCommandLine As String, ByVal lpProcessAttributes As IntPtr, ByVal lpThreadAttributes As IntPtr, ByVal bInheritHandles As Boolean, ByVal dwCreationFlags As Integer, _
ByVal lpEnvironment As IntPtr, ByVal lpCurrentDirectory As String, ByRef lpStartupInfo As STARTUPINFO, ByRef lpProcessInformation As PROCESS_INFORMATION) As Boolean
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Normal As IntPtr = GetCurrentThreadId
Dim Sperr As IntPtr = CType(CreateDesktop("Sperr", Nothing, Nothing, Nothing, 0, Nothing), IntPtr)
SwitchDesktop(Sperr)
Dim si As New STARTUPINFO()
si.cb = Marshal.SizeOf(si)
si.lpDesktop = "Sperr"
Dim pi As New PROCESS_INFORMATION()
' start the process.
Dim result As Boolean = CreateProcess(Nothing, "cmd.exe", IntPtr.Zero, IntPtr.Zero, True, NORMAL_PRIORITY_CLASS, _
IntPtr.Zero, Nothing, si, pi)
System.Threading.Thread.Sleep(20000)
SwitchDesktop(Normal)
End Sub
End Class

Der Unterkringelt mir folgende sachen mit der Meldung "... ist nicht dekliniert / definiert:

PROCESS_INFORMATION (2x)
STARTUPINFO (2x)
NORMAL_PRIORITY_CLASS

Wie muss ich die Sachen definieren?

SystemUnknow · 3. Januar 2012, 19:30

msdn.microsoft.com/en-us/libra…s686331%28v=vs.85%29.aspx
msdn.microsoft.com/en-us/libra…s684873%28v=vs.85%29.aspx
msdn.microsoft.com/en-us/libra…s683211%28v=vs.85%29.aspx

Leseratte · 3. Januar 2012, 19:34

Wie muss ich das übersetzen? Der übersetzer hier (developerfusion.com/tools/convert/csharp-to-vb/) gibt n Fehler bei allen 3en

Übersetzer schrieb:

-- line 1 col 1: EOF expected

SystemUnknow · 3. Januar 2012, 19:38

heist SizeOf und nicht EOF. Kopiere wenigstens source richtig.

Leseratte · 3. Januar 2012, 19:40

Hä?

Ich hab diese Code von der Microsoft-Seite

VB.NET-Quellcode

typedef struct _STARTUPINFO {
DWORD cb;
LPTSTR lpReserved;
LPTSTR lpDesktop;
LPTSTR lpTitle;
DWORD dwX;
DWORD dwY;
DWORD dwXSize;
DWORD dwYSize;
DWORD dwXCountChars;
DWORD dwYCountChars;
DWORD dwFillAttribute;
DWORD dwFlags;
WORD wShowWindow;
WORD cbReserved2;
LPBYTE lpReserved2;
HANDLE hStdInput;
HANDLE hStdOutput;
HANDLE hStdError;
} STARTUPINFO, *LPSTARTUPINFO;

In diesen (developerfusion.com/tools/convert/csharp-to-vb/) übersetzer einkopiert und der gibt mir
diese: "-- line 1 col 1: EOF expected " fehlermeldung. Wo steht da was von Sizeof?

SystemUnknow · 3. Januar 2012, 19:44

Das ist C deklarationen, richtige deklarationen siehe in link von dodo.

haiyyu · 3. Januar 2012, 19:45

Der Konverter konvertiert auch nur C# zu VB.NET, nicht C oder C++.

SystemUnknow · 3. Januar 2012, 19:48

@haiyyu: genau !

VB.NET-Quellcode

<StructLayout(LayoutKind.Sequential)> _
Private Structure STARTUPINFO
Public cb As Int32
Public lpReserved As Int32
Public lpDesktop As Int32
Public lpTitle As Int32
Public dwX As Int32
Public dwY As Int32
Public dwXSize As Int32
Public dwYSize As Int32
Public dwXCountChars As Int32
Public dwYCountChars As Int32
Public dwFillAttribute As Int32
Public dwFlags As Int32
Public wShowWindow As Int16
Public cbReserved2 As Int16
Public lpReserved2 As Byte
Public hStdInput As Int32
Public hStdOutput As Int32
Public hStdError As Int32
End Structure
<StructLayout(LayoutKind.Sequential)> _
Private Structure PROCESS_INFORMATION
Public hProcess As Int32
Public hThread As Int32
Public dwProcessId As Int32
Public dwThreadId As Int32
End Structure

Leseratte · 3. Januar 2012, 19:54

WIESO FUNKTIONIERT DAS NICHT :cursing:

Mein code ist:

Spoiler anzeigen

VB.NET-Quellcode

Option Strict On
Imports System.Collections.Generic
Imports System.Runtime.InteropServices
Imports System.Text
Public Class Form1
Private Const CCHFORMNAME = 32
Private Const CCHDEVICENAME = 32
Private Structure DEVMODE
Dim dmDeviceName As String
Dim dmSpecVersion As Short
Dim dmDriverVersion As Short
Dim dmSize As Short
Dim dmDriverExtra As Short
Dim dmFields As Integer
Dim dmOrientation As Short
Dim dmPaperSize As Short
Dim dmPaperLength As Short
Dim dmPaperWidth As Short
Dim dmScale As Short
Dim dmCopies As Short
Dim dmDefaultSource As Short
Dim dmPrintQuality As Short
Dim dmColor As Short
Dim dmDuplex As Short
Dim dmYResolution As Short
Dim dmTTOption As Short
Dim dmCollate As Short
Dim dmFormName As String
Dim dmUnusedPadding As Short
Dim dmBitsPerPel As Integer
Dim dmPelsWidth As Integer
Dim dmPelsHeight As Integer
Dim dmDisplayFlags As Integer
Dim dmDisplayFrequency As Integer
End Structure
Private Declare Function CreateDesktop Lib "user32.dll" Alias "CreateDesktopA" (ByVal lpszDesktop As String, _
ByVal lpszDevice As String, ByRef pDevmode As DEVMODE, ByVal dwFlags As Int32, _
ByVal dwDesiredAccess As Int32, ByRef lpsa As SECURITY_ATTRIBUTES) As Int32 REM lpszDevice, pdevmode, dwflags must be 0
Private Declare Function SwitchDesktop Lib "user32" (ByVal hDesktop As IntPtr) As Boolean
Private Declare Function GetThreadDesktop Lib "user32" (ByVal dwThread As Integer) As IntPtr
Private Declare Function GetCurrentThreadId Lib "kernel32" () As IntPtr
Private Declare Function OpenInputDesktop Lib "user32" ( _
ByVal dwFlags As UInteger, _
ByVal fInherit As Boolean, _
ByVal dwDesiredAccess As UInteger _
) As IntPtr
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)> _
Structure STARTUPINFO
Public cb As Integer
Public lpReserved As String
Public lpDesktop As String
Public lpTitle As String
Public dwX As Integer
Public dwY As Integer
Public dwXSize As Integer
Public dwYSize As Integer
Public dwXCountChars As Integer
Public dwYCountChars As Integer
Public dwFillAttribute As Integer
Public dwFlags As Integer
Public wShowWindow As Short
Public cbReserved2 As Short
Public lpReserved2 As Integer
Public hStdInput As Integer
Public hStdOutput As Integer
Public hStdError As Integer
End Structure
Structure PROCESS_INFORMATION
Public hProcess As IntPtr
Public hThread As IntPtr
Public dwProcessId As Integer
Public dwThreadId As Integer
End Structure
<StructLayout(LayoutKind.Sequential)> _
Structure SECURITY_ATTRIBUTES
Public nLength As Integer
Public lpSecurityDescriptor As IntPtr
Public bInheritHandle As Integer
End Structure
<DllImport("kernel32.dll")> _
Private Shared Function CreateProcess(ByVal lpApplicationName As String, ByVal lpCommandLine As String, ByVal lpProcessAttributes As IntPtr, ByVal lpThreadAttributes As IntPtr, ByVal bInheritHandles As Boolean, ByVal dwCreationFlags As Integer, _
ByVal lpEnvironment As IntPtr, ByVal lpCurrentDirectory As String, ByRef lpStartupInfo As STARTUPINFO, ByRef lpProcessInformation As PROCESS_INFORMATION) As Boolean
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Shown
Dim Normal As IntPtr = GetCurrentThreadId
Dim Sperr As IntPtr = CType(CreateDesktop("Sperr", Nothing, Nothing, Nothing, 0, Nothing), IntPtr)
SwitchDesktop(Sperr)
Dim si As New STARTUPINFO()
si.cb = Marshal.SizeOf(si)
si.lpDesktop = "Sperr"
Dim pi As New PROCESS_INFORMATION()
' start the process.
Dim result As Boolean = CreateProcess(Nothing, "explorer.exe", IntPtr.Zero, IntPtr.Zero, True, 0, _
IntPtr.Zero, Nothing, si, pi)
System.Threading.Thread.Sleep(20000)
SwitchDesktop(Normal)
End Sub
End Class

Nur leider kackt die anwendung (in dem fall der explorer) direkt mit "Die Anwendung konnte nicht richtig initialisiert werden (0xc0000142). Klicken Sie auf "OK", um die Anwendung zu beenden. " ab. Und danach ist keine änderung von wegen nem anderen Desktop zu erkennen.

SystemUnknow · 3. Januar 2012, 20:01

1.

VB.NET-Quellcode

Private Declare Function SwitchDesktop Lib "user32.dll" (ByVal hDesktop As Int32) As Int32

2. schau dir diese funktion genauer an:

VB.NET-Quellcode

public Process CreateProcess(string path)
524 {
525 // make sure object isnt disposed.
526 CheckDisposed();
527
528 // make sure a desktop is open.
529 if (!IsOpen) return null;
530
531 // set startup parameters.
532 STARTUPINFO si = new STARTUPINFO();
533 si.cb = Marshal.SizeOf(si);
534 si.lpDesktop = m_desktopName;
535
536 PROCESS_INFORMATION pi = new PROCESS_INFORMATION();
537
538 // start the process.
539 bool result = CreateProcess(null, path, IntPtr.Zero, IntPtr.Zero, true, NORMAL_PRIORITY_CLASS, IntPtr.Zero, null, ref si, ref pi);
540
541 // error?
542 if (!result) return null;
543
544 // Get the process.
545 return Process.GetProcessById(pi.dwProcessId);

3.

VB.NET-Quellcode

Private pi As PROCESS_INFORMATION
Private si As STARTUPINFO

Virtuelle Desktops wolle nicht

Virtuelle Desktops wolle nicht

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Übersetzer schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

3 Benutzer haben hier geschrieben