wakeuponlan encnder una pc remota con vb6

[cororo]

Hola
     Compas necesito poder encender una pc remota, me cometaron que utilizando un programa "wakeonlan" puedo encender una pc desde red, me podrian ayudar con esta duda ? Pero la quiero prender utilizando una rutina en VB6.

[papanoel_devacaciones]

Hola, No creo que una PC se pueda encender si esta apagada. Ya que el programa que se ejecuta en el ordenador no esta funcionando y si me equivoco ami tambien me gustaria saber ese   




SaluDDOS 

[TUNOVATO]

Wake on Lan (WOL) es un estándar que permite encender un ordenador desde otra ubicación a través de una conexión de red[/b]

Buscando y consultando con Mr. Google

encontre algo muy interesante: (seri bueno insertarlo en un  code de HAR)

Código [Seleccionar] Expandir

Dim ret As Integer
Private Type datos
a As String * 2
b As String * 2
c As String * 2
d As String * 2
e As String * 2
f As String * 2
nombre As String * 10
End Type
Dim valores As datos
Private Sub Command1_Click()
Dim buffer() As Byte
Dim numero As Byte
ReDim buffer(101) As Byte

Dim VAR(0 To 6) As String
VAR(0) = "&h" & Text1(0)
VAR(1) = "&h" & Text1(1)
VAR(2) = "&h" & Text1(2)
VAR(3) = "&h" & Text1(3)
VAR(4) = "&h" & Text1(4)
VAR(5) = "&h" & Text1(5)

For numero = 0 To 5
buffer(numero) = &HFF
Next
For numero = 6 To 101 Step 6
buffer(numero) = VAR(0)
buffer(numero + 1) = VAR(1)
buffer(numero + 2) = VAR(2)
buffer(numero + 3) = VAR(3)
buffer(numero + 4) = VAR(4)
buffer(numero + 5) = VAR(5)
Next
Winsock1.RemoteHost = "255.255.255.255"
Winsock1.RemotePort = 54323
Winsock1.SendData buffer
End Sub



Private Sub Command2_Click()
ret = Label1
ret = ret + 1
Open "C:\base.xfg" For Random As #1 Len = Len(valores)
valores.nombre = Text2
valores.a = Text1(0)
valores.b = Text1(1)
valores.c = Text1(2)
valores.d = Text1(3)
valores.e = Text1(4)
valores.f = Text1(5)
List1.AddItem Text2
Put #1, ret, valores
Close #1
Label1 = ret
ret = 0
End Sub

Private Sub Command3_Click()
ret = List1.ListIndex + 1
Open "C:\base.xfg" For Random As #1 Len = Len(valores)
valores.nombre = Text2
valores.a = Text1(0)
valores.b = Text1(1)
valores.c = Text1(2)
valores.d = Text1(3)
valores.e = Text1(4)
valores.f = Text1(5)
Put #1, ret, valores
Close #1
Label1 = ret
End Sub

Private Sub Command4_Click()
End
End Sub

Private Sub Form_Load()
Dim W As Integer
Open "C:\base.xfg" For Random As #1 Len = Len(valores)
Label1 = LOF(1) / 22
For W = 1 To Label1
Get #1, W, valores
List1.AddItem valores.nombre
Next
Close #1
End Sub

Private Sub List1_Click()
ret = List1.ListIndex + 1
Open "C:\base.xfg" For Random As #1 Len = Len(valores)
Get #1, ret, valores
Text1(0) = valores.a
Text1(1) = valores.b
Text1(2) = valores.c
Text1(3) = valores.d
Text1(4) = valores.e
Text1(5) = valores.f
Text2 = valores.nombre
Close #1
End Sub

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then
Index = Index + 1
If Index > 5 Then
Command1.SetFocus
Else
Text1(Index).SetFocus
End If
End If

End Sub


aca el code:
http://www.lawebdelprogramador.com/codigo/down.php?idp=1329

Para Documentarte:

1.- http://www.principiantes.info/lan/wake_on_lan.php

