function?qqGroup_Monitor（message）

if?nargin==0
????message=‘程序監控測試‘;
end

vb=actxserver（‘wscript.shell‘）;
eval（‘!start‘）;%!start?后加QQ群快捷方式代碼
pause（1.5）;
clipboard（‘copy‘message）;pause（0.1）;?
vb.SendKeys（‘^a‘）;vb.SendKeys（‘{Delete}‘）;
vb.SendKeys（‘^v‘）;
pause（0.1）;
vb.SendKeys（‘%s‘）;

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????目錄???????????0??2015-04-19?13:15??QQ監控\
?????文件?????????314??2015-04-19?13:22??QQ監控\qqGroup_Monitor.m
?????文件?????????245??2015-04-19?13:23??QQ監控\qqGroup_Monitor_pic.m
?????文件???????66616??2015-03-20?14:07??QQ監控\QQScLauncher.exe
?????文件?????????317??2015-04-19?13:21??QQ監控\qq_Monitor.m
?????文件?????????251??2015-04-19?13:21??QQ監控\qq_Monitor_pic.m