Ekakom

Membuat KeyLogger dengan VB

Fri, 08 Apr 2011 01:08:39 PDT

(image) Apa itu KeyLogger, mungkin semua orang pasti sudah tau, sebuah Aplikasi yang bertugas untuk merekam aktifitas Keyboard Computer lalu menyimpan nya lebih kurang begitulah definisi nya (heheheheh). Pada Posting kali ini saya coba Share Cara Membuat KeyLogger dengan VB (Visual Basic).

Syarat :
- Mengerti dan faham apa itu VB (Visual Basic)
- Fhoto Copy KTP 2 Lbr

Berikut ini adalah cara membuat KeyLogger yang sangat sederhana dengan VB, bagi yang tertarik silahkan klik gambar dibawah untuk dowload app nya, semoga bermamfaat.


(image) (image)

Screen Capture Software

Sun, 12 Sep 2010 05:25:29 PDT

(image)
SnapIt Versi 3,7 merupakan salah satu software buatan dari Digeus Inc yang berguna untuk Screen Capture yang sangat mudah dan efisien. Kerja Software ini mirip dengan tombol Print Screen yang ada di Keyboard tetapi dengan SnapIt 3,7 ini Capture Screen nya sesuai dengan Crop layar yang diambil. Software ini running di Systray area berikut tampilan dari Software ini
(image)
(image) Fitur - Fitur yang terdapat dalam SnapIt 3,7

• Supports Hotkey, Simpan Otomatis, Clipboard
• Simpan Otomatis Screenshots ke clipboard
• Track Capture History dan Menyimpan Otomatis gambar yang diambil
• Menyimpan File dalam Format BMP, GIF, JPEG, PNG and TIFF
• Menyimpan Gambar sesuai dengan Crop Layar tanpa harus menggunakan Aplikasi editor lain
• Supports di Windows 95/98/ME/NT/2000/XP/Vista/Windows 7
  
• Dan beberapa Fitur lain nya

(image)

Cara menggunakan Software ini cukup dengan tekan Hotkey (F10, F11, F12) tergantung setingan anda kemudian Crop Layar yang ingin disimpan dan ini langsung disimpan di Clipboard kemudian Simpan File, untuk proses penyimpan file bisa otomatis dan manual tergantung kepada setingan anda atau juga bisa anda pastekan ke Ms. Word dan lain sebagai nya.

Download SnapIt Screen Capture 3.7.

Bagi anda yang ingin mereview product ini di blog / forum / twitter / facebook, dll. Digeus, Inc akan memberikan giveaway dan Kode Registrasi atas nama anda

Caranya kirim Url review anda ke julia.taylor@digeus.com


(image)

(image)

Media Files:
http://digeus.com/downloads/snapit/files/3/snapit_3_7.exe

Selamat Hari Raya Idul Fitri 1431 H

Thu, 09 Sep 2010 00:07:59 PDT

(image) Bulan yang indah penuh hikmah telah berlalu Semoga menitis ke lembaran baru dan membuka ribuan pintu maaf Agar kami bisa masuk dan menjadi bagian yang termaafkan.
(image)

Suspender dan Injector File

Wed, 22 Sep 2010 08:42:11 PDT

(image) Aplikasi Kecil ini merupakan hasil revisi atau Pengembangan dari GeSp Versi Sebelumnya yang sudah pernah saya buat, Pada Suspender dan Injector (GeSp 1.4) ini ada beberapa Fitur yang ditambahkan yang sebelumnya tidak ada, Fitur tersebut antara lain :

1. Type Suspend Otomatis dan Manual
2. Type Injektor File Otomatis dan Manual (Type File : Semua File yang suport di Inject / Bukan hanya file yang berektensikan .DLL)
3. Auto Kill Aplikasi Fungsinya adalah menutup Aplikasi Target yang dalam keadaan running secara otomatis apabila fitur ini diaktifkan.
4. Minimizer dan Restore All App, tetapi ada sebagian App atau Game Fitur ini tidak dapat berfungsi dengan baik.
5. Enable dan Disable Task Manager
6. Membuka dan Menutup Akses Registry (Regedit)
7. Form Settingan (akan diatur sendiri oleh user)
8. Running di Systray Area.

(image)

Cara Penyetingan Aplikasi

• Kalau Auto Suspendnya di beritanda (conteng), maka Aplikasi akan secara otomatis mensuspend target yg ditentukan

• Exit After Resume : Aplikasi akan keluar (Exit) otomatis setelah App Target diresume atau dijalankan kembali

• App Target : Aplikasi yang dijadikan target misal nya None.exe (Ekstensinya jangan lupan di ikut sertakan .exe)

• App Titel : Judul dari Aplikasi tersebut, nah disinilah kunci utama proses Kerja Otomatis Aplikasi GeSp 1.4. Cara mudah untuk mengetahui Judul dari Sebuah Aplikasi yaitu dengan cara membuka Task Manager setelah itu Coba jalankan sebuah Aplikasi maka pada Task Manager bisa kita liat Judul Aplikasi tersebut, contoh seperti gambar dibawah ini.

(image)

• Timer For Suspend : Pengaturan waktu awal saat proses Suspend target (Milli Second)
  

• Untuk Penyetingan Selanjut nya bisa diikuti seperti cara diatas

Dengan adanya setingan ini maka Aplikasi akan berjalan sesuai dengan keingin user, mudah - mudahan bermamfaat dan tidak disalah gunakan dalam pemakaiannya ohya jangan lupa komentar nya untuk sekedar referensi .. makasih.(image)

Membuat Exit Layout pada Form VB

Sun, 15 Aug 2010 08:22:16 PDT

Contoh Exit Layout Form dengan Visual Basic .. Codding by eRGe Layout nya seperti video dibawah ini Bagi yang tertarik dengan animasi silahkan Copas coding dibawah ini, Persiapan Buat sebuah Project Baru Standart EXE tambahkan 1 buah Control CommandButtonPrivate Sub Command1_Click() ExitLayout Unload MeEnd SubPrivate Sub ExitLayout() On Error Resume Next Dim fHeight As Long Dim fWidth As Long For fHeight = Me.Height To 1000 Step -1 Me.Height = fHeight 'Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 3 Next fHeight If Me.Height = 1000 Then For fWidth = Me.Width To 1000 Step -2 Me.Width = fWidth Next fWidth End If Me.RefreshEnd SubMudah - mudahan ada mamfaatnya, akan Update Aplikasi Gudang yang sekarang masih dalam uji coba dan akan di post di blog ini kalau sudah finishing. [...]

Media Files:
http://www.youtube.com/get_player

Cara Membuat File TXT dengan VB

Tue, 23 Feb 2010 22:14:44 PST

(image) Terkandang dalam menggarap sebuah aplikasi (Program) sangat dibutuhkan media untuk penyimpanan data baik itu berupa database, settingan program dan lain-lain, untuk itu kita bisa mempergunakan file IO (Input output) seperti dat file, ini file, txt file, CSV dll, dan untuk Menyimpan database bisa menggunakan Ms. Access atau SqlServer.

kesempatan kali ini saya coba membahas tentang Cara Membuat File TXT dengan VB, untuk membuat file txt ini sangatlah mudah dengan Visual Basic tidak memerlukan coding-coding yang panjang cukup dengan beberapa line atau baris saja, bagi yang tertarik langsung aja copy coding dibawah ini kemudian pastekan di project sobat lalu jalankan program atau tekan F5, setelah itu coba periksa pada drive C pasti sobat temukan File Baru dengan nama "test.txt" yang isinya angka 1 sampai dengan 10.

Option Explicit

Private Sub Form_Load()
Dim i As Integer
Open "C:\test.txt" For Output As #1
Print #1, " --------------------------------"
Print #1, " Create TXT with VB "
Print #1, " --------------------------------"
For i = 1 To 10
Print #1, Space(10) & i & "."
Next i
Print #1, " --------------------------------"
Print #1, " End Of Record"
Print #1, " --------------------------------"
Close #i
Unload Me
End Sub

Mudah - mudahan tutorial singkat ini ada mamfaatnya kalau ada kesempatan dan waktu kita akan ketemu pada tips-trik berikutnya ... terima kasih

(image)

Hack Taskbar Windows

Sun, 21 Feb 2010 22:16:57 PST

Masih seputar Tips - Trik Visual Basic tentunya, kali ini saya coba membahas tentang Hack Taskbar Windows yaitu bagaimana caranya Menghilangkan Taskbar, Menghilangkan Button Start serta cara Menghilangkan Waktu / Tanggal yang ada pada Sistray Area tapi sobat tidak perlu kwatir pasti ada pengembalian atau reset kedefault semula. Mungkin sobat masih ngambang tentang penjelasan saya diatas, dengan gambar dibawah ini mudah-mudahan sobat bisa paham maksud dari Tips - Trik ini.Okelah kalau begitu saya akan lanjutkan tentang coding nya bagi yang tertarik silakan ikuti langkah - langkah berikut ...Tambahkan tiga buah CommandButton diproject, masing-masing dengan nama : cmdTaskbar, cmdStartButton dan cmdSystemClockTambahkan satu buah Module' Tempatkan Coding dibawah ini pada ModulePublic Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As LongPublic Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPublic Declare Function GetDlgItem Lib "user32" (ByVal hDlg As Long, ByVal nIDDlgItem As Long) As LongPublic TaskBarStyle As Boolean, StartButtonStyle As Boolean, SystemClockStyle As BooleanPublic Const StartButtonID = &H130Public Const SystemClockID = &H12FPublic Const SW_HIDE = 0Public Const SW_SHOW = 5Public Sub HideTaskBar()Dim wClassName As StringDim hwndTaskbar As LongwClassName = "Shell_TrayWnd"hwndTaskbar = FindWindow(wClassName, vbNullString)If TaskBarStyle = False ThenForm1.cmdTaskbar.Caption = "Show Taskbar"ShowWindow hwndTaskbar, SW_HIDETaskBarStyle = TrueElseForm1.cmdTaskbar.Caption = "Hide Taskbar"ShowWindow hwndTaskbar, SW_SHOWTaskBarStyle = FalseEnd IfEnd SubPublic Sub HideStartButton()Dim wClassName As StringDim hwndTaskbar As Long, hwndStartbutton As LongwClassName = "Shell_TrayWnd"hwndTaskbar = FindWindow(wClassName, vbNullString)hwndStartbutton = GetDlgItem(hwndTaskbar, StartButtonID)If StartButtonStyle = False ThenForm1.cmdStartButton.Caption = "Show Start Button"ShowWindow hwndStartbutton, SW_HIDEStartButtonStyle = TrueElseForm1.cmdStartButton.Caption = "Hide Start Button"ShowWindow hwndStartbutton, SW_SHOWStartButtonStyle = FalseEnd IfEnd SubPublic Sub HideSystemClock()Dim wClassName As StringDim hwndTaskbar As Long, hwndSystemClock As LongwClassName = "Shell_TrayWnd"hwndTaskbar = FindWindow(wClassName, vbNullString)hwndSystemClock = GetDlgItem(GetDlgItem(hwndTaskbar, SystemClockID), SystemClockID)If SystemClockStyle = False ThenForm1.cmdSystemClock.Caption = "Show System Colock"ShowWindow hwndSystemClock, SW_HIDESystemClockStyle = TrueElseForm1.cmdSystemClock.Caption = "Hide System Clock"ShowWindow hwndSystemClock, 5SystemClockStyle = FalseEnd IfEnd SubPublic Sub SetToDefault()TaskBarStyle = TrueStartButtonStyle = TrueSystemClockStyle = TrueHideTaskBarHideStartButtonHideSystemClockEnd Sub ' Tempatkan Coding dibawah ini pada Form ProjectPrivate Sub cmdStartButton_Click()HideStartButtonEnd SubPrivate Sub cmdSystemClock_Click()HideSystemClockEnd SubPrivate Sub cmdTaskbar_Click()HideTaskBarEnd SubPrivate Sub Form_Load()cmdTaskbar.Caption = "Hide TaskBar"cmdStartButton.Caption = "Hide Start Button"cmdSystemClock.Caption = "Hide System Clock"End SubPrivate Sub Form_Unload(Cancel As Integer)SetToDefaultEnd SubMudah - mudahan Tips ini ada mamfaat nya bagi kita semua dan VB Developer khususnya, semoga tidak digunakan untuk menjahili teman atau orang lain. Kalau ada kesempatan dan waktu kita akan ketemu dengan Tips - Trik berikutnya .. terima kasih.[...]

