Monday, May 2, 2011

Source Code untuk Mengubah Style Wallpaper di Desktop

  No comments
Bila sebelumnya kita sudah bisa mengubah wallpaper melalui source code yang telah di jelaskan di posting source code untuk mengubah wallpaper di desktop. Selanjutnya kita akan coba untuk melakukan pengaturan style wallpaper yang ditampilkan di desktop melalui source code. Style wallpaper ada tiga jenis yaitu CenterStretch dan Tile. Sebenarnya pengaturan manual dari style wallpaper ini pasti teman - teman foxpromania sudah familiar dan sudah sering melakukannya yaitu melalui Control Panel - Display. Akan tetapi bila ingin mencoba melakukan pengubahan style wallpaper tersebut secara otomatis dan bisa dimasukkan ke dalam aplikasi atau modul teman - teman, maka bisa menggunakan source code di bawah ini :

WSHShell = CreateObject("WScript.Shell")
cKey = "HKCU\Control Panel\Desktop\WallpaperStyle"
WshShell.RegWrite(cKey, 1, "REG_SZ")
cKey = "HKCU\Control Panel\Desktop\TileWallpaper"
WshShell.RegWrite(cKey, 0, "REG_SZ")
WSHShell.Run("taskkill /f /im explorer.exe",2)
DECLARE Sleep IN Win32API INTEGER
SLEEP(2000)
WSHShell.Run("explorer.exe",2)

Angka 1 yang berwana merah dan angka 0 yang berwarna biru di dalam source code diatas menandakan bahwa style wallpaper diatur ke posisi Center, sedangkan jika teman - teman ingin mengubahnya ke Stretch maka angka tersebut bisa teman - teman ganti menjadi 2 dan 0. Kemudian bila ingin mengatur ke Tile angka tersebut bisa teman - teman ganti dengan 0 dan 1.

Apabila teman - teman menggunakan windows vista keatas, selain ketiga jenis style wallpaper diatas, ada tambahan dua style lagi yaitu Fill dan Fit, dimana untuk pengaturan Fill teman - teman bisa mengganti angka di source code dengan 10 dan 0, dan untuk pengaturan Fit, teman - teman bisa mengaturnya dengan mengganti angkanya menjadi 6 dan 0.



SELAMAT MENCOBA...!!

No comments :

Post a Comment