CEA -> Create Extension Application

Aplikasi ini berguna utk membuat sebuah Extension khusus Aplikasi.

Extension adalah tiga angka terakhir dalam semua nama file.

Tiga angka tersebut berfungsi sebagai tanda pengenal....ha...ha.h.a.ha.. kalo didunia manusia mah namanya KTP/SIM/kartu pelajar dsb.

Kelebihan aplikasi ini menurut saia sih:
1.Ada fitur Context (klik kanan)
2.Fitur membuat Extension (sesuka Hati kita pastinya) Khusus aplikasi

mau coba silahkan Unduh >>>>>>>>>>>>>>>>>> Download

Get Name in SubFolder

PERSIAPAN			PROPERTIES
NO	CONTROL	ITEM	NAME	VALUE	KETERANGAN
1.	Form	1	Text	""	kosongkan

Masukkan souce ini ke dalam Form :Private Sub Form_Load() Dim TotalSplit As Variant Dim i As Integer Dim Directory As String Directory = "C:\Sub1\Sub2\Sub3" 'Get Total split TotalSplit = Split(Directory, "\") 'Get Info SubFolder For i = LBound(TotalSplit) To UBound(TotalSplit) MsgBox Split(Directory, "\")(i) Next i End Sub

Disable ALT+TAB

PERSIAPAN			PROPERTIES
NO	CONTROL	ITEM	NAME	VALUE	KETERANGAN
1.	Form	1

Masukkan souce ini ke dalam Form :Option Explicit Private Sub Form_Load() Dim ret As Long ret = SystemParametersInfo(97, True, ret, 0) KBDhwnd = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf CatchKeys, App.hInstance, 0) End Sub Private Sub Form_Unload(Cancel As Integer) Dim ret As Long ret = SystemParametersInfo(0, False, ret, 0) If KBDhwnd <> 0 Then UnhookWindowsHookEx KBDhwnd End Sub

Mendapatkan Posisi Mouse Di klik Kanan \ Kiri

PERSIAPAN			PROPERTIES
NO	CONTROL	ITEM	NAME	Interval	KETERANGAN
1.	Form	1	Form1
2.	Timer	1		500

Masukkan souce ini ke dalam Form :Option Explicit Private Declare Function GetForegroundWindow Lib "user32" () As Long Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Dim result As Integer Dim tmp As Integer Const Cap1 = "Capture Mouse Events" Private Sub Form_Load() Form1.Caption = Cap1 End Sub Private Sub Timer1_Timer() Dim x As Long, sclass As String, y As Integer, sclass1 As String sclass = Space$(1024) x = GetForegroundWindow If GetAsyncKeyState(1) <> 0 Then Label1.Caption = "Left Mouse Click" End If If GetAsyncKeyState(2) <> 0 Then Label1.Caption = "Right Mouse Click" End If End Sub

Disable Key Windows XP

ketikkan Kode dibawah dalam notepad dan simpan dengan nama Disable Key Windows.