Cara Menghilangkan Password Database

Thu, 18 Feb 2010 01:45:39 PST

(image) Cara Menghilangkan Password Database, ya itulah topik yang akan saya ulas pada kesempatan kali ini karena ada salah seorang sahabat menanyakan masalah ini via email kurang lebih pertanyaan nya seperti ini "Mas kalau untuk me-remove atau menghapus password Microsoft Access dengan VB gimana yah".

Okelah kalau begitu kita langsung aja kepokok permasahalahan sebagai contoh buatlah sebuah File Database Ms. Access dengan nama test.mdb dan password 123321, yang nantinya akan kita hilang password tersebut dengan menggunakan coding Visual Basic

langkah - langkah persiapan

• Tambah References Microsoft DAO 3.6 Object Library pada project Sobat

Kemudian tempat coding dibawah ini pada Form atau pada Module Project

Public Sub CLearDatabasePassword()
On Error GoTo Salah
Dim DtBase As Database
Set DtBase = OpenDatabase(App.path & "\Database\test.mdb", True, False, ";pwd=123321")
DtBase.NewPassword "123321", ""
DtBase.Close
Exit Sub
Salah:
If Err.Number <> 0 Then
MsgBox Err.Description & vbCrLf & Err.Source, , "Error"
End
End If
End Sub

* Catatan file Ms. Access (test.mdd) harus satu folder dengan Aplikasi (Project)

Sekarang sobat tinggal memanggil fungsi diatas pada form sintax nya seperti ini Call CLearDatabasePassword kalau tidak ada aral melintang maka password database tersebut akan kabur (hahahaha .. kekekeke). Mudah - mudahan tutorial singkat ini ada mamfaatnya bagi sobat-sobat VB developer, kalau ada kesempatan akan saya lanjutkan untuk pembahasan yang lain yang pasti masih seputar Tutorial Visual Basic ... salam.

(image)

Cara Register File dengan Visual Basic

Mon, 15 Feb 2010 23:22:52 PST

Dalam membangun sebuah Aplikasi pastilah sangat dibutuhkan file - file pendukung supaya aplikasinya kelihatan lebih profesional seperti file Ocx , file Dll dan lain sebagainya. Topik kali ini masih seputar Tutorial Visual Basic yaitu mengenai Cara Register File pendukung tersebut lewat coding dengan Visual Basic karena banyak kasus file - file tersebut tidak akan berjalan sebelum didaftarkan atau diregister ke Sistem.Sebagai contoh mungkin sobat - sobat pernah mengalami aplikasinya tidak dapat dijalankan atau istilahnya runtime error setelah di Instalkan kekomputer lain karena file pendukung tidak diregister, nah bagai mana caranya supaya langsung diregister melalui coding bagi yang tertarik silahkan ikuti langkah - langkah berikut'Letakan Coding dibawah ini pada Module ProjectPrivate Declare Function LoadLibraryRegister Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As LongPrivate Declare Function CreateThreadForRegister Lib "kernel32" Alias "CreateThread" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, ByVal lParameter As Long, ByVal dwCreationFlags As Long, lpThreadID As Long) As LongPrivate Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As LongPrivate Declare Function GetProcAddressRegister Lib "kernel32" Alias "GetProcAddress" (ByVal hModule As Long, ByVal lpProcName As String) As LongPrivate Declare Function FreeLibraryRegister Lib "kernel32" Alias "FreeLibrary" (ByVal hLibModule As Long) As LongPrivate Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As LongPrivate Declare Function GetExitCodeThread Lib "kernel32" (ByVal hThread As Long, lpExitCode As Long) As LongPrivate Declare Sub ExitThread Lib "kernel32" (ByVal dwExitCode As Long)Public Function RegServer(ByVal FileName As String) As BooleanRegServer = RegSvr32(FileName, False)End FunctionPublic Function UnRegServer(ByVal FileName As String) As BooleanUnRegServer = RegSvr32(FileName, True)End FunctionPrivate Function RegSvr32(ByVal FileName As String, bUnReg As Boolean) As BooleanDim lLib As LongDim lProcAddress As LongDim lThreadID As LongDim lSuccess As LongDim lExitCode As LongDim lThread As LongDim bAns As BooleanDim sPurpose As StringsPurpose = IIf(bUnReg, "DllUnregisterServer", _"DllRegisterServer")If Dir(FileName) = "" Then Exit FunctionlLib = LoadLibraryRegister(FileName)If lLib = 0 Then Exit FunctionlProcAddress = GetProcAddressRegister(lLib, sPurpose)If lProcAddress = 0 ThenFreeLibraryRegister lLibExit FunctionElselThread = CreateThreadForRegister(ByVal 0&, 0&, ByVal lProcAddress, ByVal 0&, 0&, lThread)If lThread ThenlSuccess = (WaitForSingleObject(lThread, 10000) = 0)If Not lSuccess Then Call GetExitCodeThread(lThread, lExitCode) Call ExitThread(lExitCode) bAns = False Exit FunctionElse bAns = TrueEnd IfCloseHandle lThreadFreeLibraryRegister lLibEnd IfEnd IfRegSvr32 = bAnsEnd Function'Contoh Penerapan Fungsi-fungsi Register diatasPublic Function Sub RegisterFile() as BooleanDim FileSys1 As StringFileSys1 = "C:\Windows\System32\vbaListView6.ocx" If Dir(FileSys1) "" Then RegisterFile = RegServer(FileSys1) end ifEnd FunctionSekarang masukan fungsi RegisterFile tersebut kedalam Start up Program misal di Sub Main Coding seperti dibawah iniSub Main()call RegisterFileEnd SubCukup dulu pembahasan tentang Cara Register File mudah-mudahan ada mamfaat nya bagi sobat-sobat, kalau ada kesempatan akan kita lanjutkan tentang pembahasan yang lain yang pasti masih seputar Tutorial Visual Basic selamat mencoba dan terima kasih.[...]

Design Template Blog

Mon, 15 Feb 2010 23:20:07 PST

