Advertisement
txtinc

Untitled

Mar 28th, 2017
59
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.51 KB | None | 0 0
  1. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
  2. Dim ps = Process.GetProcessesByName("MAT.exe")
  3. Dim f As String = ps(0).MainModule.FileName
  4.  
  5. Try
  6. Dim proc As Process = New Process
  7. proc.StartInfo.FileName = f
  8. proc.StartInfo.Arguments = "192.168.1.1"
  9. proc.StartInfo.UseShellExecute = False
  10. proc.Start()
  11.  
  12. Catch ex As Exception
  13. MsgBox("Sorry ")
  14. End Try
  15. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement