如何通過HTA或HTML文件

我需要在HTML文件中添加註冊表值我的註冊表值將在運行中添加和如何通過HTA或HTML文件

HKEY_CURRENT_USER\SOFTWARE\

請如何創造的語言VBScript的這個文件中添加註冊表值在HTML文件，我測試了這個

<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 "HKCU\Software\Gmail\Gmil", "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>

謝謝

來源

2016-02-26 Num Educ

歡迎堆棧溢出！請參閱[遊覽]（http://stackoverflow.com/tour）並閱讀[如何提問]（http://stackoverflow.com/help/how-to-ask），以瞭解我們對此問題的期望。請注意，我們不提供從頭編碼服務。請告訴我們您已經嘗試過的方式，失敗的方式以及我們可能會提供的幫助。 – jurgemaister

我測試這個http://stackoverflow.com/questions/8884347/using-javascript-in-hta-file-to-read-write-from-windows-registry但不正確 –

'WshShell.RegWrite「HKCU \ Software \ Gmail \ Gmil「，txtUserID.value，」REG_SZ「' – 2016-02-26 10:01:52

試試這個：

<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 "HKCU\Software\Gmail\Gmil",txtUserID.Value, "REG_SZ" 
end sub 
'************************************************************************* 
Sub ReadFromRegistry() 
On Error Resume Next 
Dim MyKey 
    MyKey = WshShell.RegRead("HKCU\Software\Gmail\Gmil") 
    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("HKCU\Software\Gmail\") 
    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>

來源

2016-02-26 20:21:58 Hackoo

非常感謝你，我可以保存這個文件的HTML文件，而不是hta文件?? –

@NumEduc你可以但是，你可以執行只有與Internet Explorer一個隨安全提示！ – Hackoo

它如何與Internet Explorer和安全提示 –

Set WshShell = CreateObject("WScript.Shell") 
WshShell.RegWrite "HKCU\Software\StackOverflow\VBS\Searchterm", tb1.value

tb1.value是一個html文本框。

來源

2016-02-26 08:37:08

，所以我測試了這個 http://www.tek-tips.com/viewthread.cfm?qid=1637005與您的代碼，但不是正確的 –

如何通過HTA或HTML文件

回答

相關問題