===VBS中有哪些系统预置的变量?===

Question

1.
now >日期+时间
date >日期
time >时间
像这样类型的变量还有哪些.???
一些系统的变量,如%temp%,%windir%,%systemdrive%这些在VBS中又如何表示呢?
另:在VBS中怎么用变量表示当前VBS的绝对路径,文件名.和所在目录.

2.
VBS中怎么将"一串字符"或是"一个文件"发送到剪粘板呢,CTRL+V就能粘贴出来的.

3.
VBS中弹出的对话框怎么定义它的大小和位置呢.像这些:inputbox,msgbox.
它的按钮文字,如"确定,取消,重试,等等",能自定义吗.?

谢谢大虾了.呵...

Answer 1

一、与VB相似，VBS预置变量主要是时间日期变量：
Now
Date
Year
Month
Day
Hour
Minute
Second
Time
Timer
TimeSerial 返回一个 Date 子类型的 Variant，含有指定时、分、秒的时间。
TimeValue 返回包含时间的 Date 子类型的 Variant。
Weekday
WeekDayName 返回一个字符串，表示星期中指定的某一天。

还有：要获取%temp%,%windir%,%systemdrive%这些系统变量，可以这样做：
Dim WshShell,Path
set WshShell=WScript.CreateObject("WScript.shell")
path=WshShell.ExpandEnvironmentStrings("%windir%")
msgbox path

另：在VBS中用变量表示当前VBS的绝对路径,文件名.和所在目录,可以这样做：
im fn1,fn2,path,i
fn1=WScript.ScriptFullName
i=instrrev(fn1,"\\")
fn2=mid(fn1,i+1)
path=mid(fn1,4,i-4)
MsgBox "VBs的绝对路径是：" & fn1
MsgBox "VBs的文件名是：" & fn2
MsgBox "VBs的所在目录是：" & path

二、剪切板
1、字符串复制到剪切板:
strCopy = "abc"
Set objIE = CreateObject("InternetExplorer.Application")
'Set objie=WScript.CreateObject("internetexplorer.application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", strCopy
objIE.Quit
2、文件复制到剪切板：
为了安全起见 vbs只可以复制文本到剪贴板，不能直接复制文件。
三、弹出的对话框
弹出的对话框的大小会随着文字的多少而自动适应，无需调整(VBS也不允许调整)。
MsgBox "你好", vbOKOnly, "提示" '确定
MsgBox "你好", vbOKCancel, "提示" '确定+取消
MsgBox "你好", vbRetryCancel, "提示" '重试+取消
InputBox "请输入参数","提示" '默认为确定+取消(VB不允许更改)