Aprire il quadro VB.NET 
 2 
 Copia e incolla il seguente codice nella riga di comando , quindi premere Invio : . 
 
 Privato tipo MEMORYSTATUS 
 
 dwLength As Long 
 
 dwMemoryLoad As Long 
 
 dwTotalPhys Finché 
 
 dwAvailPhys As Long 
 
 dwTotalPageFile As 
 lunga 
 dwAvailPageFile As Long 
 
 dwTotalVirtual As Long 
 
 dwAvailVirtual As Long 
 
 End Type 
 
 private Declare Sub GlobalMemoryStatus Lib " kernel32 " _ 
 
( lpBuffer Come MEMORYSTATUS ) per
private Sub Form_Load ( ) per
 Dim MS Come MEMORYSTATUS 
 
MS.dwLength = Len (MS ) per
 GlobalMemoryStatus MS 
 
 Label1 ( 0 ) . Caption = Format $ ( MS.dwMemoryLoad , " # # # , # # # , # # # , # # # " ) & " % utilizzato " 
 
 Label1 ( 1) . Caption = Format $ ( MS.dwTotalPhys /1024 , " # # # , # # # , # # # , # # # " ) & " Kbyte " 
 
 Label1 ( 2) . Didascalia = Format $ ( MS.dwAvailPhys /1024 , " # # # , # # # , # # # , # # # " ) & " Kbyte " 
 
 Label1 ( 3) . Caption = Format $ (Ms. dwTotalPageFile /1024 , " # # # , # # # , # # # , # # # " ) & " Kbyte " 
 
 Label1 ( 4) . Caption = Format $ ( MS.dwAvailPageFile /1024 , " # # # , # # # , # # # , # # # " ) &" Kbyte " 
 
 Label1 ( 5) . Caption = Format $ ( MS.dwTotalVirtual /1024 , " # # # , # # # , # # # , # # # " ) &" Kbyte " 
 
 Label1 ( 6) . Caption = Format $ ( MS.dwAvailVirtual /1024 , " # # # , # # # , # # # , # # # " ) &" Kbyte " 
 
 End Sub 
 3 
 tipo " GlobalSystemMemory " (senza virgolette) e premere" Invio ". Questo comando ora mostrerà i dati della memoria di sistema . Digitare in qualsiasi momento per vedere la memoria , e non avrete bisogno di usare di nuovo il codice di installazione lungo . 
 
              
sistemi © www.354353.com