Nabend, momentan noch läuft es so, ich klick die exe an, Netzwerkverbindung deaktiviert sich und der Lockscreen kommt.
Wie bekomme ich es hin, dass sich nachdem man sich wieder anmeldet und auf dem Desktop landet.
Dass er selbst erkennt ob man noch im Lockscreen ist oder nicht und falls nein, die Netzwerkkarte wieder automatisch aktiviert wird und das Programm beendet. Wie man sieht, nutze ich einen Button dafür um die Verbindung wiederherzustellen.
Wie bekomme ich es hin, dass sich nachdem man sich wieder anmeldet und auf dem Desktop landet.
Dass er selbst erkennt ob man noch im Lockscreen ist oder nicht und falls nein, die Netzwerkkarte wieder automatisch aktiviert wird und das Programm beendet. Wie man sieht, nutze ich einen Button dafür um die Verbindung wiederherzustellen.
VB.NET-Quellcode
- Public Class Form1
- Dim psi As New ProcessStartInfo
- Public Sub Pause(ByVal Milliseconds As Integer)
- Dim dTimer As Date
- dTimer = Now.AddMilliseconds(Milliseconds)
- Do While dTimer > Now
- Application.DoEvents()
- Loop
- End Sub
- Public Sub killprocess()
- Dim prozessAray() As Process = Process.GetProcessesByName("cmd")
- For Each process In prozessAray
- process.Kill()
- Next
- End Sub
- Public Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- psi.FileName = "cmd.exe"
- psi.Verb = "runas"
- psi.Arguments = "/k netsh interface set interface Ethernet disable"
- Process.Start(psi)
- Shell("RUNDLL32.exe user32.dll, LockWorkStation")
- Pause(500) 'ein wenig warten bis der Befehl ausgeführt wurde.
- killprocess()
- End Sub
- Private Sub button_enabled_Click(sender As Object, e As EventArgs) Handles button_enabled.Click
- psi.FileName = "cmd.exe"
- psi.Verb = "runas"
- psi.Arguments = "/k netsh interface set interface Ethernet enabled"
- Process.Start(psi)
- Pause(500) 'ein wenig warten bis der Befehl ausgeführt wurde.
- killprocess()
- Me.Close()
- End Sub
- End Class