关于vb.netapi关机的信息

VB.NET怎样设计定时关机

1、开机进入桌面后,按下“Windows徽标键+I”键,选中并打开“控制面板”

创新互联建站-专业网站定制、快速模板网站建设、高性价比青山湖网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式青山湖网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖青山湖地区。费用合理售后完善,10年实体公司更值得信赖。

2、在“控制面板”中的“系统和安全”里,选中“管理工具”里的“计划任务”,并打开“计划任务”

3、在“任务计划程序”里,打开“创建任务”

4、在“创建任务”的“常规”中,根据相应需求设置,比如“名称:定时关机”

5、在“创建任务”的“触发器”中,点“新建”,并在“新建触发器”中,根据相应需求设置后,点“确定”

6、在“创建任务”的“操作”中,点“新建”,并在“新建操作”中的“程序或脚本”里,根据下图依次输入“shutdown”和“-s”后,“点“确定”

7、在“创建任务”的“条件”中,根据相应需求设置

8、在“创建任务”的“设置”中,根据相应需求设置后,点“确定”

9、这时“定时关机”的任务已创建完成!

vb.net2008拦截关机或注销消息

在SystemEvents类中 可以 用户试图注销或关闭系统时发生。 (当用户试图注销或关闭系统时发生。当用户试图注销或关闭系统时发生。) 这个 事件处理函数中 可以找到如下方法

Private Shared WM_QUERYENDSESSION As Integer = H11

Private Shared systemShutdown As Boolean = False

Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)

If m.Msg = WM_QUERYENDSESSION Then

'MessageBox.Show("queryendsession: this is a logoff, shutdown, or reboot")

systemShutdown = True

End If

' If this is WM_QUERYENDSESSION, the closing event should be raised in the base WndProc.

MyBase.WndProc(m)

End Sub 'WndProc

Private Sub Form1_Closing(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing

If (systemShutdown) Then

' Reset the variable because the user might cancel the shutdown.

systemShutdown = False

If (System.Windows.Forms.DialogResult.Yes = _

MessageBox.Show("My application", "Do you want to save your work before logging off?", MessageBoxButtons.YesNo)) Then

e.Cancel = True

Else

e.Cancel = False

End If

End If

End Sub

怎样才能用VB.NET的代码来关闭一个在运行的程序

软糖来回答罗:通过System.Diagnostics命名空间下的Process类来关闭程序的进程

Dim 进程集合 = Process.GetProcessesByName("进程名称")

For Each 进程 In 进程集合

进程.Kill()

'进程.Close() '或者使用关闭

Next

也可以先获取所有进程,再来判断这些进程的名称ProcessName

Dim 获取本地所有进程 = Process.GetProcesses()

For Each 进程 In 获取本地所有进程

If 进程.ProcessName = "explorer.exe" Then 进程.Kill()

Next

VB如何自定义关机

有简单的。不要太复杂了。

在Text1中输入的是时间,单位是秒。例如想50秒后关机就输入50。代码如下。

----------------------------------

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Dim t As Long

Private Sub Command1_Click()

t = Val(Text1.Text)

End Sub

Private Sub Form_Load()

Timer1.Interval = 1000

End Sub

Private Sub Timer1_Timer()

t = t - 1

If t = 0 Then ExitWindowsEx EWX_SHUTDOWN

End Sub

如何在编的VB.NET程序使用时关闭电脑

有两种方法,第一种是调用shutdown.exe

shell("shutdown.exe路径

-s

-t

0")

'-t是延迟时间,0表示立刻关机

另一种就是使用API了,好像是ExitWindow,你可以去搜索一下其用法。

急!VB中实现关机(回答正确追分50)

在XP里直接

Function Shutdown(optional Restart =false)

dim c

if restart then c="-r " else c="-s "

c=c "-t 00"

shell "shutdown " c ,vbhide

end function

98好象也可以用

Private Declare Function ExitWindowsEx Lib "USER32" _

(ByVal uFlags As Long, _

ByVal dwReserved As Long _

) As Long

Private Const EWX_LOGOFF = 0

Private Const EWX_REBOOT = 2

Private Const EWX_SHUTDOWN = 1

function Shutdown()

ExitWindowsEx(EWX_SHUTDOWN, 0)

end function

function restart()

ExitWindowsEx(EWX_REBOOT, 0)

end function


分享标题:关于vb.netapi关机的信息
标题路径:http://scyanting.com/article/hsohji.html