vb远程开机代码

'以下内容摘自网络，未进行验证

'此程序主要功能是用VB实现远程开机；

'一台电脑要想实现网上远程开机，其主板和网卡必须都支持远程唤醒功能，然后还得进入BIOS设置COMS，至于如何设置，不同的主板设置

'方法也可能不一样，请参考有关资料 设置好COMS后就可以用本程序发送远程开机命令了

'如果想要广域网远程开机，那么除了设置COMS外，还得对路由器进行一定的设置

'新建一个工程，在Form1上添加三个Text控件，三个标签控件，一个命令按钮和一个Winsock1控件，然后复制下面的代码到Form1

Dim MagicPacket(0 To 101) As Byte   '魔术包

Dim myMAC(0 To 5) As Byte           '欲唤醒的主机的MAC地址

Private Sub StrToMAC(ByVal myStrMAC As String)      '将MAC地址的字符串形式转化为十六进制数值保存在数组myMAC里     Dim i As Integer

    Dim tempStr As String

    For i = 0 To 5

        tempStr = Mid(myStrMAC, i  2 + 1, 2)

        myMAC(i) = "&H" & tempStr

        Next i

End Sub

Private Sub Command1_Click()   '发送远程开机命令

    Dim i As Integer

    Winsock1RemoteHost = Text2Text

    Winsock1RemotePort = Text3Text

    Call StrToMAC(Text1Text)

    For i = 0 To 5      '以下两个For是创建一个魔术包

        MagicPacket(i) = 255

    Next i

    For i = 6 To 101

        MagicPacket(i) = myMAC((i Mod 6))

    Next i

    Winsock1SendData MagicPacket   '发送魔术包(不管是在局域网还是在广域网，只要一台电脑检测到对应MAC的魔术包就会自动唤醒)

End Sub

Private Sub Form_Load()

    Label1Caption = "MAC地址："

    Label2Caption = "所在网段的广播地址(IP)："

    Label3Caption = "广播端口："

    Command1Caption = "发送远程开机命令"

    Winsock1Protocol = sckUDPProtocol   '使用UDP协议

    Text1Text = "010203ABCDEF"          '欲唤醒的电脑的MAC地址，MAC地址的格式要求这样填(数值之间没有其它字符)

    Text2Text = "1921681255"         '广播地址(因为远程电脑已关机，没有IP地址，所以只能以广播形式找到要打开的电脑，广域网的话填路由器的IP)

    Text3Text = "0"                     '端口号，在局域网里的话就为0吧，广域网的话就看你的路由器开放哪个端口了！

End Sub

远程开机可以实现，计算机自动开机分三种，第一，计算机假关，就是有程序其实没有关掉，在控制时间，并发送开机命令，第二，主板支持自动开机，一些主板支持定时开机的，在bios里可以设置，第三，就是你要的远程开机，不过需要网卡支持，大部分的网卡不支持远程开机的，但有一部分可以通过互联网信号发送开机信号的

远程遥控开关"移动管家品牌"利用手机无线网络实现对电器的控制。手机在全球范围内任何地方控制各种家用电子电器产品，工业设备， *** 作简单，使用方便。电话远程控制器能通过固定电话或手机控制 *** 作家用电器或工业马达等电器设备，其余优点如下：

内置SIM卡，短信或电话控制，没有距离限制；支持直接控制220V的通与断；人性化语音提示 *** 作界面远程遥控开关"移动管家品牌"利用手机无线网络实现对电器的控制。

补一个启动设置图：

20秒后启动就是为了散尽储电，有些电脑可能不需要这么久，自己试试这个时间吧，家里的10s就可以了。

怎么设置bios断电来电自启动，请百度一下吧每个型号对应的设置界面都不一样，这里就不贴了

===============

我来补充一个吧，上面的都没提到。

可以购买一个wifi智能插座（一般39-49左右就能买到了），个人用的小米的，用米家app控制开关机

然后电脑bios设置断电来电自动启动

骚 *** 作来了，设置好来电自启以后，你只要远程 *** 控智能插座先断电--等待10s或者更长（电脑储电散尽）--再开启插座。电脑就会自启了。（不需要设置WOL，WOL对于一般人来说太复杂了。一般的电脑都会有这个来电自启动功能）

再安装个teamviewer或者向日葵。 完美解决人不在电脑面前让开机+远程控制的 *** 作。

智能插座版的无缝远程 *** 控适合小白入门，避过WOL的雷（对于我来说WOL是真的难设置）

以上就是关于vb远程开机代码全部的内容，包括:vb远程开机代码、联想电脑怎么实现远程开机、如何远程控制电脑开关机等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！