[أبو عمر]

PHP كود :

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