Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 2003.09.25;
Скачать: [xml.tar.bz2];

Вниз

Как включить комп программно   Найти похожие ветки 

 
AndreySoft   (2003-08-28 12:59) [0]

Как выключить - это я знаю!
А вот кто-нибудь знает как его включить?


 
Е-Моё имя   (2003-08-28 13:05) [1]

удаленный или на котором программа работает?


 
AndreySoft   (2003-08-28 13:07) [2]

На котором программа работает.
А если знаешь как ещё и удалённый включить ваще будет здорово!


 
Е-Моё имя   (2003-08-28 13:11) [3]

удаленный - по сети можно включить (например)
про включение самого себя выключенным компом-это вопрос к настоящим МАСТЕРАМ, в белах халатах


 
AndreySoft   (2003-08-28 13:15) [4]

И где же найти этих мастеров, в белых халатах?


 
Е-Моё имя   (2003-08-28 13:27) [5]

я думал ты с ними хорошо знаком....


 
AndreySoft   (2003-08-28 13:33) [6]

Я нет! А ты чтоль знаком?


 
HolACost!   (2003-08-28 14:22) [7]

Это можно только на компах с Биосом, поддерживающем эту фичу - но придётся работать с <BJC! ГЫ Белые халаты - это круто!


 
Basilio   (2003-08-29 11:02) [8]

По сети возможно включить только в том случае, если сетевуха и мать поддерживают WOL (WakeOnLan) и соотв. шнурок воткнут в мать и сетевуху. и в биосе стоит разрешение на WOL.
А дальше -- вопрос, как создать активность в сети, чтобы загрузился именно этот компутер, а не тот...
(IP же не известно - интерфейс опущен. разве что по МАК адресу? но это уже пониже работать надо - это так, мысли вслух)

Поддерживаю БЕЛЫХ халатов. лол.


 
don-do   (2003-08-29 11:09) [9]

Уважаемый Андрей Васильевич програмно включить комп можно так:
Запускаеш программу например MSWord
И проверяеш, включен комп или нет если включен то слава Гейтсу - MSWord как раз для этих целей :)


 
elected   (2003-08-29 14:43) [10]

Вот читаю и думаю неужели все такие идиоты !
Вам что потрепаться негде ?
Человек спросил конкретно не знаешь не пиши!


 
elected   (2003-08-29 14:46) [11]

Я решал проблему так.
Читал Cmos все его адресное пространство
потом заходишь в биос и выставляешь чтобы комп включился в определенное время если он держит эту функцию конечно
потом опять считываешь область памяти
и сравниваешь смотришь какие байты изменилиь
анализируешь делаешь выводы там все просто
правда win2k не дает менять cmos а вот под win9x у меня все получалось


 
Е-Моё имя   (2003-08-29 14:49) [12]

elected ©
умник...
читай вопрос
ему надо не программу для запланирования включение компа, но программу для включения компа, на котором эта программа работает


 
elected   (2003-08-29 14:49) [13]

Да а по сети все првильно сказали wol и посылаешь 3 раза mac если все включено в биосе и провод в маму то комп оживает
удачи =-)


 
MW Programs   (2003-08-30 14:20) [14]

Удалено модератором
Примечание: Ограничивайся свой мат чатом, а здесь тебе делать нечего


 
AndreySoft   (2003-08-30 17:42) [15]

Ну что? Никто не знает ответа?
Эх вы, МАСТЕРА!


 
HolACost!   (2003-08-30 17:52) [16]

Ты туп чтоли? Тебе ответили - как человек это делал - по другому нельзя! только так! - есть возможность создать ещё свой дивайс, который бы как робот вкл комп по сигналу какому-нить!!! Всё!!!!


 
AndreySoft   (2003-08-30 18:01) [17]

>HolACost! © (30.08.03 17:52) [16]

Александр, будьте добры, без оскорблений пожалуйста!
Я имел ввиду код!


 
Song   (2003-08-30 18:08) [18]

С кодом каждый может. А вот ты попробуй хоть палец о палец ударить для себя же самого?


 
AndreySoft   (2003-08-30 18:13) [19]

>Song © (30.08.03 18:08) [18]

Я уже все пальцы себе сбил об клаву! Всё равно ни хрена не выходит!

Я ведь думал, что мастерам это не составит особого труда.


 
Song   (2003-08-30 18:30) [20]

Включить можно только если Bios машины поддерживает функцию Wake-On-Lan

Вот и код. Используется Indy:

program WakeOnLan;

{$APPTYPE CONSOLE}

uses
SysUtils,
Classes,
IdBaseComponent,
IdComponent,
IdUDPBase,
IdUDPClient;

function HexStringToBinString(const HexStr: string): string;
var
i, l: integer;
begin
Result := "";
l := length(HexStr);
l := l div 2;
SetLength(Result, l);
for i := 1 to l do
if HexToBin(PChar(Copy(HexStr, (i - 1) * 2 + 1, 2)),
PChar(@Result[i]), 1) = 0 then
raise Exception.Create("Invalid hex value");
end;

