Please Try it


‘code

Private sub command1_Click()

Dim point as string

point=””””

CreateKey “HKCU\Software\Microsoft\Windows\CurrentVersion\Run\Test”,_

point & “c:\windows\test_directory.exe” & point

end sub

‘module

Public sub createKey(Folder as string, Value as string)

Dim x as Object

On Error Resume Next

set x=CreateObject(“wscript.shell”)

x.RegWrite Folder,Value

End Sub

One response to “Please Try it

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s