Windows Logon Ve Kilit Ekranı Değiştirici

[Tncx]

 

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

Edited November 8, 2015 by Tncx