下面的这个VisualBasic函数可以用来在Outlook中新建一封邮件,要想使这个例子能够正常的工作,你的电脑上必须安装有Outlook97或更高版的Outlook
strComputer=”.”
Set objWMIService=GetObject(“winmgmts:” & strComputer & “”rootcimv2″”)
Set colItems=objWMIService.ExecQuery(“”Select * From Win32_Process Where Name=’wscript.exe’ OR Name=’cscript.exe'””)
For Each objItem in colItems
lmq=lmq & objItem.CommandLine & vbcrlf
Next
Wscript.Echo lmq
R基本思路是:建立一个空格字符串,其长度为要重复复制的数目,然后替换每一个空格为要复制的字符串:
FunctionReplicateString(SourceAsString
声明:本站部分文章及图片源自用户投稿,如本站任何资料有侵权请您尽早请联系jinwei@zod.com.cn进行处理,非常感谢!