Tutorial PTC (Paid to Click)

Apakah PTC itu?
PTC adalah sebuah program dimana pemasang iklan (Advertiser) akan membayar Anda setelah mengklik, melihat (View) iklan mereka dalam jangka waktu tertentu (sekitar 10-40 detik). Iklan yang diklik tersebut bernilai macam-macam, rata-rata $0,01 untuk 1 kali klik. Ada juga yang $0,005 $0,0075 juga $0,02.
Sebenarnya dari PTC yang benar-benar membayar bisa dimanfaatkan sebagai salah satu sumber untuk meraup dolar. Karena mudah dan bisa dilakukan oleh semua orang. Iklan-iklan tersebut diklik oleh Anda sendiri (bukan menunggu orang lain), Anda juga tidak perlu membuat blog/situs dan sebagainya untuk memasang kode iklan.

Apakah Situs PTC itu?
Program PTC tidak sama dengan Autosurf, MLM, sistem piramida/Matrix, atau model kaya cepat dalam waktu singkat.
Situs PTC merupakan salah satu inovasi dalam model pemasangan iklan dan akan ada konsumen yang pasti melihat iklan mereka (dari sekian banyak konsumen yang mengklik/melihat iklan tersebut tentunya akan ada yang beli), itulah tujuan dari situs PTC tersebut.
Situs PTC sendiri memperoleh dana (uang) dari para pemasang iklan atau melalui sponsorship dari membernya, misalnya ada yang mau Upgrade ke keanggotaan yang lebih tinggi, misalnya Premium supaya bisa mengklik iklan lebih banyak, ada pula yang menjual referal, bahkan ada yang menjual marchandise dan sebagainya.

Apakah ikut PTC gratis atau bayar?
Semua situs PTC GRATIS.
Jadi, karena gratis Anda tidak punya resiko.
Jangan mau membayar dimuka kalau ada situs PTC yang seperti itu karena belum apa-apa Anda sudah diminta dibayar, padahal tujuan Anda kan mencari duit (dolar) bukan keluar duit.

Bagaimana saya mendapatkan dolar?
Seperti yang sudah saya jelaskan di awal, Anda mendaftar terlebih dahulu melalui link yang diberikan kepada anda (referal), karena umumnya pada saat mendaftar anda akan ditanyakan darimana anda mendapatkan referensi situs PTC tersebut. Setelah itu login dan menuju pada halaman yang menyediakan iklan untuk diklik. Kemudian menunggu iklan tersebut tampil sepenuhnya dan tunggu 10-50 detik (tergantung situs penyelenggara). Semakin banyak iklan yang diklik maka semakin besar perolehan Anda.
Anda akan memperoleh tambahan penghasilan lagi dengan mengajak orang lain untuk ikut menjadi downline (referal) di bawah Anda. Semakin banyak member Anda semakin besar pula pendapatan Anda. Biasanya perolehan Anda dari referal adalah 50%, ada juga yang 25% atau 70%, sekali lagi tergantung situsnya.

Di bawah ini contoh pendapatan Anda:
* Anda mengklik 10 iklan setiap hari, 1 iklan bernilai $0,01 maka = $0.10
* 20 referral juga mengklik 10 iklan tiap hari = $2.00
* Pendapatan Anda tiap hari = $2.10 (Jumlah klik Anda + Jumlah klik referal --> $2.00 + $0.10)
* Pendapatan Anda tiap minggu menjadi = $14.70
* Pendapatan Anda tiap bulan menjadi = $63.00

