前輩你們好 小弟想請教關於網卡的關閉與啟動 delphi該要用哪一些api實現呢 是否可以提供簡短的範例 小地在想請教 該如何透過delphi寫更改ip的小程式呢 感激不盡

不好意思 我再將我的問題敘述的完整一點 因為在學校使用學校的網路 會有流量限制 所以想寫隻程式 可以去判斷現在網路是否有通 如果沒有通 則換個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.

參考一下 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=41105 japhenchen |yu168 2位先進的方式 簡單好寫

請問前輩 那netsh 該怎麼用在程式裡面呢 請前輩多多指教 謝謝^_^

別教安 前輩 幫忙一下 你再參考一篇 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 如果您要檢視指令的說明，請輸入該指令，後面接著一個空格， 然後輸入 ?。

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.