Set WshShell=CreateObject("Wscript.Shell") Function Imput() imputport=InputBox("請輸入一個端口號,注意:這個端口號目前不能被其它程序使用,否則會影響終端服務(wù)"," 更改終端端口號", "3389", 100, 100) If imputport<>"" Then If IsNumeric(imputport) Then WshShell.RegWrite "HKLM\SYSTEM\CurrentControlS...
www.dbjr.com.cn/article/144...htm 2025-6-7