廣告廣告
  加入我的最愛 設為首頁 風格修改
首頁 首尾
 手機版   訂閱   地圖  簡體 
您是第 22018 個閱讀者
 
<<   1   2  下頁 >>(共 2 頁)
發表文章 發表投票 回覆文章
  可列印版   加為IE收藏   收藏主題   上一主題 | 下一主題   
buch 手機
數位造型
個人文章 個人相簿 個人日記 個人地圖
小人物
級別: 小人物 該用戶目前不上站
推文 x1 鮮花 x6
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片
推文 x1
[轉貼]將ipconfig指令介面化
轉貼自香港IT網
對於經常使用ipconfig這個指令的人,
是否覺得老是要在"命令提示字元"下手動輸入是一種麻煩?
以下方法可以將這個程式製作成對話方框,
只要用滑鼠點選就可輕鬆執行你指定的動作喔!
使用方法:用記事本開啟新檔,將以下內容複製上去,另存為*.hta檔後,直接點選就可以執行了

<html>
<head>
<title>The Windows XP IP Configuration Tool </title>

<HTA:APPLICATION
ID = "XApp"
APPLICATIONNAME = "The Windows XP IP Configuration Tool"
BORDER = "thick"
CAPTION = "yes"
ICON = "wxpipc.ico"
SHOWINTASKBAR = "yes"
SINGLEINSTANCE = "yes"
SYSMENU = "yes"
WINDOWSTATE = "normal"
SCROLL = "no"
SCROLLFLAT = "yes"
VERSION = "1.0"
INNERBORDER = "no"
SELECTION = "no"
MAXIMIZEBUTTON = "yes"
MINIMIZEBUTTON = "yes"
NAVIGABLE = "yes"
CONTEXTMENU = "yes"
BORDERSTYLE = "normal">

<OBJECT ID="WindowsShell"
CLASSID="clsid:13709620-C279-11CE-A49E-444553540000">
</Object>

<SCRIPT LANGUAGE="VBScript">

Dim WshShell, FileSystem, CommandLine, ipcswitch, Param
Dim RelAdap, RenAdap, ShoAdap, SetAdap

Set WshShell = CreateObject("WScript.Shell")
Set FileSystem = CreateObject("Scripting.FileSystemObject")

Window.ResizeTo 600, 420
Window.MoveTo 5, 5

Sub ProcessOptions

Set MyForm = Document.dbx
Set RadioButtonDialog = MyForm.Elements("ipcswitch")

For Each RadioButton In RadioButtonDialog
If RadioButton.Checked = True Then
ipcswitch = RadioButton.Value
Exit For
End If
Next


Select Case ipcswitch
Case "/release " Param = MyForm.RelAdap.Value
Case "/renew " Param = MyForm.RenAdap.Value
Case "/showclassid " Param = MyForm.ShoAdap.Value
Case "/setclassid " Param = MyForm.SetAdap.Value
End Select


Call RunCommand

End Sub 'ProcessOptions

Sub RunCommand

CommandLine = "IPConfig " & ipcswitch & Param

Prompter = "This is the IPConfig command that you just configured:" & vbCrlf & vbCrlf &_
"Do you want to execute it?" & vbCrlf & vbCrlf &_
CommandLine

ExecuteIt = MsgBox(Prompter, 1, "The Windows XP IP Configuration Tool")

If ExecuteIt = 1 Then
WshShell.Run "Cmd.exe /t:9F /k " & CommandLine, 1, True
End If

End Sub 'RunCommand

Sub ..

訪客只能看到部份內容,免費 加入會員 或由臉書 Google 可以看到全部內容



[ 此文章被buch在2005-09-16 23:37重新編輯 ]



獻花 x0 回到頂端 [樓 主] From:台灣數位聯合 | Posted:2005-09-16 03:44 |
Kilian
個人頭像
個人文章 個人相簿 個人日記 個人地圖
終身成就獎
知名人士
級別: 知名人士 該用戶目前不上站
推文 x4 鮮花 x387
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

MS 有個以前出的Win2000 版 ipconfig GUI
Wntipcfg.exe: Windows NT IPConfig Utility
http://www.microsoft.com/windows2000/techin...ting/wntipcfg-o.asp

可以在 XP 用


獻花 x0 回到頂端 [1 樓] From:加拿大 | Posted:2005-09-16 04:47 |
alfa0816
數位造型
個人文章 個人相簿 個人日記 個人地圖
小人物
級別: 小人物 該用戶目前不上站
推文 x0 鮮花 x0
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

好用哩~有了這個就不用每次都在那邊打指令了,謝謝樓主


獻花 x0 回到頂端 [2 樓] From:台灣中華電信 | Posted:2005-09-17 07:49 |
mingkevin 手機
個人頭像
個人文章 個人相簿 個人日記 個人地圖
初露鋒芒
級別: 初露鋒芒 該用戶目前不上站
推文 x0 鮮花 x17
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

挺好用的耶@@~還有其他的指令~
可惜我只看得懂/all這個= =a
不過還是感謝分享啊!!


獻花 x0 回到頂端 [3 樓] From:台灣教育部 | Posted:2005-09-17 13:51 |
redazrael 手機
個人頭像
個人文章 個人相簿 個人日記 個人地圖
小人物
級別: 小人物 該用戶目前不上站
推文 x17 鮮花 x69
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

好方便,真有創意,謝謝你的分享


hello


獻花 x0 回到頂端 [4 樓] From:臺灣 | Posted:2009-07-28 10:50 |
rongyun
個人文章 個人相簿 個人日記 個人地圖
小人物
級別: 小人物 該用戶目前不上站
推文 x0 鮮花 x45
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

真是一個好用的工具 不用一直打指令了


獻花 x0 回到頂端 [5 樓] From:臺灣索尼So-net網 | Posted:2009-09-15 22:12 |
mjchen23 手機
個人頭像
個人文章 個人相簿 個人日記 個人地圖
小人物
級別: 小人物 該用戶目前不上站
推文 x0 鮮花 x139
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

好實用喔

謝謝大大分享好用工具啦

感恩


╰○︿′
︿) 凡走過必留下痕跡~我大力的踩


ㄧ○︿
     ....快閃!!
√ ﹀
           
     
獻花 x0 回到頂端 [6 樓] From:台灣和信超媒體寬帶網 | Posted:2009-11-01 22:21 |
jackal921
數位造型
個人文章 個人相簿 個人日記 個人地圖
路人甲
級別: 路人甲 該用戶目前不上站
推文 x0 鮮花 x0
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

thank這樣以後就方便多了


獻花 x0 回到頂端 [7 樓] From:臺灣中華電信 | Posted:2009-11-20 08:07 |
takashilin
數位造型
個人文章 個人相簿 個人日記 個人地圖
路人甲
級別: 路人甲 該用戶目前不上站
推文 x0 鮮花 x1
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

好棒 實用又簡單感激不盡


獻花 x0 回到頂端 [8 樓] From:台灣中華電信 | Posted:2010-02-19 15:31 |
diostar
數位造型
個人文章 個人相簿 個人日記 個人地圖
小人物
級別: 小人物 該用戶目前不上站
推文 x0 鮮花 x5
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

thanks for sharing


獻花 x0 回到頂端 [9 樓] From:台灣中華電信 | Posted:2010-09-14 08:25 |

<<   1   2  下頁 >>(共 2 頁)
首頁  發表文章 發表投票 回覆文章
Powered by PHPWind v1.3.6
Copyright © 2003-04 PHPWind
Processed in 0.023404 second(s),query:16 Gzip disabled
本站由 瀛睿律師事務所 擔任常年法律顧問 | 免責聲明 | 本網站已依台灣網站內容分級規定處理 | 連絡我們 | 訪客留言