用A脚本控制B脚本运行或停止

用A脚本控制B脚本运行或停止

用A脚本控制B脚本运行或停止

看到有位论坛的朋友问脚本间能否实现互相控制...

于是写了个脚本,原理很简单,利用读写txt的方法来实现...

LEO也介绍了读写剪切版的办法..大家可以自己写个试试

下面是脚本A,B.
A是控制脚本,控制B脚本的运行和停止
B脚本是受控脚本,一直检测着txt来判断是否运行脚本!

先运行A脚本,然后按0或1,脚本A会把结果写入txt
B脚本就会判断,然后来做出相应的动作.

注意:这只是个例子,具体要求,还需要你自己来实现!!

脚本A

QUOTE:
[General]
Description=控制脚本
BeginHotkey=120
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=1
[Repeat]
Type=0
Number=1
[CallBack]
OnSetup=
[Comment]
Content=控制脚本.
脚本A,控制脚本 for wx19841231〖欣﹍簽〗
[Script]
Rem 等待检测
WaitKey wait
If wait=48
kongzhi=0
Gosub 写入脚本控制
ElseIf wait=49
kongzhi=1
Gosub 写入脚本控制
EndIf
Goto 等待检测
Sub 写入脚本控制
Set objShell = CreateObject("WScript.Shell")
x = objShell.SpecialFolders.Item("desktop")
//↑取得桌面路径
VBS set fso=CreateObject("Scripting.FileSystemObject")
VBS const forwriting=2
VBS const forreading=1
VBS set myfile=fso.createtextfile(x&"\脚本控制.txt")
//↑写一个TXT到桌面
VBS myfile.writeline(kongzhi)
//↑这行就是你写进TXT的内容
VBS myfile.Close
Return 写入脚本控制

脚本B

QUOTE:
[General]
Description=受控脚本
BeginHotkey=122
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=1
[Repeat]
Type=0
Number=1
[CallBack]
OnSetup=
[Comment]
Content=受控脚本.
这个是受控脚本,等待A脚本的控制 for wx19841231〖欣﹍簽〗
[Script]
Rem 检测是否运行脚本
Set objShell = CreateObject("WScript.Shell")
x = objShell.SpecialFolders.Item("desktop")
//↑取得桌面路径
VBS set fso=CreateObject("Scripting.FileSystemObject")
VBS const forwriting=2
VBS const forreading=1
VBS Set myfile=fso.OpenTextFile(x&"\脚本控制.txt",ForReading)
VBS a=myfile.ReadLine
If a=0
MessageBox (脚本开始运行)
ElseIf a=1
MessageBox (脚本停止运行)
EndIf
VBS myfile.Close
Goto 检测是否运行脚本

今天在兄弟论坛上看到的感觉不错所以转过来大家看看