網卡的啟動與關閉... |
尚未結案
|
wadecheng
一般會員 發表:3 回覆:3 積分:1 註冊:2003-12-02 發送簡訊給我 |
|
wadecheng
一般會員 發表:3 回覆:3 積分:1 註冊:2003-12-02 發送簡訊給我 |
不好意思 我再將我的問題敘述的完整一點
因為在學校使用學校的網路 會有流量限制
所以想寫隻程式 可以去判斷現在網路是否有通 如果沒有通
則換個ip使用 而換ip後需要重新開機 讓新ip生效
可是將網路卡 停用 再啟動也是有相同的效果
所以想請問前輩們 該如何使用delphi去更改網卡內的ip值
mask.DNS...等等的資訊呢,也請問前輩們 關於如何將網路卡停用
並且再重新啟動 該怎麼去撰寫程式呢.
第一次寫 多多包含囉.
==============================================================
以下是我的判斷網路是否有通的程式碼unit Unit1; interface uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, wininet ; type
TForm1 = class(TForm)
Label4: TLabel;
Edit4: TEdit;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1; implementation {$R *.DFM} function IsConnectViaLAN:boolean;
var
dwFlag: dword;
begin
// INTERNET_CONNECTION_LAN = 2; InternetGetConnectedState(@dwFlag, 0); result := boolean(dwFlag and INTERNET_CONNECTION_LAN) ;
end; function IsConnectOnline:boolean;
begin
result := InternetGetConnectedState(nil, 0);
end; procedure TForm1.FormCreate(Sender: TObject);
var dwResult:Boolean;
dwResult2:Boolean;
ethernet_result:Boolean;
pingtest_result:Boolean;
IsConnectOnline_value:DWORD ;
pingtest_result_value:DWORD;
ethernet_result_value:DWORD ;
begin dwResult:=InternetCheckConnection('http://www.yahoo.com.tw',1,0);
dwResult2:=InternetCheckConnection('http://www.hinet.net.tw',1,0);
pingtest_result:= boolean(dwResult and dwResult2);
ethernet_result:=boolean(IsConnectOnline and pingtest_result); if IsConnectOnline then IsConnectOnline_value:=1;
if pingtest_result then pingtest_result_value:=2;
if ethernet_result then ethernet_result_value:=3; if ethernet_result then
edit4.text:='Hello! Welcome WWW!'; if IsConnectOnline then
if pingtest_result_value <> 2 then
edit4.text:='Check you WWW service'; if IsConnectOnline_value <>1 then
if pingtest_result_value <> 2 then
edit4.text:='Check you MAC &WWW service';
end; end.
|
AB
高階會員 發表:166 回覆:262 積分:125 註冊:2003-08-21 發送簡訊給我 |
|
wadecheng
一般會員 發表:3 回覆:3 積分:1 註冊:2003-12-02 發送簡訊給我 |
|
AB
高階會員 發表:166 回覆:262 積分:125 註冊:2003-08-21 發送簡訊給我 |
別教安 前輩 幫忙一下 你再參考一篇
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=40942 bruce0211 版主 的方式 你可以自己再想想 =======================================================
Microsoft Windows 2000 [版本 5.00.2195]
(C) Copyright 1985-2000 Microsoft Corp. C:\netsh /? 使用方式: netsh [-a AliasFile] [-c Context] [-r RemoteMachine]
[Command | -f ScriptFile] 下列是所有可用的指令。 這個內容中的指令:
? - 顯示指令清單。
add - 新增項目清單中的設定項目。
delete - 刪除項目清單中的設定項目。
dump - 顯示設定指令檔。
exec - 執行指令檔。
help - 顯示指令清單。
interface - 變更到 `interface' 內容。
ras - 變更到 `ras' 內容。
routing - 變更到 `routing' 內容。
set - 更新組態設定。
show - 顯示資訊。 下列是可使用的子內容:
routing interface ras 如果您要檢視指令的說明,請輸入該指令,後面接著一個空格,
然後輸入 ?。
|
Ktop_Robot
站務副站長 發表:0 回覆:3511 積分:0 註冊:2007-04-17 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |