小弟想请教一下各位vb大神，如何用vb实现自动关机
不用VB写都可以的哈。写个BAT文件，自动运行了就要的了噻。新建个TXT的文本文档，内容如下：shutdown -s -t 600然后把后缀改为".bat"的就可以了，运行，就会自动计时，10分钟后关机。具体的BAT文件使用方法，参加如下网页内容： http://hi.baidu.com/visony1987/blog/item/532a68cac7a07843f31fe72f.html
用vb的SHELL()函数可以执行外部命令.
自动关机 的命令绍介如下:
自动关机是计算机的一个命令。常见的有windows的自动关机，还有嵌入式系统手机系统的自动关机。 使用“shutdown”可以让电脑自动关机，不过如果打开很多文档就会提示你保存文件不，你不去手动确定，shutdown这个命令是没用的。比如你的电脑要在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中按需使用。 -f：强行关闭应用程序 -m \\计算机名：控制远程计算机 -i：显示图形用户界面，但必须是Shutdown的第一个选项 -l：注销当前用户 -r：关机并重启 -t 时间：设置关机倒计时 -c "消息内容"：输入关机对话框中的消息内容（不能超127个字符）
set wshshell=wscript.createobject("wscript.shell")
wshshell.run "at 17:00 shutdown -s"在记事本里这么写，写完后保存，再把记事本后缀改成vbs，把这个VBS文件放在系统的启动目录下（360会把人物VBS当病毒的）。这样他就自动关机了，系统启动就运行了他，到点他就执行。
从此以后你的电脑就是一到下班时间17:00自己会关机的。at后面时间你可以以记事本打开去修改的。这样的代码就够完整了，你哪些写的没什么实际用处，系统开始菜单明明就有开关机的按钮，还需要你去写吗？如果我们编程就为做这些画蛇添足的事情，那学来做什么用？自动关机是有必要的，你晚上看电视，电脑在一边，可以设置他定时关机，在运行里面直接输入：
at 22:00 shutdown -s 意思就是在22:00的时候自动关机。
VBS代码可以直接执行，把他放启动文件里面，意思是一开机就执行他，到点后自动关闭，防止下班后检查是否关电脑还是有点用的。在服务器上我们也可以这样，把语句改一下：
at 4:00 shutdown -r 意思是让服务器在每天 4点的时候重启一下，以免造成数据服务死锁或者网页访问卡死。
Dim ff As Boolean
Private Sub Timer1_Timer()
Timer1.Interval = 1000
If Hour(Time) = 5 Or Hour(Time) = 17 Then
Timer2.Enabled = True
ff = True
Else
DoEvents
End If
If ff = False Then Timer2.Enabled = False
End Sub
Private Sub Timer2_Timer()
Dim m As String
m = MsgBox("是否关机，默认将在20秒后关机", vbOKCancel, "自动关机")
If m = vbOK Then
wshshell.run "shutdown -s -t 0"
Else
MsgBox "关机已取消！", 64, "自动关机"
ff = False
End If
End Sub
在单位不能实验，vb6.0+sp6.希望能帮助到你
要在5点关机
那么你需要一个timer..时间间隔设置成1秒..程序打开就开始运行..
在timer中判断.当前时间是否是5点或者超过5点..则进行关机..否则不做任何操作.
msgbox 20秒无操作一样的道理.当弹出msgbox后.你需要另外一个timer来开始计时.20秒自动执行关机操作.
关机VB是可以直接 shell 执行关机DOS命令的.
自己实践一下..给你提供思路...自己做出来才有成就感..希望采纳
简单点的话直接调用命令提示符的命令
shell ("shutdown -s -t 0") '0是时间，秒为单位，即马上关机
复杂一点(稳定一点)的就调用API把
ExitWindowsEx (VB API函数浏览器查一下)
Private Declare Function ExitWindowsEx Lib "user32" Alias "ExitWindowsEx" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
容易实现注销
但是关机需要提升权限。。。
call exitwindows(EWX_LOGOFF,0)
你试试吧，可以查一下MSDN
小弟想请教一下各位vb大神,如何用vb实现自动关机
VBS代码可以直接执行，把他放启动文件里面，意思是一开机就执行他，到点后自动关闭，防止下班后检查是否关电脑还是有点用的。在服务器上我们也可以这样，把语句改一下：at 4:00 shutdown -r 意思是让服务器在每天 4点的时候重启一下，以免造成数据服务死锁或者网页访问卡死。
VB 如何用:socket 发送数据
1、首先看控件区有无串口控件，表明串口控件并未被启用，选择工程→部件→Micosoft comm Control6.0选项，点击应用，即可添加串口控件。2、绘制两个text控件用于存储串口需要收发的数据。一个button控件用于发送指令，添加串口控件。3、编写程序： Private Sub Command1_Click() MSComm1.Output = Text2...
用VB6.0编写一个MP3播放器怎么编?各位高手给个代码或教程让小弟学习吧...
回答：用MMC控件或者WMP控件,都很简单,我提供一点代码,可以进行MP3的播放,但没有循环功能,循环功能你自己加吧,其实也是很简单的。MMC控件事例:一个MMC控件名字为:MMContorl1,一个Command控件名字为Command1,一个List控件名字为List1,一个CommonDialog控件名字为CommonDialog1代码:Pribate Sub Command1_Clic...
请教VB高手解惑有关类模块的用法,解说详细点,小弟多谢了,
打个比方吧，你用模具制造机器人，先制造了一个叫做Bill，把他的腿拧断了，然后有制造了一个机器人Tom，他的腿还在。类模块就相当于模具。
vb中,weekday函数怎么使用啊,求强人大大帮帮忙,谢谢啦
Firstdayofweek可选。指定一星期第一天的常数。如果未予指定，则以 vbSunday 为缺省值。设置firstdayofweek 参数有以下设定值：常数值描述vbUseSystem0使用 NLS API 设置。VbSunday1星期日（缺省值）vbMonday2星期一vbTuesday3星期二vbWednesday4星期三vbThursday5星期四vbFriday6星期五vbSaturday7星期六 返回...
VB高手请进,小弟有事请教!!!
2.聊天记录可以保存到一个access数据库里。但是显示聊天记录的话，你觉得label会是一个好的选择吗？3.结合1,2,3我倒是建议你，用webbrowser来构建一个HTML，不但是聊天框，历史记录框，都能很美观地显示出你要的内容。如果决定不用图片，那一个textbox足够了。视频和语音的话，想弄难度太大 ...
跪求各位vb高手,在vb6.0中如何读取excel中的数据,并把数据填写到vb中...
哦,使用前要先引用ado对象哦 Private Sub Command3_Click()Dim Conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim i As Integer Dim sql As String 'On Error Resume Next strName = App.Path & "\\book.xls" 'EXCEL文件名 strSheetName = "sheet1" 'EXCEL表名 Conn.Open "...
如何使用microsoft visual basic?
应该是VB6吧。首先找个地方下VB6（BAIDU一下，知道里有很多地址）或者盗版店，然后装（这总会吧）。你已经有教程了，怎么用应该都写着吧。快捷方式启动VB，然后新建exe应用程序 估计高一的书就是教教怎么在窗体上“画画”，然后从工具箱里拖控件，然后右边有个二列的小表格，叫属性框，选中属性名，...
我想用vb制作一个小工具,就是电子通讯录那种~~各位大侠帮帮小弟啊...
在你输入完密码的时候按Eter键就可以了，就是在text2中，用if 语句判断keycode=vbenter 如果是的话就触发command1_click事件就可以了 思路就是这样 你可以自己想想怎么整理一下 自己想出来的才是最好的 Goodluck for you!
如何用VB找盘符?请教高手!
下面是代码，getdrive调用后返回机器上所有盘符 Private Const DRIVE_REMOVABLE = 2 Private Const DRIVE_FIXED = 3 Private Const DRIVE_REMOTE = 4 Private Const DRIVE_CDROM = 5 Private Const DRIVE_RAMDISK = 6 Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (By...