Test Foro de elhacker.net SMF 2.1

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.

:xD :xD :xD :xD :xD

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   :o :o :xD :xD




SaluDDOS  :xD

Buscando y consultando con Mr. Google

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

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

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

Cita de: smokehack_ en 30 Agosto 2007, 20:34 PM
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...)

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.

Cita de: smokehack_ en 30 Agosto 2007, 15:35 PM
No creo que una PC se pueda encender si esta apagada

y cuando querias encenderla cuando ya estaba encendida  :xD :xD :xD :xD

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

c-ya  :P

Cita de: Carloswaldo en 31 Agosto 2007, 03:09 AM

Cita de: smokehack_ en 30 Agosto 2007, 15:35 PM
No creo que una PC se pueda encender si esta apagada

y cuando querias encenderla cuando ya estaba encendida  :xD :xD :xD :xD

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

c-ya  :P

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

Saludos

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

me parece un thread muy interesante
muy util

Eso de que la corriente haun fluye..No apostaria al 100%. Supongo que dependiendo de la fuente de alimentacion, las AT y las ATX. Actualmente se usan mas las ATX y una de las características esque dejan paso a la corriente para evitar picos altos en el encendido de un pc..pero no estoy seguro que en ese caso la placa y o el hardware reciban corriente...quiza se queda en la misma fuente.

Saludos.


PD: Por cierto, la idea  que comentan es buena, pero sirve para ordenadores via LAN, si fueran ordenadores externos seria perfecto.