(image) Tidak seperti postingan biasanya yang sering mengulas tentang Tutorial Visual Basic (VB) tapi topik kali ini mengenai Design Template Blog (hehehe lari dari topik utama). Berawal dari beberapa teman yang meminta template Blog Ekakom ini, bukan nya pelit gak mau kasih tapi saya merasa risih karena coding CSS yang ada pada template ini masih amburadul - berantakan abiz bahkan nama cewek pun ikut masuk (wekeke kalo tau bokap nya pasti dihajar nih) karena hasil editing sendiri, saya berusaha merapikan coding - coding tersebut untuk itu terpaksa saya harus membuat blog baru yang beralamat http://www.tapaktuan.co.cc (duh capek). Tapi berkat bantuan dari seorang sahabat yang sudah senior dalam hal Blogging nama beliau Mas Iyang akhir nya saya bisa merampungkan pembuatan blog ini. Selama proses editing banyak banget ide yang neko-neko muncul dalam benak saya, setelah konsultasi bolak-balik dengan Mas Iyang Alhamdulillah akhirnya Blog Baru ini selesai juga dengan tampilan yang sedikit unik liat aja deh disini (wekeke promosi). Nah bagi sobat yang berminat dengan template ini silakan kirimkan email sobat melalui contact me yang ada pada Menu Navbar blog ini.
(image)

Cara Membuat dan Menghapus Folder dengan VB

Sun, 07 Feb 2010 18:28:54 PST

Masih Seputar Visual Basic tentunya, kesempatan kali ini saya coba mempergunakan untuk ngebahas Masalah Folder yaitu Cara Membuat dan Menghapus Folder dengan VB dan ini juga merupakan salah satu request dari sahabat yang melayangkannya lewat email. Saya rasa hal ini pun sangat penting dalam membangun sebuat Aplikasi.Langsung aja kita kepokok pembahasan bagaimana dengan pembuatan Coding nya, nah bagi yang tertarik silakan ikuti langkah - langkah berikut iniKetik Coding Berikut ini pada Module ProjectOption ExplicitPrivate Type SECURITY_ATTRIBUTESnLength As LonglpSecurityDescriptor As LongbInheritHandle As LongEnd TypePrivate Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long'Fungsi mencek keberadaan folderPublic Function DirectoryExist(DirPath As String) As BooleanDirectoryExist = Dir(DirPath, vbDirectory) ""End Function'Fungsi untuk membuat FolderPublic Sub CreateNewDirectory(NewDirectory As String)Dim sDirTest As StringDim SecAttrib As SECURITY_ATTRIBUTESDim bSuccess As BooleanDim sPath As StringDim iCounter As IntegerDim sTempDir As StringsPath = NewDirectoryIf Right(sPath, Len(sPath)) "\" Then sPath = sPath & "\"End IfiCounter = 1Do Until InStr(iCounter, sPath, "\") = 0 iCounter = InStr(iCounter, sPath, "\") sTempDir = Left(sPath, iCounter) sDirTest = Dir(sTempDir) iCounter = iCounter + 1 'create directory SecAttrib.lpSecurityDescriptor = &O0 SecAttrib.bInheritHandle = False SecAttrib.nLength = Len(SecAttrib) bSuccess = CreateDirectory(sTempDir, SecAttrib)LoopEnd Sub'Fungsi Untuk Menghapus folderPublic Sub DelDirectory(sName as String)On Error Resume NextDim FsoSet Fso = CreateObject("Scripting.FileSystemObject")If Dir(sName, vbDirectory) "" ThenFso.DeleteFolder sNameEnd IfSet Fso = NothingEnd Sub Nah sekarang tinggal menggunakan fungsi-fungsi tersebut kedalam Form Project sebagai contoh membuat sebuah folder di drive C dengan nama Database coding nya seperti dibawah ini'Coding untuk mebuat Folder'Cek dulu FolderIf DirectoryExist("C:\Database") True Then'Jika Folder yg dimaksud belum ada maka akan dibuatCall CreateNewDirectory("C:\Database\")'Coding Menghapus Folder'Kalau Folder yang dimaksud ditemukan langsung dihapusCall DelDirectory ("C:\Database\")Cukup sekian dulu tutorial singkat ini mudah-mudahan kalau ada umur panjang akan saya lanjutkan pada topik yang lain, semoga dapat membantu dan bermamfaat, selamat mencoba dan salam.[...]

Cara Membuat INI File

Sat, 06 Feb 2010 04:05:51 PST

Mungkin sobat - sobat sering menjumpai INI File pada direktori atau folder sebuah Aplikasi contoh nya seperti config.ini atau nama yang lain yang berextensikan .ini, INI file merupakan salah satu file pendukung biasa digunakan sebagai media peyimpanan settingan atau Informasi aplikasi baik yang dilakukakan oleh user / pengguna maupun programmer itu sendiri. Pada kesempatan kali ini saya akan membahas Cara Membuat INI File tersebut.Bagi sobat - sobat yang tertarik silahkan ikuti langkah - langkah pembuatan coding nya dibawah iniKetik codding dibawah ini pada module Project Option ExplicitDeclare Function GetPrivateProfileString Lib "kernel32" Alias _"GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal _lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As _String, ByVal nSize As Long, ByVal lpFileName As String) As LongDeclare Function WritePrivateProfileString Lib "kernel32" Alias _"WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal _lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As LongFunction WriteIniFile(ByVal sIniFileName As String, ByVal sSection As String, ByVal sItem As String, ByVal sText As String) As Boolean Dim i As Integer On Error GoTo sWriteIniFileError i = WritePrivateProfileString(sSection, sItem, sText, sIniFileName) WriteIniFile = True Exit FunctionsWriteIniFileError: WriteIniFile = FalseEnd FunctionFunction ReadIniFile(ByVal sIniFileName As String, ByVal sSection As String, ByVal sItem As String, ByVal sDefault As String) As String Dim iRetAmount As Integer Dim sTemp As String sTemp = String$(50, 0) iRetAmount = GetPrivateProfileString(sSection, sItem, sDefault, sTemp, 50, sIniFileName) sTemp = Left$(sTemp, iRetAmount) ReadIniFile = sTempEnd Function'Contoh Menyimpan User LogonPublic Function SetUserLogon(Tanggal As String) WriteIniFile App.Path & "\Config.ini", "LOGIN", "Logon", TanggalEnd Sub'Contoh Mengambil info User LogonPublic Function GetUserLogon () As String GetUserLogon = ReadIniFile(App.Path & "\Config.ini", "LOGIN", "Logon", "")End SubNah sekarang tinggal dimasukan kedalam Project fungsi - fungsi tersebut misal pada saat form diload coding nya seperti dibawah iniPrivate Sub Form_Load() 'Mengambil Info User Logon Label1.Caption = GetUserLogon 'Menyimpan User Logon call SetUserLogon(Format(Date, "dddd, dd mmm yyyy") & " " & Time) End SubCukup sekian dulu tutorial kali ini dan kalau ada waktu akan saya sambung pada tutorial berikutnya, mudah - mudahan ada mamfaatnya bagi kita semua dan VB Depelover khususnya[...]

Membuat Form Transparan

Fri, 05 Feb 2010 09:49:14 PST

(image) Tips kali ini adalah bagaimana Membuat Form Transparant dengan Visual Basic, disini kita menggunakan Fungsi API yaitu GetWindowLong, SetWindowLong dan SetLayeredWindowAttributes. Saya rasa tidak perlu penjelasan yang detail untuk hal ini sobat bisa langsung melihat penampakannya dibawah ini

(image) Bagaimana dengan Codingnya ikuti Langkah - Langkah Berikut :

• Buat Project Baru Standart Exe

Ketik Coding dibawah ini pada Form Project Sobat

Option Explicit

Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_COLORKEY = &H1
Private Const LWA_ALPHA = &H2

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crColor As Long, ByVal nAlpha As Byte, ByVal dwFlags As Long) As Long

Private Sub Form_Load()
Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED)
Call SetLayeredWindowAttributes(Me.hwnd, RGB(255, 0, 255), 128, LWA_ALPHA Or LWA_COLORKEY)
End Sub

Untuk ketajaman transparant sobat bisa menggati Angka - Angka yang berwarna merah dengan angka yang lain (maximal value 255). Mudah - mudahan ada mamfaatnya selamat mencoba ... salam

(image)

How to create a manifest file with code

Fri, 05 Feb 2010 14:32:37 PST

In this article I do not discuss again what is manifest file functions because of my previous article already exists precisely here, so now the discussion is how to incorporate into a Visual Basic project, so the Manifest file is created automatically if removed.for those of you who are interested in this tip, please follow the way of making the code belowStep 1create a new standard exe projectadd moduleStep 2Place the following code in the module projectOption ExplicitPrivate Declare Function InitCommonControls Lib "Comctl32.dll" () As LongSub InitialiseXPControls()Dim intFreeFile As IntegerDim lngReturn As LongDim strEXEFile As StringDim strManifestFile As StringstrEXEFile = App.Path & "\" & App.EXEName & ".exe"strManifestFile = strEXEFile & ".manifest"If Dir(strEXEFile) <> "" And Dir(strManifestFile) = "" ThenintFreeFile = FreeFile()Open strManifestFile For Output As #intFreeFilePrint #intFreeFile, ""Print #intFreeFile, ""Print #intFreeFile, ""Print #intFreeFile, "GSoftware"Print #intFreeFile, ""Print #intFreeFile, " "Print #intFreeFile, " "Print #intFreeFile, " "Print #intFreeFile, ""Print #intFreeFile, ""Close #intFreeFileShell strEXEFile, vbNormalFocusEndEnd IflngReturn = InitCommonControls()End SubStep 3Please call InitialiseXPControls in sub main or startup form your projectNow your application will follow the theme of your windows that apply, good luck. If you have any problems please contact me or can you confirm by email, may be useful for you.[...]

Contoh Encrypt dan Decrypt Teks dengan Visual Basic

Wed, 27 Jan 2010 04:34:03 PST

Tujuan Utama Encrypt dan Descript teks adalah untuk merubah karakter teks sehingga tidak mudah dibaca atau dipahami orang lain, metode ini banyak dipakai untuk proteksi seperti dunia Internet, Bank baik proteksi password, pengiriman pesan, pengiriman data dan lain-lain. Disini saya memberikan contoh dasar bagaimana pembuatan Encrypt dan Descript teks tersebut dengan Visual BasicSintax :1. EncryptText(strText As String, ByVal strPwd As String) As String2. DecryptText(strText As String, ByVal strPwd As String)contoh :EncryptText("Uji Coba", "gila") = ž¶ªgŒ»£¨DecryptText("ž¶ªgŒ»£¨","gila") = Uji CobaBagi sobat-sobat yang tertarik silakan ikuti langkah - langkah pembuatan fungsi Encrypt dan Decript ini Persiapan yang harus dilakukan Buat Project Baru Standart Exe3 Buah TextBox (Text1,Text2, Text3)2 Buah CommandButton (Command1, Command2)2 Buah Label1 buat MouduleDesign form seperti Gambar dibawah iniContoh Design Project Form Engcrypt - DescryptTempat Coding dibawah ini pada ModuleOption Explicit#Const CASE_SENSITIVE_PASSWORD = False'Encrypt textPublic Function EncryptText(strText As String, ByVal strPwd As String) As StringDim i As Integer, c As IntegerDim strBuff As String#If Not CASE_SENSITIVE_PASSWORD Then'Convert password to upper case'if not case-sensitivestrPwd = UCase$(strPwd)#End If'Encrypt stringIf Len(strPwd) ThenFor i = 1 To Len(strText)c = Asc(Mid$(strText, i, 1))c = c + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))strBuff = strBuff & Chr$(c And &HFF)Next iElsestrBuff = strTextEnd IfEncryptText = strBuffEnd FunctionPublic Function DecryptText(strText As String, ByVal strPwd As String)Dim i As Integer, c As IntegerDim strBuff As String#If Not CASE_SENSITIVE_PASSWORD Then'Convert password to upper case'if not case-sensitivestrPwd = UCase$(strPwd)#End If'Decrypt stringIf Len(strPwd) ThenFor i = 1 To Len(strText)c = Asc(Mid$(strText, i, 1))c = c - Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))strBuff = strBuff & Chr$(c And &HFF)Next iElsestrBuff = strTextEnd IfDecryptText = strBuffEnd FunctionKetik Coding dibawah ini pada Form ProjectOption ExplicitPrivate Sub Command1_Click()Text2 = EncryptText(Text1, "gila")End SubPrivate Sub Command2_Click()Text3 = DecryptText(Text2, "gila")End SubCukup sekian dulu tutorial singkat ini, mudah-mudahan ada mamfaat nya bagi sobat - sobat VB Depeloper, selamat mencoba ... salam[...]

Aplikasi Pembukuan Counter Handphone

