Edit Tampilan Shudown Windows XP

Ayo edit tampilan ShutDown Window XP mu sekarang juga

Tanpa basa-basi langsung Cekidot!!

Kali ini saya bakal kasih tau cara edit ShutDown XP agan-agan sekalian

Caranya mudah, tapi kalo dilihat sih sedikit sulit, tapi sebenernya mudah kok

Langsung aja cekidot!!

Note!!:Ahh lupa kalo agan menemukan pesan "tidak bisa menyimpan file" coba pergi ketempat file tersebut berada (sekarang kita hanya edit di bagian SYSTEM32 maka carinya juga disitu) lalu disitu akan ada dua file yg satu biasa dan yg satu berakhiran _original, delete yg berakhiran _original lalu coba save kembali (ex. ada 2 file msgina.dll dan msgina_original.dll, hapus yg msgina_original.dll lalu coba save)

1. Langkah pertama download dulu tools nya dulu DISINI
2. Install "Resource Hacker" seperti biasa
3. Lalu jangan langsung buka programnya!
4. Install "Windows File Protection Switcher" karena sampai keluar keringat dingin pun Windows tetap akan tidak memperbolehkan untuk edit Resourcenya, caranya:
*Pindahkan file wfps10.exe ke partisi yg kamu install Windows XP (normal:C:\)
*Double click pada file tersebut
*Klik tombol "Patch", tunggu
*Lalu klik Yes dan Quit
*Agar Optimal restart computermu
5. Buka aplikasi Resource Hacker
6. Klik File>Open> (ini yg install Windows XP di partisi C:\) C:\>Windows>System32>shell32.dll>Open
7. Masuk ke folder BITMAP, sekarang kita akan edit pada folder 14351, 14353, 14354, 14355 dan 14356
8.Pertama masuk ke folder 14351, klik 1033, lalu klik kanan 1033 klik Replace Resource
9.Klik tombol Open file with new resource... lalu pilih 1.BMP yg ada dalam file yg tadi kamu download, lalu klik Replace
Untuk seterusnya caranya sama kaya tadi cuma beda folder aja
Formatnya gini :
BITMAP>14351>1033 Replace dengan 1.bmp
BITMAP>14353>1033 Replace dengan 2.bmp
BITMAP>14354>1033 Replace dengan 1.bmp
BITMAP>14355>1033 Replace dengan 2.bmp
BITMAP>14356>1033 Replace dengan 3.bmp
lalu klik save (CTRL+S)
selanjutnya ikuti langkah" nya
10. Klik File>Open> (ini yg install Windows XP di partisi C:\) C:\>Windows>System32>msgina.dll>Open
11. sekarang kita akan replace pada folder 20140, 20141, 20142, 20143, dan 20150
11. Caranya sama seperti yg tadi tapi untuk format replacenya ini :
BITMAP>20140>1033 Replace dengan 1.bmp
BITMAP>20141>1033 Replace dengan 2.bmp
BITMAP>20142>1033 Replace dengan 1.bmp
BITMAP>20143>1033 Replace dengan 2.bmp
BITMAP>20150>1033 Replace dengan 4.bmp
Save (CTRL+S) lalu restart kompie kamu
Lihat deh apa yg terjadi dengan Shutdown Menu kamu, menarik bukan?

Ato kamu bisa kreasikan Shutdown image mu sendiri seperti punya saya

Membuat Form Transparan ( VB 6.0 )

Tips kali ini adalah bagaimana Membuat Form Transparant dengan Visual Basic, disini kita menggunakan Fungsi API yaitu GetWindowLong, SetWindowLong dan SetLayeredWindowAttributes. Saya rasa tidak perlu penjelasan yang detail untuk hal ini sobat bisa langsung melihat penampakannya dibawah ini

 

Bagaimana dengan Codingnya ikuti Langkah - Langkah Berikut :

• Buat Project Baru Standart Exe

Ketik Coding dibawah ini pada Form Project Sobat

Option Explicit

Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_COLORKEY = &H1
Private Const LWA_ALPHA = &H2

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crColor As Long, ByVal nAlpha As Byte, ByVal dwFlags As Long) As Long

Private Sub Form_Load()
Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED)
Call SetLayeredWindowAttributes(Me.hwnd, RGB(255, 0, 255), 128, LWA_ALPHA Or LWA_COLORKEY)
End Sub

Untuk ketajaman transparant sobat bisa menggati Angka - Angka yang berwarna merah dengan angka yang lain (maximal value 255). Mudah - mudahan ada mamfaatnya selamat mencoba ... salam

Mencari Selisih Tanggal (VB6)

Mencari Selisih Tanggal (VB6)

Saya coba berbagi lagi neh untuk para junior VB ataw yang baru blajar VB tentang mencari selisih tanggal, untuk eksperimen .. saya coba menerapkannya pada contoh project dibawah ini yaitu tentang menghitung umur, bagi yang berkenan silakan ikuti langkah2 berikut

persiapan yang dilakukan :

• Buatlah Project Baru (Standard exe)
• Tambahkan :
• 3 Label
• Label1 (Caption : Mencari Selisih Tanggal)
• Label2 (Caption : Lahir :)
• Label3 (Caption : Umur Anda)
• 1 Buah Frame ------> Caption : Masukan Tanggal Lahir
• 3 Buah ComboBox ----> Style : 2 - Dropdown List
• 1 Buah Command Button

yang kurang lebih penampakannya seperti gambar dibawah ini

kemudian ketik Coding dibawah ini pada Form

Option Explicit

Private Sub showTanggal()
Dim i As Byte
For i = 1 To 31
Combo1.AddItem Format(i, "00")
Next i
Combo1.ListIndex = 0
End Sub

Private Sub showBulan()
Dim i As Byte
For i = 1 To 12
Combo2.AddItem Format(i, "00")
Next i
Combo2.ListIndex = 0
End Sub

Private Sub showTahun()
Dim i As Integer
For i = 1950 To Year(Now)
Combo3.AddItem i
Next i
Combo3.ListIndex = 0
End Sub

Private Sub Command1_Click()
Dim sLahir As String
sLahir = Combo1 + "/" + Combo2 + "/" + Combo3
If IsDate(sLahir) = True Then
Label3.Caption = "Umur anda sekarang : " & SelisihTanggal(CDate(sLahir), Date)
Else
MsgBox "Tanggal nya salah coy", 48, "Info"
Combo1.SetFocus
End If
End Sub

Private Sub Form_Load()
showTanggal
showBulan
showTahun
End Sub

Private Function SelisihTanggal(ByVal TanggalAwal As _
Date, ByVal TanggalAkhir As Date) As String

Dim Tahun As Integer, Sisa As Integer
Dim SelisihBulan As Integer
On Error GoTo pesan
SelisihBulan = DateDiff("m", TanggalAwal, TanggalAkhir)
Tahun = SelisihBulan \ 12
Sisa = SelisihBulan Mod 12
SelisihTanggal = Tahun & " Tahun " & Sisa & " Bulan"
Exit Function
pesan:
MsgBox "Tipe Tanggal Salah!", vbCritical, "Error TAnggal"
End Function

Mudah2an ada manfaat nya bagi rekan2 VB Beginner dan selamat mencoba jangan lupa nitip comment nya .. makasih salam .