Desktop Lock

[Byogulcan]

Geçenlerde autoit forumda gezinirken bi koyunuya rasladım falan açtım baktım işte desktop lock falan yazıyodu girdim işte gerçektek cok uğraşmışlar falan sonra bende bi bakayım dedim benim işime cok yarıyacak bişey yapmıslar saolsunlar şimdide sizlerle yapalaşayım dedim sacma sapan ceviri yapmaya calıstım yapamadım sanırım ama olsun genede siz düzenlersiniz
Kod:
[code]#NoTrayIcon
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <Misc.au3>
#include <array.au3>

Global $aData[9] = [ @ComputerName, @LogonServer, @OSVersion, @HomeDrive & '\', @HomeShare, @IPAddress1, @LogonDomain, @OSServicePack, @UserName & ',' & ' ' & 'Dizin =' & ' ' & @UserProfileDir ]

IF $aData[4] = '' Then
$aData[4] = 'Ağ paylaşımı yok'
Else
$aData[4] = @HomeShare
EndIF
IF $aData[7] = '' Then
$aData[7] = 'İşletim sistemi paketi bulanmadı'
Else
$aData[7] = @OSServicePack
Endif
While 1
$code = InputBox('Masaüstü kilitleyici', 'Donanım bilgileri' & @CRLF & @CRLF & 'Bilgisayar adı: ' & $aData[1] & @CRLF & 'İşletim sistemi: ' & $aData[2] & @CRLF & 'Ana sürücü: ' & $aData[3] & @CRLF & 'Ağ paylaşımı: ' & $aData[4] & @CRLF & 'IP Addresi: ' & $aData[5] & @CRLF & 'Bilgisayar: ' & $aData[6] & @CRLF & 'Servis paketi: ' & $aData[7] & @CRLF & 'Kullanıcı: ' & $aData[8] & @CRLF & @CRLF & 'Güvenlik amacıyla,' & @CRLF & @CRLF & 'Lütfen şifrenizi belirleyiniz. ' & $aData[0], Default, '*M10', 300, 305, 300, 300)
If @error Then
Exit
Else
Exitloop
EndIf
WEnd

$Locked = GUICreate('Kilitli', @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP, $WS_EX_TOPMOST)
GUISetBkColor(0x000000, $Locked)
$Progress1 = GUICtrlCreateProgress((@DesktopWidth - 400) / 2, @DesktopHeight / 2 + 20, 400, 10)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlCreatePic('lock.gif', 430, 130, 164, 144)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$WrongPw = GUICtrlCreateEdit('', 10, 14, 300, @DesktopHeight - 14, BitOR($ES_AUTOVSCROLL, $ES_READONLY), 0)
GUICtrlSetFont(-1, 12, 800, 0, 'MS Sans Serif')
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
$InputPw = GUICtrlCreateInput('', @DesktopWidth / 2 - 100, @DesktopHeight / 2 - 10, 200, 20, BitOR($ES_CENTER, $ES_PASSWORD), 0)
GUICtrlSetFont(-1, 12, 800, 0, 'MS Sans Serif')
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlCreateLabel('Kilitli', @DesktopWidth / 2 - 125, @DesktopHeight / 2 - 95, 260, 50, $ES_CENTER, 0)
GUICtrlSetFont(-1, 30, 800, 0, 'MS Sans Serif')
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
$labelPw = GUICtrlCreateLabel('Masaüstünüz kilitli açmak için lütfen şifreyi giriniz.', @DesktopWidth / 2 - 195, @DesktopHeight / 2 - 50, 400, 20, $ES_CENTER, 0)
GUICtrlSetFont(-1, 12, 800, 0, 'MS Sans Serif')
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
WinSetState('[CLASS:Shell_TrayWnd]', '', @SW_HIDE)
WinSetTrans($Locked, '', 240)
GUISetState()
_MouseTrap(@DesktopWidth, @DesktopHeight)

While 1

If _IsPressed('0D') Then
If GUICtrlRead($InputPw) == $code Then
GUICtrlSetData($InputPw, '')
GUICtrlSetData($labelPw, 'Parola kabul edildi...Açılıyor...')
GUICtrlSetFont(-1, 12, 800, 0, 'MS Sans Serif')
GUICtrlSetColor(-1, 0x66FF00)
For $i = 1 To 100 Step 5
GUICtrlSetData($Progress1, $i)
Sleep(50)
Next
WinSetState('[CLASS:Shell_TrayWnd]', '', @SW_SHOW)
Exit
Else
GUICtrlSetData($InputPw, '')
GUICtrlSetData($labelPw, 'Yanlış parola, lütfen tekrar deneyiniz...')
GUICtrlSetFont(-1, 12, 800, 0, 'MS Sans Serif')
GUICtrlSetColor(-1, 0xFF0000)
EndIf
EndIf

If Not WinActive('Desktop Locker') Then
GUICtrlSetData($labelPw, 'Masaüstünüz kilitli, lütfen parolayı giriniz.')
GUICtrlSetFont(-1, 12, 800, 0, 'MS Sans Serif')
GUICtrlSetColor(-1, 0xFF0000)
WinActivate('Masaustu kilitleyici')
_MouseTrap(@DesktopWidth, @DesktopHeight)
EndIf

If ProcessExists('Taskmgr.exe') Then
ProcessClose('Taskmgr.exe')
Endif
WEnd[/code]

codebox içinde bilerek vermedim sayfayı genişlemesine bozuyordu.

Edited February 26, 2012 by Byogulcan

[kamuran731]

Paylaşım için teşekkürler.
Bilgisayarı çok kasıyor gibime geldi. çünkü fan hızı birden bire çok hızlanıyor

[ugur4721]

Programın neresine yapıştıracaz bu kodlarıııı
?

[blackman12]

Orasına burasına yapıştırın işte...

----

Bir au3 dosyası oluşturun ve Scite ile açın. Kodları editöre yapıştırıp kaydedin ve daha sonra au3 dosyasına sağ tıklayıp compile script deyin. Lakin bilmediğiniz kodları kullanmanız beklemediğiniz sonuçlar doğurabilir. Daha önce böyle bir programı ben yazdım. Adam okumadan açtı programı sonra tonla hırgür çıkardı demedi demeyin!