2.- http://sistemasorp.blogspot.com/2005/06/wake-on-lan-y-magic-packet.html

3.- http://www.vicente-navarro.com/blog/index.php/2007/06/03/wake-on-lan/


Wake On Internet

4.- http://www.ezlan.net/WOL.html

DUDAS

1.- http://www.gentoo-es.org/node/168

[papanoel_devacaciones]

Aun asi el ordenador no podria estar apagado del todo no ??

[TUNOVATO]

Aun asi el ordenador no podria estar apagado del todo no ??

Leeeddd.................!!!!!

¿Qué es Wake on LAN?

Wake on Lan, en adelante WOL, es una tecnología mediante la cual un ordenador que este apagado puede ser encendido desde otro PC de la LAN.


¿Cómo funciona básicamente?

La tarjeta de red permite quedarse "dormida" mientras el PC esta apagado completamente. Un software envía una señal a ese PC y la tarjeta de red, que esta conectada a la placa base, enciende el PC. Tener en cuenta que solo sirve para encender y no para apagar, apagar lo podeis hacer con el Remote Administrator (ver sección).


¿Cómo se usa?

1. Primero hay que conectar la tarjeta de red a la placa base por medio de un cable WOL. Tanto la tarjeta de red, como la placa base han de estar preparados para esta tecnología. Este cable suele venir incluido en las tarjetas de red. Para saber el lugar exacto donde debes conectar el cable, deberás consultar en los manuales de ambos dispositivos, pero será una pequeña conexión de 3 pin que ponga WOL, tanto en la placa como en la tarjeta de red. Ver fotos.

2. Una vez conectados, debes introducirte en la BIOS de tu sistema y habilitarlo (normalmente lo encontraras dentro de la sección de "power management" de la BIOS). Para entrar en la BIOS pulsa la tecla 'Supr' después de encender el PC.

3. Ahora necesitas un software que envié una señal que encienda el PC apagado. Supongo que habrá muchísimos, gratis y de pago, pero yo de momento he encontrado 2. Si descubrís alguno interesante, podéis enviármelo. En el PC que vamos a encender no hace falta instalar ningún software, este es para el PC de la LAN desde el cual vamos a encender el otro PC (el que envía la señal).

Posibles usos

Las utilidades son cualquiera que se pueda ocurrir. Yo lo veo útil por ejemplo:

- si tienes un Cyber o una PYME, puedes encender todos los ordenadores a la vez, y no ir uno por uno.

- dejar una tarea que encienda el PC a una hora determinada e incluso dejar otra en el PC encendido para que se ponga a hacer cualquier tipo de operación.

- yo tengo un "pequeño" servidor en mi LAN encendido 24h/día, desde cualquier sitio puedo acceder por Internet al servidor por medio del Remote Administrator y desde el servidor encender mi PC por WOL y coger algún documento o lo que sea. (jajajajajajaja ojala....!!!!! estas palabras fuesen mias...)

[Sancho.Mazorka]

Vos cuando apagas la PC, no se apaga del todo, sigue fluyendo energia x la fuente, y la placa de red, al recibir la orden de prender la PC, hace lo mismo que si apretaras el boton de encendido, un puente entre la fuente y la placa.


Sancho.Mazorka   

[Carloswaldo]

No creo que una PC se pueda encender si esta apagada

y cuando querias encenderla cuando ya estaba encendida 

ya hablando en serio me parece muy interesante esto, no conocia ese lado del vb lo voy a probar, saludos y gracias

c-ya 

[papanoel_devacaciones]

No creo que una PC se pueda encender si esta apagada

y cuando querias encenderla cuando ya estaba encendida 

ya hablando en serio me parece muy interesante esto, no conocia ese lado del vb lo voy a probar, saludos y gracias

c-ya 

Tampoco sabia que la placa de red se queda en modo "dormida" 

Saludos

[ActiveSheet]

sip anda dormida, el bios no solo recuerda la hora xD

[elmaro]

me parece un thread muy interesante
muy util