html编写qq整人代码,vbs代码大全?vbs整人代码?qq代码大全?常用VBS代码 值得一看

你是否正在寻找关于vbs代码大全的内容？让我把最有用的东西奉献给你：

常用VBS代码 值得一看

作者： 字体：[ ] 类型：转载 时间：2009-12-23

代码有点乱啊，大家可以自己整理下啊，。

从系统开始菜单中删除此链接:

复制代码 代码如下:

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\CLSID\{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}]

@=-

"InfoTip"=-

[HKEY_CLASSES_ROOT\CLSID\{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}\DefaultIcon]

@=-

[HKEY_CLASSES_ROOT\CLSID\{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}\Instance\InitPropertyBag]

"Command"=-

"Param1"=-

VBS脚本实现整理磁盘碎片功能

Set WshShell = WScript.CreateObject("WScript.Shell")

Dim fso, d, dc

Set fso = CreateObject("Scripting.FileSystemObject")

Set dc = fso.Drives

For Each d in dc

If d.DriveType = 2 Then

Return = WshShell.Run("defrag " & d & " -f", 1, TRUE)

End If

Next

Set WshShell = Nothing

计划任务定时调用VBS脚本

复制代码 代码如下:

Option Explicit

On Error Resume Next

'生成列表的文件类型

Const sListFileType = "wmv,rm,wma"

'文件所在的相对路径

Const sShowPath="."

'排序类型的常量定义

Const iOrderFieldFileName = 0

Const iOrderFieldFileExt = 1

Const iOrderFieldFileSize = 2

Const iOrderFieldFileType = 3

Const iOrderFieldFileDate = 4

'排序顺逆的常量定义

const iOrderAsc = 0

const iOrderDesc = 1

'生成列表的文件数量

const iShowCount = 20

'显示的日期格式函数

Function Cndate2(date1,intDateStyle)

dim strdate,dDate1

strdate=cstr(date1)

If Isdate(strdate) Then

If Left(cstr(strdate),1)="0" Then

dDate1=Cdate("20"+cstr(strdate))

else

dDate1=Cdate(strdate)

End If

Else

dDate1=Now()

End If

Select case intDateStyle

Case 1:

Cndate2 = Cstr(Year(dDate1))+"-"+Cstr(Month(dDate1))+"-"+Cstr(Day(dDate1))

Case 2:

Cndate2 = Cstr(Month(dDate1))+"-"+Cstr(Day(dDate1))

Case 3:

Cndate2 = Cstr(Month(dDate1))+"月"+Cstr(Day(dDate1))+"日"

Case 4:

Cndate2 = Cstr(year(dDate1))+"年"+ Cstr(Month(dDate1))+"月"+Cstr(Day(dDate1))+"日"

End Select

End Function

Function ListFile(strFiletype,intCompare,intOrder,intShowCount)

Dim sListFile

Dim fso, f, f1, fc, s,ftype,fcount,i,j,k

Dim t1,t2,t3,t4,t5

Dim iMonth,iDay

sListFile = ""

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.GetFolder(sShowPath)

Set fc = f.Files

fcount = fc.count

redim arrFiles(fcount,5)

redim arrFiles2(fcount,5)

i=0

'排序

For Each f1 in fc

ftype = right(f1.name,len(f1.name)-instrrev(f1.name,"."))

arrFiles(i,0) = f1.name

arrFiles(i,1) = ftype

arrFiles(i,2) = f1.size

arrFiles(i,3) = f1.type

arrFiles(i,4) = f1.DateLastModified

i=i+1

Next

For i=0 to fcount-1

for j=i+1 to fcount-1

select Case intCompare

Case iOrderFieldFileName,iOrderFieldFileExt,iOrderFieldFileType:

If arrFiles(i,intCompare)>arrFiles(j,intCompare) then

t1 = arrFiles(i,0)

t2 = arrFiles(i,1)

t3 = arrFiles(i,2)

t4 = arrFiles(i,3)

t5 = arrFiles(i,4)

arrFiles(i,0) = arrFiles(j,0)

arrFiles(i,1) = arrFiles(j,1)

arrFiles(i,2) = arrFiles(j,2)

arrFiles(i,3) = arrFiles(j,3)

arrFiles(i,4) = arrFiles(j,4)

arrFiles(j,0) = t1

arrFiles(j,1) = t2

arrFiles(j,2) = t3

arrFiles(j,3) = t4

arrFiles(j,4) = t5

end if

Case iOrderFieldFileSize:

If cdbl(arrFiles(i,intCompare))>cdbl(arrFiles(j,intCompare)) then

t1 = arrFiles(i,0)

t2 = arrFiles(i,1)

t3 = arrFiles(i,2)

t4 = arrFiles(i,3)

t5 = arrFiles(i,4)

arrFiles(i,0) = arrFiles(j,0)

arrFiles(i,1) = arrFiles(j,1)

arrFiles(i,2) = arrFiles(j,2)

arrFiles(i,3) = arrFiles(j,3)

arrFiles(i,4) = arrFiles(j,4)

arrFiles(j,0) = t1

arrFiles(j,1) = t2

arrFiles(j,2) = t3

arrFiles(j,3) = t4

arrFiles(j,4) = t5

end if

Case iOrderFieldFileDate:

If Cdate(arrFiles(i,intCompare))>Cdate(arrFiles(j,intCompare)) then

t1 = arrFiles(i,0)

t2 = arrFiles(i,1)

t3 = arrFiles(i,2)

t4 = arrFiles(i,3)

t5 = arrFiles(i,4)

arrFiles(i,0) = arrFiles(j,0)

arrFiles(i,1) = arrFiles(j,1)

arrFiles(i,2) = arrFiles(j,2)

arrFiles(i,3) = arrFiles(j,3)

arrFiles(i,4) = arrFiles(j,4)

arrFiles(j,0) = t1

arrFiles(j,1) = t2

arrFiles(j,2) = t3

arrFiles(j,3) = t4

arrFiles(j,4) = t5

end if

End Select

next

next

'生成列表

sListFile = sListFile + ("

以上就是关于vbs代码大全的全部内容，相信你一定会非常满意。

本文来自电脑杂谈，转载请注明本文网址：

http://www.pc-fly/a/tongxinshuyu/article-13339-1.html