PDA

View Full Version : سوال: خاموش كردن و راه اندازي دستگاه



h_r_sh
پنج شنبه 23 اردیبهشت 1389, 20:19 عصر
با سلام به همه.
كسي كد خاموش كردن و يا Reset كردن PPC رو مي دونه؟

vbworm
یک شنبه 10 مرداد 1389, 00:28 صبح
فقط کد ریست رو تونستم دربیارم :خجالت:



Private Declare Function KernelIoControl Lib "coredll.dll" (ByVal _
dwIoControlCode As Integer, ByVal lpInBuf As IntPtr, ByVal nInBufSize As _
Integer, ByVal lpOutBuf As IntPtr, ByVal nOutBufSize As Integer, ByRef _
lpBytesReturned As Integer) As Integer

Private Function CTL_CODE(ByVal DeviceType As Integer, ByVal Func As Integer, _
ByVal Method As Integer, ByVal Access As Integer) As Integer
Return (DeviceType << 16) Or (Access << 14) Or (Func << 2) Or Method
End Function
Private Function ResetPocketPC() As Integer
Const FILE_DEVICE_HAL As Integer = &H101
Const METHOD_BUFFERED As Integer = 0
Const FILE_ANY_ACCESS As Integer = 0
Dim bytesReturned As Integer = 0
Dim IOCTL_HAL_REBOOT As Integer

IOCTL_HAL_REBOOT = CTL_CODE(FILE_DEVICE_HAL, 15, METHOD_BUFFERED, FILE_ANY_ACCESS)
Return KernelIoControl(IOCTL_HAL_REBOOT, IntPtr.Zero, 0, IntPtr.Zero, 0, bytesReturned)
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ResetPocketPC()
End Sub