Apa ada aturan mengklik iklan?
Setiap iklan yang diklik harus satu-persatu, tidak boleh diklik sekaligus semuanya.
Ingat, Anda tidak boleh curang dengan mengklik iklan yang sama lebih dari 1x, sebab setiap iklan hanya boleh diklik 1x saja dalam 1 hari. Besoknya (setelah 24 jam) baru Anda boleh mengklik lagi iklannya.
Biasanya setelah hitungan mundur berakhir ada yang menunjukkan bahwa credit/pendapatan Anda telah ditambahkan. Ada juga yang meminta Anda untuk mengklik angka tertentu, memasukkan angka tertentu ataupun mengklik link menuju alamat iklan tersebut.
Lebih jelasnya silahkan lihat panduan yang dilengkapi gambar berikut ini Click disini
Bagaimana saya mengambil pendapatan saya?
Setelah Anda mencapai minimum payout, Anda bisa melakukan penarikan. Biasanya melalui PayPal atau AlertPay. Jadi, Anda harus mendaftar salah satu atau keduanya terlebih dahulu. Kebanyakan situs PTC membayar melalui AlertPay ketimbang PayPal.
Setelah Anda merasa dana Anda cukup banyak di AlertPay/PayPal baru Anda menariknya ke rekening di Indonesia bisa melalui cek atau transfer. Klik pada menu WITHDRAW dalam AlertPay/PayPal.

Bagaimana jika saya tidak punya AlertPay/PayPal?
Ya, Anda daftar dulu.





Klik banner di bawah ini untuk mendaftar AlertPay


Klik banner di bawah ini untuk mendaftar PayPal

Kenapa harus pakai AlertPay/PayPal?
Karena Anda tidak bisa langsung menarik pendapatan Anda dari situs PTC. Jadi, duit Anda ditransfer dulu ke rekening bank Online (AlertPay dan PayPal). Selain itu, kalau Anda mengikuti beberapa program PTC sekaligus maka AlertPay akan mempermudah Anda. Semua dana akan masuk dalam satu rekening dan kemudian baru Anda melakukan penarikan.

Situs PTC apa saja yang baik?
Soal baik atau tidak situs itu tergantung dari situs itu sendiri.
Banyak sekali Situs PTC tetapi sedikit sekali yang benar-benar membayar membernya, karena banyak situs tersebut yang melakukan kecurangan dengan berbagai macam hal misalnya tidak melakukan pembayaran kepada membernya karena dianggap menyalahi aturan (ToS), menghentikan situs mereka dengan tiba-tiba.
Situs PTC yang paling saya rekomendasikan adalah Neobux karena membayar secara instant. Dan selama ini Neobux memang dipercaya dan bebas masalah. Minimal penarikan $2, tiap hari ada 4 iklan minimal. Jadi, untuk penarikan tidak perlu nunggu lama.

Langkah-langkah mendaftar Di Neobux
1. Klik link untuk menuju ke halaman Neobux, Click here
2. Klik Register, pojok kanan atas untuk mendaftar
3. Tulis Username dan password yang kamu inginkan
4. Untuk Paypal/Alertpay maka isi saja dengan email yang anda miliki (jika belum memiliki Paypal atau Alertpay). Anda bisa mendaftar Alertpay/Paypal pada hari-hari berikutnya dengan menggunakan email ini.
5. Tulis code captcha pada kotak yang disediakan
6. Klik Submit
7. Buka window/tab baru untuk membuka email anda karena Neobux akan mengirimkan kode verifikasi di email anda. Jika tidak ada di kotak masuk maka cek di folder spam.
8. Masukan kode tersebut
9. Klik verification dan congratulations menandakan anda sukses mendaftar.


Yang perlu diingat setelah anda mendaftar/signup adalah :
Setelah anda mendaftar di Neobux Anda diberi waktu 3 hari setelah masa pendaftaran untuk melakukan aktifitas klik iklan, jika anda tidak melakukan klik iklan maka Neobux akan menghapus anda dari anggotanya.
1. Klik Login
2. Masukkan Username dan password yang digunakan saat mendaftar
3. Untuk Secondary Password Kosongkan saja
4. Tulis code captcha pada kotak yang disediakan
5. Klik Submit
6. Klik View Advertisement
7. Klik iklan yang disediakan, untuk member baru/Satus Standar maka disediakan 4 iklan/hari, misal klik iklan "EToro" maka muncul "Bulatan merah"
8. Klik "Bulatan Merah" ini dan tunggu proses Iklan Muncul secara sempurna, dan anda akan mendapatkan bayaran Dollar dari iklan tersebut.
9. Ulangi hingga 4 iklan yang disediakan habis, ditandai dengan berubahnya warna bintang yang semula berwarna kuning berubah menjadi berwarna coklat.
10. Ulangi esok harinya, usahakan pada jam yang sama dengan saat pertama kali melakukan klik iklan.

