Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Dim cmdProcess As Process = New Process()
Dim fileArgs As String
Dim path As String = "C:\Windows\System32\"
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
fileArgs = "shell32.dll,Options_RunDLL 1"
cmdProcess.StartInfo.Arguments = fileArgs
cmdProcess.StartInfo.WorkingDirectory = path
cmdProcess.StartInfo.FileName = "RunDll32.exe"
cmdProcess.Start()
cmdProcess.WaitForExit()
Me.Show()
End Sub
End Class
No comments:
Post a Comment