Bilgisayar kilitlenmesi engelleme

[dogan]

Selam...

Çalıştığım şirkette kullandığım bilgisayar her 5 dakikada bir bilgisayarı kilitleniyor ctrl alt ve delete ile şifre girerek açıyorum, fakat bu gün içinde yüzlerce kez olunca can sıkıcı bir hal almaya başladı, bu durumu bilgi işlem merkeziyle konuştum nazikçe yapabileceğimiz bir şey yok diye cevapladılar yani yapmadılar...

Benimde aklıma mouse kortinatlarını alıp 4 dakika içinde aynı yerdeyse mouseye kortinatlarını değiştirerek bilgisayarın kilitlenmesini engellemek;
Fakat bu işlemi multi devicede yaptıramadım mouse.CursorPos alanında sıkıntı yaşıyorum acaba bu durum mu nasıl çözebilirim...

Kod: Tümünü seç

procedure TForm1.TimerAntiTimer(Sender: TObject);
begin
  Label1.Text:= 'X: ' + inttostr(mouse.CursorPos.X) + ' Y: ' +   inttostr(mouse.CursorPos.Y);
end;

[Javs]

Bu kod çalışıyor umarım işinizi görür fakat anladığım kadarı ile bilgisayar domainde 5 dk bir kilitlenen bir yapı size yazdığınız programı çalıştırmanıza izin verecekmi

Kod: Tümünü seç

procedure TForm1.Timer1Timer(Sender: TObject);
Var pt : TPoint;
Begin
 Getcursorpos(pt); // Fare pozisyonu okunuyor
 Label1.Caption := 'Fare pozisyonu X=' + inttostr(pt.X) + ' Y=' + inttostr(pt.Y);
 pt.X := pt.X + 10;
 pt.Y := pt.Y + 10;
 Setcursorpos(pt.X, pt.Y); // Farenin yeni pozisyonu yazılıyor
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Enabled := true;
end;

[dogan]

Teşekkür ederim sizin paylaşmış olduğunuz kod benzer kodlarla bir çok deneme yaptım; Anladığım kadarıyla bu sorunu mousenin yerini değiştirmek işlemiyle olmuyormuş, tek işe yarayan ise showmessage açtırarak denemedim oda oldu ama showmessage dışında çözmem gerek...

[greenegitim]

Daha güzel bir öneri olarak notepad aç tahta çay kaşığını kır klavyeden herhangi bir tuşun arasına sokuştur sürekli o tuşa bastığından ekran koruyucuya, kullanacı giriş ekranına geçmez

[dogan]

Daha güzel bir öneri olarak notepad aç tahta çay kaşığını kır klavyeden herhangi bir tuşun arasına sokuştur sürekli o tuşa bastığından ekran koruyucuya, kullanacı giriş ekranına geçmez

olabilir, başka bir çözüm bulmalıyım...

[greenegitim]

sizin şirkete nasıldır bilmiyorum ama genelde şirketlerde güvenilmeyen uygulamaları çalıştırmamak için önlem alıyorlar yazdığın uygulamayı çalıştıramayabilirsin klavyeden capslock tuşunu açmayayı kapatmayı başlat menüsüne tıklatmayı deneyebilirsin ben çağrı merkezinde çalışan arkadaşlarda görmüştüm tek çözüm tahta kaşığı kırıp bir tuşun arasına sıkıştırmaktı.

[m_yaprakci]

Bir domain admin olarak soyleyebilirim ki herhangi bir yazılım aracılığıyla bilgisayar işlem yaptırarak bu engeli aşamazsınız. Öle olsa idi zaten sizin diğer açık programlarınız, webbrowser vs sistemi aldatarak pcnin lock olmasına engel olurdu.
Bunu aşmak için aklıma gelen 3 adet çözüm mevcut yine de

1. Tam ekran video açmak. Bu benim de kurduğum sistemlerde genelde atladığım bi açık. Windows tam ekran videoplayerlarda ekran koruyucu ve lock olayını pc kullanılıyor veya presentation yapıyor diye algılayarak gerçekleştirmiyor.

2. Klavyeye fiziksel olarak basmak. (Yukarıdaki kaşık örneği)

3. Bir yazılım aracılığıyle Windows Apilerini kullanarak tuşa basmak.
3a. Delphi için örnek kod:

örnek klavyeden F3 tuşuna basıp çekme.

Kod: Tümünü seç

uses WinApi
...
...
//bir timerin içine
keybd_event(VK_F3, 0, KEYEVENTF_KEYDOWN, 0);
keybd_event(VK_F3, 0, KEYEVENTF_KEYUP, 0);

veya

Kod: Tümünü seç

 Edit1.SetFocus; 
  keybd_event(VK_SHIFT, 0, 0, 0); 
  keybd_event(Ord('A'), 0, 0, 0); 
  keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0); 
 //klavyeden Windows+R tuslarına bas (çalıştır komutu kısayolu)
  keybd_event(VK_LWIN, 0, 0, 0); 
  keybd_event(Ord('R'), 0, 0, 0); 
  keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0); 

Ama winapi kullanmanız şart. Bu sayede tuş fiziksel olarak algılanacaktır.

internette "delphi winapi keyboard event" olarak aratırsanız klavyeyi fiziksel olarak simüle etme ile ilgili birçok kaynağa ulaşabilirsiniz.

son bir bilgi: capslock, shift, F tuşları vs kullanmanız durumunda keydown yaptıktan sonra keyup yapmanız gerekir. yoksa tuş basılı kalır.

[dogan]

Selam;

Bilgisayarlara çok fazla engelleme koymamışlar program yükleye biliyorum; henüz iş yerinde test etme şansım olmadı, kullandığım bilgisayarda bir kaç test yaptım gayet güzel çalıştı;

Kod: Tümünü seç

procedure TForm1.CapsLockKontrol(Sender: TObject);
var
  KeyState: TKeyboardState;
begin
  GetKeyboardState(KeyState);
  if (KeyState[VK_CAPITAL] = 0) then
  begin
    StatusBar1.Panels[0].Text := 'CapsLock açıldı.';
    Keybd_Event(VK_CAPITAL, 1, KEYEVENTF_EXTENDEDKEY or 0, 0);
    Keybd_Event(VK_CAPITAL, 1, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
  end
  else
  begin
    StatusBar1.Panels[0].Text := 'CapsLock kapatıldı.';
    Keybd_Event(VK_CAPITAL, 0, KEYEVENTF_EXTENDEDKEY or 0, 0);
    Keybd_Event(VK_CAPITAL, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
  end;
end;

[m_yaprakci]

Aynen. Vermiş olduğun kod işini görecektir.
Caps lock sıkıntı yaratırsa başka tuşlara da atama yapabilirsin zaten.