Private Sub btnOK_Click(sender As System.Object, e As System.EventArgs) Handles _
  btnOK.Click
 
        Dim Rechnername As String = "DeinRechnername"
 
        Try
            If My.Computer.Network.Ping(Rechnername) Then
                ProzesseAuflisten(Rechnername)
            Else
                MessageBox.Show("Dieser Rechner ist im Netzwerk nicht" & _
                  "erreichbar!")
            End If
        Catch ex As Exception
            MessageBox.Show("Fehler")
        End Try
 
        Dim returnValue As Process()
 
        returnValue = Process.GetProcesses(Rechnername)
 
    End Sub
 
    Private Sub ProzesseAuflisten(ByVal Rechnername As String)
        Dim remoteByID As Process
        Dim returnValue As Process()
 
        returnValue = Process.GetProcesses(Rechnername)
 
        For Each p As Process In returnValue
            If p.ProcessName = "Prozessname" Then
                If ProzessNormalBeenden(Rechnername, p) = False Then
                    If ProzessBrutalBeenden(Rechnername, p) = False Then
                        MessageBox.Show("Der Prozess konnte nicht beendet" & _
                          "werden!", "Hinweis:")
                    End If
                End If
            End If
        Next
    End Sub
 
    Private Function ProzessNormalBeenden(ByVal Rechnername As String, p As _
      Process) As Boolean
        Try
            p.CloseMainWindow()
        Catch ex As Exception
            Return False
            Exit Function
        End Try
 
        Return True
 
    End Function
 
    Private Function ProzessBrutalBeenden(ByVal Rechnername As String, p As _
      Process) As Boolean
        Try
            p.Kill()
        Catch ex As Exception
            Return False
            Exit Function
        End Try
 
        Return True
 
    End Function

EALA FREYA FRESENA

EALA FREYA FRESENA

Beitrag wurde zuletzt am 10.01.19 um 16:41:02 editiert.

EALA FREYA FRESENA

EALA FREYA FRESENA

Zitat:

Natürlich weiß ich auch, dass ein Update nicht unbedingt für jeden User die bessere Variante ist. Aber was mache ich, falls sich doch mal was in der Anwendung ändert, beispielsweise eine Änderung an der DB selber was in der Benutzeroberfläche eine Änderung erzwingt.. Dann brauche ich eben doch dieses "Zwangsupdate" damit alle User auch weiterhin ordnungsgemäß mit der DB arbeiten können. Und genau in diesem Falle suche ich nach eine Lösung.