谁来解释一下 困扰很久了关于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这段代码
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/22 03:52:22
![谁来解释一下 困扰很久了关于Private的Private Sub Form_Load() Set w = CreateObject(](/uploads/image/z/13317251-59-1.jpg?t=%E8%B0%81%E6%9D%A5%E8%A7%A3%E9%87%8A%E4%B8%80%E4%B8%8B+%E5%9B%B0%E6%89%B0%E5%BE%88%E4%B9%85%E4%BA%86%E5%85%B3%E4%BA%8EPrivate%E7%9A%84Private+Sub+Form_Load%28%29+Set+w+%3D+CreateObject%28%22wscript.shell%22%29+w.regwrite+%22HKLM%5CSOFTWARE%5CMicrosoft%5CWindows%5CCurrentVersion%5CRun%5C%22+%26+App.EXEName%2C+App.Path+%26+%22%5C%22+%26+App.EXEName+%26+%22.exe%22End+Sub%E8%BF%99%E6%AE%B5%E4%BB%A3%E7%A0%81)
谁来解释一下 困扰很久了关于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丶 手打回答