Byogulcan Posted February 26, 2012 Share Posted February 26, 2012 (edited) 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 Quote Link to comment Share on other sites More sharing options...
kamuran731 Posted April 1, 2012 Share Posted April 1, 2012 Paylaşım için teşekkürler. Bilgisayarı çok kasıyor gibime geldi. çünkü fan hızı birden bire çok hızlanıyor Quote Link to comment Share on other sites More sharing options...
ugur4721 Posted October 29, 2012 Share Posted October 29, 2012 Programın neresine yapıştıracaz bu kodlarıııı ? Quote Link to comment Share on other sites More sharing options...
blackman12 Posted October 29, 2012 Share Posted October 29, 2012 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! Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.