Как отключить экран кпк? , .net cf 2 (vb)

[Vitik]

Тут заинтересовало как проги для кпк отключают экран во время своей работы (плейеры, в остновном), мне стало интересно как это делается под .net... Полазил по фреймворку, не нашел, мсдн не установлена, яндекс ваще какой-то бред несвязный находит, решил спросить здесь... Подскажите, как программно отключить экран кпк из-под .net compact framework 2.0?

[Vitik]

о, все, нашел сам. дизассемблировал библиотеку из Basic4ppc и из функции ScreenOn сделал функцию ScreenOff с помощью сайта pinvoke.net...

если вдруг кому понадобится, вот это у меня работает:

Public Sub ScreenOff()
Dim dC As IntPtr = GetDC(IntPtr.Zero)
Dim inData As Integer() = {8}
If (ExtEscape(dC, 8, System.Runtime.InteropServices.Marshal.SizeOf(inData.GetType), inData, 0, IntPtr.Zero) = IntPtr.Zero) Then
Throw New Exception("This device does not support display power on/off")
End If
Dim numArray As Integer() = New Integer() {(3 * System.Runtime.InteropServices.Marshal.SizeOf(GetType(Integer))), 1, 4}
ExtEscape(dC, 6147, numArray(0), numArray, 0, IntPtr.Zero)
ReleaseDC(IntPtr.Zero, dC)
End Sub

Сообщение отредактировано: GazOn - 12.01.08, 19:07