如何通过 HTA 或 HTML 文件添加注册表值

>我需要通过 html 文件添加注册表值我的注册表值将添加到运行中和

HKEY_CURRENT_USERSOFTWARE

请如何在HTML文件中通过语言vbscript创建此文件我测试了这个

<html>
<head>
<title>Active Desktop Recovery</title>
<HTA:APPLICATION
  APPLICATIONNAME="Active Desktop Recovery"
  ID="MyHTMLapplication"
  VERSION="1.0"/>
</head>
<script language="VBScript">
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCUSoftwareGmailGmil", "Value", "REG_SZ"
</script>
<body bgcolor="white">
<!--Add your controls here-->09:49 
<td><input name="txtComputerName" title="Enter a the computer you wish to query" TYPE="TEXT" SIZE="15"></td>
<td><input name="txtUserID" title="Enter available User ID" TYPE="TEXT" SIZE="50"></td>
<INPUT NAME="btnClearCSC" title="Clear CSC" TYPE="BUTTON" VALUE="Clear CSC">
<INPUT NAME="btnFindUser" title="Clear CSC" TYPE="BUTTON" VALUE="Find User">
<!--{{InsertControlsHere}}-Do not remove this line-->
</body>
</html>

谢谢

试试这个：

<html>
<head>
<title>Active Desktop Recovery</title>
<HTA:APPLICATION
  APPLICATIONNAME="Active Desktop Recovery"
  ID="MyHTMLapplication"
  VERSION="1.0"/>
</head>
<script language="VBScript">
Option Explicit
Dim WshShell,Title
Title = "Active Desktop Recovery" 
Set WshShell = CreateObject("WScript.Shell")
'*************************************************************************
Sub Write2Registry()
    WshShell.RegWrite "HKCUSoftwareGmailGmil",txtUserID.Value, "REG_SZ"
end sub
'*************************************************************************
Sub ReadFromRegistry()
On Error Resume Next
Dim MyKey
    MyKey = WshShell.RegRead("HKCUSoftwareGmailGmil")
    If Err <> 0 Then
        MsgBox Err.Number & vbcr & Err.Description,vbCritical,Title
    Else
        MsgBox MyKey,vbInformation,Title
    End If  
End Sub
'*************************************************************************
Sub DeleteKeyFromRegistry()
On Error Resume Next
Dim MyKey
    MyKey = WshShell.RegDelete("HKCUSoftwareGmail")
    If Err <> 0 Then
        MsgBox Err.Number & vbcr & Err.Description,vbCritical,Title
    Else
        'MsgBox MyKey,vbInformation,Title
    End If  
End Sub
</script>
<body bgcolor="white">
<td><input name="txtUserID" title="Enter available User ID" TYPE="TEXT" SIZE="50"></td>
<br><br>
<INPUT NAME="btnWriteKey" title="WriteKey" TYPE="BUTTON" VALUE="WriteKey" OnClick="Write2Registry()">
<INPUT NAME="btnReadKey" title="ReadKey" TYPE="BUTTON" VALUE="ReadKey" OnClick="ReadFromRegistry()">
<INPUT NAME="btnDeleteKey" title="btnDeleteKey" TYPE="BUTTON" VALUE="DeleteKey" OnClick="DeleteKeyFromRegistry()">
</body>
</html>

Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKCUSoftwareStackOverflowVBSSearchterm", tb1.value

tb1.value是一个 html 文本框。

相关内容

最新更新

热门标签：