alllow Semua........emmm Saya pengen bagi22 komponen Vb nih.
Buat mempercantik aplikasi Anda semua Button Xp dan TextBox Xp
Pure Vb 6.0
Silahkan mencoba.......!!! oh iya Button dan Textboxnya standart Loh Tapi Bisa ditambahkan Music Over dan Music Down
hehehehe jadi harap maklum atas kekurangan nya.
kira - kira seperti ini DewaXpButton dan DewaXpTextBoxnya :
Maju terus Viva Programmer Indonesia.
Silahkan Download disini http://www.mediafire.com/?cx1mjhj1my1
Untuk Mempercantik sebuah Aplikasi dengan VB terkadang kita sulit untuk menerapkan apa yang kita inginkan dengan form aplikasi kita dan disini saya mencoba membagi bagaimna cara mempercantik form yaitu dengan membuat form pada aplikasi kita menjadi Transparant....!!! :)
langsung ke cara pembuatannya aja dech :
1. Buka Vb loe...
2. 1 buah Form
3. dan tambahkan 1 Module
Masukin code berikut
'======================================================
'Code In Module
'===================================================
Option Explicit
Public Const LWA_COLORKEY = 1
Public Const LWA_ALPHA = 2
Public Const LWA_BOTH = 3
Public Const WS_EX_LAYERED = &H80000
Public Const GWL_EXSTYLE = -20
Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal color As Long, ByVal X As Byte, ByVal alpha As Long) As Boolean
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Sub SetTranslucent(ThehWnd As Long, nTrans As Integer)
On Error GoTo ErrorRtn
Dim attrib As Long
attrib = GetWindowLong(ThehWnd, GWL_EXSTYLE)
SetWindowLong ThehWnd, GWL_EXSTYLE, attrib Or WS_EX_LAYERED
SetLayeredWindowAttributes ThehWnd, RGB(255, 255, 0), nTrans, LWA_ALPHA
Exit Sub
ErrorRtn:
MsgBox Err.Description & " Source : " & Err.Source
End Sub
'========================== FINISH=====================================
'=====================================================================
'COde In FORM
'=====================================================================
' Declaration
Option ExplicitDim g_nTransparency As Integer
Private Declare Function SystemParametersInfo Lib _"user32" Alias "SystemParametersInfoA" (ByVal _uAction As Long, ByVal uParam As Long, lpvParam _As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_SCREENSAVERRUNNING = 97&
Private Sub Form_Load()
On Error GoTo ErrorRtn
Dim X As Long
Dim Y As Boolean
X = SystemParametersInfo(SPI_SCREENSAVERRUNNING, _True, Y, 0&)
_nTransparency = 50
if g_nTransparency < g_ntransparency =" 0">
If g_nTransparency > 255 Then g_nTransparency = 255
SetTranslucent Me.hwnd, g_nTransparency
Exit Sub
ErrorRtn:
MsgBox Err.Description & " Source : " & Err.Source
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim X As Long
Dim Y As Boolean
X = SystemParametersInfo(SPI_SCREENSAVERRUNNING, _ False, Y, 0&)
End Sub
Pada saat dijalankan ini lah hasil Transparant yang dibuat
langsung ke cara pembuatannya aja dech :
1. Buka Vb loe...
2. 1 buah Form
3. dan tambahkan 1 Module
Masukin code berikut
'======================================================
'Code In Module
'===================================================
Option Explicit
Public Const LWA_COLORKEY = 1
Public Const LWA_ALPHA = 2
Public Const LWA_BOTH = 3
Public Const WS_EX_LAYERED = &H80000
Public Const GWL_EXSTYLE = -20
Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal color As Long, ByVal X As Byte, ByVal alpha As Long) As Boolean
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Sub SetTranslucent(ThehWnd As Long, nTrans As Integer)
On Error GoTo ErrorRtn
Dim attrib As Long
attrib = GetWindowLong(ThehWnd, GWL_EXSTYLE)
SetWindowLong ThehWnd, GWL_EXSTYLE, attrib Or WS_EX_LAYERED
SetLayeredWindowAttributes ThehWnd, RGB(255, 255, 0), nTrans, LWA_ALPHA
Exit Sub
ErrorRtn:
MsgBox Err.Description & " Source : " & Err.Source
End Sub
'========================== FINISH=====================================
'=====================================================================
'COde In FORM
'=====================================================================
' Declaration
Option ExplicitDim g_nTransparency As Integer
Private Declare Function SystemParametersInfo Lib _"user32" Alias "SystemParametersInfoA" (ByVal _uAction As Long, ByVal uParam As Long, lpvParam _As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_SCREENSAVERRUNNING = 97&
Private Sub Form_Load()
On Error GoTo ErrorRtn
Dim X As Long
Dim Y As Boolean
X = SystemParametersInfo(SPI_SCREENSAVERRUNNING, _True, Y, 0&)
_nTransparency = 50
if g_nTransparency < g_ntransparency =" 0">
If g_nTransparency > 255 Then g_nTransparency = 255
SetTranslucent Me.hwnd, g_nTransparency
Exit Sub
ErrorRtn:
MsgBox Err.Description & " Source : " & Err.Source
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim X As Long
Dim Y As Boolean
X = SystemParametersInfo(SPI_SCREENSAVERRUNNING, _ False, Y, 0&)
End Sub
Pada saat dijalankan ini lah hasil Transparant yang dibuat
untuk selengkapnya silahkan download disini http://www.mediafire.com/?72jdozxtmmw
dibuat oleh : Dewa
Semua keylogger baik yg dlm bentuk hardware, memiliki tujuan utama yg sama yaitu memantau semua data yg diketikkan oleh user. Jadi, semua data yg diinputkan/ketikkan ke suatu aplikasi akan dipantau dan disimpan untuk digunakan oleh pihak yang menanam keylogger tsb. Pada kesempatan ini, seperti yang aku katakan sebelumnya. Aku memberikan contoh bagaimana mengamankan user agar aman menggunakan aplikasi yg kita buat. Apalagi dalam hal sekuriti misalkan penginputan password. Untuk itu, jangan pernah berfikir aku akan membuat mesin scanning keylogger seperti layaknya anti-virus.
Baiklah kita langsung ke pembuatannya yah...
1. Buka Designer Visual Basic kamu (aku pake v.6)
2. Tambahkan sebuah kontrol TextBox, lalu beri nilai properti "Name" menjadi "txtPassword"
3. Masuk ke jendela form code, isikan source code berikut:
'<- START CODE ->'
'UNTUK PENJELASAN MENGENAI FUNGSI API, CARI AJA DIINTERNET
Private Declare Function VkKeyScan Lib "user32" Alias "VkKeyScanA" (ByVal cChar As Byte) As Integer
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Integer, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
'Fungsi Untuk Menciptakan Nilai Random Dari Interval Tertentu....Function RandomNumber(ByVal LowerBound As Single, ByVal UpperBound As Single) As SingleRandomize Timer
RandomNumber = (UpperBound - LowerBound) * Rnd + LowerBound
End Function
Private Sub txtPassword_Change()
TxtPassword.Locked = True '<== Sengaja Biar Nggak Banyak Makan ResourceDim LoopC As Byte, i As Byte LoopC = RandomNumber(3, 254) 'Ciptakan Nilai Random Mulai 3 - 254 i = 0 'Banyak Pengiriman Event Keyboard Random Setiap Kali Ketik...Do While LoopC > i'Kirim Event Keyboard Secara Random Biar Mengacaukan Nilai Yang Ditangkap KeyloggerCall keybd_event(VkKeyScan(RandomNumber(32, 126)), 0, 0, 0)i = i + 1Loop
DoEvents 'Kasih kesempatan program lain bekerja
TxtPassword.Locked = False
End Sub
dibuat oleh meyer_webmail@yahoo.com
untuk lebih jelas Link kesini
http://www.jasakom.com/index.php?categoryid=31&p2_articleid=98
untuk file download http://www.mediafire.com/?5cf9zgbozt1
Menjelajahi situs – situs underground dengan menggunakan internet explorer memang agak terlalu beresiko. pembuat situs bawah tanah selalu memasang berbagai jebakkan yang dapat membuat berbagai script jahat akan mudah untuk memasuki ke dalam berbagai system yang anda miliki. Namun ada pula yang memasukkan program tersebut dengan secara langsung pada saat situs tersebut dibuka. Peristiwa seperti ini umumnya selalu saja terjadi karena umumnya ketika pengguna atau user pada internet melompat dari 1 situs ke situs underground yang lain.
Technic yang terbaru ada pula yang dengan cara mengelabui pengunjungnya dengan jalan memasang baris informasi palsu yang hampir mirip dengan baris informasi yang ada dalam windows xp service pack II, padahal baris demikian digunakan dalam membuat system yang lebih aman. Tapi karena palsu justru pengunjung tersebut menjadi terkecoh akan meng-click baris tersebut, malah membuat sesuatu menjadi masuk ke dalam system-nya.
Salah 1 cara untuk menghindari masuknya sesuatu tersebut salah 1 yang dapat dipergunakan adalah anti virus yang mampu untuk memantau berbagai aktivitas internet dapat dipergunakan. Mudah – mudahan berbagai bentuk akan sesuatu tersebut yang masuk ke dalam program akan segera tertangkap, di samping itu pula ada juga langkah prefentif dalam menghalangi usaha jahat yang akan diperbuatnya.
Caranya adalah dengan jalan menutup akses yang umumnya dimanfaatkan oleh sang hacker dalam memasukkan berbagai virus jahat maupun sejenisnya. Pada internet explorer, fitur yang umumnya selalu dipergunakan atau yang selalu dimanfaatkan adalah active – x karena dari sinilah berbagai jenis program jahat dapat masuk dengan begitu mudahnya ke dalam operating system anda melalui sites web. Maka sebagai langkah prefensif pula, akses dalam instalasi program via active – x tersebut dapat juga ditutup.
- Caranya Sebagai Berikut :
- masuk ke registry editor ( regedit ) dengan meng-click start > run ( win + R )
- kemudian ketikan regedit, pada jendela regedit cari folder : HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3. cari DWORD dengan nama 1001
- lalu click double ( 2x ) DWORD tersebut
- kemudian ubahlah value data – nya yang semula nilainya menjadi 3
- jika sudah tutup regedit anda kemudian jangan lupa untuk me-restart computer anda untuk melihat perubahan yang terjadi.