vb.net关机代码（vbs立刻关机代码）

本篇文章给大家谈谈vb.net关机代码，以及vbs立刻关机代码对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、vb.net WinXP/2000操作系统自动关机的实现
• 2、VB.NET怎样设计定时关机
• 3、求一个VB检测鼠标键盘无操作自动关机脚本
• 4、如何在编的VB.NET程序使用时关闭电脑

vb.net WinXP/2000操作系统自动关机的实现

Windows

XP的关机是由Shutdown.exe程序来控制的，位于Windows\System32文件夹中。如果想让Windows

2000也实现同样的效果，可以把Shutdown.exe复制到系统目录下。

比如你的电脑要在22:00关机，可以选择“开始→运行”，输入“at

22:00

Shutdown

-s”，这样，到了22点电脑就会出现“系统关机”对话框，默认有30秒钟的倒计时并提示你保存工作。如果你想以倒计时的方式关机，可以输入“Shutdown.exe

-s

-t

3600”，这里表示60分钟后自动关机，“3600”代表60分钟。

设置好自动关机后，如果想取消的话，可以在运行中输入“shutdown

-a”。另外输入“shutdown

-i”，则可以打开设置自动关机对话框，对自动关机进行设置。

Shutdown.exe的参数，每个都具有特定的用途，执行每一个都会产生不同的效果，比如“-s”就表示关闭本地计算机，“-a”表示取消关

机操作，下面列出了更多参数，大家可以在Shutdown.exe中按需使用。

其他的我也不多说了，这样说已经很详细了，你应该能看懂。

VB.NET怎样设计定时关机

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

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

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

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

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

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

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

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

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

求一个VB检测鼠标键盘无操作自动关机脚本

楼上vb的可行，在vb.net中不行，vb.net格式如下

Imports System.Collections.Generic

Imports System.ComponentModel

Imports System.Data

Imports System.Drawing

Imports System.Text

Imports System.Windows.Forms

Imports System.Runtime.InteropServices

Public Class Form2

'定义结构体

Private Structure LASTINPUTINFO

Public cbSize As Int32

Public dwTime As Int32

End Structure

'引入系统API

Private Declare Function GetLastInputInfo Lib "user32" (ByVal plii As IntPtr) As Long '重新定义为 IntPtr

'在计时器中，进行相应的计算

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

'获取系统的运行时间

Dim systemUpTime As Integer = Environment.TickCount

Dim LastInputTicks As Integer = 0

Dim IdleTicks As Integer = 0

Dim LastInputInfo As New LASTINPUTINFO()

LastInputInfo.cbSize = Len(LastInputInfo)

Dim thObject2 As Runtime.InteropServices.GCHandle = Runtime.InteropServices.GCHandle.Alloc(LastInputInfo, Runtime.InteropServices.GCHandleType.Pinned)

Dim tpObject2 As IntPtr = thObject2.AddrOfPinnedObject() '取得指向结构的指针

'获取用户上次操作的时间

If GetLastInputInfo(tpObject2) Then

LastInputTicks = CInt(thObject2.Target.dwTime)

'LastInputTicks = CInt(LastInputInfo.dwTime)

'求差，就是系统空闲的时间

IdleTicks = systemUpTime - LastInputTicks

End If

lblSystemUpTime.Text = "系统运行时间：" + Convert.ToString(systemUpTime / 1000) + " 秒"

lblIdleTime.Text = "系统空闲时间：" + Convert.ToString(IdleTicks / 1000) + " 秒"

End Sub

End Class

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

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

shell("shutdown.exe路径

-s

-t

0")

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

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

关于vb.net关机代码和vbs立刻关机代码的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。