Just another WordPress.com site

Archive for Maret, 2011

Aplikasi VB Buat Windows Bag.2

Nah.. kita akan melanjutkan tulisan yang sebelumnya, masih bermain-main dengan taskbar namun kali ini kita akan menyembunyikan taskbar.Dengan menggunakan Aplikasi kecil yang akan kita buat kita dapat menghilangkan dan melenyapkan taskbar. Karena taskbar dalam kondisi tidak aktif atau disembunyikan, maka komputer akan sulit digunakan. Ideal jika ingin memproteksi komputer tanpa harus mematikannya.

Nah design tampilannya seperti dibawah !!

 

klik kanan pada form1 lalu view code, ketikan code dibawah ini.!

Private Declare Function SetWindowPos Lib “user32” _
(ByVal hwnd As Long, ByVal hwndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, _
ByVal wFlags As Long) As Long

Private Declare Function FindWindow Lib “user32” _
Alias “FindWindowA” (ByVal IPClassname As String, ByVal lpWindowName As String) As Long

Private Declare Function GetCursorPos Lib “user32” (lpPoint As POINTAPI) As Long
Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40

Dim TaskBarhWnd As Long
Dim P As POINTAPI

Private Type POINTAPI
X As Long
Y As Long
End Type

Download sourcecode selangkapnya..

Aplikasi VB Buat Windows Bag.1

Pada artikel kali ini kita akan membahas bagaimana mengoptimalkan Windows Xp kita dengan aplikasi buatan sendiri.Tepatnya dengan menggunakan visual basic, dengan memanfaatkan atau memanggil fungsi-fungsi bawaan Windows.

Tahukah anda bahwa taskbar dan jendela aplikasi Windows XP bisa ditransparantkan? Tidak perlu membeli software seperti Windows Blinds atau lainnya untuk mentransparantkan taskbar dan jendela aplikasi pd Windows XP.

Baiklah langsung ja kita buat Apikasinya..

buatlah form1 seperti gambar dibawah ini.

 

Jika sudah masuk pada kode.view code pada form1 lalu masukan script dibawah ini.

Private Declare Function SetLayeredWindowAttributes Lib “user32.dll” _
(ByVal hwnd As Long, ByVal crKey As Long, _
ByVal bAlpha As Byte, _
ByVal dwFlags As Long) As Long

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 findwindow Lib _
“user32” _
Alias “FindWindowA” _
(ByVal lpClassname As String, _
ByVal lpWindowname As String) As Long

Private taskbarhwnd, starthwnd, stratshwnd As Long
Dim result
Dim x As Integer
Dim t As Boolean

Download sourcecode Selengkapnya

%d blogger menyukai ini: