Question

这适用于Windows 7计算机

我运行批处理文件（.bat）并想要将其配置为打开Internet选项并按下＆＃34;连接＆＃34;选项卡，然后按＆＃34;确定＆＃34;。

到目前为止，我已经有了以下内容，它会打开Internet选项：

inetcpl.cpl

我一直在尝试按照最受欢迎的答案at this link进行操作，使用以下内容，但它无法正常工作，甚至无法打开Internet选项：

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run inetcpl.cpl

Answer 1

将其另存为.bat：

@if (@X)==(@Y) @end /* JScript comment
@echo off

    cscript //E:JScript //nologo "%~f0" 

exit /b %errorlevel%
@if (@X)==(@Y) @end JScript comment */


var WshShell = new ActiveXObject("WScript.Shell");
WshShell.Run("control inetcpl.cpl");
WshShell.AppActivate("Internet Properties");

WScript.Sleep(100);
WshShell.SendKeys("+{TAB}");
WScript.Sleep(100);

WScript.Echo("RIGHT keys.....");
WshShell.SendKeys("{RIGHT}");
WScript.Sleep(100);
WshShell.SendKeys("{RIGHT}");
WScript.Sleep(100);
WshShell.SendKeys("{RIGHT}");
WScript.Sleep(100);
WshShell.SendKeys("{RIGHT}");
WScript.Sleep(100);
//WshShell.SendKeys("{RIGHT}");

WshShell.SendKeys("{TAB}");
WScript.Sleep(100);
WshShell.SendKeys("{TAB}");
WScript.Sleep(100);
WshShell.SendKeys("{TAB}");
WScript.Sleep(100);
WshShell.SendKeys("{TAB}");
WScript.Sleep(100);
WshShell.SendKeys("{TAB}");
WScript.Sleep(100);
WshShell.SendKeys("{TAB}");
WScript.Sleep(100);
WshShell.SendKeys("{ENTER}");

Answer 2

我使用了 @npocmaka 的最佳答案并在this question

上回答

您可以将以下脚本保存为bat文件并运行它。

@if (@X)==(@Y) @end /* JScript comment
@echo off
cscript //E:JScript //nologo "%~f0" 
exit /b %errorlevel%
@if (@X)==(@Y) @end JScript comment */

var WshShell = new ActiveXObject("WScript.Shell");
WshShell.Run("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,4");
WshShell.AppActivate("Internet Properties");

WScript.Sleep(100);
WshShell.SendKeys("{TAB}"); 
WScript.Sleep(100);
WshShell.SendKeys("{TAB}");
WScript.Sleep(100);
WshShell.SendKeys("{TAB}");
WScript.Sleep(100);
WshShell.SendKeys("{TAB}");
WScript.Sleep(100);
WshShell.SendKeys("{TAB}");
WScript.Sleep(100);
WshShell.SendKeys("{ENTER}");

我添加了对 @npocmaka 答案的评论，但我没有足够的声誉来发表任何评论。我希望它有所帮助。

Answer 3

这是一个字符串，必须在引号中。

我不明白为什么你毫无意义地发布了没有错误的代码。

---------------------------
Windows Script Host
---------------------------
Script: C:\Users\User\Desktop\a.vbs
Line:   2
Char:   1
Error:  Object required: 'inetcpl'
Code:   800A01A8
Source:     Microsoft VBScript runtime error

---------------------------
OK   
---------------------------

使用批处理文件打开Internet选项，打开连接选项卡，按确定

3 个答案: