windows mobile 下如何编程实现重启、关机(vb.net)(页 1) - 移动...

windows mobile 下如何编程实现重启、关机(vb.net)

[table][tr][td][size=4]由于visual studio.net 中没有提供重启、关机函数，因此在vb.net中开发PPC软件实现重启、关机，需使用非托管代码。具体实现不详述，给出示例代码。[/size]
[b][size=4][/size][/b]
[b][size=4]声明：[/size][/b]
[size=4][/size]
[size=4]<Runtime.InteropServices.DllImport("Aygshell.dll")> Private Shared Function ExitWindowsEx(ByVal uFlags As Integer, ByVal dwReserved As Integer) As Boolean[/size]
[size=4]    End Function[/size]
[size=4][/size]
[size=4]    Private Const EWX_REBOOT = 2 '重启
    Private Const EWX_POWEROFF = 8 '关机[/size]
[size=4][/size]
[b][size=4]调用：[/size][/b]
[size=4][/size]
[size=4]Private Sub btnClose_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Dim ichoose As Integer
        ichoose = MsgBox("所有设置生效需要重启系统！现在重启系统吗？", MsgBoxStyle.YesNo, "WM优化大师")
        If ichoose = vbYes Then
            '重启
            Call ExitWindowsEx(EWX_REBOOT, 0)
            Me.Close()
        Else
            Me.Close()
        End If[/size]
[size=4]        Me.Close()[/size]
[size=4]    End Sub[/size]
[size=4][/size]
[size=4]是不是很简单啊！[/size]

[align=right][align=center][size=5][color=blue]没有最好，只有更好！[/color][/size][/align]
[align=center][size=4]欢迎访问我的BLOG[color=#0000ff]:[/color][/size][size=5][color=#0000ff] [/color][/size][url=http://rainbowsky.pdafans.com/][size=5][color=#0000ff]彩虹天空[/color][/size][/url][/align]
[align=right][size=5][/size][/align][align=right]
                         彩虹工作室[/align][align=right]