Info dan Tips Jika Iklan Tidak Muncul atau Tidak Dapat Diklik
Jika tertarik pada Neobux silahkan Download Aplikasi Earning Calculator yang saya buat ini Click Disini.
Aplikasi ini bermanfaat untuk mengetahui penghasilan anda di Neobux dan juga berisi link-link ke forum baik forum indonesia, USA, Palestina dll yang bermanfaat bagi anggota Neobux dan cara menghitung penghasilan kita di Neobux.

Atau silahkan Download Aplikasi NeoRefStat yang saya buat ini Click Disini.
Aplikasi ini bermanfaat untuk mengetahui Status Rented Referral ataupun Direct Referrals disertai grafik klik RR selama 30 hari beserta Average AVGnya..

Jika anda telah mendaftar maka anda baru boleh menulis di forum dan menggunakan Chating setelah melakukan klik iklan sebanyak 30 iklan jadi sekitar 8 hari anda belum dapat menulis di forum dan menggunakan fasilitas chating, tapi kalau membaca postingan di forum ya tentu boleh. Tempat yang hebat memang banyak aturan tetapi itu semua untuk kenyamanan anggotanya.

Jika pada saat anda klik iklan, muncul pernyataan "Another user using your IP Address.." ataupun anda tidak bisa mendaftar PTC gara-gara IP Address maka gunakan langkah dibawah ini:
1. Klik tautan ini proxy-list.org
2. Isikan captcha code yang diminta
3. Muncul banyak IP address
4. Pilih salah satu yang "Latency" nya jangan yang 0.0000
5. Misalkan pilih 118.116.178.243:9415, artinya angka 9415 yang paling belakang dimasukan kedalam Port sedangkan lainnya adalah IP Address dan dimasukkan dalam HTTP Proxy.
Untuk memasukkanya jika menggunakan Mozilla :
1. Klik Tools
2. Klik Options
3. Klik Tab Network
4. Klik Tab Settings
5. Pilih "Manual Proxy Configurations"
6. Masukkan 118.116.178.243 pada "HTTP Proxy" dan masukkan 9415 pada "Port"
7. Cobalah untuk klik iklan yang gagal tadi.

Tips lainnya gunakan CCleaner untuk membersihkan cookies ini linknya Download CCleaner

Jika ada kesulitan silahkan add fb saya atau kirim email saya, mungkin saya dapat membantu

Terimakasih telah membaca Tutorial ini
Semoga bermanfaat








SIAP MENDAPATKAN TAMBAHAN UANG!!!! "

******************************************************************************
Klik Banner berikut untuk mendaftar NeoBux [RECOMENDED]


Klik Banner berikut untuk mendaftar OnBUX


Klik Banner berikut untuk mendaftar FoxBux


Klik Banner berikut untuk mendaftar Earn Easy Cash

Read More

Menambah Status Yahoo Messenger Di Gagdet Profil

Gadget profil adalah gadget dimana Anda bisa manampilkan foto, deskripsi tentang Anda dan link profil blogger Anda kedalam blog Anda. Untuk menambahkan widget ini cukup mudah yaitu dari menu "Layout/tata letak" kemudian klik "Add a gagdet" lalu pilih "Profile". Dan untuk mengedit profil dan foto Anda bisa melalui Dashboard blogger Anda dengan mengklik "Edit Profile" yang ada di sebelah kanan dashboard Anda.

Nah kali ini Saya akan membahas tentang bagaimana caranya menambah Status Yahoo Messenger kedalam gadget Anda, yang berhubungan dengan postingan Saya yang dulu tentang menambah Status Yahoo Messenger ke dalam blog.

Coba lihat contoh dari modifikasi sederhana ini :



Terlihat diatas ada tambahan status Yahoo messenger ke dalam gadget profil Saya.

Nah dibawah ini adalah caranya :

1. Langkah pertama yang Anda harus lakukan Adalah Log In ke Blogger lalu menuju bagian "Layout" kemudian masuk "Edit HTML"

2. Setelah itu centang "Expand Widget Templates"

3. Kemudian cari code dibawah ini :

<a class='profile-link' expr:href='data:userUrl'><data:viewProfileMsg/></a>

4. Setelah ketemu code diatas lalu tambahkan code dibawah ini diatasnya

<a href='ymsgr:sendIM?anasku_mail'> <img src='http://opi.yahoo.com/online?u=anasku_mail&amp;m=g&amp;t=1&amp;l=us'/>
</a><br/>

Code yang berwarna merah diatas ganti dengan ID YM kamu, dan angka yang berwarna hijau adalah bentuk dari lambang status YM, keterangan lebih jelasnya bisa dibaca disini.

5. Kalau sudah kemudia SAVE

Nah diatas adalah cara menambah Status Yahoo Messenger kedalam gadget profil, Anda juga bisa Status YM dengan status Camfrog, G-Talk dan lainya.

Cukup disini dulu postingan Saya. . . Semoga bermanfaat dan silahkan menuliskan komentar dibawah ini untuk tanggapan dan pertanyaan.

Read More

Cara Membuat File TXT dengan VB

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

Read More

Widget Sederhana Twitter

Tentunya Anda sudah tau apa itu twitter dan Anda jugalah pengguna twitter untuk saat ini. Ya, Twitter adalah salah satu Social Networking yang terkenal selain Facebook yang banyak digunakan orang di seluruh penjuru dunia.

Namun kali ini Saya akan membahas tentang bagaimana caranya membuat widget Twitter yang sederhana ke dalam blog kita, dalam artian widget ini lebih simple dari pada widget yang diberikan oleh pihak twitter.

Isi dari widget ini adalah hanya tweets dan link twitter Anda, pas buat Anda yang suka hal ringkas namun bertujuan jelas. Coba lihat contoh widgetnya dibawah ini



Gambar diatas screen capture dari widget twitter sederhana di blog Saya ini. Yuk mari Saya pandu cara buat widget ini

Pertama yang Anda lakukan adalah Log In ke blogger Anda, setelah masuk Dashboard Lalu klik Link Layout / Tata Letak

Setelah masuk pada menu Layout lalu pilih tempat yang mau Anda pasangi Widget ini kemudian klik "Add a Gadget" kemudian pilih "HTML/JavaScript"

Kemudian Paste code dibawah ini

<div id="twitter_div" style="background: url(http://i725.photobucket.com/albums/ww258/anasceria/new-tuts/single-bird-icon-1.png) top left no-repeat; color:#000000; font-size:14px; padding-left: 50px;"><ul id="twitter_update_list"></ul>
<a id="twitter-link" style="display:block;text-align:right;" href="http://twitter.com/anasceria">follow me on Twitter</a>
</div>
<script src="http://twitter.com/javascripts/blogger.js" type="text/javascript"></script>
<script src="http://twitter.com/statuses/user_timeline/anasceria.json?callback=twitterCallback2&count=3" type="text/javascript"></script>

Perhatikan !! :

• Ganti code yang berwarna merah diatas dengan ID Twitter Anda
  
• Ganti Angka 3 yang berwarna biru diatas dengan jumlah angka tweet Anda yang ingin Anda Tampilkan
  
• Code yang berwarna hijau adalah style dari widget tersebut, diantaranya ada URL gambar dari widget tersebut, sesuaikan dengan selera Anda, klik disini untuk panduan CSSnya
  
• Text "follow me on twitter" adalah text link perintah untuk Follow Twitter Anda yang bisa Anda ganti sesuai Selera Anda

Nak demikianlah tutorial Saya hari ini untuk membuat widget sederhana twitter. Semoga bermanfaat bagi Anda dan jangan lupa Follow Twitter Saya disini untuk mengetahui update dari Saya, Terima Kasih.

Read More

Hack Taskbar Windows

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.

Read More

Cara Register File dengan Visual Basic

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.

Read More

Cara Membuat dan Menghapus Folder dengan VB

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.

Read More