vb远程关机代码（vb远程控制）

本篇文章给大家谈谈vb远程关机代码，以及vb远程控制对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、VB关机代码
• 2、VB自动关机代码是什么？
• 3、vb局域网中远程关机
• 4、vb怎么远程关机
• 5、VB关机程序代码

VB关机代码

Shell "cmd.exe /c shutdown -s -t 0"

若要重启，把 -s 改为 -r

不加 -f ,vbHide也可以省去，-t 后的数字最好不要是0，以保证在关机前可以用代码

Shell "cmd.exe /c shutdown -a"

取消关机

VB自动关机代码是什么？

用VB实现控制电脑自动关机，自动重启，自动注销，自动待机等代码

设定状态

SetSuspendState

是否支持休眠

IsPwrHibernateAllowed

是否支持待机

IsPwrSuspendAllowed

看MSDN的Power Management部分

ColdMooon

'在窗体内

'放置一个时间控件，两个标签控件和一个文体框控件，和两个单选按钮，两个命令按钮

Option Explicit

 Dim txtTime '保存输入时间

 Dim nowTime '保存实时时间

 Dim oldTime '保存开始定时时间

 Private Sub Form_Load()

 me.caption="定时关机"

 me.label1.caption="关机时间："

 me.Option1.caption="在指定时间关机(时间格式：00:00:00)"

 me.Option2.caption="延迟指定的时间关机"

 me.command1.caption="确定"

 me.command2.caption="取消"

 Me.Text1 = GetSetting("ShutDownWindows", "Options", "ShutDownTime",

vb局域网中远程关机

因为您提出的问题涉及到入侵提权方面，比较复杂，也不方便进行回答。

只能回答您下面给出的三个问题了。

第一个问题：vb做的一个软件开启后隐藏（即Visible = False），再次运行时不再次启动而是将这个变为显示且窗口激活置顶

使用DDE技术是比较方便的，而且可以达到很多功能。

所谓DDE技术，就是动态数据交换技术。

为了实现拒绝运行并把已经运行的程序激活并实现各种功能，我们可以先检测一下程序有没有被运行过，如果没有，就正常运行，如果已经被运行过，就打通与它的DDE通道，传给它一个（或一些）数据，然后由已经运行的程序对数据进行处理，再去实现各种“意想不到”的功能。

具体方法如下：

打开VB，新建一个工程，选择菜单中的“工程-工程1 属性”，把工程名称改为“P1”（我爱偷懒，能短则短 ^_^ ），把已有的一个窗体的“LinkTopic”属性改为“FormDDE”，把“LinkMode”属性改为“1 - Source”，添加一个PictureBox控件作为DDE执行控件，命名为picDDE。然后添加一个TextBox控件，命名为“txtInfo”，并把“MultiLine”属性设置为“True”，以便显示多行文本，作为消息显示控件。

最后在窗体代码区输入以下代码：

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Sub Form_LinkExecute(CmdStr As String, Cancel As Integer)

if CmdStr = "ReRun then' CmdStr 是DDE程序传送过来的参数

dim t

Me.Show

Me.Visible = True '窗体显示

Me.SetFocus '激活本窗体

t=SetWindowPos(LinkTopic.hwnd, -1, 0, 0, 0, 0, 3) '置顶窗体

enf if

Cancel = True

End Sub

Private Sub LinkAndSendMessage(ByVal Msg As String)

Dim t As Long

picDDE.LinkMode = 0 '--

picDDE.LinkTopic = "P1|FormDDE" ' |______连接DDE程序并发送数据

picDDE.LinkMode = 2 ' | “|”为管道符，是“退格键”旁边的竖线，

picDDE.LinkExecute Msg '-- 不是字母或数字！

t = picDDE.LinkTimeout '--

picDDE.LinkTimeout = 1 ' |______终止DDE通道。当然，也可以用别的方法

picDDE.LinkMode = 0 ' | 这里用的是超时强制终止的方法

picDDE.LinkTimeout = t '--

End Sub

Private Sub Form_Load()

Me.Visible = False '开始运行时不显示窗体

If App.PrevInstance Then ' 程序是否已经运行

Me.LinkTopic = "" ' 这两行用于清除新运行的程序的DDE服务器属性，

Me.LinkMode = 0 ' 否则在连接DDE程序时会出乱子的

LinkAndSendMessage "ReRun" '-- 连接DDE接受程序并传送数据

End ' 结束新程序的运行

End If

End Sub

第二个问题：vb中按右上角的关闭按钮不退出实为隐藏运行

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

If UnloadMode = 0 Then

Me.Hide

Cancel = vbCancel

End If

End Sub

第三个问题：vb调用cmd不显示cmd窗口

先自动生成一个bat批处理文件，这个应该会吧。然后调用时隐藏执行

Set ws = CreateObject("Wscript.Shell")

ws.run "cmd /c 123.bat",vbhide

123.bat是可执行文件名，可以加绝对路径

执行完毕记得删除。

vb怎么远程关机

客户端：

Private Sub Form_Load()

Winsock1.Close

Winsock1.Connect "127.0.0.1", 1001

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim cmdstr As String

Winsock1.GetData cmdstr

If cmdstr = "关机" Then

Shell "cmd /c shutdown -s -t 0"

End If

End Sub

控制端

Private Sub Form_Load()

winsock1.LocalPort = 1001

winsock1.Listen

MsgBox "已经开始监听,等待主机上线!", vbInformation

End Sub

Private Sub Command1_Click()

winsock1.senddata "关机"

End Sub

VB关机程序代码

'ok添加两个按钮，把下面代码直接复制粘贴进代码输入框把原来的代码全部覆盖，f5就可以了。

privatesubform_load()

command1.caption="关机"

command2.caption="重启"

privatesubcommand1_click()

shell"cmd/c""shutdown-s-t0"

endsub'关机代码，0代表时间，就是几秒后关机

privatesubcommand2_click()

shell"cmd/c""shutdown-r-t0"

endsub'重启代码

关于vb远程关机代码和vb远程控制的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。