标题:
用A脚本控制B脚本运行或停止
[打印本页]
作者:
ha321
时间:
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 检测是否运行脚本
今天在兄弟论坛上看到的 感觉不错 所以转过来大家看看
作者:
SzAngel
时间:
2006-11-27 00:44
这个也不错哈,,我现在常用的是通过IE读粘贴板来交换,,,
作者:
ha321
时间:
2006-11-27 22:03
不大懂Sz说的
作者:
tyeken8
时间:
2007-1-2 20:48
晕~谁想到这么BT的方法的
欢迎光临 紫菀论坛 (http://bbs.szyin.com/)
Powered by Discuz! 7.1