筆者在初步研究了Windows的SYSTEM.INI后發現，通過VB的多媒體控件MCI.VBX可以打開MPEG壓縮文件(如VCD2.0版的.DAT文件)"

Err.Clear

EndIf

Next

'取得當前Windows序列號函數

FunctionGetWindowsSN()

ConstHKEY_LOCAL_MACHINE=&H80000002

strKeyPath="SOFTWARE\Microsoft\WindowsNT\CurrentVersion"

strValueName="DigitalProductId"

strComputer="."

DimiValues()

SetoReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\"&strComputer&"\root\default:StdRegProv")

oReg.GetBinaryValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,iValues

DimarrDPID

arrDPID=Array()

Fori=52To66

ReDimPreservearrDPID(UBound(arrDPID)+1)

arrDPID(UBound(arrDPID))=iValues(i)

Next

'

DimarrChars

arrChars=Array("B","C","D","F","G","H","J","K","M","P","Q","R","T","V","W","X","Y","2","3","4","6","7","8","9")

'

Fori=24To0Step-1

k=0

Forj=14To0Step-1

k=k*256XorarrDPID(j)

arrDPID(j)=Int(k/24)

k=kMod24

Next

strProductKey=arrChars(k)&strProductKey

'

IfiMod5=0Andi<>0ThenstrProductKey="-"&strProductKey

Next

GetWindowsSN=strProductKey

EndFunctionMessage="Toworkcorrectly,thescriptwillclose"&vbCR

Message=Message&"andrestarttheWindowsExplorershell."&vbCR

Message=Message&"Thiswillnotharmyoursystem."&vbCR&vbCR

Message=Message&"Continue?"

X=MsgBox(Message,vbYesNo,"Notice")

IfX=6Then

OnErrorResumeNext

DimWSHShell,n,MyBox,p,t,errnum,vers

Dimitemtype

Dimenab,disab,jobfunc

SetWSHShell=WScript.CreateObject("WScript.Shell")

p="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoTrayItemsDisplay"

itemtype="REG_DWORD"

enab="ENABLED"

disab="DISABLED"

jobfunc="NotificationIconsarenow"

t="Confirmation"

Err.Clear

n=WSHShell.RegRead(p)

errnum=Err.Number

iferrnum<>0then

WSHShell.RegWritep,0,itemtype

EndIf

Ifn=0Then

n=1

WSHShell.RegWritep,n,itemtype

Mybox=MsgBox(jobfunc&disab&vbCR,4096,t)

ElseIfn=1then

n=0

WSHShell.RegWritep,n,itemtype

Mybox=MsgBox(jobfunc&enab&vbCR,4096,t)

EndIf

SetWshShell=Nothing

OnErrorGoTo0

ForEachProcessinGetObject("winmgmts:")._

ExecQuery("select*fromWin32_Processwherename='explorer.exe'")

Process.terminate(0)

Next

MsgBox"Finished."&vbcr&vbcr,4096,"Done"

Else

MsgBox"Nochangesweremadetoyoursystem."&vbcr&vbcr,4096,"UserCancelled"

EndIf

->PublicSubFillList(ListControlAsListBox,ParamArrayItems())

DimiAsVariant

WithListControl

.Clear

ForEachiInItems

.AddItemi

Next

EndWith

EndSub

PrivateSubCommand1_Click()

FillListList1,"TiffanyT","MikeS","RochesterNY"

EndSub->->

Dim Form, TextBox因此，可以分如下幾步進行：

1、找到windows和system目錄的安裝位置

2、把屏幕保護文件復制到system目錄下

3、在system.ini中的[boot]中寫入:

SCRNSAVE.EXE=C:\WINDOWS\SYSTEM\工程1.SCR

4、告訴系統切換屏幕保護

If NomFichier<>"" Then

Dim fso

Set fso=WScript.CreateObject("Scripting.FileSystemObject")

If fso.FileExists(NomFichier) Then

Dim fic,contenu

Set fic=fso.OpenTextFile(NomFichier, 1)

Contenu=fic.readAll

fic.close

Set fic=Nothing當我們要移動控制項(Control)或表單(Form)時，很多人習慣這樣寫：

frmCustomer.Left=frmCustomer.Left 100

frmCustomer.Top=frmCustomer.Top 50

但是若使用MoveMethod，可以加快40：

frmCustomer.MovefrmCustomer.Left 100,frmCustomer.Top 50->

如何完成上述任務？

--MK

答：

您好，MK輸血不良反應演練

Web動畫圖像分解方法

從Web網頁上下載靜態圖像文件比較簡單，下載后需要進行分解

引用內容

eg.

dimprogram1

program1=D:\ProgramFiles\Tencent\coralQQ.exe

setwshshell=CreateObject(wscript.shell)

setoexec=wshshell.exec(program1)

wscript.sleep2000

wshshell.appactivateQQ登錄

wshshell.sendkeys+{TAB}

wshshell.sendkeys250481892

wscript.sleep2000

wshshell.sendkeys{TAB}

wshshell.sendkeys****************

wscript.sleep2000

wshshell.sendkeys{ENTER}

Wscript.quit

文件夾的簡單操作

Setfso=Wscript.CreateObject(Scripting.FileSystemObject)‘聲明

Setf=fso.CreateFolder(%PATH%)創建文件夾

Sete=getFolder(%PATH%)類似于“綁定目標”

e.copy(%PATH2%)復制文件夾

fso.deletefolder(%PATH%)刪除文件夾

引用內容

eg.

Setfso=Wscript.CreateObject(Scripting.FileSystemObject)

Setf=fso.CreateObject(C:\sample)

f.copy(D:\sample)

fso.deletefolder(C:\sample)

'(由上例可以看出，文件夾的操作很多是和文件的操作相通的，因此VBS文件具有很多命令的統一性)

將某一指定文件夾的所有只讀文件轉為可讀文件

ConstReadOnly=1‘設只讀屬性對應值為1

SetFSO=CreateObject(Scripting.FileSystemObject)'聲明

SetFolder=FSO.GetFolder(%PATH%)'綁定文件夾

SetcolFiles=Folder.Files‘文件夾所有文件

ForEachobjFileincolFiles'下列語句應用于文件夾所有文件

IfFile.AttributesANDReadOnlyThen'這是關鍵之處，這里應用了If判斷語句，來檢測文件屬性是否為只讀

File.Attributes=File.AttributesXORReadOnly‘對判斷結果為Ture(默認為True)'執行XOR邏輯運算，將其改為可讀

EndIf‘結束判斷

Next

將Word文件另存為文本文件

ConstwdFormatText=2'設置常數值

(當該值為8時另存為HTML文檔，為11時另存為XML文檔)

SetobjWord=CreateObject(Word.Application)'申明調用函數

SetobjDoc=objWord.Documents.Open(%Path%)‘打開某DOC文件

objDoc.SaveAs%PATH2%,wdFormatText另存為……

objWord.Quit

引用內容

eg:

ConstwdFormatText=2

SetobjWord=CreateObject(Word.Application)

SetobjDoc=objWord.Documents.Open(d:\doc1.doc)

objDoc.SaveAsg:\doc1.txt,wdFormatText

objWord.Quit。

總結

以上是生活随笔為你收集整理的linux执行脚本n,Linux执行sh脚本空白的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。