كود PHP:
#include <GuiConstants.au3>
$ver = "v0.2"
GuiCreate("Computer Information "&$ver, 470, 300)
$VOL = DriveGetLabel("C:\")
$SERIAL = DriveGetSerial("C:\")
$TOTAL = DriveSpaceTotal("C:\")
$FREE = DriveSpaceFree("C:\")
$ComputerName = GuiCtrlCreateLabel("Computer Name", 10, 10, 150, 20)
$Input_ComputerName = GuiCtrlCreateInput("" & @ComputerName, 180, 10, 280, 20,$ES_READONLY)
$CurrentUserName = GuiCtrlCreateLabel("Current User Name", 10, 40, 150, 20)
$Input_CurrentUserName = GuiCtrlCreateInput("" & @UserName, 180, 40, 280, 20,$ES_READONLY)
$ServicePack = GuiCtrlCreateLabel("Service Pack", 10, 70, 150, 20)
$Input_ServicePack = GuiCtrlCreateInput("" & @OSServicePack, 180, 70, 280, 20,$ES_READONLY)
$FreeSpace = GuiCtrlCreateLabel("C: Free Space", 10, 100, 150, 20)
$Input_FreeSpace = GuiCtrlCreateInput("" & $FREE & " MB", 180, 100, 280, 20,$ES_READONLY)
$IpAddress = GuiCtrlCreateLabel("Ip Address", 10, 130, 150, 20)
$Input_IpAddress = GuiCtrlCreateInput("" & @IPAddress1, 180, 130, 280, 20,$ES_READONLY)
$DesktopWidth = GuiCtrlCreateLabel("Desktop Width (Pixels)", 10, 160, 150, 20)
$Input_DesktopWidth = GuiCtrlCreateInput("" & @DesktopWidth, 180, 160, 280, 20,$ES_READONLY)
$DesktopHeight = GuiCtrlCreateLabel("Desktop Height (Pixels)", 10, 190, 150, 20)
$Input_DesktopHeight = GuiCtrlCreateInput("" & @DesktopHeight, 180, 190, 280, 20,$ES_READONLY)
$clpbrdbtn = GUICtrlCreateButton("&Copy to Clipboard", 10, 250, 100)
$savetxtbtn = GUICtrlCreateButton("&Save to a File",120,250,100)
$aboutbtn = GUICtrlCreateButton("&About",230,250,100)
GuiSetState()
While 1
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $clpbrdbtn
$tmp= "Computer Name:"&@TAB & @ComputerName &@CRLF& "Current User Name:"&_
@TAB &@UserName &@CRLF& "Service Pack:"&@TAB &@OSServicePack &@CRLF&_
"Free Space on C:"&@TAB& $FREE & " MB"&@CRLF& "Ip Address:"&@TAB &@IPAddress1 &_
@CRLF& "Desktop Width x Height (Pixels):"&@TAB &@DesktopWidth&"x"&@DesktopHeight
ClipPut($tmp)
Case $msg = $savetxtbtn
$tmp= "Computer Name:"&@TAB & @ComputerName &@CRLF& "Current User Name:"&_
@TAB &@UserName &@CRLF& "Service Pack:"&@TAB &@OSServicePack &@CRLF&_
"Free Space on C:"&@TAB& $FREE & " MB"&@CRLF& "Ip Address:"&@TAB &@IPAddress1 &_
@CRLF& "Desktop Width x Height (Pixels):"&@TAB &@DesktopWidth&"x"&@DesktopHeight
$save = FileSaveDialog( "Save As",@MyDocumentsDir, "Text Files (*.txt)", 19)
if StringRight($save,4) = ".txt" Then
$t = ""
Else
$t = ".txt"
EndIf
$fwrite = FileOpen($save & $t ,2)
FileWrite($fwrite, $tmp)
FileClose($fwrite)
Case $msg = $aboutbtn
MsgBox(0,"About this program ...","This program retrieves " &_
"some of important computer information."&_
@CRLF& @CRLF& "Done by, Well-knownQ8 and some code from Para (AU3)")
EndSelect
WEnd
Exit
Exit