Search the Community

Sağlıcak ve dua ile kalınız :) Windows 7 logon ekranı resmini değiştirir. Boyut:= 286 KB http://www60.zippyshare.com/v/K7qDpo7Y/file.html https://www.virustotal.com/tr/file/75c602908ce5780fcac02b7c5073bb5ba2a7b18f3cbbf697c63d6199673079cf/analysis/1446923503/ MD5= 98CEA5990E2FE247E9ECA30D7C43F9BA Sha1= FF81C32B1EFE50651532EF2F8FDD04A5F5C404E8 Sha256= 75C602908CE5780FCAC02B7C5073BB5BA2A7B18F3CBBF697C63D6199673079CF Kaynak Kodlar #NoTrayIcon Global Const $gui_event_close = -3 Func _rundos($scommand) Local $nresult = RunWait(@ComSpec & " /C " & $scommand, "", @SW_HIDE) Return SetError(@error, @extended, $nresult) EndFunc ;==>_rundos $form1 = GUICreate("Windows 7 Logon Ekranı Değiştirici v1.0 www.tnctr.com 2015", 570, 375, -1, -1) $drag = GUICtrlCreatePic("", 1, 1, 568, 340, Default) GUICtrlSetFont(-1, 40, 400, 0, "Trebuchet MS") GUICtrlSetColor(-1, 8388608) GUICtrlSetFont(-1, 20, 400, 0, "Trebuchet MS") GUICtrlCreateTabItem("") $button1 = GUICtrlCreateButton("Değiştir", 110, 345, 80, 25) $button2 = GUICtrlCreateButton("Orjinale Dön", 240, 345, 80, 25) $button3 = GUICtrlCreateButton("Test Et", 370, 345, 80, 25) GUISetState(@SW_SHOW) If FileExists("C:\WINDOWS\system32\oobe\info\backgrounds\backgroundDefault.jpg") Then GUICtrlSetImage($drag, "C:\WINDOWS\system32\oobe\info\backgrounds\backgroundDefault.jpg") Else GUICtrlSetImage($drag, "C:\Windows\System32\oobe\background.bmp") EndIf While 1 $nmsg = GUIGetMsg() Switch $nmsg Case $gui_event_close Exit Case $button1 $sec = FileOpenDialog("Arkaplan Seçiniz..", @DesktopDir, "Görüntü Dosyası(*.jpg)") If NOT @error Then $boyut = FileGetSize($sec) If $boyut < 250880 Then GUICtrlSetImage($drag, $sec) RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background", "OEMBackground", "REG_DWORD", "00000001") DirCreate("C:\WINDOWS\system32\oobe\info\backgrounds") FileCopy($sec, "C:\WINDOWS\system32\oobe\info\backgrounds\backgroundDefault.jpg", 1) MsgBox(64, "sXs Logon Ekranı Değiştirici", "Logon Ekranı Başarıyla Değiştirildi !") Else MsgBox(48, "sXs Logon Ekranı Değiştirici", "Seçilen Resmin Boyutu 245 KB'dan Büyük Olması Gerekir !") EndIf EndIf Case $button2 RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background", "OEMBackground", "REG_DWORD", "00000000") DirRemove("C:\WINDOWS\system32\oobe\info", 1) GUICtrlSetImage($drag, "C:\Windows\System32\oobe\background.bmp") MsgBox(64, "sXs Logon Ekranı Değiştirici", "Logon Ekranı Sistem Varsayılanına Değiştirildi !") Case $button3 _rundos("rundll32.exe user32.dll,LockWorkStation") EndSwitch WEnd