(鍏跺疄鎴戜笉鏄綉绠★紝璇︽儏璇风湅……) 鍏充簬缃戠涔嬭矾鐨勮鏄
銆愬垎浜慦in10 瀹跺涵鐗堜腑浣跨敤杩滅▼妗岄潰锛3389锛
浣滆:smoile|鏃ユ湡:2020-06-11 12:18:37(960澶╁墠)
銆恮indows銆憊bs鏇存敼3389杩滅▼妗岄潰绔彛鐨勮剼鏈
浣滆:smoile|鏃ユ湡:2008-06-11 23:20:59(5343澶╁墠)
鐢╲bscript瀹炵幇鐨勪慨鏀规湇鍔″櫒3389绔彛鐨勪唬鐮侊紝姣旇緝鏂逛究浣跨敤锛屼笉鐢ㄦ瘡娆¢兘瑕佽繘娉ㄥ唽琛ㄤ慨鏀癸紝鏂逛究澶у
绋嬪簭浠g爜

Set WshShell=CreateObject("Wscript.Shell")
Function Imput()
imputport=InputBox("璇疯緭鍏ヤ竴涓鍙e彿锛屾敞鎰忥細杩欎釜绔彛鍙风洰鍓嶄笉鑳借鍏跺畠绋嬪簭浣跨敤锛屽惁鍒欎細褰卞搷缁堢鏈嶅姟"," 鏇存敼缁堢绔彛鍙", "3389", 100, 100)
If imputport<>"" Then
Function Imput()
imputport=InputBox("璇疯緭鍏ヤ竴涓鍙e彿锛屾敞鎰忥細杩欎釜绔彛鍙风洰鍓嶄笉鑳借鍏跺畠绋嬪簭浣跨敤锛屽惁鍒欎細褰卞搷缁堢鏈嶅姟"," 鏇存敼缁堢绔彛鍙", "3389", 100, 100)
If imputport<>"" Then
- 1