Pembatasan pemakaian program

/* ————————————————————-
Program…….: Pembatasan jumlah pemanggilan program
Title………: Demo Pembatasan Pemakaian Aplikasi Clipper
by….: Armansyah
Tools………: Microsoft Editor 6.22
CA-Clipper 5.2
Blinker 4.00
Norton Edit 8.0
Edisi Revisi..: 30/06/1997
————————————————————- */

#include “Fileio.Ch”
#define MAX_PAKAI 3
#define POS_DATA 146443

Local cData := “000”
Local nData := val( cData )
Local nFHandle, nAksi
Local cFileName := procname() + “.EXE”
SetCancel(.F.)

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
* Membuat jebakan pada saat pemanggilan
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

Parameter prom1, prom2
Jebak1= “Maaf … Anda tidak punya hak u/. mengakses program ini !”
Jebak2= ” ”

If pcount() <>

? Jebak1
? Jebak2

Quit

elseif upper(prom1) <> “IBA” .and. upper(prom2) <> “97”
? Jebak
Quit
endif

if ( nData == MAX_PAKAI )
?”Maaf, Program PMB ini sudah -Out to date- ”
?”Silahkan hubungi ” + HakCipta() +” untuk mendapatkan versi UpGrade ”
? Phone()
?” ”
Return
endif

nFHandle := fopen( cFileName, FO_WRITE )

Do while ferror() <> 0
nAksi := alert( “Kesalahan pada disk dengan kode = ” + ;
ltrim( str( ferror() ) ), { “Ulangi”, “Batalkan” } )
If ( nAksi == 2 ) .or. ( nAksi == 0 )
?”Eksekusi aplikasi ini dibatalkan, Sorry MangCek !”
?”Makonyo jangan galak baseng bae ngerubah punyo wong ”
?”Ngomong dulu lah samo ” + HakCipta() + ” kalu nak ngerubah file ini !”
?” ”
Return
Endif
nFHandle := fopen( cFileName, FO_WRITE )
Enddo

Fseek( nFHandle, POS_DATA )
cData := str( ++nData, len( cData ) )
fWrite( nFHandle, cData )

Do while ferror() <> 0
nAksi := alert( “Kesalahan pada disk dengan kode = ” + ;
ltrim( str( ferror() ) ), { “Ulangi”, “Batalkan” } )
If ( nAksi == 2 ) .or. ( nAksi == 0 )
fclose( nFHandle )
?”Eksekusi aplikasi ini dibatalkan, Sorry MangCek !”
?”Makonyo jangan galak baseng bae ngopi punyo wong ”
?”Ngomong dulu lah samo ” + HakCipta() + ” kalu nak ngopi !”
?” ”
return
Endif
fWrite( nFHandle, cData )
Enddo
fClose( nFHandle )

Do Iba

* -=-=-=-=-=-=-=-=-=-=-=-=-
* CopyRight(C:) Armansyah
* -=-=-=-=-=-=-=-=-=-=–=-=

Contoh Tampilan :

Saat user langsung mengetik nama program (misalnya disini : pmb.exe) maka program akan langsung mengeluarkan pesan kesalahan.

Program baru bisa jalan bila user mengetik nama file : pmb iba 97
Ini juga berlaku untuk modus windows (artinya program tidak dapat jalan meskipun diklik oleh mouse)

Categories: Clipper | Tinggalkan komentar

Navigasi pos

Tinggalkan Balasan

Please log in using one of these methods to post your comment:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Buat situs web atau blog gratis di WordPress.com.

%d blogger menyukai ini: