$answer = MsgBox(4, "InfoPc", "Questo programma mostra delle informazioni sul proprio pc. Vuoi continuare?")
If 7 $answer = Then
Sleep (500)
MsgBox(0, "Infopc", "Ok addio!")
Exit
EndIf
$mem = MemGetStats()
Sleep (500)
ProgressOn ( "InfoPc", "Recuperando Informazioni")
ProgressSet ( 100 )
Sleep (2000)
ProgressOff ()
#include <guiconstantsex.au3>
#include <staticconstants.au3>
#include <windowsconstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("InfoPc", 162, 277, 478, 31)
$Button2 = GUICtrlCreateButton("OS", 28, 94, 97, 41)
$Button1 = GUICtrlCreateButton("Esci", 28, 140, 97, 41)
$Button3 = GUICtrlCreateButton("Schermo", 29, 51, 97, 41)
$Label1 = GUICtrlCreateLabel("Creato da Matycrav", 32, 208, 97, 17)
$Label2 = GUICtrlCreateLabel("http://off-topic.forumfree.it/", 16, 240, 133, 17)
$Label3 = GUICtrlCreateLabel("PcInfo V 1.1", 48, 8, 64, 28)
GUICtrlSetFont(-1, 20, 400, 0, "Terminal")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Exit
Case $Button2
Msgbox (64, "InfoPc", "Info OS" & @CRLF & "Architettura OS= " & @OSArch & @CRLF & "Build=" & @OSBuild & @CRLF & "Service Pack=" & @OSServicePack & @CRLF & "versione OS=" & @OSVersion & @CRLF & "Tipo OS=" & @OSType & @CRLF & "Lingua OS (CODICI
www.microsoft.com/globaldev/referen...cid.mspx)" & @OSLang & @CRLF & "Nome Pc= " & @ComputerName & @CRLF & "Architettura cpu= " & @CPUArch & @CRLF & "Home Drive =" & @HomeDrive & @CRLF & "Nome-Id Utente= " & @UserName & @CRLF & "Layout tastiera =" & @KBLayout & @CRLF & "CODICI
www.microsoft.com/globaldev/reference/win2k/setup/lcid.mspx " )
Case $Button3
Msgbox (64, "InfoPc", "Info schermo" & @CRLF & "Altezza= " & @DesktopHeight & @CRLF & "Larghezza= " & @DesktopWidth & @CRLF & "Profondità= " & @DesktopDepth & @CRLF & "Refresh Rate= " & @DesktopRefresh)
EndSwitch
WEnd
