Ekakom

Membuat KeyLogger dengan VB

noreply@blogger.com (eRGe) — Fri, 8 Apr 2011 00:29:00 -0700

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.

Screen Capture Software

noreply@blogger.com (eRGe) — Sun, 12 Sep 2010 03:09:00 -0700

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

Main Menu

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

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

Ini contoh Kode Registrasi yang sudah saya dapatkan

Selamat Hari Raya Idul Fitri 1431 H

noreply@blogger.com (eRGe) — Thu, 9 Sep 2010 00:02:00 -0700

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.

Suspender dan Injector File

noreply@blogger.com (eRGe) — Fri, 27 Aug 2010 13:22:00 -0700

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 :

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

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.

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.

Membuat Exit Layout pada Form VB

noreply@blogger.com (eRGe) — Thu, 15 Jul 2010 06:02:00 -0700

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 CommandButton

Private Sub Command1_Click()
ExitLayout
Unload Me
End Sub

Private 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.Refresh
End Sub

Mudah - mudahan ada mamfaatnya, akan Update Aplikasi Gudang yang sekarang masih dalam uji coba dan akan di post di blog ini kalau sudah finishing.

Cara Membuat File TXT dengan VB

noreply@blogger.com (eRGe) — Tue, 23 Feb 2010 22:03:00 -0800

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

Hack Taskbar Windows

noreply@blogger.com (eRGe) — Sat, 20 Feb 2010 22:45:00 -0800

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 cmdSystemClock
Tambahkan satu buah Module

' Tempatkan Coding dibawah ini pada Module

Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetDlgItem Lib "user32" (ByVal hDlg As Long, ByVal nIDDlgItem As Long) As Long
Public TaskBarStyle As Boolean, StartButtonStyle As Boolean, SystemClockStyle As Boolean
Public Const StartButtonID = &H130
Public Const SystemClockID = &H12F
Public Const SW_HIDE = 0
Public Const SW_SHOW = 5

Public Sub HideTaskBar()
Dim wClassName As String
Dim hwndTaskbar As Long
wClassName = "Shell_TrayWnd"
hwndTaskbar = FindWindow(wClassName, vbNullString)
If TaskBarStyle = False Then
Form1.cmdTaskbar.Caption = "Show Taskbar"
ShowWindow hwndTaskbar, SW_HIDE
TaskBarStyle = True
Else
Form1.cmdTaskbar.Caption = "Hide Taskbar"
ShowWindow hwndTaskbar, SW_SHOW
TaskBarStyle = False
End If
End Sub

Public Sub HideStartButton()
Dim wClassName As String
Dim hwndTaskbar As Long, hwndStartbutton As Long
wClassName = "Shell_TrayWnd"
hwndTaskbar = FindWindow(wClassName, vbNullString)
hwndStartbutton = GetDlgItem(hwndTaskbar, StartButtonID)
If StartButtonStyle = False Then
Form1.cmdStartButton.Caption = "Show Start Button"
ShowWindow hwndStartbutton, SW_HIDE
StartButtonStyle = True
Else
Form1.cmdStartButton.Caption = "Hide Start Button"
ShowWindow hwndStartbutton, SW_SHOW
StartButtonStyle = False
End If
End Sub

Public Sub HideSystemClock()
Dim wClassName As String
Dim hwndTaskbar As Long, hwndSystemClock As Long
wClassName = "Shell_TrayWnd"
hwndTaskbar = FindWindow(wClassName, vbNullString)
hwndSystemClock = GetDlgItem(GetDlgItem(hwndTaskbar, SystemClockID), SystemClockID)
If SystemClockStyle = False Then
Form1.cmdSystemClock.Caption = "Show System Colock"
ShowWindow hwndSystemClock, SW_HIDE
SystemClockStyle = True
Else
Form1.cmdSystemClock.Caption = "Hide System Clock"
ShowWindow hwndSystemClock, 5
SystemClockStyle = False
End If
End Sub

Public Sub SetToDefault()
TaskBarStyle = True
StartButtonStyle = True
SystemClockStyle = True
HideTaskBar
HideStartButton
HideSystemClock
End Sub

' Tempatkan Coding dibawah ini pada Form Project

Private Sub cmdStartButton_Click()
HideStartButton
End Sub

Private Sub cmdSystemClock_Click()
HideSystemClock
End Sub

Private Sub cmdTaskbar_Click()
HideTaskBar
End Sub

Private Sub Form_Load()
cmdTaskbar.Caption = "Hide TaskBar"
cmdStartButton.Caption = "Hide Start Button"
cmdSystemClock.Caption = "Hide System Clock"
End Sub

Private Sub Form_Unload(Cancel As Integer)
SetToDefault
End Sub

Mudah - 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

noreply@blogger.com (eRGe) — Thu, 18 Feb 2010 00:53:00 -0800

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.

Cara Register File dengan Visual Basic

noreply@blogger.com (eRGe) — Mon, 15 Feb 2010 19:21:00 -0800

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 Project
Private Declare Function LoadLibraryRegister Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private 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 Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function GetProcAddressRegister Lib "kernel32" Alias "GetProcAddress" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function FreeLibraryRegister Lib "kernel32" Alias "FreeLibrary" (ByVal hLibModule As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function GetExitCodeThread Lib "kernel32" (ByVal hThread As Long, lpExitCode As Long) As Long
Private Declare Sub ExitThread Lib "kernel32" (ByVal dwExitCode As Long)

Public Function RegServer(ByVal FileName As String) As Boolean
RegServer = RegSvr32(FileName, False)
End Function

Public Function UnRegServer(ByVal FileName As String) As Boolean
UnRegServer = RegSvr32(FileName, True)
End Function

Private Function RegSvr32(ByVal FileName As String, bUnReg As Boolean) As Boolean

Dim lLib As Long
Dim lProcAddress As Long
Dim lThreadID As Long
Dim lSuccess As Long
Dim lExitCode As Long
Dim lThread As Long
Dim bAns As Boolean
Dim sPurpose As String

sPurpose = IIf(bUnReg, "DllUnregisterServer", _
"DllRegisterServer")

If Dir(FileName) = "" Then Exit Function

lLib = LoadLibraryRegister(FileName)
If lLib = 0 Then Exit Function

lProcAddress = GetProcAddressRegister(lLib, sPurpose)

If lProcAddress = 0 Then
FreeLibraryRegister lLib
Exit Function
Else
lThread = CreateThreadForRegister(ByVal 0&, 0&, ByVal lProcAddress, ByVal 0&, 0&, lThread)
If lThread Then
lSuccess = (WaitForSingleObject(lThread, 10000) = 0)
If Not lSuccess Then
Call GetExitCodeThread(lThread, lExitCode)
Call ExitThread(lExitCode)
bAns = False
Exit Function
Else
bAns = True
End If
CloseHandle lThread
FreeLibraryRegister lLib
End If
End If
RegSvr32 = bAns
End Function

'Contoh Penerapan Fungsi-fungsi Register diatas
Public Function Sub RegisterFile() as Boolean
Dim FileSys1 As String

FileSys1 = "C:\Windows\System32\vbaListView6.ocx"
If Dir(FileSys1) <> "" Then
RegisterFile = RegServer(FileSys1)
end if
End Function

Sekarang masukan fungsi RegisterFile tersebut kedalam Start up Program misal di Sub Main Coding seperti dibawah ini

Sub Main()
call RegisterFile
End Sub

Cukup 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

noreply@blogger.com (eRGe) — Fri, 12 Feb 2010 17:26:00 -0800

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.

Cara Membuat dan Menghapus Folder dengan VB

noreply@blogger.com (eRGe) — Sun, 7 Feb 2010 17:44:00 -0800

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 ini

Ketik Coding Berikut ini pada Module Project

Option Explicit

Private Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type
Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long

'Fungsi mencek keberadaan folder
Public Function DirectoryExist(DirPath As String) As Boolean
DirectoryExist = Dir(DirPath, vbDirectory) <> ""
End Function

'Fungsi untuk membuat Folder
Public Sub CreateNewDirectory(NewDirectory As String)
Dim sDirTest As String
Dim SecAttrib As SECURITY_ATTRIBUTES
Dim bSuccess As Boolean
Dim sPath As String
Dim iCounter As Integer
Dim sTempDir As String

sPath = NewDirectory

If Right(sPath, Len(sPath)) <> "\" Then
sPath = sPath & "\"
End If

iCounter = 1

Do 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)
Loop
End Sub

'Fungsi Untuk Menghapus folder
Public Sub DelDirectory(sName as String)
On Error Resume Next
Dim Fso
Set Fso = CreateObject("Scripting.FileSystemObject")
If Dir(sName, vbDirectory) <> "" Then
Fso.DeleteFolder sName
End If
Set Fso = Nothing
End 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 Folder
If DirectoryExist("C:\Database") <> True Then
'Jika Folder yg dimaksud belum ada maka akan dibuat
Call CreateNewDirectory("C:\Database\")

'Coding Menghapus Folder
'Kalau Folder yang dimaksud ditemukan langsung dihapus
Call 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

noreply@blogger.com (eRGe) — Sat, 6 Feb 2010 03:10:00 -0800

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 ini

Ketik codding dibawah ini pada module Project

Option Explicit

Declare 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 Long

Declare Function WritePrivateProfileString Lib "kernel32" Alias _
"WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal _
lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Function 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 Function
sWriteIniFileError:
WriteIniFile = False
End Function

Function 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 = sTemp
End Function

'Contoh Menyimpan User Logon
Public Function SetUserLogon(Tanggal As String)
WriteIniFile App.Path & "\Config.ini", "LOGIN", "Logon", Tanggal
End Sub

'Contoh Mengambil info User Logon
Public Function GetUserLogon () As String
GetUserLogon = ReadIniFile(App.Path & "\Config.ini", "LOGIN", "Logon", "")
End Sub

Nah sekarang tinggal dimasukan kedalam Project fungsi - fungsi tersebut misal pada saat form diload coding nya seperti dibawah ini

Private Sub Form_Load()
'Mengambil Info User Logon
Label1.Caption = GetUserLogon

'Menyimpan User Logon
call SetUserLogon(Format(Date, "dddd, dd mmm yyyy") & " " & Time)
End Sub

Cukup 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

noreply@blogger.com (eRGe) — Wed, 3 Feb 2010 06:37:00 -0800

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

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

How to create a manifest file with code

noreply@blogger.com (eRGe) — Fri, 29 Jan 2010 19:39:00 -0800

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 below

Step 1

create a new standard exe project

add module

Step 2
Place the following code in the module project

Option Explicit
Private Declare Function InitCommonControls Lib "Comctl32.dll" () As Long

Sub InitialiseXPControls()
Dim intFreeFile As Integer
Dim lngReturn As Long
Dim strEXEFile As String
Dim strManifestFile As String

strEXEFile = App.Path & "\" & App.EXEName & ".exe"
strManifestFile = strEXEFile & ".manifest"

If Dir(strEXEFile) <> "" And Dir(strManifestFile) = "" Then
intFreeFile = FreeFile()

Open strManifestFile For Output As #intFreeFile
Print #intFreeFile, "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>"
Print #intFreeFile, "<assembly xmlns=""urn:schemas-microsoft-com:asm.v1"" manifestVersion=""1.0"">"
Print #intFreeFile, "<assemblyIdentity"
Print #intFreeFile, " version = ""1.0.0.0"""
Print #intFreeFile, " processorArchitecture = ""X86"""
Print #intFreeFile, " name = ""Microsoft.Winweb.VB_Application"""
Print #intFreeFile, " type=""win32"""
Print #intFreeFile, "/>"
Print #intFreeFile, "<description>GSoftware</description>"
Print #intFreeFile, "<dependency>"
Print #intFreeFile, " <dependentAssembly>"
Print #intFreeFile, " <assemblyIdentity"
Print #intFreeFile, " type=""win32"""
Print #intFreeFile, " name = ""Microsoft.Windows.Common-Controls"""
Print #intFreeFile, " version = ""6.0.0.0"""
Print #intFreeFile, " processorArchitecture = ""X86"""
Print #intFreeFile, " publicKeyToken = ""6595b64144ccf1df"""
Print #intFreeFile, " language = ""*"""
Print #intFreeFile, " />"
Print #intFreeFile, " </dependentAssembly>"
Print #intFreeFile, "</dependency>"
Print #intFreeFile, "</assembly>"
Close #intFreeFile

Shell strEXEFile, vbNormalFocus
End
End If

lngReturn = InitCommonControls()
End Sub

Step 3
Please call InitialiseXPControls in sub main or startup form your project

Now 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

noreply@blogger.com (eRGe) — Wed, 27 Jan 2010 03:45:00 -0800

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 Basic

Sintax :
1. EncryptText(strText As String, ByVal strPwd As String) As String
2. DecryptText(strText As String, ByVal strPwd As String)

contoh :
EncryptText("Uji Coba", "gila") = ž¶ªgŒ»£¨
DecryptText("ž¶ªgŒ»£¨","gila") = Uji Coba

Bagi sobat-sobat yang tertarik silakan ikuti langkah - langkah pembuatan fungsi Encrypt dan Decript ini

Persiapan yang harus dilakukan

Buat Project Baru Standart Exe
3 Buah TextBox (Text1,Text2, Text3)
2 Buah CommandButton (Command1, Command2)
2 Buah Label
1 buat Moudule
Design form seperti Gambar dibawah ini

Contoh Design Project Form Engcrypt - Descrypt

Tempat Coding dibawah ini pada Module

Option Explicit

#Const CASE_SENSITIVE_PASSWORD = False

'Encrypt text
Public Function EncryptText(strText As String, ByVal strPwd As String) As String
Dim i As Integer, c As Integer
Dim strBuff As String

#If Not CASE_SENSITIVE_PASSWORD Then

'Convert password to upper case
'if not case-sensitive
strPwd = UCase$(strPwd)

#End If

'Encrypt string
If Len(strPwd) Then
For 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 i
Else
strBuff = strText
End If
EncryptText = strBuff
End Function

Public Function DecryptText(strText As String, ByVal strPwd As String)
Dim i As Integer, c As Integer
Dim strBuff As String

#If Not CASE_SENSITIVE_PASSWORD Then

'Convert password to upper case
'if not case-sensitive
strPwd = UCase$(strPwd)

#End If

'Decrypt string
If Len(strPwd) Then
For 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 i
Else
strBuff = strText
End If
DecryptText = strBuff
End Function

Ketik Coding dibawah ini pada Form Project

Option Explicit

Private Sub Command1_Click()
Text2 = EncryptText(Text1, "gila")
End Sub

Private Sub Command2_Click()
Text3 = DecryptText(Text2, "gila")
End Sub

Cukup sekian dulu tutorial singkat ini, mudah-mudahan ada mamfaat nya bagi sobat - sobat VB Depeloper, selamat mencoba ... salam

Aplikasi Pembukuan Counter Handphone

noreply@blogger.com (eRGe) — Sat, 23 Jan 2010 17:57:00 -0800

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

Bagi sobat-sobat yang berminat silakan download, Aplikasi ini Gratis kok alias gak dipungut bayaran bin Free ~~udah kaya empunya~~ (hahahahahaha .. do'a in aja ya), gak usah panjang-panjang saya jelasin lagi ntar bosan bacanya, sobat coba aja sendiri.

Oh ya hampir lupa untuk Password Default Aplikasi ini: User : admin Password : admin, tapi sobat bisa merubahnya. yang didownload ini ada file setup (compiler) jadi aplikasi harus diinstall mohon tidak merubah folder yang sudah ditetapkan dalam setup supaya aplikasi ini berjalan optimal, nah bagi sobat yang tertarik dengan source code / coding Aplikasi ini bisa request ke saya tapi disini saya minta hak pawang dikit (hahahahaha) gak mahal kok cuma Rp. 150.000,- nanti link dowloadnya saya kasih, silakan sobat modivikasi. Gimana penampakannya ... nah tu dia dibawah

Dipersilahkan bagi yang mau download tinggal click image dibawah ini tapi jangan lupa kasih komentar nya yah ... mudah-mudahan bermamfaat.

Click image to download

Aplikasi Tagihan Rekening PDAM

noreply@blogger.com (eRGe) — Sun, 10 Jan 2010 01:16:00 -0800

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 TRP
Compiler VB 6 Sp. 6
Software Maker Eka Syahputra (eRGe - GSoft)
Copyright 2008 Revisi 2009

Report / Output Software

Search / 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 Akurat
Pengeluaran SPK (Surat Perintah Kerja) baik Pemutusan atau Pemasangan kembali
Output Laporan Pendapatan : Harian, Bulanan dan Tahunan
Pengelompokan Laporan Pendapatan sesuai kategori
Untuk yang lompat pembayaran bisa di blokir didatabse
Beberapa Opsi Untuk pencetakan Rekening seperti Cetak Manual, Collection dll.
Laporan data cabutan dan pemasangan kembali dengan akurat
Aplikasi Support LAN (Local Area Network) / Jaringan
Dan 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

noreply@blogger.com (eRGe) — Thu, 24 Sep 2009 20:32:00 -0700

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).

<p><form name="redirect">
<center>
<font face="Arial"><b>You will be redirected to the script in<br><br>
<form>
<input type="text" size="3" name="redirect2">
</form>
seconds</b></font>
</center>

<script>

</script>
</p>
</body>
</html></body>
</html>

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

noreply@blogger.com (eRGe) — Wed, 5 Aug 2009 20:24:00 -0700

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

Membuat Caption Label Bergerak (VB)

noreply@blogger.com (eRGe) — Fri, 26 Jun 2009 10:03:00 -0700

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.

Membuat Efek Vibrate Pada Form (VB)

noreply@blogger.com (eRGe) — Wed, 10 Jun 2009 02:45:00 -0700

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.

Penghitungan VB Ala Ms. Excel

noreply@blogger.com (eRGe) — Thu, 4 Jun 2009 22:14:00 -0700

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 codingnya

Persiapan yang dilakukan:

Buat Project Baru Standart exe
Tambahkan 1 buah TextBox (Text1)
Tambahkan 1 buah Label (Label1)
Tambahkan 1 Buah CommandButton (Command1) caption : =

'Ketik Coding dibawah ini pada Form Project

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 Command1_Click()
Dim excel_app As Object
Dim excel_sheet As Object

Set excel_app = CreateObject("Excel.Application")

excel_app.Workbooks.Add
If Val(excel_app.Application.Version) >= 8 Then
Set excel_sheet = excel_app.ActiveSheet
Else
Set excel_sheet = excel_app
End If

excel_sheet.Cells(1, 1) = "=" & Text1.Text

Label1.Caption = excel_sheet.Cells(1, 1)
Label1.Caption = Format$(Label1.Caption, "#,##0")

excel_app.ActiveWorkbook.Close False

excel_app.Quit
Set excel_sheet = Nothing
Set excel_app = Nothing
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Command1_Click
End Sub

Setelah 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

noreply@blogger.com (eRGe) — Tue, 2 Jun 2009 23:34:00 -0700

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 ini

dibawah kode yang kira-kira seperti ini

Lumayan panjang yah cara buat nya, masih ada lagi neh .. hahaha, nah tambahkan kode dibawah ini

Tepat diatas Kode yang kira-kira seperti ini yg merupakan batas main wrap

<div class='clear'> </div>

</div> 

</div>

Nah baru selesai ... save template deh, kalau nggak ada halangan dan menurut anjuran dari dokter mudah mudahan sobat akan mempunyai elemen widget baru .. hehehe

Mudah-mudahan ada mamfaatnya bagi kita semua .. amin, sebelumnya terimakasih bagi sobat-sobat eRGe yang sudah bersedia ngasih Komentar ... salam

Netbook Advan Vanbook A1N70T(Alnect Komputer)

noreply@blogger.com (eRGe) — Mon, 1 Jun 2009 23:27:00 -0700

Telah hadir Netbook Advan Vanbook yang harganya cukup terjangkau .. dengan specifications yang bagus dari Toko Online Alnect Komputer cuma seharga Rp. 3.595.000 , - (Tiga juta lima ratus sembilan puluh lima ribu rupiah) disamping harga yang murah juga mendapat bonus bagi pembeli product ini, (hehehe udah murah dikasih bonus lagi .. mantab), bagi anda yang berminat silakan kunjungi http://www.alnect.net/products.php?/1/3/143/264/Computer/Notebook/ADVAN/Netbook_Advan_Vanbook_A1N70T_+_BONUS!!. Laptop Vanbook Dengan berat hanya 1,2Kg ini cukup mudah dibawa kemanapun dan Lebih hemat daya dalam penggunaan baterainya. Performa yang cukup baik, juga ditunjukkan oleh netbook ini.

Netbook Advan Vanbook A1N70T yang cantik ini memiliki specifications sebagai berikut :

Processor	Intel ATOM N270 1.6 Ghz (533 Mhz FSB, 512 KB L2 Cache, 45 nm Technology)
Chipset	INTEL 945GSE
Memory	1GB DDR2 PC5300
Video Controller	INTEL 945, 3D/2D Graphics Accelarator, Directx 9 Support, Shared memory
HDD	1x 160GB SATA
LCD	WXGA (Wide) TFT 10.2
Webcam	Built in 1.3 Megapixels
Card Reader	4 in 1 card reader port(MMC/MS/SD/MS-pro)
Communication	10 /100 Ethernet, WLAN 802.11 B/G MiniCard module
I/O Ports	3x USB 2.0, 1x RJ45 Port, 1x Power Port, 1x Microphone, 1x Lineout/Earphone, 1x VGA Ports
Sound System	Integrated, Realtek ALC662 Azalia standard support, Buit in Microphone, Built in Speaker
Battery	11.1V/10.8V,2200/2400mAh(3S2P) 3 Cells
Operating System	DOS Only
Dimension (WHD)	(258 x 189 x 28) mm
Weight	<>
Alnect Care Warranty	180 Hari
Standard Warranty	1 Tahun
Others	BONUS : 1x Softcase Cantik, 1x Cooling Pad, 1x Mouse Optik USB, 1x LCD Cleaner Kit

Baguskan spec nya tunggu apalagi sob .. ayo kunjungi Toko Online Alnect Komputer ini mumpung lagi ada stock ... sebelum habis lo.

Mungkin Sobat belum pernah baca artikel yang seperti judul diatas diblog ekakom ini, hehehe bener sob eRGe lagi coba-coba ikut kontes untuk pertama kalinya , kontes ini tentang review product-product yang di tawarkan oleh toko online Alnect Komputer hadiah nya lumayan besar sob, pendaftaran nya pun tidak dipungut bayaran sepeser pun alias gratis ... apa-apa saja hadiah-hadiah yang siap menunggu sobat apabila jadi winner nah .. ini dia .. :

1 (satu) Unit Notebook Acer Aspire
1 (satu) Unit Notebook Advan A1N7OT Black
1 (satu) Unit Kamera Digital Sahitel DB705C
5 (lima) Unit Modem HSDPA Prolink PHS100
10 (sepuluh) Unit USB Flash Drive Kingstone DT-G2 8GB
100 (seratus) Unit USB Flash Drive Kingstone DT-G2 4GB

Wew ... menggiurkan bukan, ayo sobat tinggal apalagi ayo buruan ikut Kontes Review Alnect Komputer ini ... dan bagi sobat yg berminat mengikuti klik aja banner dibawah ini

Semoga kita bisa mejadi yang terbaik ... amin, dan bagi sobat setia eRGe mohon dukungan nya sebelum nya eRGe haturkan terimakasih.

Membuat Animasi Pada Sidebar Widget

noreply@blogger.com (eRGe) — Sat, 30 May 2009 02:24:00 -0700

Sepertinya ketagihan neh buat Tutorial Blog hehehe kali ini tentang Membuat Animasi Pada Sidebar Widget ... tapi sebelum dimulai ketawa dulu .. wakakakakak .. hahaha .. hihihi ... huhuhu .. itu artinya ucapan terimakasih buat sobat-sobat eRGe semua, karena udah ngasih respon pada artikel sebelum nya tentang Membuat Animasi Judul Blog. Untuk Posting kali ini tetap gak jauh benda ama yang lalu masih diseputaran kilometer Animasi (hehehe) tapi yang ini buat Sidebar Widget sob, untuk contoh nya bisa dilihat pada Blog ini itupun kalo masih ada hehehe mana tau nanti di copot (halah melenceng terus neh). ini dikarenakan ada direquest ama temen lewat shoutmix makanya dipostingin, padahal caranya sangat mudah tidak butuh waktu lama sampai bermenit-menit tapi cukup dengan 5 menit saja paling lama (bagi yang tau maksudnya ... hehehe .. halah sok-sok an)

Untuk Penerapan Tip ini saya pilih Template buatan Anak Negeri sendiri yaitu Megazine R 1-3 madein nya Kang Rohman The Master Of Blog, bagi sobat yang pengen pinter kunjungi aja blog Beliau ini, disana puluhan Tips dan Triks Ngeblog sudah menanti sobat, nah bagi sobat yang masih bingung atau pengen bertanya, langsung aja chat karena fasilitas nya sudah disediakan, para pakar Blog yg ada disana pun siap mengajari sobat ini pun kalo mereka tau (hehehe) seperti Kang Abeh atau Tutor, aaLiL Master Seo, easyblogtrick, noe, Chempluk, Yoyok, Otak's, GONDES, KOESnadi dan masih banyak yang lain, gak rugi deh kalo mampir kesana .. ilmu semua.
Sekarang langsung pada pokok pembicaraan Membuat Animasi Pada Sidebar Widget .. sebenar nya Animasi ini tidak memakai script tapi Animasi image gif sebelum nya sobat harus menyediakan dulu image nya .. nah untuk itu saya ngasih 2 contoh Image gif dibawah ini

Alamat Link Image 1 : http://i560.photobucket.com/albums/ss44/erge32/RGsdbar.gif
Alamat Link Image 2 : http://i560.photobucket.com/albums/ss44/erge32/EkaSidebar.gif

Langkah Pertama :
Login dulu ke bloger > Tata Letak > Edit HTML > Kemudian cari Kode seperti di bawah ini

pake ctrl + f supaya cepet nyari kemudian isikan .sidebar h2

.sidebar h2, .middlecol h2, .bottom h2{
color: $sidebarcolor;
text-transform: capitalize;
font-size: 14px;
font-family: Arial, Tahoma, Verdana;
font-weight: bold;
margin: 0px 0px 5px 0px;
padding: 0px 0px 2px 0px;
border-bottom:1px solid $bordercolor;
}

Nah kalo udah ketemu sobat tinggal tambahin aja Background nya seperti dibawah ini

background:#f7f7f7 url(http://i560.photobucket.com/albums/ss44/erge32/RGsdbar.gif?imgmax=800)repeat;

atau

background:#f7f7f7 url(http://i560.photobucket.com/albums/ss44/erge32/EkaSidebar.gif?imgmax=800)repeat;

terserah yang mana dipakai image nya ... jadi kodenya seperti di bawah ini

kalau udah selesai simpan template kemudian liat blognya .. kalau gak ada aral melintang pasti sidebar nya udah berubah ada lampu-lampu nya .. hehehe

Mudah-mudah tip ini ada mamfaat nya bagi kita semua ... amin, sebelum nya terima kasih bagi sobat-sobat yang mau mengomentari artikel ini ... salam.