Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Benutzeräktivität innerhalb eines bestimmten Programmes überprüfen mit VB.Net

Frage Entwicklung Visual Studio

Mitglied: ProgrammierFreund91

ProgrammierFreund91 (Level 1) - Jetzt verbinden

26.10.2010, aktualisiert 14.12.2012, 6226 Aufrufe, 4 Kommentare

Ich versuche für den Betrieb meines Vaters ein Programm zu schreiben, welches ein bestimmtes Programm (z.B "notepad.exe") öffnet und es solange geöffnet lässt, bis der Benutzer mehr als eine viertel Stunde nichts mehr in diesem Programm gemacht hat. Es soll nochmal eine Nachricht geben, in der der Benutzer aufgefordert wird das Programm zu beenden oder wieder zu nutzen, da sonst alle nicht gespeicherten Daten verloren gehen werden.

Ich habe schon einen Versuch gestartet, doch leider überprüft er bei dem Programm die Aktivität im ganzen System und dies ist nicht ganz das Gewollte.
Kann mir bitte zufällig wer helfen? Komme leider selber derzeit nicht weiter, auch wenn ich meine Versuche icht aufgeben werde.

Hier ist mein Programmcode, den ich bis jetzt schon habe:
01.
Public Class Form1 
02.
 
03.
    Private Prozess As System.Diagnostics.Process 
04.
    Private Inaktiv, Meldung, Beenden As Integer 
05.
 
06.
    <Runtime.InteropServices.StructLayout(Runtime.InteropServices.LayoutKind.Sequential)> _ 
07.
    Public Structure LASTINPUTINFO 
08.
        Public cbSize As UInteger 
09.
        Public dwTime As UInteger 
10.
    End Structure 
11.
 
12.
    <Runtime.InteropServices.DllImport("USER32.DLL")> _ 
13.
    Private Shared Function GetLastInputInfo(ByRef ii As LASTINPUTINFO) As Boolean 
14.
    End Function 
15.
 
16.
    Public Function GetIdleTime() As Long 
17.
        Try 
18.
            Dim lastInPut As New LASTINPUTINFO() 
19.
            lastInPut.cbSize = CUInt(System.Runtime.InteropServices.Marshal.SizeOf(lastInPut)) 
20.
            If GetLastInputInfo(lastInPut) Then 
21.
                Dim el As Long = lastInPut.dwTime 
22.
                Dim ui As Long = (Environment.TickCount - el) 
23.
                ' Overflow 
24.
                If ui < 0 Then 
25.
                    ui = ui + UInteger.MaxValue + 1 
26.
                End If 
27.
                Return ui 
28.
            Else 
29.
                Throw New ApplicationException("Timespan") 
30.
            End If 
31.
        Catch ex As Exception 
32.
            Beep() 
33.
        End Try 
34.
    End Function 
35.
 
36.
    Public Function GetIdleTimeSpan() As TimeSpan 
37.
        Return New TimeSpan(GetIdleTime() * 10000) 
38.
    End Function 
39.
 
40.
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing 
41.
        If Prozess.HasExited = False Then 
42.
            Prozess.Kill() 
43.
        End If 
44.
    End Sub 
45.
 
46.
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
47.
        Timer1.Interval = 100 'ms 
48.
        Timer1.Enabled = True 
49.
        Prozess = System.Diagnostics.Process.Start("notepad.exe") 
50.
    End Sub 
51.
 
52.
    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick 
53.
        Label1.Text = Me.GetIdleTime.ToString 
54.
        Inaktiv = Int(Label1.Text) 
55.
        Meldung = 10000 
56.
        Beenden = 20000 
57.
        If Prozess.HasExited = False Then 
58.
            If Meldung - Inaktiv = 0 Then 
59.
                MsgBox("Bitte benutzen Sie '...' wieder, da sonst das Programm ohne zu speichern in 10 Sekunden geschlossen wird. Durch diesen Vorgang gehen alle nicht gespeicherten Daten verloren! Sie werden jedesmal nach 10 Sekunden inaktivität aufgefordert, wieder Eingaben zu machen!", MsgBoxStyle.Critical) 
60.
            ElseIf Beenden - Inaktiv <= 0 Then 
61.
                Prozess.Kill() 
62.
                Close() 
63.
            End If 
64.
        Else 
65.
            Close() 
66.
        End If 
67.
    End Sub 
68.
 
69.
End Class
Mitglied: 91087
26.10.2010 um 15:27 Uhr
Bitte warten ..
Mitglied: ProgrammierFreund91
26.10.2010 um 15:39 Uhr
Wie ich einen Prozess beende, weiß ich ja.

Es handelt sich eher um das Problem, dass Person X ein Programm von einem Betriebserver gestartet hat, aber es eigentlich nicht mehr brauch. Nun hat er das Programme jedoch selber noch nicht geschlossen und verbraucht somit Arbeitsspeicher von Server, der nicht verbraucht werden müsste. Nun ist die Frage, wie VB erkennen kann, dass genau dieses Programm nicht mehr genutzt wird.

In meinem Beispiel ist es nun halt ein Editor und zudem wird halt eben dummerweise noch die Aktivität des Users systemweit auf dem Rechner von Person X überprüft.

Nun möchte ich gerne die Überprüfung der Aktivität des Users nur auf den Editor beziehen, damit sich dieser automatisch ohne zu speicher schließt, wenn der User eine gewisse Zeit das Programm nicht mehr genutzt hat.

Daher die Frage: Wie bekomme ich es hin, dass nur die Aktivität in dem Editor abgefragt wird?

P.S. Dein Link ist für die VisualBasic 5 und 6, also bringt es mir eh nichts, da ich VB.Net (bzw. VB 2008) nutze.
Bitte warten ..
Mitglied: ProgrammierFreund91
28.10.2010 um 10:13 Uhr
Leider haben meine Versuche bisher nichts gebracht.
Würde mich also sehr freuen, wenn jemand einen Ansatzlösung hätte.

Was meines erachtens auch gehen würde und vielleicht einfacher umzusetzen ist, dass das gewünschte Programmfenster immer im Vordergrung und immer Maximiert ist.

Also wenn wer etwas in diese Richtung hat, das würde ich auch als provesorische Lösung nehmen.

Danke schonmal im Vorraus für eure Hilfe und einen netten Gruß

Jens
Bitte warten ..
Mitglied: ProgrammierFreund91
29.10.2010 um 12:40 Uhr
Ich habe endlich eine Lösung gefunden. Zwar etwas anders als eigentlich von mir vorgesehen,
doch es reicht für die Ansprüche, die mir für das Programm gestellt wurden.
Bitte warten ..
Ähnliche Inhalte
Basic
gelöst Mit vb.net PDF in Word-Dok einfügen (10)

Frage von ahstax zum Thema Basic ...

Visual Studio
Srv records aus dem dns abfragen unter vb.net (14)

Frage von Herbrich19 zum Thema Visual Studio ...

Entwicklung
gelöst Dateiname auf bestimme Zeichenfolge überprüfen? (8)

Frage von matzetto zum Thema Entwicklung ...

Router & Routing
Pfsense - QoS überprüfen

Frage von MegaGiga zum Thema Router & Routing ...

Neue Wissensbeiträge
Entwicklung

Exploit Development

Anleitung von burhanudinn123 zum Thema Entwicklung ...

Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(1)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Heiß diskutierte Inhalte
Netzwerkprotokolle
Leiten "dumme" Switches VLAN-Tags mit durch? (17)

Frage von coltseavers zum Thema Netzwerkprotokolle ...

E-Business
Wo tragt ihr eure privaten Termine ein? (14)

Frage von honeybee zum Thema E-Business ...

Batch & Shell
Batch zum suchen und verschieben von Verknüpfungen (12)

Frage von zeroblue2005 zum Thema Batch & Shell ...

Windows Server
Terminalserver starten willkürlich neu (12)

Frage von thaefliger zum Thema Windows Server ...