Tue, 26 Jan 2010 14:31:23 PST

(image) Update lagi ceritanya nih, kali ini saya coba berbagi mengenai Aplikasi Pembukuan Counter Handphone yang saya buat menggunakan Bahasa Pemrograman Visual Basic 6.0 Aplikasi sederhana ini saya beri nama GCELL yang berfungsi untuk menghitung pembelian dan penjualan di Counter, ruang lingkupnya mencakup :

• Handphone
• Voucer (Fisik dan Elektrik)
• Kartu Perdana
• Accesories Conter
• Jasa Service / Perbaikan

(image)

Aplikasi Tagihan Rekening PDAM

Mon, 04 Oct 2010 03:48:43 PDT

Aplikasi Tagihan Rekening PDAM (Aplikasi Database - Visual Basic)A Long Time gak aktif didunia blogger jangankan Update Blog, Blog walking ke Blog temen pun jarang banget. Masalahnya bukan dikarenakan kesibukan tapi sengaja menyibukan diri (hahahahaha) padahal OL tiap hari, nggak tau kenapa semangat yang dulunya menggelora, menggebu-gebu sampai mengeluarkan api atau apalah istilah nya, hilang dan sirna begitu saja seiring berjalan nya waktu (cie .. ela). Tapi sekarang udah mulai ada secercah titik terang, semangat yang sudah mulai pudar perlahan tapi pasti kini bangkit kembali dan mulai menampakan warnanya walau gak seperti dulu (wekeke .. pujangga kesasar).Sesuai dengan judul diatas, saya mencoba mengenalkan sebuah Aplikasi Database untuk Tagihan Rekening PDAM yang saya buat sendiri Aplikasi ini saya beri nama TRP mana tau ada yang tertarik (sedikit promosi bok). Apa-apa saja yang ada dalam Aplikasi ini nah ini dia yang mau saya jelaskan tapi setelah pesan-pesan yang berikut ini .... appaaaaan tuh .. (hahahaha)Tentang Software yang sedikit meniru Style Ms. Office 2007 ini :Nama Aplikasi TRPCompiler VB 6 Sp. 6Software Maker Eka Syahputra (eRGe - GSoft)Copyright 2008 Revisi 2009Report / Output SoftwareSearch / Pencarian Pelanggan dengan detail (Faster).Proses Billing Meteran Pelanggan setiap bulannya tidak memerlukan waktu yang lama untuk penginputan.Pengelompokan Tunggakan.Pengeluaran Surat Teguran langsung bagi pelanggan yang menunggak.Pengeluaran Data Cabutan yang telah lewat bulan tunggakan dengan AkuratPengeluaran SPK (Surat Perintah Kerja) baik Pemutusan atau Pemasangan kembaliOutput Laporan Pendapatan : Harian, Bulanan dan TahunanPengelompokan Laporan Pendapatan sesuai kategoriUntuk yang lompat pembayaran bisa di blokir didatabseBeberapa Opsi Untuk pencetakan Rekening seperti Cetak Manual, Collection dll.Laporan data cabutan dan pemasangan kembali dengan akuratAplikasi Support LAN (Local Area Network) / JaringanDan masih banyak yang lain nya.Beberapa Screen shoot Software TRP Bagi yang berminat memiliki Aplikasi ini silakan Contact [...]

Solusi Untuk Url yang di banned Shoutmix

Thu, 21 Jan 2010 16:28:58 PST

Apes bener nasib ku salah satu blog di Banned oleh Shoutmix kejadian itu lebih kurang 1 bulan yang lalu sampai sekarang pun Url ku masih di banned http://ndakdo.blogspot.com, apabila Url ini ditulis, ShoutMix langsung menolaknya mentah - mentah alias di Black List (tega benner loe om Mix) sempat kesel juga sih tapi apa mau di kate keputusan om ShoutMix gak bisa di ganggu gugat udah final aku dituduh tukang spamer (wekekekeke tega loe om). Awal nya sih keenakan Blog Walking dengan jalan yang gak halal (hehehehehe) dalam waktu 5 menit aku bisa mengunjungi 200 ShoutMix dan meninggalkan pesan, dikarenakan mengirim pesan yang sama dan dalam tempo yang sesingkat singkat nya, maka Shoutmix memvonis ku Spamer (apes deh).Tapi untuk mengatasi hal tersebut aku punya TIPS ama sobat - sobat barangkali aja ada mamfaat nya, Tips yang pertama kita bisa mengalih kan ke domain yang gak berbayar alias gratis bin Free seperti dot tk contoh nya seperti ini http://ngejreng.tk itu pun kalo masih aktif karena domain yang gratis ini limit waktu nya relatif singkat, yang kedua dengan cara membuat sebuah blog baru untuk blog redirect yang gunanya untuk mengalih kan ke Url yang telah di Banned tadi dengan cara memasukan Script Redirect, gimana penampakannya bisa sobat liat disini Blog Redirect (click ajah).

You will be redirected to the script in

seconds

Script redirect ini tinggal sobat copy tapi jangan lupa tulisan yang berwarna kuning edit dulu sesuai kebutuhan kemudian login ke Blogger trus tambahkan sebuat Gadget baru Html/Java Script lalu pastekan script tersebut kemudian simpan selesai deh, mudah-mudahan ada mamfaat nya sebelum nya terimakasih buat sobat-sobat yang telah berkenan memberikan komentar nya ..... salam.[...]

TIPS UNTUK TEXTBOX VB

Thu, 24 Sep 2009 22:20:43 PDT

(image) Hampir tiga minggu blog ekakom ini gak update posting, ini karena ada sedikit kesibukan maklum nyari uang tambahan buat uang bli rokok (wekekekeke) trus lagi ngurus blog yang satunya lagi http://ndakdo.blogspot.com sekalian belajar modiv template.

Untuk postingan kali ini masih seputaran Visual Basic yaitu mengenai Control Textbox, saya coba berbagi sedikit tips mengenai control ini buat VB Beginner karena ada beberapa dari sobat-sobat bertanya melalui email saya, yg pertanyaan nya lebih kurang seperti ini ..
"Mas kalo buat inputan hanya berupa angka dan kalau Huruf Kapital aja dimuat di textbox cara nya bagaimana" , disini saya akan langsung membahas nya.

