12345
返回列表 发帖
sz1121

Rank: 1

帖子
51 
积分
95 
技术
7  
捐助
0  
注册时间
2012-1-27 
46楼 跳转到 »
发表于 2012-6-7 17:26 | 只看该作者
我是路过的……
1

评分人数

TOP

wh1234567

Rank: 5Rank: 5

帖子
505 
积分
1230 
技术
1  
捐助
0  
注册时间
2009-5-28 
47楼
发表于 2012-6-7 17:29 | 只看该作者
本帖最后由 wh1234567 于 2012-6-7 17:34 编辑

刚才可能是我多操作了几次导致系统或这个批处理出现问题，现在我将进程全部删除后程序运行29就执行，
只是你37楼的type a.vbs这个我没创建，可能是a.bat吧？其他显示正常，现在只修正我刚说的那2个问题就估计完美了，很感谢您帮我帮到底，呵呵呵

vbs的

TOP

powerbat

Rank: 7Rank: 7Rank: 7

帖子
752 
积分
4553 
技术
139  
捐助
0  
注册时间
2010-8-24 
48楼
发表于 2012-6-7 17:59 | 只看该作者
回复 47# wh1234567


你为什么不按我说的来呢？没有a.vbs和a.bat你建一个不就行了，内容已经type出来了。
现在重点是为什么我测试没问题而你一搞就报错，把这个原因找到其他功能随便加。
script56
新加坡Google

TOP

wh1234567

Rank: 5Rank: 5

帖子
505 
积分
1230 
技术
1  
捐助
0  
注册时间
2009-5-28 
49楼
发表于 2012-6-7 18:24 | 只看该作者
本帖最后由 wh1234567 于 2012-6-7 18:28 编辑

a.bat这是我的批处理，a.vbs这个是vbs代码程序吧，没错，就修正那2个问题就行，我理解你说的意思了，呵呵呵

TOP

powerbat

Rank: 7Rank: 7Rank: 7

帖子
752 
积分
4553 
技术
139  
捐助
0  
注册时间
2010-8-24 
50楼
发表于 2012-6-7 18:29 | 只看该作者
回复 49# wh1234567


    我怎么觉得你脑子还没转过弯来呢？
script56
新加坡Google

TOP

wh1234567

Rank: 5Rank: 5

帖子
505 
积分
1230 
技术
1  
捐助
0  
注册时间
2009-5-28 
51楼
发表于 2012-6-7 19:06 | 只看该作者
呵呵呵，测试能行，只是得修正那2个问题就行

TOP

wh1234567

Rank: 5Rank: 5

帖子
505 
积分
1230 
技术
1  
捐助
0  
注册时间
2009-5-28 
52楼
发表于 2012-6-8 11:40 | 只看该作者
在线等......

TOP

powerbat

Rank: 7Rank: 7Rank: 7

帖子
752 
积分
4553 
技术
139  
捐助
0  
注册时间
2010-8-24 
53楼
发表于 2012-6-8 12:08 | 只看该作者
你说按37楼的步骤测试能行，那为什么还会出现第2个问题“弹出错误窗口”？出现错误了就说明不可行，你为什么要说测试可行呢？
不知道该说你可爱呢还是天真。。。
script56
新加坡Google

TOP

wh1234567

Rank: 5Rank: 5

帖子
505 
积分
1230 
技术
1  
捐助
0  
注册时间
2009-5-28 
54楼
发表于 2012-6-8 19:52 | 只看该作者
本帖最后由 wh1234567 于 2012-6-8 19:56 编辑

打开一个cmd，按37楼的步骤把那些红色的命令逐条运行一次，确认没问题能正常执行，也不弹出错误窗口。
但是如果直接运行a.vbs的话当数值变化成29时就会弹出那个错误窗口，同时也会自动执行a.bat。
为什么？

TOP

bluewing009

Rank: 6Rank: 6

帖子
515 
积分
1788 
技术
15  
捐助
0  
注册时间
2009-11-27 
55楼
发表于 2012-6-8 22:51 | 只看该作者
我记得我写了一个例子，监控注册表的……………………如果你看那个有问题再问我。

