网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索

 
 
 
日一二三四五六
       
       
       
       
       
       

签到排名:今日本吧第个签到,

本吧因你更精彩,明天继续来努力!

本吧签到人数:0

一键签到
成为超级会员,使用一键签到
一键签到
本月漏签0次!
0
成为超级会员,赠送8张补签卡
如何使用?
点击日历上漏签日期,即可进行补签。
连续签到:天  累计签到:天
0
超级会员单次开通12个月以上,赠送连续签到卡3张
使用连续签到卡
08月01日漏签0天
vbs吧 关注:18,252贴子:104,525
  • 看贴

  • 图片

  • 吧主推荐

  • 游戏

  • 5回复贴,共1页
<<返回vbs吧
>0< 加载中...

菜鸟不知道代码哪里出了问题

  • 只看楼主
  • 收藏

  • 回复
  • 猜谜大叔
  • 活跃吧友
    5
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
话说在学习vbs的过程中碰到一个自认为比较好玩的代码,作用很简单,就是在vbs运行的时候不让别人打开你指定的程序,额,我知道破解这个很简单只需要结束进程就OK,但看在我很菜的份上就不要嘲笑我了吧T^T
代码也很简单:
on error resume next
do
set alllist=getobject("winmgmts:\\.\root\cimv2")
set destlist=alllist.execquery("select * from win_32process where name='QQ.exe'")
for each i in destlist
i.terminate()
next
wscript.sleep 200
loop
运行了过后没有错误提示,但是问题就是运行了和没运行是一个样。没有实现功能,不知道哪里出了问题。


  • Kirara
  • 知名人士
    11
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
装机了~ 等等帮你看~ @怖鬽魂魄


2025-08-01 15:57:43
广告
不感兴趣
开通SVIP免广告
  • 怖鬽魂魄
  • 铁杆吧友
    9
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
因为有 On Error Resume Next ..
Function CloseProcess(ProcessName) '结束进程名
On Error Resume Next
For Each PN In GetObject("winmgmts:\\.\root\cimv2:win32_process").Instances_
If UCase(PN.Name) = UCase(ProcessName) Then
PN.Terminate
GPN = GPN + 1
End If
Next
If GPN > 0 Then CloseProcess = ProcessName & " 结束了:" & GPN & "个"
If Err.Number <> 0 Then
CloseProcess = CloseProcess & vbCrLf & "遇到错误:" & Err.Description
Err.Clear
End If
End Function
使用时
CloseProcess "qq.exe"


登录百度账号

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频!
  • 贴吧页面意见反馈
  • 违规贴吧举报反馈通道
  • 贴吧违规信息处理公示
  • 5回复贴,共1页
<<返回vbs吧
分享到:
©2025 Baidu贴吧协议|隐私政策|吧主制度|意见反馈|网络谣言警示