regwrite.txt

来自「VB的木马和病毒指南」· 文本 代码 · 共 18 行

'Function for RegWrite

Private Function RegWrite(Key1, SValue As String)

Set WSHShell = CreateObject("WScript.Shell")
WSHShell.RegWrite Key1, SValue

End Function


'Button to create an Autorun Key

Private Sub Command1_Click()

RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\notepad.exe", " path of the notepad"

End Sub