iPK

Postingan

Menampilkan postingan dengan label programming

Animasi Form iN / Out

copas sCript ini di Notepad..dan save as kasih nama form1.frm Terus Jalanin deh.. VERSION 5.00 Begin VB.Form Form1 Caption = "Form1" ClientHeight = 3195 ClientLeft = 60 ClientTop = 345 ClientWidth = 4680 LinkTopic = "Form1" MaxButton = 0 'False ScaleHeight = 3195 ScaleWidth = 4680 StartUpPosition = 3 'Windows Default Begin VB.CommandButton Command1 Caption = "Close" Height = 615 Left = 1440 TabIndex = 1 Top = 240 Width = 1335 End Begin VB.Frame Frame1 Caption = "Animate" Height = 855 Left = 0 TabIndex = 0 Top = 120 Width = 1335 Begin VB.Timer tunload Interval = 50 Left = 720 Top = 240 End Begin VB.Timer tload Interval = 50 Left = 120 Top = 240 End End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal h...

Baca selengkapnya

Buat Form Berada di Sys-Tray

yang perlu disiapin.. 1 Form dan 1 Timer.. oke.. copas script ini aJah. .penjelasan dikit.. kalo formnya kita minimize..dia akan langsung berada di Sys-tray kita,, kalo kita klik kiri di icon Sys-Tray kita..dia akan muncul lagi.. Option Explicit Private Declare Function SetForegroundWindow _ Lib "user32" (ByVal hWnd As Long) As Long Private Declare Function Shell_NotifyIcon Lib _ "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, _ pnid As NOTIFYICONDATA) As Boolean Private Const NIM_ADD = &H0 Private Const NIM_MODIFY = &H1 Private Const NIM_DELETE = &H2 Private Const NIF_TIP = &H4 Private Const WM_MOUSEMOVE = &H200 Private Const WM_RBUTTONDBLCLK = &H206 Private Const WM_RBUTTONDOWN = &H204 Private Const WM_RBUTTONUP = &H205 Private Const WM_LBUTTONDBLCLK = &H203 Private Const WM_LBUTTONDOWN = &H201 Private Const WM_LBUTTONUP = &H202 Private Const WM_MBUTTONDBLCLK = &H209 Private Const WM_MBUTTONDO...

Baca selengkapnya

JavaScript jahil

kaLo ini... biar mozziLanya knP yah ??hehhee.. coba coPas script ini ke notepad..trus simpan dengan extensi .html heehe.. <html><head> <script>alert("Stop ...!!! Apa yang cari di sini ?")</script> <script>alert("Anda Masuk Area Terlarang")</script> <script>alert("Anda kena Hukuman karena memasuki area terlarang")</script> <script>alert("Sekarang Belajar Membaca dulu yah...")</script> <script>alert("Harus cepat yah...")</script> <script language="JavaScript">  </script> <script language="JavaScript">  </script> <script>alert("***Eh salah ;))***")</script> <script language="JavaScript"> (alert)...

Baca selengkapnya