Cegah Aplikasi berjalan 2 Kali [Only 1 Running] - Visual Basi 6

by viandwi 05.51 0 komentar vb6 Visual Basic 6.0

Pernah membuat sebuah Project Antivirus? tentunya kalian tidak menginginkan Antivirus kalian di jalankan 2 kali dengan windows yang berbeda, kalian besar kemungkinan akan ada error kecuali antivirus portable. Sebagai contoh adalah Smadav, jika smadav sudah di jalankan, saat kalian "Open" lagi pada Smadav.. maka akan muncul pesan "Aplikasi sudah dijalnakn..." atau sebagainya... Inilah yang akan di bahas pada pertemuan kali ini....

1] Buat sebuah project baru atau project lama visual basic 6 kamu

 2]Segera ke Form Code, cari Form Load atau langsung memasukan :

Private Sub Form_Load()
If App.PrevInstance = True Then
MsgBox "Aplikasi Sudah DI Jalnkan! Cek DI Latar Belakang!", vbExclamation, "Only 1 Running!" 'pesan
End 'kode agar form yang dijalankan ke 2 kali dapat di tutup
End If
End Sub

3] Untuk mencoba nya, anda di haruskan kee "File > Make Project.exe" atau membuild aplikasinya.
lalu coba jalankan aplikasi tersebut, selang beberapa detik coba jalankan kembali aplikasi tadi, jika berhasil maka akan muncul pesan error "Aplikasi Sudah DI Jalankan!"

Semoga Bermanfaat