Muhammad Ikhsan’s Blog

Ayo siapa mo beli…

Ampe medan berapa mas..

Cari 10 Perbedaan antara pa’ Mua dan pa’ Ishak..

Declare Function SwapMouseButton& Lib “user32″ (ByVal bSwap as long) To swap the mouse buttons, call this function with the variable bSwap = True. Set bSwap to False to restore normal operation.

Untuk mencari tahu jumlah memori yang tidak terpakai anda bisa menggunakan fungsi API GlobalMemoryStatus. Public Type MEMORYSTATUS
dwLength As Long
dwMemoryLoad As Long
dwTotalPhys As Long
dwAvailPhys As Long
dwTotalPageFile As Long
dwAvailPageFile As Long
dwTotalVirtual As Long
dwAvailVirtual As Long
End Type Public Declare Sub GlobalMemoryStatus _
Lib “kernel32″ (lpBuffer As MEMORYSTATUS) Now, add this code to get the values: Dim MS As MEMORYSTATUS
MS.dwLength = Len(MS)
GlobalMemoryStatus MS ‘ MS.dwMemoryLoad contains percentage memory used
‘ MS.dwTotalPhys contains total amount of physical memory in bytes
‘ MS.dwAvailPhys contains available physical memory
‘ MS.dwTotalPageFile contains total amount of memory in the page file
‘ MS.dwAvailPageFile contains available amount of memory in the page file
‘ MS.dwTotalVirtual contains total amount of virtual memory
‘ MS.dwAvailVirtual contains available virtual memory