vb.net自动开关机 vb程序开机自启动

VB.NET怎样设计定时关机

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

成都创新互联专注于成都网站制作、网站设计、网页设计、网站制作、网站开发。公司秉持“客户至上,用心服务”的宗旨,从客户的利益和观点出发,让客户在网络营销中找到自己的驻足之地。尊重和关怀每一位客户，用严谨的态度对待客户，用专业的服务创造价值，成为客户值得信赖的朋友，为客户解除后顾之忧。

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

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

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

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

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

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

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

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

求高手给一个VB.NET的程序开机启动和关闭开机启动的示例代码

Private Sub 开机自动启动_Click(sender As Object, e As EventArgs) Handles 开机自动启动.Click

Dim a As Microsoft.Win32.RegistryKey = My.Computer.Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Run")

a.SetValue("查看.exe", Application.StartupPath "\查看.exe")

End Sub

Private Sub 关闭开机自启_Click(sender As Object, e As EventArgs) Handles 关闭开机自启.Click

Dim a As Microsoft.Win32.RegistryKey = My.Computer.Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Run")

a.DeleteValue("查看.exe")

End Sub

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实现关机

这是点击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 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实现开机自启

程序源代码如下:

main()

{

int i,j,k;

printf("\n");

for(i=1;i5;i++)／*以下为三重循环*/

　for(j=1;j5;j++)　

for (k=1;k5;k++)

　{

if (i!=ki!=jj!=k) 　/*确保i、j、k三位互不相同*/

printf("%d,%d,%d\n",i,j,k);

　 }

main()

{

long int i;

int bonus1,bonus2,bonus4,bonus6,bonus10,bonus;

scanf("%ld",i);

bonus1=100000*0.1;bonus2=bonus1+100000*0.75;

bonus4=bonus2+200000*0.5;

bonus6=bonus4+200000*0.3;

bonus10=bonus6+400000*0.15;

　if(i=100000)

bonus=i*0.1;

　else if(i=200000)

　bonus=bonus1+(i-100000)*0.075;

else if(i=400000)

bonus=bonus2+(i-200000)*0.05;

　else if(i=600000)

　bonus=bonus4+(i-400000)*0.03;

else if(i=1000000)

bonus=bonus6+(i-600000)*0.015;

　else

bonus=bonus10+(i-1000000)*0.01;

printf("bonus=%d",bonus);

}

文章题目：vb.net自动开关机 vb程序开机自启动
链接URL：http://hbruida.cn/article/dochcih.html

vb.net自动开关机 vb程序开机自启动

VB.NET怎样设计定时关机

求高手给一个VB.NET的程序开机启动和关闭开机启动的示例代码

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

vb.net实现关机

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

vb.net实现开机自启

其他资讯