[问题求助] 【已解决】-求助VBS代码为何有的窗口能用代码关闭，有的不能？

本主题由 Batcher 于 2024-9-9 09:06 移动

Rank: 1

帖子: 11
积分: 23
技术: 0
捐助: 0
注册时间: 2024-9-9

1楼 跳转到 » 倒序看帖

打印

字体大小: tT

发表于 2024-9-9 00:30 | 只看该作者

[问题求助] 【已解决】-求助VBS代码为何有的窗口能用代码关闭，有的不能？

本帖最后由 liupeiji03 于 2024-9-10 16:30 编辑

Set oShell = CreateObject("WScript.Shell") 
If oShell.AppActivate("Untitled - Notepad") Then
   WScript.Sleep 500
   oShell.SendKeys "%{F4}"
End If 
复制代码

以上是本人网上搜索得来的代码，根据测试，有的窗口能关闭，有的不能。比如窗口标题设置为本地连接，打开本地连接的状态窗口时可以用该代码关闭，

而打开本地连接的属性窗口时却无法用该代码关闭。

不知道这是什么原因？还是窗口也有很多种属性？
另外这段代码如何修改可以让它一直在后台运行，检测到对应的窗口标题就关闭？

czjt1234

Rank: 6 Rank: 6

帖子: 1058
积分: 1559
技术: 112
捐助: 0
注册时间: 2010-4-30

2楼

发表于 2024-9-9 05:58 | 只看该作者

只对当前活动窗口有效，其它应用程序可能会抢占活动窗口

QQ 20147578

Batcher

管理员

Rank: 12

帖子: 14935
积分: 46142
技术: 857
捐助: 745
注册时间: 2008-6-9

3楼

发表于 2024-9-9 09:06 | 只看该作者

回复 1# liupeiji03

如果需要上传文件，请用使用网盘。

如果需要上传截图，可以找个图床，例如：
http://bbs.bathome.net/thread-60985-1-1.html

我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

Rank: 1

帖子: 11
积分: 23
技术: 0
捐助: 0
注册时间: 2024-9-9

4楼

发表于 2024-9-9 09:24 | 只看该作者

回复 2# czjt1234

应该不是吧，运行这个代码后它就会把含这个标题的窗口放到最前了。我测试了一下，打开一个窗口后再在这个软件菜单操作打开的窗口就关不了了。

Rank: 1

帖子: 11
积分: 23
技术: 0
捐助: 0
注册时间: 2024-9-9

5楼

发表于 2024-9-9 09:38 | 只看该作者

回复 3# Batcher

如图，打开本地连接状态后，在任务栏可以看到有一个本地连接状态的窗口。在本地连接状态窗口点击属性打开本地连接属性的窗口，可以看到任务栏还是只有一个本地连接状态的窗口。第一个能用代码关闭，第二个就不能了。

Rank: 6 Rank: 6

帖子: 1249
积分: 2215
技术: 279
捐助: 0
注册时间: 2017-3-20

6楼

发表于 2024-9-9 10:48 | 只看该作者

' 脚本必须以管理员身份运行
Set oShell = CreateObject("WScript.Shell")
Do
  If oShell.AppActivate("本地连接 ",True) Then ' 窗口标题 前缀
    ' WScript.Echo "Closing window:" & Timer
     WScript.Sleep 500
     oShell.SendKeys "%{F4}"
     WScript.Sleep 1000 ' 避免重复关闭窗口
  End If
  WScript.Sleep 1000 ' 延迟,避免CPU占用过高
Loop
复制代码

两个窗口都能关闭

1 评分人数

liupeiji03: 乐于助人技术 + 1

微信:flashercs
QQ:49908356

Rank: 1

帖子: 11
积分: 23
技术: 0
捐助: 0
注册时间: 2024-9-9

7楼

发表于 2024-9-9 14:01 | 只看该作者

回复 6# flashercs

测试过了还是不能关闭本地连接的属性窗口。

Rank: 6 Rank: 6

帖子: 1249
积分: 2215
技术: 279
捐助: 0
注册时间: 2017-3-20

8楼

发表于 2024-9-9 15:25 | 只看该作者

回复 7# liupeiji03

必须以管理员身份运行vbs,win7,win10,wi11我都测试通过,完美.

微信:flashercs
QQ:49908356

Rank: 1

帖子: 11
积分: 23
技术: 0
捐助: 0
注册时间: 2024-9-9

9楼

发表于 2024-9-9 17:38 | 只看该作者

回复 8# flashercs

你好，我在win7下以administrator账户测试成功了，但在其他账户下我还没找到方法怎样以管理员身份运行vbs文件。还有个问题就是我想以这段代码关闭“本地连接属性”窗口，我将标题改为了“本地连接属性”，但是无法关闭窗口。不知道是否是本地连接与属性之间填的空格问题导致不匹配

Rank: 6 Rank: 6

帖子: 1249
积分: 2215
技术: 279
捐助: 0
注册时间: 2017-3-20

10楼

发表于 2024-9-9 20:11 | 只看该作者

回复 9# liupeiji03

目的是不让用户修改本地连接属性吗?用关闭窗口的方式不适用,即使创建计划任务以Administrators用户执行也不能关闭其他用户的窗口.
最好的方式是通过权限设置禁止任何人读取 netshell.dll,这样本地连接属性就任何人无法访问了.

微信:flashercs
QQ:49908356

Rank: 1

帖子: 11
积分: 23
技术: 0
捐助: 0
注册时间: 2024-9-9

11楼

发表于 2024-9-9 20:18 | 只看该作者

回复 10# flashercs

是的，主要是针对有管理员权限的域用户，禁止其修改IP。你说的这个netshell.dll我还没试过，我先测试一下。

Rank: 1

帖子: 11
积分: 23
技术: 0
捐助: 0
注册时间: 2024-9-9

12楼

发表于 2024-9-9 21:12 | 只看该作者

回复 10# flashercs

经过测试，修改netshell.dll文件为只有读取权限，会导致本地连接打叉，本地连接的状态窗口也打不开，跟禁用服务network connections的效果差不多，不推荐这样子搞。
但是经过你的提示，我发现修改netcfgx.dll文件为只有读取权限，就可以达到用户无法打开属性窗口的效果，如图：

现在的问题就是如何通过域策略来控制修改该文件的权限？否则在每台机这样设置也不现实。

Rank: 6 Rank: 6

帖子: 1249
积分: 2215
技术: 279
捐助: 0
注册时间: 2017-3-20

13楼

发表于 2024-9-9 21:37 | 只看该作者

回复 12# liupeiji03

组策略开机/关机脚本

微信:flashercs
QQ:49908356

Rank: 1

帖子: 11
积分: 23
技术: 0
捐助: 0
注册时间: 2024-9-9

14楼

发表于 2024-9-9 22:04 | 只看该作者

回复 13# flashercs

脚本我不会写，大佬可否赐教？首先要获取该文件的所有权，然后再将文件的administrators组修改为只读权限。

Rank: 6 Rank: 6

帖子: 1249
积分: 2215
技术: 279
捐助: 0
注册时间: 2017-3-20

15楼

发表于 2024-9-9 23:29 | 只看该作者

回复 14# liupeiji03

@echo off
takeown /f %windir%\system32\netcfgx.dll
icacls %windir%\system32\netcfgx.dll /deny Everyone:R
icacls %windir%\system32\netcfgx.dll /setowner "NT SERVICE\TrustedInstaller"
复制代码

1 评分人数

liupeiji03: 乐于助人技术 + 1

微信:flashercs
QQ:49908356