regwrite.txt

VB的木马和病毒指南

'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