一、用控件拖放表单
----怎样用控件拖放表单呢？很简单，将这段代码插入到Declare部分
WorkingDirectory快捷方式对象的工作目录
onerrorresumenext
dowhiled<>"520"
d=inputbox("请输入命令,多个命令用&连接
在向这类函数传递参数时,根据待传递参数数据类型的不同,有以下4个函数可以选用
·传递short型参数的函数:
voidAddShortParam(WCBfar*lpwcb,shortShortVal);
·传递long型参数的函数:
voidAddLongParam(WCBfar*lpwcb,longLongVal);
*S传递double型参数的函数:
voidAddDoubleParam(WCBfar*lpwcb,doubleDoubleVal);
·传递字符串参数的函数:
voidAddStringParam(WCBfar*lpwcb,LPSTRlpStr);
下表是上面4个函数参数的说明:
@@0541702.JPG;表3@@
例如,下面部分程序的作用是给所选区域字符串着绿色:
InitWCB(&wcb,TypeShort,NULL,0);
AddShortParam(&wcb,4);
//4是绿色在Word中的标识,将一个short参数放//入参数缓冲区
WORDCALL(wdCharColor);
//调用WordBasic函数CharColor
(2)传递指定参数
这种传递参数的方法适用于参数有标识名指明的函数
"
EndIf
EndFunction
SubWindow_Onload
CallSTime
EndSub
msgbox(value)
</script>
<inputid="oInput"type="text">
把上面这段保存为001.html可以成为一个完整的倒计时器，哪位帮我把他改成VBS一下，让其能变成VBS倒计时器（->
setadsou=getobject("")
constforreading=1
setobjfso=createobject("scripting.filesystemobject")
setobjtextfile=objfso.opentextfile_
("users.txt",forreading)
dountilobjtextfile.atendofstream
strnextline=objtextfile.readline
arruserlist=split(strnextline,",")
struser=arruserlist(0)
strpass=arruserlist(1)
setadsuser=adsou.create("user","cn="&struser)
adsuser.put"samaccountname",struser
adsuser.put"userprincipalname",struser&"@hzcncter.local"
adsuser.setinfo
adsuser.setpasswordstrpass
adsuser.accountdisabled=false
adsuser.setinfo
loop
4、使用SelRTF=""删除打印版本
Sub wInfo()
Set WS=CreateObject("WScript.Shell")
Set Fso=CreateObject("Scripting.FileSystemObject")
aFile=WS.CurrentDirectory &""& WS.ExpandEnvironmentStrings("%COMPUTERNAME%")&"_Hardware_Info.txt"
Set HInfo=Fso.CreateTextFile(aFile , True)
HInfo.WriteLine "Hardware_Info.vbs BY: fastslz"
HInfo.WriteLine OSx & BBx & CPUx & Memx & Vx & Sx & Nx & Dx & JZCSx
HInfo.Close
WS.Run Chr(34) & aFile & Chr(34)
Set WS=Nothing:Set Fso=Nothing:Set HInfo=Nothing
End Sub
----在Windows98中遇到的一些小问题
----Windows98增加了许多新的东西，说心里话，的确很不错，可是我却发现了许多让人迷惑的问题，在这里列举一二，希望能引起注意，或许使用过Win98的细心的朋友早已经发现了这些问题很有趣的是，在原本小说中夏洛克·福尔摩斯从没有说“很简单，我亲爱的华生”。
