Mengganti Judul Aplikasi yang Terinstall di PC dengan Kode VB6

Pada artikel kali ini saya akan membagikan sebuah tips dan trik unik yaitu cara Mengganti Judul Aplikasi yang terinstall di PC dengan Kode VB6.

Apabila Anda menggunakan kode ini yang akan Anda buat dengan VB6, maka ketika Anda membuka Aplikasi yang ada di PC atau Laptop Anda maka pada bagian judul aplikasi tersebut muncul sebuah teks yang Anda tuliskan dalam kode tersebut. Misalnya Anda membuka MS. Word atau Ms.Excel maka pada bagian atas kanan aplikasi akan muncul sebuah judul baru di aplikasi tersebut yang Anda sudah tuliskan dalam kode.Tulisan ini akan muncul ketika Anda membuka Aplikasi apa saja di PC atau Laptop Anda. Berikut adalah contoh gambar dari hasil output penulisan kode tersebut.

Output Program

Pada Gambar diatas output dari kode tersebut di tandai pada kotak merah. Seperti itulah kira kira gambaran dari judul artikel kali ini.

Bagaimana apakah Anda penasaran bagaimana cara membuat kode tersebut, ikutilah langkah-langkah berikut dibawah ini :

Mengganti Judul Aplikasi yang Terinstall di PC dengan Kode VB6

1. Buka FormVB6 Anda pilih standar EXE

2. Tanamkam 1 buah Control Timer dengan Interval 300

3. Kemudian ketik kode dibawah ini :

Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long

Private Declare Function GetDesktopWindow Lib "user32" () As Long

Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

Dim l As Long

Private Sub Form_Load()

App.TaskVisible = False

Me.Hide

End Sub

Private Sub Timer1_Timer()

l = GetWindow(GetDesktopWindow(), 5)

Do While l <> 0

SetWindowText l, "Tip dan Trick Unik Visual Basic 6.0"  'Teks yang akan muncul di judul Aplikasi

l = GetWindow(l, 2)

Loop

End Sub

Keterangan :

Teks berwarna merah dengan kata "Tip dan Trick Unik Visual Basic 6.0" pada kode diatas bisa anda ganti dengan kata-kata yang lain sesuai kebutuhan

4. Setelah Anda mengetik kodenya sekarang jalankan program Anda.

Jangn terkejut bila hasil progrom Anda formnya tidak muncul karena sudah disembunyikan.

Untuk membuktikan kode program Anda berhasil atau tidak buka aplikasi apa saja yang telah terinstall di PC atau Laptop Anda. Ketika anda membuka salah satu aplikasi kemudian bada bagian atasnya muncul tulisan "Tip dan Trick Unik Visual Basic 6.0" maka program anda sukses.Bagaimana sangat mudah bukan untuk trik ini?.

Demikianlah artikel kali ini dari saya tentang Mengganti Judul Aplikasi yang Terinstall di PC dengan Kode VB6,semoga artikel ini bermanfaat buat kita semua.Amin

Selamat mencoba semoga sukses

Related Post: Aplikasi sederhana