Dim AutoRunProgram
Set AutoRunProgram=WScript.CreateObject("WScript.Shell")
RegPath="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\ming\"
Type_Name="REG_SZ"
Key_Name="AutoRun"
Key_Data="E:\kk.vbs"
'該自啟動程式的全路徑檔案名
AutoRunProgram.RegWrite "RegPath","Key_Data","Type_Name"
'在啟動組中添加自啟動程式autorun.exe
MsgBox("Success!")
顯示：行8字符1
無效的程序呼叫或引數
代碼800A0005
uj5u.com熱心網友回復：
你的第8行：AutoRunProgram.RegWrite "RegPath","Key_Data","Type_Name"
這兒的雙引號，應該都要去掉吧！
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/59478.html
標籤：VB基礎類
上一篇：求解數學模型的一段代碼不會寫
下一篇：求一個行程外com組件呼叫的例子