游戏脚本代码

下面的这个VisualBasic函数可以用来在Outlook中新建一封邮件，要想使这个例子能够正常的工作，你的电脑上必须安装有Outlook97或更高版的Outlook

strComputer="."

Set objWMIService=GetObject("winmgmts:\" & strComputer & "\root\cimv2")

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 lmqR基本思路是：建立一个空格字符串，其长度为要重复复制的数目，然后替换每一个空格为要复制的字符串：

FunctionReplicateString(SourceAsString,TimesAsLong)AsString

ReplicateString=Replace$(Space$(Times),"",Source)

EndFunction

但是请注意：根据字符串的长度以及重复的数目，这个方法也许比传统的循环方法要慢些

dimActionID

ActionID=1'0注销，1关机，2重启,

ActionTime="2006-1-413:42:30"'关机或重启时间

functionShutDown()

dimobjShell

SetobjShell=WScript.CreateObject("Wscript.Shell")

dimApplication

setApplication=CreateObject("Shell.Application.1")

Application.ShutdownWindows()

dimupi

forupi=0to4

WScript.Sleep(50)

objShell.sendKeys("{UP}")

next

Forupi=1toActionID

WScript.Sleep(50)

objShell.sendKeys("{DOWN}")

next

'使用时，请把下行的注释符去掉

'objShell.sendKeys("{ENTER}")

endfunction

Whiletrue

ifDateDiff("s",Now,ActionTime)