vb点虐 强制关机 vb强制停止程序快捷键

我用vb点虐 写了一个爬虫程序，但运行起来，点击所有按钮都没有反应，非得强制关闭，listview控件也得等到

你想一边运行，一边填充数据，我给你出的主意是多线程，用另一个线程来Invoke数据，

硚口ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景，ssl证书未来市场广阔！成为创新互联公司的ssl证书销售渠道，可以享受市场价格4-6折优惠！如果有意向欢迎电话联系或者加微信：18982081108（备注：SSL证书合作）期待与您的合作！

Thread和线程Timer（不是Form中的Timer），要是同时访问一块数据注意用

SyncLock锁

VB.NET 2005编写定时关机程序

最近在网上搜索了一些关于实现关机 重启 注销的文章 发现大多介绍的是VB NET 用API实现这些功能 且在XPsp 环境下无法正常的关机与注销 而对于VB NET 的介绍几乎没有 本文章所涉及的知识点有

用实现关机 重启 注销功能 通过使用textbox与timer控件的结合编写定时器功能 为你的程序加上超链接

本篇文章具有一定的基础性和广泛的实用性 相信能够给 初学者带来一定的帮助

本文所使用的编程环境是Microsoft Visual Studio 首先打开 Visual Studio 在文件 (File) 菜单上 单击新建项目 (New Project) 在新建项目 (New Project) 对话框的模板 (Templates) 窗格中 单击 Windows 应用程序 (Windows Application) 单击确定 (OK)

具体步骤如下

首先在Form 窗体上添加一个Label 控件属性text设置为:今天: 然后分别添加 个button控件name分别为button button button 它们的text属性分别为 关闭计算机（启动定时器） 注销 重新启动

图

现在我们就需要为程序加上一个定时器了 这个定时器需要与textbox 控件相关联 输入正确时间格式后就可以启动定时功能了 然后我们需要在窗体上添加一个timer 一个textbox 控件 和一个RadioButton 控件 让它们保留默认值不变 其中 TextBox 控件的text属性设置为 : : RadioButton 控件text设置为 指定时间关机|时间格式 小时: 分钟: 秒如图 所示

图

以上界面工作基本完成现在需要输入代码了

双击窗体进入常规 声明Public Class Form 事件中

CODE

Imports System Runtime InteropServicesImports Microsoft VisualBasicPublic Class Form _ 调用系统参数Friend Shared Function GetCurrentProcess() As IntPtrEnd Function

_Friend Shared Function OpenProcessToken(ByVal h As IntPtr

ByVal acc As Integer ByRef phtok As IntPtr) As BooleanEnd Function

_Friend Shared Function LookupPrivilegeValue(ByVal host As String

ByVal name As String ByRef pluid As Long) As BooleanEnd Function

_Friend Shared Function AdjustTokenPrivileges(ByVal htok As IntPtr

ByVal disall As Boolean ByRef newst As TokPriv Luid

ByVal len As Integer ByVal prev As IntPtr

ByVal relen As IntPtr) As BooleanEnd Function

_Friend Shared Function ExitWindowsEx(ByVal flg As Integer

ByVal rea As Integer) As BooleanEnd Function

Friend Const SE_PRIVILEGE_ENABLED As Integer = H Friend Const TOKEN_QUERY As Integer = H Friend Const TOKEN_ADJUST_PRIVILEGES As Integer = H Friend Const SE_SHUTDOWN_NAME As String = SeShutdownPrivilege Friend Const EWX_LOGOFF As Integer = H 注销计算机Friend Const EWX_SHUTDOWN As Integer = H 关闭计算机Friend Const EWX_REBOOT As Integer = H 重新启动计算机Friend Const EWX_FORCE As Integer = H 关闭所有进程 注销计算机Friend Const EWX_POWEROFF As Integer = H Friend Const EWX_FORCEIFHUNG As Integer = H

_　 引用参数　Friend Structure TokPriv Luid　Public Count As Integer　Public Luid As Long　Public Attr As IntegerEnd Structure

Private Shared Sub DoExitWin(ByVal flg As Integer)　Dim xc As Boolean 判断语句　Dim tp As TokPriv Luid　Dim hproc As IntPtr = GetCurrentProcess()　 调用进程值　Dim htok As IntPtr = IntPtr Zero　xc = OpenProcessToken(hproc TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY htok)　tp Count = 　tp Luid = 　tp Attr = SE_PRIVILEGE_ENABLED　xc = LookupPrivilegeValue(Nothing SE_SHUTDOWN_NAME tp Luid)　xc = AdjustTokenPrivileges(htok False tp IntPtr Zero IntPtr Zero)　xc = ExitWindowsEx(flg )End Sub

Public Shared Sub Reboot()　DoExitWin((EWX_FORCE Or EWX_REBOOT)) 重新启动计算机End Sub

Public Shared Sub PowerOff()　DoExitWin((EWX_FORCE Or EWX_POWEROFF)) 关闭计算机End Sub

Public Shared Sub LogoOff()　DoExitWin((EWX_FORCE Or EWX_LOGOFF)) 注销计算机End Sub

Dim entTime As Object 保存输入时间Dim xianzaiTime As Object 保存实时时间Dim startTime As Object 保存开始定时时间

注销button 按钮输入code

Private Sub Button _Click(ByVal sender As System Object

ByVal e As System EventArgs) Handles Button ClickLogoOff() 注销计算机End Sub

