谁来解释一下 困扰很久了关于Private的Private Sub Form_Load() Set w = CreateObject("wscript.shell") w.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"End Sub这段代码

谁来解释一下 困扰很久了关于Private的Private Sub Form_Load() Set w = CreateObject("wscript.shell") w.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"End Sub这段代码
谁来解释一下 困扰很久了
关于Private的
Private Sub Form_Load()
Set w = CreateObject("wscript.shell")
w.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
End Sub
这段代码是个什么意思.我要详细解答,我笨,讲清楚点哈.谢谢
2 .Set w = CreateObject("wscript.shell")
如果直接写成 w = CreateObject("wscript.shell") 还能运行么?

谁来解释一下 困扰很久了关于Private的Private Sub Form_Load() Set w = CreateObject("wscript.shell") w.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"End Sub这段代码
Private Sub Form_Load()
这是指程序启动时默认的第一执行过程
Set w = CreateObject("wscript.shell")
设置W为CreateObject("wscript.shell")系统的SHELL对象
w.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName,App.Path & "\" & App.EXEName & ".exe"
w.regwrite 写注册表
其中HKLM 即是HKEY_LOCAL_MACHINE
“\SOFTWARE\Microsoft\Windows\CurrentVersion\Run” 注册路径,即注册为启动时自动执行
App.EXEName 指程序的名称,例如EY.EXE,他的名是EY
App.Path 指的是程序当前所在路径
End Sub
VB有基本变量Byte、Integer、Long、Single、Doble、Currency、String等变量,另外的都是结构变量或对象变量
结构变量是用type声明的基本变量的集合,不能直接用等号.
其余的都是对象变量,对象是有生命周期的,分别是创建、使用和销毁.需要用set来控制
'其中,对象创建
Set w = CreateObject("wscript.shell")
'对象的使用
w.regwrite ……
'使用完毕还记得加上对象的销毁,这是习惯问题
Set w = nothing
---如果还有疑问或者问题补充
---请直接百度HI联系
---丨Mc丶Any丶 手打回答