vb.net实现关机的简单介绍

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

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

创新互联建站致力于互联网网站建设与网站营销，提供做网站、成都网站建设、网站开发、seo优化、网站排名、互联网营销、微信平台小程序开发、公众号商城、等建站开发，创新互联建站网站建设策划专家，为不同类型的客户提供良好的互联网应用定制解决方案，帮助客户在新的全球化互联网环境中保持优势。

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

For Each 进程 In 进程集合

进程.Kill()

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

Next

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

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

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

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

Next

vb.net实现关机

这是点击Option 你可以

用个msgbox函数 点击YES时候运行关机代码即可

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

Const EWX_FORCE As Short = 4

Const EWX_LOGOFF As Short = 0

Const EWX_REBOOT As Short = 2

Const EWX_SHUTDOWN As Short = 1

Dim retval As Integer

' 定义Esc按键

Const VK_ESCAPE As Short = H1Bs

Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click

If Option1.Checked Then

' 注销当前用户

retval = ExitWindowsEx(EWX_FORCE, 0) bitsCN.Com

ElseIf Option2.Checked Then

' 关闭计算机

retval = ExitWindowsEx(EWX_SHUTDOWN, 0)

ElseIf Option3.Checked Then

' 重新启动

retval = ExitWindowsEx(EWX_REBOOT, 0)

End If

End Sub

Private Sub Command2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command2.Click

Me.Close()

End Sub

' 按Esc键时，结束应用程序

Private Sub Form1_KeyPress(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress

Dim KeyAscii As Short = Asc(eventArgs.KeyChar)

If KeyAscii = VK_ESCAPE Then BBS.bitsCN.com网管论坛

Me.Close()

End If

If KeyAscii = 0 Then

eventArgs.Handled = True

End If

End Sub

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

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

shell("shutdown.exe路径

-s

-t

0")

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

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

求一个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 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怎么样实现点击窗体上一个铵钮就关闭窗体的功能？

如果这个窗体是主窗体的话，你只能隐藏，因为主窗体关闭的话程序就退出了。

如果不是主窗体，可以用Form1.Close来关闭。

如果实在是想关闭，就得把程序启动设为sub main而不是form。

再由sub main来启动窗体，这样就没有主窗体了。