VB Forum / General / July 2009

Then how come that OSK.exe from MS does this implicitly at startup?

I debugged it, it goes something like this (sorry, it's a really rough
mixture of C++, VB.NET and VB6):

        hWinSta = GetProcessWindowStation()
        lHandleToWindowsStation0 = OpenWindowStationW("WinSta0", 0,
MAXIMUM_ALLOWED)
        m_lHandleToWindowsStation0 = lHandleToWindowsStation0

        If lHandleToWindowsStation0 Then
            SetProcessWindowStation(lHandleToWindowsStation0)
        End If
     TrySetDesktopThread(foovar1,foovar2)
    End If
'-------------------------------------------------------------------------------------------------

public function TrySetDesktopThread(byval uVar1,Byval uVar2)
     Dim result As Integer
     Dim v3 As IntPtr
     Dim v4 As IntPtr
     Dim v5 As UInteger
     Dim v6 As IntPtr
     Dim v7 As Integer
     Dim Dest As Char
     Dim hDesktop As IntPtr
     Dim pvInfo As SByte
     Dim nLengthNeeded As UInteger

     v7 = dword_101ED2C
     Dest = a2
     *CType(a1, _DWORD) = 0
     v3 = OpenInputDesktop(0, 0, H2000000u)
     hDesktop = v3
     If v3 OrElse v4 Then
        GetUserObjectInformationW(hDesktop, 2, pvInfo, H12Cu, nLengthNeeded)
        If Dest Then
         Dest = (const Char *) And pvInfo
        End If
        If wcsicmp((const Char *) And pvInfo, "Default") Then
         If wcsicmp((const Char *) And pvInfo, "Winlogon") Then
            If wcsicmp((const Char *) And pvInfo, "screen-saver") Then
             *CType(a1, _DWORD) = (wcsicmp((const Char *) And pvInfo,
"Display.Cpl Desktop") <> 0) + 4
            Else
             *CType(a1, _DWORD) = 2
            End If
         Else
            *CType(a1, _DWORD) = 3
         End If
        Else
         *CType(a1, _DWORD) = 1
        End If
        v5 = GetCurrentThreadId()
        v6 = GetThreadDesktop(v5)
        CloseDesktop(v6)
        SetThreadDesktop(hDesktop)
        result = 1
     Else
        result = 0
     End If
     Return result