欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

windows mobile 下如何編程實(shí)現重啟、關(guān)機(vb.net)

[table][tr][td][size=4]由于visual studio.net 中沒(méi)有提供重啟、關(guān)機函數，因此在vb.net中開(kāi)發(fā)PPC軟件實(shí)現重啟、關(guān)機，需使用非托管代碼。具體實(shí)現不詳述，給出示例代碼。[/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 '關(guān)機[/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優(yōu)化大師")
        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]是不是很簡(jiǎn)單??！[/size]

[align=right][align=center][size=5][color=blue]沒(méi)有最好，只有更好！[/color][/size][/align]
[align=center][size=4]歡迎訪(fǎng)問(wèn)我的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]