Ik heb een klein programmaatje gemaakt wat simpel bijhoud of er iemand op je PC zit.

Hoe werkt het?
Het slaat de muis positie op, 5 seconden daarna nog een keer en vergelijkt ze. Wanneer ze anders zijn komt er een nieuwe regel in de log met datum/tijd. Wanneer je stopt met het 'loggen', kun je ook nog kiezen om het bestand op te slaan (als .txt).

Je kunt het programma verbergen, door op de button of op het kruisje ('X') te klikken. Het programma wordt dan niet afgesloten, je ziet dan als het goed is zo'n poop-up/ballon in de taakbalk. Je ziet er het logo (muis.. ), en daar kun je het programma ook weer tevoorschijn mee halen.

Wanneer je op de button start klikt (of in het submenu van het icoontje), heb je 5 seconden om je muis in de goede positie te zetten, dan begint hij met het loggen. Maar dat staat ook allemaal in het programmaatje.

PC-Alarm
MediaFire (73 kb...)
VirusTotal, 1/46

Screenshots



Ik ben ook bezig om screenshots te laten maken bij een alarm, maar dat werkt nog niet helemaal. Ik krijg deze error: The given path's format is not supported. Ik gebruik de volgende code:

Label7.Text = Format(Now, "General Date")

Dim screenSize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
Dim screenGrab As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(screenGrab)
g.CopyFromScreen(New Point(0, 0), New Point(0, 0), screenSize)
screenGrab.Save("C:\PC-Alarm\image-" & Label7.Text & ".bmp")

Mooi programma, heb het zelf niet nodig aangezien ik een laptop heb en die altijd uitzet als ik er niet op bezig ben.

Het probleem met het opslaan is dat "General Date" het uur zo schrijft:
1/04/2013 16:15:31
En een dubbelepunt mag niet in een bestandsnaam staan.

Quote: dariotje18
Mooi programma, heb het zelf niet nodig aangezien ik een laptop heb en die altijd uitzet als ik er niet op bezig ben.

Het probleem met het opslaan is dat "General Date" het uur zo schrijft:
1/04/2013 16:15:31
En een dubbelepunt mag niet in een bestandsnaam staan.

Quote: jomaikke
[...]
Oke, ik zal even kijken..

Dim fileDateTime As String = DateTime.Now.ToString("dd-MM-yyyy") & " " & DateTime.Now.ToString("HH-mm-ss")

label7.text = fileDateTime