TOP

wh1234567

Rank: 5Rank: 5

帖子
505 
积分
1230 
技术
1  
捐助
0  
注册时间
2009-5-28 
56楼
发表于 2012-6-8 23:31 | 只看该作者
本帖最后由 wh1234567 于 2012-6-9 00:07 编辑

回复 53# powerbat

不好意思，我找到错误的原因了，是因为自动执行a.bat，这个批处理将444删除了导致会弹出那个错误窗口
你修正下那个当第一次运行时如果原数值就是29的话无法执行a.bat的问题吧
另外，我想能不能将第一次运行时弹出的窗口和数值变化时弹出的窗口过3秒钟后自动关闭，不需要手动点击确定的那种，还有与其发现数值是29时执行a.bat还不如直接用vbs将数值29自动修改为20，你看行不行，那个a.bat就不需要了。
标题能不能显示为：注册表监视小工具

TOP

forfiles

Rank: 8Rank: 8

帖子
571 
积分
5364 
技术
29  
捐助
0  
注册时间
2012-6-7 
57楼
发表于 2012-6-9 08:59 | 只看该作者
回复 55# bluewing009


    我表示看不懂。目测楼主更看不懂。

TOP

zqz0012005

Rank: 8Rank: 8

帖子
1069 
积分
12123 
技术
38  
捐助
0  
注册时间
2008-5-10 
58楼
发表于 2012-6-9 13:28 | 只看该作者
不听老人言，吃亏在眼前！
此帖可以说是最长最无聊的帖子！
人家早就说了让你把代码帖出来，你偏不听，非说自己代码和别人一样，结果怎样？而且自己有什么需求、碰到什么问题都不描述清楚，靠别人像挤牙膏似的问一点你才说一点，把大家的耐心都耗尽了，最终没人愿意回答你的问题了。楼主应该好好学一下提问的方法。
提问的智慧 http://www.bathome.net/thread-4054-1-1.html
命令行参考：hh.exe ntcmds.chm::/ntcmds.htm
求助者请拿出诚心，别人才愿意奉献热心！
把查看手册形成条件反射！

TOP

wh1234567

Rank: 5Rank: 5

帖子
505 
积分
1230 
技术
1  
捐助
0  
注册时间
2009-5-28 
59楼
发表于 2012-6-10 21:03 | 只看该作者
回复 53# powerbat

你好，辛苦您了，不知道你还能不能再按照56楼的更新下这个vbs 呢？

TOP

powerbat

Rank: 7Rank: 7Rank: 7

帖子
752 
积分
4553 
技术
139  
捐助
0  
注册时间
2010-8-24 
60楼
发表于 2012-6-10 22:00 | 只看该作者 
Hive = "HKEY_LOCAL_MACHINE"
KeyPath = "Software\333"
ValueName = "444"
 
On Error Resume Next
Set ws = CreateObject("WScript.Shell")
SINK_OnObjectReady 0, 0
Set Sink = WScript.CreateObject("WbemScripting.SWbemSink", "SINK_")
Set objWMIServices = GetObject("winmgmts:" & _
    "{impersonationLevel=impersonate}!\\.\root\default")
objWMIServices.ExecNotificationQueryAsync Sink, _
    "Select * from RegistryValueChangeEvent Where " & _
    "Hive = '"&Hive&"' and " & _
    "KeyPath = '"&Replace(KeyPath,"\","\\")&"' and " & _
    "ValueName = '"&ValueName&"'"
WScript.Echo "Listening for Registry Change Events..." & vbCrLf
Do : WScript.Sleep 1000 : Loop
 
Sub SINK_OnObjectReady(wmiObject, wmiAsyncContext)
    Value = ws.RegRead(Hive&"\"&KeyPath&"\"&ValueName)
    'WScript.Echo Value
    if CStr(Value)="29" then
        ws.Popup "注册表值变成了29", 3, "通知"
        ws.RegWrite Hive&"\"&KeyPath&"\"&ValueName, 20, "REG_DWORD"
    end if
End SubCOPY
script56
新加坡Google

TOP

12345
返回列表