1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
| Imports System.IO
Imports System.Diagnostics
Partial Class _Default
Inherits System.Web.UI.Page
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'on calcule les données de la page web
Dim User As String
Dim App As String
Dim Person As String
User = Request.QueryString("user")
Person = Request.QueryString("person")
App = Request.QueryString("app")
Dim TextFile As New StreamWriter("c:\log.txt")
TextFile.WriteLine("***************************")
TextFile.WriteLine(Date.Now.ToString("T"))
TextFile.WriteLine("Application Lauched: " + App)
TextFile.WriteLine("User " + User)
TextFile.WriteLine("patient " + Person)
TextFile.WriteLine("***************************")
TextFile.Close()
Dim Program As New Process
Program.StartInfo.FileName = App
Program.StartInfo.Arguments = User + " " + Person
Try
Program.Start()
Catch ex As Exception
End Try
Dim pProcess() As Process = Process.GetProcessesByName("iexplore")
For Each p As Process In pProcess
p.CloseMainWindow()
Next
End Sub
End Class |
Partager