Một số thủ thuật lập trình với ngôn ngữ Vbscript ppt

Một số thủ thuật lập trình với ngôn ngữ Vbscript Chúng ta copy code sau đây ở Notepad và lưu nó dưới đuôi là vbs Chẳng hạn như vb xoá prefetch save với tên là xoa prefetch.vbs VB Xoá pr

Một số thủ thuật lập trình với ngôn ngữ Vbscript Chúng ta copy code sau đây ở Notepad và lưu nó dưới đuôi là vbs Chẳng hạn như vb xoá prefetch save với tên là xoa prefetch.vbs

VB Xoá prefetch để tăng tốc CPU

Dim fso

Set fso = Createobject("Scripting.FileSystemObject")

Dim MyVar

MyVar = MsgBox ("ban co muon xoa cac muc rac co trong

prefetch khong ( de tang toc CPU )?", 0, "Xoa Prefetch (tran thang long)")

fso.DeleteFile("C:\WINDOWS\Prefetch\*.*")

VB xem ngày,giờ,tháng,năm,quý…

On Error Resume Next

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer &

"\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from

Win32_UTCTime")

For Each objItem in colItems

Wscript.Echo "ngay: " & objItem.day

Wscript.Echo "ngay trong tuan: " & objItem.DayOfWeek

Wscript.Echo "gio: " & objItem.Hour

Wscript.Echo "phut: " & objItem.Minute

Wscript.Echo "thang: " & objItem.Month

Wscript.Echo "quy: " & objItem.Quarter

Wscript.Echo "giay: " & objItem.Second

Wscript.Echo "tuan trong thang: " & objItem.WeekInMonth

Wscript.Echo "nam: " & objItem.Year

Wscript.Echo "het roi"

Next

VB ẩn hiện chức năng foder option

Option Explicit

Dim WSHShell, n, MyBox, p, p1, Title911, errnum, vers, itemtype Set WSHShell = WScript.CreateObject("WScript.Shell")

p =

"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Ex plorer\"

p1 =

"HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Ex plorer\"

p = p & "NoFolderOptions"

p1 = p1 & "NoFolderOptions"

itemtype = "REG_DWORD"

Title911 = " Tran Thang Long"

Err.Clear

On Error Resume Next

n = WSHShell.RegRead (p)

On Error Goto 0

errnum = Err.Number

if errnum <> 0 then

WSHShell.RegWrite p, 0, itemtype WSHShell.RegWrite p1, 0, itemtype End If

If n = 0 Then

n = 1

WSHShell.RegWrite p, n, itemtype WSHShell.RegWrite p1, n, itemtype

Mybox = MsgBox("Folder Options cua ban da bi AN ,xin thanh that chia buon voi ban( chu y: log off lai de co ket qua.)", 4096, Title911)

ElseIf n = 1 then

n = 0

WSHShell.RegWrite p, n, itemtype

WSHShell.RegWrite p1, n, itemtype

Mybox = MsgBox("Chuc nang foder option da duoc mo (chu y: log off lai de co ket qua.)", 4096, Title911)

", 4096, Title911)

End If

VB khoá mở registry

Option Explicit

Dim WSHShell, n, MyBox, p, Titletan_co, errnum, vers, itemtype Set WSHShell = WScript.CreateObject("WScript.Shell")

p =

"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Sy stem\"

p = p & "DisableRegistryTools"

itemtype = "REG_DWORD"

Titletan_co = "tran thang long"

Err.Clear

On Error Resume Next

n = WSHShell.RegRead (p)

On Error Goto 0

errnum = Err.Number

if errnum <> 0 then

WSHShell.RegWrite p, 0, itemtype

End If

If n = 0 Then

n = 1

WSHShell.RegWrite p, n, itemtype

Mybox = MsgBox("registry cua ban da KHOA {~_~}' ", 4096, Titletan_co)

ElseIf n = 1 then

n = 0

WSHShell.RegWrite p, n, itemtype

Mybox = MsgBox("Registry da MO {=+0+=}", 4096, Titletan_co) End If

Xem dung lượng của ổ

Option Explicit

MsgBox RunOutput( "COMMAND /C DIR chọn ổ:\", 0 )

Function RunOutput( cProgram, nWindowType )

Dim oFS

Set oFS = CreateObject("Scripting.FileSystemObject")

Dim cFile

cFile = oFS.GetSpecialFolder(2).Path & "\" & oFS.GetTempName Dim oShell

Set oShell = CreateObject( "WScript.Shell" )

oShell.Run cProgram & " >" & cFile, nWindowType, True

Set oShell = Nothing

Dim oFile

Set oFile = oFS.OpenTextFile(cFile, 1, True) RunOutput = oFile.ReadAll()

oFile.Close

oFS.DeleteFile cFile

End Function

Chúc các bạn thành công! 