局域网通过网卡远程开机?

xiaoxingchi 2002-10-21 02:57:24
谁知道,代码!
...全文
159 14 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
14 条回复
切换为时间正序
请发表友善的回复…
发表回复
belllab 2003-05-10
  • 打赏
  • 举报
回复
1。网卡要支持远程开机
2。在BIOS内允许网卡唤醒
3。用软件(如AMD公司发布的Magic Packet 1.0)向此网卡发送唤醒信息(要用到MAC地址,IP地址是不行的)
http://school.enet.com.cn/document/20020225/2002022511011301.shtml
http://www.alphaweb.com.cn/netpub14.htm
lEFTmOON 2003-05-10
  • 打赏
  • 举报
回复
IdUDPClient1.Send('255.255.255.255',80,Data);
这一句报错啊!
naughtyboy 2003-05-09
  • 打赏
  • 举报
回复
下面的程序可以实现远程开机(俺的网卡不支持,所以俺没有办法调试)

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdUDPBase, IdUDPClient;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
IdUDPClient1: TIdUDPClient;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Data, temp: string;
k, n: integer;
begin
Data := '';
for k := 0 to 5 do
begin
Data := Data + Chr(StrToInt('$FF')); // 6x add a FF / 6x ein FF hinzufügen
end;
temp := StringReplace(Edit1.Text, '-', '', [rfReplaceAll]);
for k := 0 to 15 do
begin
temp := StringReplace(Edit1.Text, '-', '', [rfReplaceAll]);
for n := 0 to 5 do
begin
// 16x add Target-Mac-Adress / 16x die Ziel-Macadresse hinzufügen
Data := Data + Chr(StrToInt('$' + temp[1] + temp[2]));
Delete(temp, 1, 2);
end;
end;

IdUDPClient1.Send('255.255.255.255',80,Data);
end;

end.
hansonboy 2003-05-09
  • 打赏
  • 举报
回复
.
shadowfish 2003-05-09
  • 打赏
  • 举报
回复
关注……
xiaoxingchi 2003-05-09
  • 打赏
  • 举报
回复
如果电脑的电源没有关!只是关闭了计算机系统呢?!
也具备远程唤醒功能呢
god263 2002-10-22
  • 打赏
  • 举报
回复
我搞过无盘工作站。 呵呵, 这个不是很清楚,正如楼上所说, 网卡应该具备远程唤醒功能。 思考ing....
  • 打赏
  • 举报
回复
首先网卡要有远程唤醒功能,...
sanjianxia 2002-10-22
  • 打赏
  • 举报
回复
我觉得通过网站不可能实现,用自举芯片可以实现远端控制,如果不用自举芯片,那么通过winsock编程可以控制关机,但开机好像不行。
naughtyboy 2002-10-21
  • 打赏
  • 举报
回复
不过你说得好像不太可能
网卡是PCI
即插即用,不能控制到电源
naughtyboy 2002-10-21
  • 打赏
  • 举报
回复
hehe
007元素怎么跑这里来了
这篇文章应该发到20cn的阿
strongq 2002-10-21
  • 打赏
  • 举报
回复
关注!
hebji 2002-10-21
  • 打赏
  • 举报
回复
你想作什么啊~~
delphi009 2002-10-21
  • 打赏
  • 举报
回复
不现实吧

1,594

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