Membuat form transparan pada MS visual foxpro

Add Comment

Untuk mempercantik tampilan program dengan menggunakan microsoft visual foxpro maka tampilan form form bisa di permak menjadi form transparan.

Mendapatkan Processor Id komputer dengan menggunakan MS visual foxpro 9.0

Add Comment
Mendapatkan Processor Id komputer dengan menggunakan MS visual foxpro 9.0
kali ini saya akan sharing koding untuk mendapatkan Processor Id komputer dengan visual foxpro
----------

FUNCTION GetProcID
LOCAL lcComputerName, loWMI, lowmiWin32Objects, lowmiWin32Object,ProcessorId
lcComputerName = GETWORDNUM(SYS(0),1)
loWMI = GETOBJECT("WinMgmts://" + lcComputerName)
lowmiWin32Objects = loWMI.InstancesOf("Win32_Processor")
FOR EACH lowmiWin32Object IN lowmiWin32Objects
WITH lowmiWin32Object
ProcessorId=TRANSFORM(.ProcessorId)
ENDWITH
ENDFOR
RETURN ProcessorId
----------

koding di atas adalah kelanjutan dari mendapatkan serial number hardisk dan bisa di kombinasikan untuk membuat serial number software

selamat mencoba!

Mendapatkan serial number hardisk dengan MS. visual foxpro 9.0

Add Comment
Mendapatkan serial number hardisk dengan MS. visual foxpro 9.0
Koding untuk mendapatkan serial number hardisk dengan visual foxpro
---------------------------------

IF PCOUNT()=0
drvPath = "C:"
ENDIF
LOCAL FS,F1,cSerial
drvPath = IIF(LEN(drvPath)=1,drvPath+":",drvPath)
fs = CreateObject("Scripting.FileSystemObject")
f1 = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvPath)))
cSerial = f1.SerialNumber
RELEASE fs,f1
a=RIGHT(TRANSFORM(cSerial, "@0"), 8)
?a

---------------------------------

dengan mendapatkan serial number hardisk maka dapat diterapkan pada pembuatan serial number software

silahkan mencoba !

Disable port USB flashdisk menggunakan DISABLE USB FREE

Add Comment

Software disable usb free buatan intelliadmin digunakan untuk mendisable mass storage usb flashdisk.