Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Spärra datorn när jag går längre bort än 10 meter

Postades av 2007-05-08 17:18:00 - David Johannesson, i forum visual basic - allmänt, Tråden har 18 Kommentarer och lästs av 1164 personer

Hej!

Jag skulle vilja åstadkomma följande:
När jag går iväg från min dator så ska den automatiskt spärras för användande. När jag sedan kommer tillbaka så låses den upp igen helt aautomatiskt strax innan jag landar på stolen. Bra va?

Jag har en laptop med bluetooth. Även min mobil har bluetooth. Min tanke är att när datorn tappar kontakten med min telefon, så låses datorn. När datorn sedan åter får kontakt med min telefon så låses datorn upp igen.

Naturligtvis ska det även finnas möjlighet att låsa upp med ett lösenord, ifall bluetooth skulle krångla!

Jag klarar nog att fixa det där med bluetoothavkänningen, för jag har skrivit en del bluetoothapplikationer redan, men frågan jag ställer nu är vilken metod jag ska använda för låsning.

Jag skulle t,ex, kunna använda "Växla användare" i windows, vilket resulterar i att man kommer till inloggningsskärmen. Men då kan jag väl inte få mitt program att logga in mig igen när telefonen kommer inom räckhåll.

Istället så vore det väl bra om jag hade någon metod för att låsa datorn, som jag sedan kan låsa upp igen genom mitt program. Viktigt är t.ex. att min program ska kunna köras även under "låsningen" och att man inte kan komma förbi det hela genom att t.ex. trycka Ctrl+Alt+Del.

Förslag på låsmetod?
(Eller känner du till något sådant här program som redan finns?)

Hälsningar David


Svara

Sv: Spärra datorn när jag går längre bort än 10 meter

Postades av 2007-05-08 17:43:10 - Sven Åke Persson

Intressant projekt, har potential. Skall fundera kring detta.

Längre bort > än 10 m tolkar jag som bluetooth räckvidd ?

Snabbt och kanske fel ,aktivera skärmsläckaren som är lösenordskyddad.


Svara

Sv:Spärra datorn när jag går längre bort än 10 meter

Postades av 2007-05-08 20:52:58 - Thomas Roman

Jag tror Sven är inne på rätt väg. Kanske inte den snyggaste lösningen, men den kan nog fungera och är enkel att göra.

Program1:
"Skärmsläckare" som vill ha lösenord för att avaktiveras.

Program2:
Håller koll på bluetooth-kopplingen. Försvinner den så startas skärmsläckaren/Program1. Kommer kopplingen tillbaka så stängs skärmsläckaren/Program1 av.

Annars kan kanske en Windows service gjord i .NET vara lösningen. Eventuellt kan den logga in en användare, men det har jag i så fall ingen aning om hur man gör.


Thomas


Svara

Sv: Spärra datorn när jag går längre bort än 10 meter

Postades av 2007-05-08 22:01:04 - David Johannesson

Tack för era snabba svar

Visst är det en bra lösning med en skärmsläckare som kräver lösenord, men hur bär jag mig åt för att stänga av den skärmsläckaren utan att behöva knappa in lösenordet?

Jag är alltså ute efter en VB-lösning som kan låsa upp / logga in på något sätt, beroende på metod för att låsa....

(Eller iofs så måste det inte vara VB, men det är liksom det programspråket jag kan....)

/David

PS. Jo 10 meter är väl på ett _ungefär_ räckvidden på "vanlig" bluetooth, det finns hårdvara som klarar betydligt mer också.... DS


Svara

Sv:Spärra datorn när jag går längre bort än 10 meter

Postades av 2007-05-08 22:23:08 - Thomas Roman

En skärmsläckare blir inte stängd av Windows utan stänger sig själv när tex musen används. Så det du behöver göra är bara att kunna stänga av ett annat program från ditt program.

Kolla på http://www.devdos.com/vb/downloads/close.zip


Thomas


Svara

Sv: Spärra datorn när jag går längre bort än 10 meter

Postades av 2007-05-09 07:12:07 - Sven Åke Persson

Jag var tvungen att testa.
Jag har tillverkat en ScreenSaver MyScr.exe

Gjorde detta enkla VB6 prog med en knapp.Programmet kan gå som SubMain i bakgrunden(osynligt)
Om jag nu kan "trigga" detta prog med Bluetooth på samma vis som när jag klickar på knappen
så skulle det ta me fae.... kunna funka om skärmsläckaren är lösenordsskyddad.
<code>
Option Explicit
Private Sub Command1_Click()
Dim ret As Long
ret = Shell("C:\MyScr.exe", vbNormalFocus)
End Sub
</code>
Ps
Hur tusan gör man för att skärmsläckaren skall kräva lösenord ?
Ds


Svara

Sv:Spärra datorn när jag går längre bort än 10 meter

Postades av 2007-05-09 14:49:50 - Sven Åke Persson

Gjorde en test till. Dvs går det att få stopp på skärmsläckaren.
Körde en Timer på 10 sek och det funkar.
Nu gäller det bara att koppla koden till Bluetooth 1:a 0:a
<code>
Option Explicit
Private Sub Command1_Click()
Dim ret As Long
ret = Shell("C:\MyScr.exe", vbNormalFocus)
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer() 'satte den på 10 sek
SendKeys "{ENTER}", True
Timer1.Enabled = False
End Sub
</code>
Det borde väl gå att skicka lösenordet ihop med <b>SendKeys "{ENTER}", True</b>


Svara

Sv:Spärra datorn när jag går längre bort än 10 meter

Postades av 2007-05-09 15:28:02 - Thomas Roman

<b>Hur tusan gör man för att skärmsläckaren skall kräva lösenord ?</b>

I Windows XP (och antagligen alla andra NT-baserade Windows) så används användarinloggingen som skärmsläckarlösenord. Du får helt enkelt bygga in lösenordshanteringen själv. På så sätt så blir det dessutom enklare för dig att stänga av skärmsläckaren när bluetooth-enheten är i närheten.


Thomas


Svara

Sv: Spärra datorn när jag går längre bort än 10 meter

Postades av 2007-05-09 16:43:19 - Andreas Hillqvist

Hittade lite intressant information om hur inloggning fungera i windows:
http://technet2.microsoft.com/windowsserver/en/library/779885d9-e5e9-4f27-9c14-5bbe77b056ba1033.mspx?mfr=true


Svara

Sv:Spärra datorn när jag går längre bort än 10 meter

Postades av 2007-05-09 17:49:10 - Sven Åke Persson

<b>Hur tusan gör man för att skärmsläckaren skall kräva lösenord ? </b>

Testade ditt tips Andreas att sätta login-lösenord som admin jag är (ensam på datorn)

Får inte skärmsläckaren till att kräva lösenord (förbockad givetvis)


Svara

Sv: Spärra datorn när jag går längre bort än 10 meter

Postades av 2007-05-09 19:58:53 - Fredrik Edström

Vad händer om batteriet i blåtandsenheten tar slut? Det måste finnas någon sorts fördröjning i programmet som känner av om bluetooth anslutningen försvinner. Man måste ju hinna avaktivera funktionen ifall...


Svara

Sv:Spärra datorn när jag går längre bort än 10 meter

Postades av 2007-05-10 08:56:46 - Sven Åke Persson

David verkar inte intresserad längre så jag bryter mina fundereingar kring detta.

<b>Margaritas ante porcos iacere.</b>


Svara

Sv: Spärra datorn när jag går längre bort än 10 meter

Postades av 2007-05-10 09:42:15 - David Johannesson

Hej!

Många intressanta svar här!

Jag är nog mest inne på att själv bygga lösenordshanteringen, och inte gå via t.ex. windows inloggning.
Mitt största problem i så fall borde ju vara att man inte ska kunna trycka Ctrl+Alt+Del....
Förslag?

Hälsningar David

PS. Ursäkta om jag inte hinner in här varje dag, men jag är ändå mycket intresserad av era svar! Kan redan nu säga att jag kommer vara bortrest till helgen t.ex. Men jag tittar in i början på nästa vecka... DS.


Svara

Sv:Spärra datorn när jag går längre bort än 10 meter

Postades av 2007-05-10 09:57:59 - Andreas Hillqvist

Det går inte att komma undan Ctrl+Alt+Del. Windows har lagt beslag på den.
Om du vill göra antar jag att man måste göra det med hjälp av windowsinloggningen.


Svara

Sv: Spärra datorn när jag går längre bort än 10 meter

Postades av 2007-05-10 10:42:42 - Thomas Roman

Det finns ju fingeravtrycksläsare som kan användas vid inloggning istället för att skriva in ett löseord. Så det måste väl gå att få andra externa enheter att vara inblandade i Windowsinloggningen.

<b>Vad händer om batteriet i blåtandsenheten tar slut?</b>

När bluetooth-kopplingen försvinner så kan väl ett varningsmeddelande komma upp som visas 30 sek. Om man vill så kan man ange ett lösenord för att avbryta processen.

<b>Det går inte att komma undan Ctrl+Alt+Del</b>

Om programmet körs som system, kan administratörer stänga av det ändå?


Thomas


Svara

Sv:Spärra datorn när jag går längre bort än 10 meter

Postades av 2007-05-11 17:28:33 - Johan Andersson

Hittade en kod som helt enkelt stänger ctrl+alt+del rutan när den kommer upp. Den hindrar dock inte att man stänger av datorn dock...

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_CLOSE = &H10
Dim Stopa As Boolean
 
Private Sub CmdDisable_Click()
Stopa = False
Disable
End Sub

Private Sub Enable_Click()
Stopa = True
End Sub

Private Sub Exit_Click()
Unload Me
End
End Sub

Sub Disable()
Const WM_CLOSE = &H10
Dim winHwnd As Long
Dim RetVal As Long

Do Until Stopa = True
winHwnd = FindWindow(vbNullString, "Aktivitetshanteraren")
 
If winHwnd <> 0 Then
PostMessage winHwnd, WM_CLOSE, 0&, 0&
Else
End If

winHwnd = FindWindow(vbNullString, "Windows Task Manager")
If winHwnd <> 0 Then
PostMessage winHwnd, WM_CLOSE, 0&, 0&
Else
End If
DoEvents
Loop
End Sub


Det du behöver är 3 knappar:
CmdDisable
Enable
Exit

Observera att jag inte vet hur mycket minne detta tar eller om det går att gå förbi.
Föresten David, har försökt komma underfun med hur man gör för att få VB6 att upptäcka bluetooth enheter. Skulle du kunna ge någe exempel hur man gör??

Johan A


Svara

Sv: Spärra datorn när jag går längre bort än 10 meter

Postades av 2007-05-15 22:03:06 - David Johannesson

Hej!

Tack för era svar!
Särskilt intressant är koden som "hindrar" Ctrl+Alt+Del.

Jag ska gärna delge info om Bluetoothkoden. Jag ska bara lista ut lite mera själv först.... =)

Detta är för mig ett projekt på några månaders tid. Jag hinner liksom inte sitta varje dag.... mer som ett hoobyprojekt. Det är därför jag verkar lite inaktiv här.... =)

Hälsningar David


Svara

Sv:Spärra datorn när jag går längre bort än 10 meter

Postades av 2007-05-16 22:35:05 - Fredrik Hansson

Sprang på Salling clicker idag och framförallt en plugin som en av användarna skrivit som verkar göra det du är ute efter.
Har varken använt salling clicker eller pluginen så jag vet inte direkt något om det.
http://www.salling.com/Clicker/windows/
http://www.salling.com/forums/viewtopic.php?t=3190


Svara

Sv: Spärra datorn när jag går längre bort än 10 meter

Postades av 2007-05-18 20:31:34 - Johannes Strömberg

Annars finns RFID, har gjort en liknande funktion med det, funkar klockrent.

//Johannes


Svara

Nyligen

  • 19:55 kick-off med fokus på hälsa?
  • 19:53 kick-off med fokus på hälsa?
  • 16:24 Föreslå en skönhetsklinik online
  • 16:23 Föreslå en skönhetsklinik online
  • 18:42 Hvor finder man håndlavede lamper
  • 18:41 Hvor finder man håndlavede lamper
  • 16:36 Allt du behöver veta om keramiskt
  • 16:14 Vem anlitar man egentligen när tak

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 725
27 958
271 751
522
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies