código de arranque remoto vb

'El siguiente contenido está tomado de Internet y no ha sido verificado

'La función principal de este programa es utilizar VB para realizar el arranque remoto;

>'Si una computadora quiere iniciar en línea de forma remota, la placa base y la tarjeta de red deben admitir la función de activación remota, y luego debe ingresar al BIOS para configurar COMS. En cuanto a cómo configurarlo, es diferente la placa base. Las configuraciones pueden tener configuraciones diferentes. Consulte la información relevante. Configuración Después de configurar COMS, puede usar este programa para enviar comandos de inicio remoto.

'Si desea iniciar de forma remota a través de una red de área amplia, en. Además de configurar COMS, también debe realizar ciertas configuraciones para el enrutador

' Cree un nuevo proyecto, agregue tres controles de texto, tres controles de etiqueta, un botón de comando y un control Winsock1 a Form1, luego copie el siguiente código para Form1

Dim?MagicPacket(0?To?101) ?As?Byte'Magic Packet

Dim?myMAC(0?To?5)?As?Byte' La dirección MAC del host que se va a activar

Private?Sub?StrToMAC(ByVal ?myStrMAC?As?String)?'Convierta la forma de cadena de la dirección MAC en un valor hexadecimal y guárdela en la matriz myMAC?Dim?i?As?Integer

Dim?tempStr?As?String

For?i?=?0?To?5

tempStr? =?Mid(myStrMAC,?i?*?2? ?1,?2)

myMAC(i)?=?"amp;H"?amp;?tempStr

¿Siguiente?i

End?Sub

Privado?Sub ?Command1_Click()'Enviar comando de arranque remoto

Dim?i?As?Integer

Winsock1.RemoteHost?=?Text2.Text

Winsock1.RemotePort?=?Text3.Text

Llamar?StrToMAC(Text1.Text)

For?i?=?0?To?5?'Los dos siguientes Para crear un paquete mágico

MagicPacket(i)?=?255

Siguiente?i

Para?i?=?6?To?101

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

¿Siguiente?i

Winsock1.SendData?MagicPacket'Enviar paquete mágico (ya sea en LAN o WAN, siempre que una computadora detecte el paquete mágico correspondiente a la MAC, se activará automáticamente)

¿Fin? Sub

Privado?Sub?Form_Load()

Etiqueta1. Caption?=?"Dirección MAC:"

Etiqueta2.Caption?=?"Dirección de transmisión ( IP) del segmento de red donde se encuentra:"

Label3.Caption?=?"Puerto de transmisión:"

Command1.Caption?=?"Enviar comando de arranque remoto"

Winsock1.Protocol?=?sckUDPProtocol'Usar protocolo UDP

Text1.Text? =?"010203ABCDEF"?'La dirección MAC de la computadora que se va a activar. La dirección MAC requiere esto (no hay otros caracteres entre los valores)

Text2.Text?=?"192.168.

1.255"?'Dirección de transmisión (porque la computadora remota se ha apagado y no tiene dirección IP, por lo que la computadora que se va a abrir solo se puede encontrar en forma de transmisión. Si es una WAN, complete la IP del enrutador)

Text3.Text?=?" 0"?'Número de puerto, si está en la LAN, será 0. Si es la WAN, ¡depende del puerto que abra tu enrutador!

¿Fin?Sub