- UID
- 596
- 帖子
- 1431
- 积分
- 807
- 紫菀
- 0 朵
- 花瓣
- 450 片
- 花蕊
- 86 朵
- 野草莓
- 0 个
- 蒲公英
- 0 朵
- 社区等级
- 26 级
- 在线时间
- 292 小时
- 注册时间
- 2006-9-11
- 蜗居何地
- fj
- 登录状态
-
当前离线
|
楼主
发表于 2006-11-25 22:54
| 只看该作者
用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 检测是否运行脚本
今天在兄弟论坛上看到的 感觉不错 所以转过来大家看看 |
|