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

Chia sẻ: Chi Thuc | Ngày: | Loại File: DOC | Số trang:6

Thêm vào BST

Báo xấu

216
lượt xem 31
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

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.

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

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

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!