yang perlu dingat adalah event ini terjadi saat user ato pengguna menekan tombol keyboard atau yang lebih tepat nya pada event Keypress(KeyAscii as integer). nah untuk mengizinkan user hanya menginput berupa angka (number) codding nya seperti dibawah ini

Option Explicit

Const vbKeyDecPt = 46

Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyDecPt Or KeyAscii = vbKeyBack Then Exit Sub Else KeyAscii = 0 End If End Sub

Untuk Menampilkan semua huruf Kapital (Huruf besar) pada textbox walaupun tombol Caps lock pada keyboard tidak di pencet codding seperti dibawah ini

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Event ini tidak akan berjalan kalo codding nya tidak ditempatkan pada event KeyPress(KeyAscii As Integer).

mudah-mudahan ada mamfaatnya bagi sobat-sobat VB Beginner ... dan terimakasih sebelumnya buat temen-temen yang sudah berkenan memberikan komentar nya ... salam

(image)

Membuat Caption Label Bergerak (VB)

Tue, 29 Dec 2009 14:55:48 PST

(image) Semangat lagi nih Pagerank udah pulih , hehehe .. kemarin sempat diturunin jadi dua sekarang udah normal lagi jadi tiga .. thx mbah Google (wekekeke). Walau beberapa hari ini jarang ol dikarenakan ada sedikit gangguan tapi eRGe masih sempatkan untuk Update Posting Blog Ekakom ini, Tips kali ini masih seputar Visual Basic yaitu Membuat Caption Label Bergerak , maksudnya bisa berjalan-jalan (smoga aja gak kesasar yah .. wekekeke) kalau di Html istilah nya Marquee (kalo gak salah), mudah-mudahan yang saya maksud bisa ngerti yah, kalo gak ngerti di mengertiin aja deh (wekekeke), Nah bagi yang berminat silakan ikuti langkah-langkah dibawah ini, Persiapan :

- Buat Project baru Standart Exe
- Tambahkan 1 buah Control Timer (Timer1) Property yang diset :
Enable = True, Interval = 100
- Satu Buah Control Label (Label1)

Ketik Coding dibawah ini pada Form Project

Dim Pos As Integer, StartPos As Integer, Lengh As Integer, iTeks As Integer
Dim MyTeks As String

Private Sub Form_Load()
iTeks = 1
End Sub

Private Sub Timer1_Timer()
Pos = Pos + 1
If iTeks = 1 Then
MyTeks = "Ini adalah Contoh ..."
ElseIf iTeks = 2 Then
MyTeks = "Pembuatan Label Berjalan"
ElseIf iTeks = 3 Then
MyTeks = "Dengan Visual Basic"
End If
StartPos = Len(MyTeks)
Lengh = StartPos - Pos
If Lengh = 0 Then
If iTeks = 1 Then
iTeks = 2
ElseIf iTeks = 2 Then
iTeks = 3
ElseIf iTeks = 3 Then
iTeks = 1
End If
Pos = 0 - StartPos
End If
Label1 = Right(MyTeks, Lengh)
End Sub

Mudahkan gak ribet , Sekarang Coba sobat jalan kan Project nya (Tekan F5) Caption pada label1 akan berjalan-jalan dan tulisannya bergantian tapi hati-hati sob jangan sampai labelnya kesasar gak tau pulang (wekekekekeke).

Mudah-mudahan ada mamfaat nya bagi sobat-sobat semua, dan khusus pada VB Depelover yang masih pemula tentunya (Salam), terimakasih sebelumnya buat sobat-sobat yang sudah bersedia memberikan komentarnya.

(image)

Membuat Efek Vibrate Pada Form (VB)

Thu, 20 Aug 2009 02:46:42 PDT

(image) Masih tentang Tips Visual Basic tentu nya .. kali ini eRGe mencoba berbagi lagi tentang Membuat Efek Vibrate pada Form . sebenarnya tips ini tidak terlalu penting, tapi sekedar mencoba share ilmu tentang VB aja buat sobat-sobat VB Developer tentunya yang masih junior. Tips ini untuk membuat unik Form sewaktu di run atau ditampilkan, maksud Efek Vibrate ini adalah efek getaran jadi sewaktu form di tampilan Form akan bergetar-getar seperti cacing kepanasan (wekekekeke .. kiding sob), untuk effect ini codingnya tidak panjang tidak capek ngetik nya, nah untuk mempersingkat waktu kita langsung to the point aja (wekeke..). bagi yang berminat silakan ikuti langkah-langkah berikut

Persiapan yang di lakukan :
Buat Project baru stardart exe .. lalu ketik coding berikut pada form sobat

Private Sub Vibrate(frm As Form, rScale As Integer, Times As Integer)
Dim Lft As Long, Tp As Long
Dim i
Lft = frm.Left
Tp = frm.Top
For i = 1 To Times
frm.Move Lft + Sgn(rScale)
Pause 20
frm.Move Lft + rScale
Pause 20
frm.Move Lft, Tp + Sgn(rScale), frm.Width, frm.Height
Pause 20
frm.Move Lft, Tp + rScale, frm.Width, frm.Height
Pause 20
Next i
End Sub

Private Sub Pause(ms)
Dim secs
Dim g
secs = ms / 1000
g = Timer
Do While Timer - g < secs
DoEvents
Loop
End Sub

Private Sub Form_Activate()
Vibrate Me, 100, 20
End Sub

Gak panjang kan, nah kalo udah selesai coba sobat jalankan (Run) atau tekan F5 , apa bener form nya bergetar-getar seperti cacing kepanasan ... (wekekeke ....), selamat mencoba aja yah.

mudah-mudahan ada mamfaat nya bagi kita semua dan khusus nya bagi VB Developer Junior semoga dapat menambah referensinya, sebelumnya terimakasih buat sobat-sobat yang sudah sudi mengkomentari artikel ini ... salam.

(image)

Penghitungan VB Ala Ms. Excel

Thu, 20 Aug 2009 02:47:43 PDT

Sudah berapa minggu ini vakum dengan postingan Visual Basic, seperti yang sudah tersurat dan tersirat pada blog ekakom ini, misi utama adalah Mencoba dan Belajar serta Berbagi tentang Visual Basic (hehehehehe kaya' pasukan tempur aja punya misi). Nah kesempatan kali ini eRGe kembali mencoba berbagi lagi tentang VB mengenai masalah Penghitungan VB ala Excel , sudah barang tentu sobat VB Depelopper pernah melihat perkalian seperti ini 20*10+(30-19) yang menghasilkan 211 kalau di Excel, hmm bisa kah perkalian ini di terapkan di Visual Basic .. ?, jawabannya tentu dunk (hehehehe). Bagi yang tertarik dan berminat silakan aja ikuti langkah berikut ini eRGe akan ngasih contoh codingnyaPersiapan yang dilakukan:Buat Project Baru Standart exeTambahkan 1 buah TextBox (Text1)Tambahkan 1 buah Label (Label1)Tambahkan 1 Buah CommandButton (Command1) caption : ='Ketik Coding dibawah ini pada Form ProjectPrivate Const WS_EX_LAYERED = &H80000Private Const GWL_EXSTYLE = (-20)Private Const LWA_COLORKEY = &H1Private Const LWA_ALPHA = &H2Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crColor As Long, ByVal nAlpha As Byte, ByVal dwFlags As Long) As LongPrivate Sub Command1_Click()Dim excel_app As ObjectDim excel_sheet As ObjectSet excel_app = CreateObject("Excel.Application")excel_app.Workbooks.AddIf Val(excel_app.Application.Version) >= 8 ThenSet excel_sheet = excel_app.ActiveSheetElseSet excel_sheet = excel_appEnd Ifexcel_sheet.Cells(1, 1) = "=" & Text1.TextLabel1.Caption = excel_sheet.Cells(1, 1)Label1.Caption = Format$(Label1.Caption, "#,##0")excel_app.ActiveWorkbook.Close Falseexcel_app.QuitSet excel_sheet = NothingSet excel_app = NothingEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 13 Then Command1_ClickEnd SubSetelah semua selesai coba sobat ketik 20*10+(30-19) atau perkalian yang lain pada Text1 .. kemudian tekan enter atau click CommandButton .. pada Label1 akan didapat hasil perkalian tersebut. Mudah-mudah ada mamfaatnya bagi kita semua khusus nya bagi rekan-rekan VB Developper yang masih junior seperti saya semoga Artikel ini bisa menambah perbendaharaan ilmu nya dan terima kasih sebelum bagi sobat-sobat yang sudah berkenan memberikan Argumen nya ... salam.[...]

Menambah Elemen Widget

Thu, 20 Aug 2009 02:48:12 PDT

Masih Seputar Kilometer Tip-Trik Blog nih .. kali ini eRGe coba berbagi mengenai Cara Menambah Elemen Widget tapi sebelum nya eRGe mo ngasih tau dulu ama sobat-sobat eRGe yang setia .. bahwa eRGe lagi sial banget neh ... Page Rank turun dari 3 menjadi 2, alexa nya juga divonis dari 90 an jadi 95 an .. waduh apes banget gak tau apa salah dan dosa ku (wakakaka..) tapi ya udah deh mau bilang apa emang nasib ku harus begitu (sabar aja ya Ge .. hiks.. hiks) awalnya seh senang banget karena PR 1 langsung Naek ke 3 hehehe .. kerenkan, tapi cuma 3 hari aja, gak disangka dan tak diduga akhirnya turun lagi .. busyet deh (wekekeke)Ok deh kita langsung aja ke pokok bahasan mengenai Menambah Elemen Widget .. tips ini saya terapkan di Template yang saya pakai Black Brown Pop yang dibuat oleh Ipiet Blogger Template posting ini eRGe special kan buat Brother Yoyok, maap brot baru sekarang dipostingin request nya. maksud menambah elemen widget disini adalah membuat widget baru di bawah Header serperti kolom Iklan kalau di blog ini dan membuat Foother 3 kolom, nah untuk mempersingkat ocehan yang ntar bisa ngelantur .. jadi kita lansung aja.Hal pertama yang kita membuat Widget baru untuk Kolom Iklan nah ini kode HTML nya/* iklan Column */#iklan {width: 960px;position: relative;clear:both;margin: 0 auto 10px;color:#000;float: left;padding: 0;border-bottom:2px solid #363636;}#leftiklan {width: 915px;float: left;margin: 10px;padding:10px 10px;background:#000000;border:1px solid #363636;}#leftiklan img {margin: 7px 7px 7px 0px;padding: 3px;width : 100px;height : 100px;text-align: center;border: 2px solid #790011;}#leftiklan img:hover {margin: 7px 7px 7px 0px;padding: 3px;text-align: center;border: 2px solid #C2FF0A;}/* Credits iklan */Taruh Kode HTML tersebut diatas Kode yg kira-kira seperti dibawah ini#outer-wrapper {width: 940px;margin: 0 auto 0;padding: 10px 0 0;line-height: 15px;}Selanjut nya kita kita akan membuat Footheader 3 kolom dan ini Kode HTML nya/* bottom Column */#bottom {width: 940px;position: relative;clear:both;margin-top:10px;color:#000;float: left;padding: 0;}#leftbottom {width: 287px;float: left;margin:0 0px 0;padding:7px 10px;background:#101010;border:1px solid #363636;}#middlebottom {width: 288px;float: left;margin:0 0px 0 6px;padding:7px 10px;background:#101010;border:1px solid #363636;}#rightbottom {width: 287px;float: right;margin:0 0px 0px 0;padding:7px 10px;background:#101010;border:1px solid #363636;}/* Credits Column */Lalu taruh Kode diatas dibawah kode yg kira-kira seperti dibawah ini.main .Blog {border-bottom-width: 0;Untuk Pengaturan .sidebar h2, .sidebar ul dan .sidebar ul li .. sobat bisa mengikuti pengaturan yang sudah ada .. tinggal menambah kode elemen yang baru dibuat misalnya seperti di bawah ini.sidebar h2, .topsidebar h2, .iklan h2, .bottom h2, .dianasidebar h2 {.sidebar ul, .rightsidebar ul, .leftsidebar ul, .topsidebar ul, .bottom ul, .iklan ul, .dianasidebar ul, .diana1 ul, .diana2 ul {.sidebar ul li, .rightsidebar ul li, .leftsidebar ul li, .topsidebar ul li, .bottom ul li, .iklan ul li, .dianasidebar, .diana1 ul li, .diana2 ul li {kalau udah selesai .... langkah selanjut nya tambahkan kode dibawah inidibawah kode yang kira-kira seperti ini