有谁能帮我把这个VBS转一下

来源：百度知道编辑：UC知道时间：2024/06/06 12:08:49

先说明我是个菜鸟这是我写的一个VBS脚本：

'获取运行脚本的完整路径
Set objShell = CreateObject("Wscript.Shell")
strPath = objShell.CurrentDirectory

DIM WSH
SET WSH=WSCRIPT.CreateObject("WSCRIPT.SHELL") '击活WScript.Shell对象

'建立注册表
WSH.Regwrite"HKEY_LOCAL_MACHINE\SOFTWARE\Iron Lore\Titan Quest\CD Key","b9e9-aa2c-7140-f02b-d009","REG_SZ"
WSH.Regwrite"HKEY_LOCAL_MACHINE\SOFTWARE\Iron Lore\Titan Quest\Install Location",strPath,"REG_SZ"
WSH.Regwrite"HKEY_LOCAL_MACHINE\SOFTWARE\Iron Lore\Titan Quest\LastMutexOwner",1,"REG_DWORD"
WSH.Regwrite"HKEY_LOCAL_MACHINE\SOFTWARE\Iron Lore\Titan Quest\Version",1.30,"REG_SZ"

怎么样在VB下把它转成一个CommandButton下的一个Click事件！以实现对注册表的操作！

Option Explicit
Dim objshell, strpath, wsh
Private Sub Command1_Click()
Set objshell = CreateObject("Wscript.Shell")
strpath = objshell.CurrentDirectory
Set wsh = CreateObject("WSCRIPT.SHELL") '击活WScript.Shell对象
'建立注册表
wsh.Regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Iron Lore\Titan Quest\CD Key", "b9e9-aa2c-7140-f02b-d009", "REG_SZ"
wsh.Regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Iron Lore\Titan Quest\Install Location", strpath, "REG_SZ"
wsh.Regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Iron Lore\Titan Quest\LastMutexOwner", 1, "REG_DWORD"
wsh.Regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Iron Lore\Titan Quest\Version", 1.3, "REG_SZ"
End Sub

有谁能帮我把这个VBS转一下帮我翻译一下这个VBS 详细解说我中这个Trojan-Downloader.VBS.Small.az病毒了大家看看，为什么我的这个vbs打不开？（附图）谁能帮我把这个图改一下？谁能帮我把这个脚本解密一下谁能帮我把这个视频下载一下谁能帮我把这个文件转化一下? 帮我把这个网名美化一下～谁能帮我把这个昵称美化一下？