Vb.net关闭设备 vbs关闭窗口代码

VB.net 彻底关闭程序与duihua

开个线程，通过FindWindow这个API查找那个runtimeeror对话框的句柄，然后找到确定的句柄，发鼠标点击消息就能关掉

相关问答

Q1: vb.net怎么样实现点击窗体上一个铵钮就关闭窗体的功能？

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

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

如果实在是想关闭，就得把程序启动设为sub

main而不是form。

再由sub

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

Q2: 请问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

Q3: 怎样才能用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

Q4: vb.net一键关闭显示器

Public Class Form1

    System.Runtime.InteropServices.DllImport("user32.dll") _

    Private Shared Function SendMessage(ByVal hWnd As Integer, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

    End Function

    Const SC_MONITORPOWER As Integer = HF170

    Const WM_SYSCOMMAND As Integer = H112

    Private Enum MonitorMode As Integer

        [ON] = -1

        STANBY = 1

        OFF = 2

    End Enum

    Private Sub ChangeMonitorState(ByVal mode As MonitorMode)

        SendMessage(-1, WM_SYSCOMMAND, SC_MONITORPOWER, CInt(mode))

    End Sub

    Private Sub Off()

        ChangeMonitorState(MonitorMode.OFF)

    End Sub

    Private Sub [On]()

        ChangeMonitorState(MonitorMode.[ON])

    End Sub

    Private Sub StandBy()

        ChangeMonitorState(MonitorMode.STANBY)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Off()

    End Sub

    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

        If e.KeyCode = Keys.Escape Then [On]()

    End Sub

End Class

按button1按钮关闭显示器，按Esc键打开显示器

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

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

shell("shutdown.exe路径 -s -t 0") '-t是延迟时间，0表示立刻关机

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

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