VB远程开机 - 图文

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

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

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

'如果想要广域网远程开机，那么除了设置COMS外，还得对路由器进行一定的设置，由于这不是一两句话能说得完的，所以有兴趣的话就加

'我的QQ来交流吧，加Q的时候最好说明一下身份哦！ '使用方法：

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

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) = \ Next i End Sub

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

Dim i As Integer

Winsock1.RemoteHost = Text2.Text Winsock1.RemotePort = Text3.Text

Call StrToMAC(Text1.Text)

For i = 0 To 5 '以下两个For是创建一个魔术包 MagicPacket(i) = 255 Next i

For i = 6 To 101

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

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

Private Sub Form_Load()

Label1.Caption = \地址：\

Label2.Caption = \所在网段的广播地址(IP)：\ Label3.Caption = \广播端口：\

Command1.Caption = \发送远程开机命令\

Winsock1.Protocol = sckUDPProtocol '使用UDP协议

Text1.Text = \ '欲唤醒的电脑的MAC地址，MAC地址的格式要求这样填(数值之间没有其它字符)

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

Text3.Text = \ '端口号，在局域网里的话就为0吧，广域网的话就看你的路由器开放哪个端口了！ End Sub

本文来源：https://www.bwwdw.com/article/23nh.html