双击重新启动按钮button 输入code

Private Sub Button _Click(ByVal sender As System Object

ByVal e As System EventArgs) Handles Button Click

Reboot()

End Sub

双击关闭计算机按钮button 输入code

Private Sub Button _Click(ByVal sender As System Object

ByVal e As System EventArgs) Handles Button Click　startTime = TimeOfDay　If Not IsDate(TextBox Text) Then 用IsData函数判断输入的时间格式MsgBox( 你所输入的不是时间格式 ! 错误 )　ElseentTime = TimeValue(TextBox Text)　End If　Timer Enabled = True　 启动定时器　Me WindowState = System Windows Forms FormWindowState Minimized　 最小化窗体

End Sub

如图

图

双击timer 控件如图

图

输入代码

Private Sub Timer _Tick(ByVal sender As System Object

ByVal e As System EventArgs) Handles Timer Tick　xianzaiTime = TimeOfDay　If RadioButton Checked Then

If DateDiff(Microsoft VisualBasic DateInterval Second

xianzaiTime entTime) Then 用DateDiff函数判断是否到时间了

End IfEnd If

PowerOff() 关闭计算机End Sub

好了 基本上一个定时关机程序就完成了 接下来加一个超级链接吧！当然对于高手来说可能是废话 但是对于新手来说这也是必备的 这个超级链接当然是我们最喜欢的天极网开发频道了

先创建一个Label控件吧 把它托到窗体上 将text属性设置为天极网开发频道如图

图

接下来需要输入代码了 双击窗体Form

进入Public Class Form 事件

代码

Private Declare Function ShellExecute Lib shell dll

Alias ShellExecuteA (ByVal hwngnd As Integer

ByVal lpOperation As String ByVal lpFile As String

ByVal lpParameters As String ByVal lpDirectory As String

ByVal nShowCmd As Integer) As Integer

如图

图

双击刚才添加的label属性text:（天极网开发频道）中输入以下代码

Private Sub Label _Click(ByVal sender As System Object

ByVal e As System EventArgs) Handles Label ClickShellExecute( open CStr( ) CStr( ) )

End SubEnd Class

OK！全部搞定 按F 键运行如图 所示 选择相应选项后点击（关闭计算机启动定时器按钮）就可以了 现在程序将按照你所设定的时间而启动关闭计算机选项

lishixinzhi/Article/program/net/201311/12366

怎样才能用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点虐 有没有强制关闭窗体也会触发的事件

病情分析：

您好，在排卵期有正常的性生活受孕的几率也只有50%。不是在排卵期有性生活就一定可以怀孕的。

指导意见：

您说的这种情况，每月排卵只有一次，排卵后不管是否受孕，都不会再出现排卵的情况，您的这种情况，怀孕的可能性较大。如果有月经推迟的情况，建议您查一下早孕尿检，看是否怀孕了。

医生询问：

病情分析：

你好，你的情况怀孕的可能性不大，

指导意见：

建议你在在性生活后14天做早孕检测，确定是否怀孕的。

医生询问：

病情分析：

你好，每个月一般只有1个卵子排出

指导意见：

你好，你现在排卵试纸检测排卵期已过，有没有怀孕还不好说，建议你到月经周期时，用早孕试纸检测

医生询问：

病情分析：

你好女性的排卵是这样的，每个月就排一次卵，每次排一颗卵子，也有一次两个的时候，排完以后，不管有没有受精，这个月都不会再排第二次了。

指导意见：

你以前用试纸测试已经排卵，5号以后就没有测试到，这个就说明你已经排过卵了，并不能说明你一已经怀孕了，排完卵以后排卵试纸就是阴性了，祝好

医生询问：

病情分析：

排卵日期一般在下次月经来潮前的14天左右。排卵日的前5天和后4天，在卵子排出的前后几天里性交容易受孕。

指导意见：

您的，排卵日是10号左右，排卵期是5号-14号左右。3号同房怀孕的几率很小

医生询问：

病情分析：

你好，根据你的情况是想要孩子的问题，目前测排卵的情况，发现没有排卵的迹象，但是这种情况不能说明一定就是怀孕了。再告诉你一般怀孕以后是不会再排卵了。

指导意见：

建议：目前根据你的情况不能确定是否怀孕。现在只能观察，如果在月经来潮的时间没有来潮的话，有可能是怀孕了，可以通过测尿试纸来确定。

医生询问：

病情分析：

一般来说，月经周期规律，排卵期也是规律的，排卵期是下次月经来潮的前14天左右，排卵一般情况下是一个月一次。

指导意见：

根据你的描述，如果月经周期规律，那么排卵期应该是十号左右的几天，你没有检测出来排卵，不代表是怀孕了，建议停经之后用早孕检测一下。

医生询问：

病情分析：

您好，排卵试纸测试只能证实有没有排卵，而不能从测试不到排卵的结果上判断有没有受孕

指导意见：

您是上个月24日月经来潮，如果仅按时间算，2号3号受孕的几率不高，但是排卵受很多因素影响，也有可能会提前些，可能可以受孕，您再耐心观察些时间，看月经能不能正常来潮，要是超期再测试看有没有怀孕，试纸测试不到排卵也有可能当月并没有排卵或是排卵了也同房了，但是不定受孕成功了

医生询问：

你好，是会停止排卵的，是要考虑排卵试纸检测不准确造成的。