procedure SendMagicPacket(MACAddress: string);
var
s, packet: string;
i: integer;
begin
if Length(MACAddress) <> 12 then
raise Exception.CreateFmt("Invalid MAC Address: %s", [MACAddress]);
packet := HexStringToBinString("FFFFFFFFFFFF");
s := HexStringToBinString(MACAddress);
for i := 1 to 16 do
packet := packet + s;
with TIdUDPClient.Create(nil) do
try
Active := true;
BroadcastEnabled := true;
Broadcast(packet, 9);
finally
Free;
end;
end;

begin
if ParamCount <> 1 then
WriteLn("usage: WakeOnLan MACAddress" + #10 + #13 + "exmple: WakeOnLan 000102030405")
else
SendMagicPacket(ParamStr(1));
end.


 
Eagle Owl   (2003-08-30 22:56) [21]

> AndreySoft

И как же эта программа(в смысле, которая комп включать будет) на выключенном компе работать должна?


 
DrPass   (2003-08-30 23:15) [22]

Позовет попа, тот пару раз в бубен стукнет, святой метелкой помашет - что-нибудь да получится...


 
Е-Моё имя   (2003-08-31 05:34) [23]

;))))))))))))))


 
SergP   (2003-08-31 15:20) [24]


> AndreySoft © (30.08.03 17:42) [15]
> Ну что? Никто не знает ответа?
> Эх вы, МАСТЕРА!


А может кто знает как сделать чтобы комп сам себя в розетку включал?
Никто не знает? Тогда какие же Вы после этого мастера? :)))))))


 
TButton   (2003-08-31 18:05) [25]

нефиг над друзьями издеваться!!!
я похожую програмку писал... тока она выключала компутеры по сети, а поскольку сеть у нас из двух компов (мой и друга)...
воот, а еще похожая прога сидит в сети у меня на работе... на бывшей... но ето совсем другая история :)


 
Anatoly Podgoretsky   (2003-08-31 20:11) [26]

Так не выключать нужно, а включать, при том не по сети, и при том программно на выключенном компьютере, па не БИОСом


 
Е-Моё имя   (2003-08-31 21:56) [27]

Anatoly Podgoretsky © (31.08.03 20:11) [26]
а он в афгане служил, он безбашенный...
http://delphimaster.net/view/1-1062332068/
#22

:-))


 
Anatoly Podgoretsky   (2003-08-31 22:20) [28]

Я читал, это он здорово прокололся. Ну тогда расскажу анекдот.

Я знаю карате, айкидо, джиу-джитсу и еще много страшных слов.


 
Marser   (2003-08-31 23:12) [29]

Провокация, однако...


 
Е-Моё имя   (2003-09-01 01:59) [30]

Anatoly Podgoretsky © (31.08.03 22:20)
;-))))))))


 
Nucl   (2003-09-01 09:03) [31]

Берешь сотовый, на динамик сотки вешаешь реле на 220V, питание компа через реле, звонишь на мобильник - реле замыкается - комп запускается.
Гы а вы биос, смос какой-то ;)))))
да, и не забываешь постоянно говорить в сотку чтобы реле не разомкнулось
8-( ~~~ P


 
Е-Моё имя   (2003-09-01 09:10) [32]

>>да, и не забываешь постоянно говорить в сотку чтобы реле не разомкнулось
)))))))))))))))))))))))))
я верю в него, он это сможет


 
HolACost!   (2003-09-01 11:22) [33]

Он вам всем ещё покажет!


 
Е-Моё имя   (2003-09-01 11:30) [34]

я отвернусь


 
Куфзик   (2003-09-02 09:42) [35]

А я дурак на анекдот.ру подписался....:))
Скажите как на этот идиотизм подписаться:))))


 
Е-Моё имя   (2003-09-02 09:44) [36]

Куфзик (02.09.03 09:42)
)))))))))))
поищи в поиске автора


 
jdm   (2003-09-02 14:41) [37]

И еще чтобы выдавалась надпись - Теперь питание компьютера можно включить.


 
Palladin   (2003-09-02 14:56) [38]

Разбуди себя сам.


 
jdm   (2003-09-02 15:07) [39]

Ра = Во


 
Е-Моё имя   (2003-09-02 16:14) [40]

jdm
))))))))))))))))))))



Страницы: 1 2 вся ветка

Форум: "Потрепаться";
Текущий архив: 2003.09.25;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.56 MB
Время: 0.012 c
1-82264
Xitrik
2003-09-13 20:14
2003.09.25
как в Delphi обозначить (+,-,*,/) клавиши дополнительной клавиату


3-82089
RDA
2003-09-05 11:54
2003.09.25
Выбор полей по условию


3-82078
alex-ran
2003-09-05 15:23
2003.09.25
Проблема с функциями в SQL


3-82135
BillyJeans
2003-09-04 12:03
2003.09.25
Удаление записей после фильтрации...


4-82546
DelBoy
2003-07-22 22:46
2003.09.25
Получить Хендл предыдущего окна





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский