Re: [Programmer-VB] membatasi eksekusi exe

Tue, 28 Feb 2006 02:11:53 -0800


Nambahin ..
 
 
Private Sub Form_Load()
    If app.previnstance Then
        ' program udah jalan simpan caption untuk aktivasi
        Dim saveCaption As String
        saveCaption = Caption

        ' Ganti sementara caption spy gak di tracing
        Caption = Caption & Space$(5)

        On Error Resume Next
        AppActivate saveCaption

        ' kembalikan caption
        Caption = saveCaption
        If Err = 0 Then Unload Me
    End If
End Sub
IpinZ
----- Original Message -----
From: Kyan
Sent: Monday, February 27, 2006 11:11 PM
Subject: Re: [Programmer-VB] membatasi eksekusi exe

mas mau nanya juga kalo evennya bukan peringatan
tetapi langsung focus pada aplikasi yang telah dijalankan gimana yah???
 
terimakasih

tambahkan ini di form load atau di sub main
 
if app.previnstance then
    msgbox "aplikasi sudah dibuka atau dijalankan!"
    unload me
end if
 
best regards
[wwn]
 
On 2/24/06, Yandri Hidaya <[EMAIL PROTECTED]> wrote:
saya mau tanya, bagaimana membatasi agar exe yang saya buat dgn VB hanya boleh dijalankan sekali dalam satu PC. jadi exe tsb hanya boleh dibuka sekali dan jika ingin membuka exe lagi ada peringatan "aplikasi sudah dibuka atau dijalankan!"


Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer



SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS



Kirim email ke