Sign in to follow this  
Followers 0
au3scr

need help a little

5 posts in this topic

Here is something wong with diskfree command but i cant find mistake.

Could some one help me please?

#include <GUIConstants.au3>
#include <GUIEdit.au3>
HotKeySet("{enter}","read_func")
$line=1
$Form1 = GUICreate("Terminal", 499, 274, 201, 116)
GUISetCursor (7)
$CommandInput = GUICtrlCreateEdit("", 0, 0, 497, 273, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
GUICtrlSetData(-1, "shell:")
GUICtrlSetFont(-1, 10, 500, 0, "Terminal")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
GUISetState(@SW_SHOW)


While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
Wend


Func read_func()
$Input=_GUICtrlEditGetLine($CommandInput,$line)
$command=StringTrimLeft($Input,6)
$Say=StringInStr($command,"say")
$Exit=StringInStr($command,"exit")
$sysinfo=StringInStr($command,"sys")
$ip=StringInStr($command,"ip")
$ping=StringInStr($command,"ping")
$run=StringInStr($command,"run")
$play=StringInStr($command,"play")
$kill=StringInStr($command,"kill")
$delfile=StringInStr($command,"delfile")
$diskfree=StringInStr($command,"diskfree")
If $Say Then
HotKeySet("{enter}")
$string=StringTrimLeft($Input,10)
Send(@CRLF&$string&@CRLF&"shell:")
$line=$line+4
Sleep(100)
Hotkeyset("{enter}","read_func")
Else
If $Exit Then
Exit
Else
if $sysinfo Then
sys()
;HERE'S THE FIX========
Hotkeyset("{enter}")
Send(@CRLF&"shell:")
$line=$line+30
Hotkeyset("{enter}","read_func")
;==========================
Else
if $diskfree Then
df()
Hotkeyset("{enter}")
Send(@CRLF&"shell:")
$line=$line+6
Hotkeyset("{enter}","read_func")
EndIf
Else   
if $kill Then
    HotKeySet("{enter}")
    $string=StringTrimLeft($Input,11)
    Send(@CRLF&"Killing "&$string&"...")   
    $PID = ProcessExists($string&".exe")
   
    If $PID Then
        ProcessClose($PID&".exe")
        Send(@CRLF&"Shell:")
        $line=$line+4
    Else
        Send(@CRLF&"FATAL ERROR: could not find progress"&"..."&@CRLF&"Shell:")
        $line=$line+6
    EndIf
    HotKeySet("{enter}","read_func")       
    Else
    If $run Then
            HotKeySet("{enter}")
            $string=StringTrimLeft($Input,10)
            Send(@CRLF&"running "&$string&"..."&@CRLF&"Shell:")
            $line=$line+4
            Sleep(100)
            HotKeySet("{enter}","read_func")           
            run($string)
            if @error Then
                HotKeySet("{enter}")
                $string=StringTrimLeft($Input,10)
                Send(@CRLF&"FATAL ERROR: could not find external program"&"..."&@CRLF&"Shell:")
                $line=$line+4
                Sleep(100)
                HotKeySet("{enter}","read_func")
            EndIf
    Else
    If $play Then
            HotKeySet("{enter}")
            $string=StringTrimLeft($Input,11)
            Send(@CRLF&"running "&$string&"..."&@CRLF&"Shell:")
            $line=$line+4
            Sleep(100)
            HotKeySet("{enter}","read_func")           
            SoundPlay($string)
            if @error Then
                HotKeySet("{enter}")
                $string=StringTrimLeft($Input,10)
                Send(@CRLF&"FATAL ERROR: could not find external program"&"..."&@CRLF&"Shell:")
                $line=$line+4
                Sleep(100)
                HotKeySet("{enter}","read_func")
            EndIf
        Else  
If $delfile Then
            HotKeySet("{enter}")
            $string=StringTrimLeft($Input,11)
            Send(@CRLF&"Deleting"&$string&"..."&@CRLF&"Shell:")
            $line=$line+4
            Sleep(100)
            HotKeySet("{enter}","read_func")           
            FileDelete($string)
            if @error Then
                HotKeySet("{enter}")
                $string=StringTrimLeft($Input,10)
                Send(@CRLF&"FATAL ERROR: could not delete file"&"..."&@CRLF&"Shell:")
                $line=$line+4
                Sleep(100)
                HotKeySet("{enter}","read_func")
            EndIf
        Else            
if $ip Then
Hotkeyset("{enter}")
Send(@CRLF&"Your IP address is :"&@IPAddress1&@CRLF&"shell:")
$line=$line+4
Sleep(100)
Hotkeyset("{enter}","read_func")
Else
Hotkeyset("{enter}")
Send(@CRLF&"'"&$command&"'"&"is not a valid command"&@CRLF&"shell:")
$line=$line+4
Sleep(100)
Hotkeyset("{enter}","read_func")
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf



EndFunc


Func sys()
Hotkeyset("{enter}")
;~ run("notepad")
$VOL = DriveGetLabel("C:\")
$SERIAL = DriveGetSerial("C:\")
$TOTAL = DriveSpaceTotal("C:\")
$FREE = DriveSpaceFree("C:\")
$FS = DriveGetFileSystem ("C:\")
;~ WinWaitActive("Untitled - Notepad")
;~ WinSetTitle("Untitled - Notepad","","system")
ClipPut(@CRLF&"monitor:")
send("^v{enter}")
ClipPut("Ekraanilaius: " & @DesktopWidth)
send("^v{enter}")
ClipPut("Ekraanikõrgus: " & @DesktopHeight)
send("^v{enter}")
ClipPut("Ekraanivärskendus: " & @DesktopRefresh)
send("^v{enter}")
ClipPut("Ekraanivärvisügavus: " & @DesktopDepth)
send("^v{enter}")
ClipPut("Arvuti ja süsteem")
send("^v{enter}")
ClipPut("Süsteemi keel: " & @OSLang)
send("^v{enter}")
ClipPut("Süsteem_tüüp: " & @OSTYPE)
send("^v{enter}")
ClipPut("Süsteem_versioon: " & @OSVersion)
send("^v{enter}")
ClipPut("Süsteem_ehitus: " & @OSBuild)
send("^v{enter}")
ClipPut("Süsteem_SP: " & @OSServicePack)
send("^v{enter}")
ClipPut("Klaviatuuri paigutus: " & @KBLayout)
send("^v{enter}")
ClipPut("Protsessori arhidektuur: " & @ProcessorArch)
send("^v{enter}")
ClipPut("Arvuti nimi: " & @ComputerName)
send("^v{enter}")
ClipPut("Hetkel aktiivne kasutaja: " & @UserName)
send("^v{enter}")
ClipPut("windows on kataloogis: " & @WindowsDir)
send("^v{enter}")
ClipPut("Windows on kettal: " & @HomeDrive)
send("^v{enter}")
ClipPut("Kasutaja profiilid: " & @UserProfileDir)
send("^v{enter}")
ClipPut("start menüü: " & @StartMenuDir)
send("^v{enter}")
ClipPut("töölaua asukoht: " & @DesktopDir)
send("^v{enter}")
ClipPut("start menüü: " & @StartMenuDir)
send("^v{enter}")
ClipPut("ketta C:\ nimetus: " & $VOL)
send("^v{enter}")
ClipPut("ketta C:\ kogu suurus: " & $Total)
send("^v{enter}")
ClipPut("ketta C:\ vabaruum: " & $FREE)
send("^v{enter}")
ClipPut("ketta C:\ serialli nr: " & $SERIAL)
send("^v{enter}")
ClipPut("ketta C:\ failisüsteem: " & $FS)
send("^v{enter}")
ClipPut("IP aadress on: " & @IPAddress1 )
send("^v{enter}")
HotKeySet("{enter}","read_func")
EndFunc

Func df()
Hotkeyset("{enter}")
;~ run("notepad")
$VOL = DriveGetLabel("C:\")
$SERIAL = DriveGetSerial("C:\")
$TOTAL = DriveSpaceTotal("C:\")
$FREE = DriveSpaceFree("C:\")
$FS = DriveGetFileSystem ("C:\")
ClipPut("Volume Label " & $VOL)
send("^v{enter}")
ClipPut("Total size of C:\ " & $Total)
send("^v{enter}")
ClipPut("Free space on C: " & $FREE)
send("^v{enter}")
ClipPut("Disk C:\ S\N " & $SERIAL)
send("^v{enter}")
ClipPut("Drive C\: File System " & $FS)
send("^v{enter}")
HotKeySet("{enter}","read_func")
EndFunc

Share this post


Link to post
Share on other sites



Use Scite Editor, it will check syntax for you and Tidy

#include <GUIConstants.au3>
 #include <GUIEdit.au3>
 HotKeySet("{enter}", "read_func")
 $line = 1
 $Form1 = GUICreate("Terminal", 499, 274, 201, 116)
 GUISetCursor(7)
 $CommandInput = GUICtrlCreateEdit("", 0, 0, 497, 273, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN, $WS_VSCROLL))
 GUICtrlSetData(-1, "shell:")
 GUICtrlSetFont(-1, 10, 500, 0, "Terminal")
 GUICtrlSetColor(-1, 0xFFFFFF)
 GUICtrlSetBkColor(-1, 0x000000)
 GUISetState(@SW_SHOW)
 While 1
     $msg = GUIGetMsg()
     Switch $msg
         Case $GUI_EVENT_CLOSE
             Exit
     EndSwitch
 WEnd
 Func read_func()
     $Input = _GUICtrlEditGetLine($CommandInput, $line)
     $command = StringTrimLeft($Input, 6)
     $Say = StringInStr($command, "say")
     $Exit = StringInStr($command, "exit")
     $sysinfo = StringInStr($command, "sys")
     $ip = StringInStr($command, "ip")
     $ping = StringInStr($command, "ping")
     $run = StringInStr($command, "run")
     $play = StringInStr($command, "play")
     $kill = StringInStr($command, "kill")
     $delfile = StringInStr($command, "delfile")
     $diskfree = StringInStr($command, "diskfree")
     If $Say Then
         HotKeySet("{enter}")
         $string = StringTrimLeft($Input, 10)
         Send(@CRLF & $string & @CRLF & "shell:")
         $line = $line + 4
         Sleep(100)
         HotKeySet("{enter}", "read_func")
     Else
         If $Exit Then
             Exit
         Else
             If $sysinfo Then
                 sys()
                 ;HERE'S THE FIX========
                 HotKeySet("{enter}")
                 Send(@CRLF & "shell:")
                 $line = $line + 30
                 HotKeySet("{enter}", "read_func")
                 ;==========================
             Else
                 If $diskfree Then
                     df()
                     HotKeySet("{enter}")
                     Send(@CRLF & "shell:")
                     $line = $line + 6
                     HotKeySet("{enter}", "read_func")
                 EndIf
                 If $kill Then
                     HotKeySet("{enter}")
                     $string = StringTrimLeft($Input, 11)
                     Send(@CRLF & "Killing " & $string & "...")
                     $PID = ProcessExists($string & ".exe")
                     If $PID Then
                         ProcessClose($PID & ".exe")
                         Send(@CRLF & "Shell:")
                         $line = $line + 4
                     Else
                         Send(@CRLF & "FATAL ERROR: could not find progress" & "..." & @CRLF & "Shell:")
                         $line = $line + 6
                     EndIf
                     HotKeySet("{enter}", "read_func")
                 Else
                     If $run Then
                         HotKeySet("{enter}")
                         $string = StringTrimLeft($Input, 10)
                         Send(@CRLF & "running " & $string & "..." & @CRLF & "Shell:")
                         $line = $line + 4
                         Sleep(100)
                         HotKeySet("{enter}", "read_func")
                         Run($string)
                         If @error Then
                             HotKeySet("{enter}")
                             $string = StringTrimLeft($Input, 10)
                             Send(@CRLF & "FATAL ERROR: could not find external program" & "..." & @CRLF & "Shell:")
                             $line = $line + 4
                             Sleep(100)
                             HotKeySet("{enter}", "read_func")
                         EndIf
                     Else
                         If $play Then
                             HotKeySet("{enter}")
                             $string = StringTrimLeft($Input, 11)
                             Send(@CRLF & "running " & $string & "..." & @CRLF & "Shell:")
                             $line = $line + 4
                             Sleep(100)
                             HotKeySet("{enter}", "read_func")
                             SoundPlay($string)
                             If @error Then
                                 HotKeySet("{enter}")
                                 $string = StringTrimLeft($Input, 10)
                                 Send(@CRLF & "FATAL ERROR: could not find external program" & "..." & @CRLF & "Shell:")
                                 $line = $line + 4
                                 Sleep(100)
                                 HotKeySet("{enter}", "read_func")
                             EndIf
                         Else
                             If $delfile Then
                                 HotKeySet("{enter}")
                                 $string = StringTrimLeft($Input, 11)
                                 Send(@CRLF & "Deleting" & $string & "..." & @CRLF & "Shell:")
                                 $line = $line + 4
                                 Sleep(100)
                                 HotKeySet("{enter}", "read_func")
                                 FileDelete($string)
                                 If @error Then
                                     HotKeySet("{enter}")
                                     $string = StringTrimLeft($Input, 10)
                                     Send(@CRLF & "FATAL ERROR: could not delete file" & "..." & @CRLF & "Shell:")
                                     $line = $line + 4
                                     Sleep(100)
                                     HotKeySet("{enter}", "read_func")
                                 EndIf
                             Else
                                 If $ip Then
                                     HotKeySet("{enter}")
                                     Send(@CRLF & "Your IP address is :" & @IPAddress1 & @CRLF & "shell:")
                                     $line = $line + 4
                                     Sleep(100)
                                     HotKeySet("{enter}", "read_func")
                                 Else
                                     HotKeySet("{enter}")
                                     Send(@CRLF & "'" & $command & "'" & "is not a valid command" & @CRLF & "shell:")
                                     $line = $line + 4
                                     Sleep(100)
                                     HotKeySet("{enter}", "read_func")
                                 EndIf
                             EndIf
                         EndIf
                     EndIf
                 EndIf
             EndIf
         EndIf
     EndIf
 EndFunc   ;==>read_func
 Func sys()
     HotKeySet("{enter}")
 ;~ run("notepad")
     $VOL = DriveGetLabel("C:\")
     $SERIAL = DriveGetSerial("C:\")
     $TOTAL = DriveSpaceTotal("C:\")
     $FREE = DriveSpaceFree("C:\")
     $FS = DriveGetFileSystem("C:\")
 ;~ WinWaitActive("Untitled - Notepad")
 ;~ WinSetTitle("Untitled - Notepad","","system")
     ClipPut(@CRLF & "monitor:")
     Send("^v{enter}")
     ClipPut("Ekraanilaius: " & @DesktopWidth)
     Send("^v{enter}")
     ClipPut("Ekraanikõrgus: " & @DesktopHeight)
     Send("^v{enter}")
     ClipPut("Ekraanivärskendus: " & @DesktopRefresh)
     Send("^v{enter}")
     ClipPut("Ekraanivärvisügavus: " & @DesktopDepth)
     Send("^v{enter}")
     ClipPut("Arvuti ja süsteem")
     Send("^v{enter}")
     ClipPut("Süsteemi keel: " & @OSLang)
     Send("^v{enter}")
     ClipPut("Süsteem_tüüp: " & @OSTYPE)
     Send("^v{enter}")
     ClipPut("Süsteem_versioon: " & @OSVersion)
     Send("^v{enter}")
     ClipPut("Süsteem_ehitus: " & @OSBuild)
     Send("^v{enter}")
     ClipPut("Süsteem_SP: " & @OSServicePack)
     Send("^v{enter}")
     ClipPut("Klaviatuuri paigutus: " & @KBLayout)
     Send("^v{enter}")
     ClipPut("Protsessori arhidektuur: " & @ProcessorArch)
     Send("^v{enter}")
     ClipPut("Arvuti nimi: " & @ComputerName)
     Send("^v{enter}")
     ClipPut("Hetkel aktiivne kasutaja: " & @UserName)
     Send("^v{enter}")
     ClipPut("windows on kataloogis: " & @WindowsDir)
     Send("^v{enter}")
     ClipPut("Windows on kettal: " & @HomeDrive)
     Send("^v{enter}")
     ClipPut("Kasutaja profiilid: " & @UserProfileDir)
     Send("^v{enter}")
     ClipPut("start menüü: " & @StartMenuDir)
     Send("^v{enter}")
     ClipPut("töölaua asukoht: " & @DesktopDir)
     Send("^v{enter}")
     ClipPut("start menüü: " & @StartMenuDir)
     Send("^v{enter}")
     ClipPut("ketta C:\ nimetus: " & $VOL)
     Send("^v{enter}")
     ClipPut("ketta C:\ kogu suurus: " & $TOTAL)
     Send("^v{enter}")
     ClipPut("ketta C:\ vabaruum: " & $FREE)
     Send("^v{enter}")
     ClipPut("ketta C:\ serialli nr: " & $SERIAL)
     Send("^v{enter}")
     ClipPut("ketta C:\ failisüsteem: " & $FS)
     Send("^v{enter}")
     ClipPut("IP aadress on: " & @IPAddress1)
     Send("^v{enter}")
     HotKeySet("{enter}", "read_func")
 EndFunc   ;==>sys
 Func df()
     HotKeySet("{enter}")
 ;~ run("notepad")
     $VOL = DriveGetLabel("C:\")
     $SERIAL = DriveGetSerial("C:\")
     $TOTAL = DriveSpaceTotal("C:\")
     $FREE = DriveSpaceFree("C:\")
     $FS = DriveGetFileSystem("C:\")
     ClipPut("Volume Label " & $VOL)
     Send("^v{enter}")
     ClipPut("Total size of C:\ " & $TOTAL)
     Send("^v{enter}")
     ClipPut("Free space on C: " & $FREE)
     Send("^v{enter}")
     ClipPut("Disk C:\ S\N " & $SERIAL)
     Send("^v{enter}")
     ClipPut("Drive C\: File System " & $FS)
     Send("^v{enter}")
     HotKeySet("{enter}", "read_func")
 EndFunc   ;==>df

there was an extra "Else" statement

8)


NEWHeader1.png

Share this post


Link to post
Share on other sites

Thanks a lot for help but i cant use next commands after i used diskfree command.

And one question more . how I make editor tocheck syntax for me and Tidy

========================================

shell:diskfreeVolume Label

Total size of C:\ 10228.85546875

Free space on C: 4033.48828125

Disk C:\ S\N 2823038420

Drive C\: File System NTFS

shell:

'diskfree'is not a valid command

shell:

=======================================


Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

1

On the SciTe Editor - at the top Press

Tools > SyntaxCheck ( beta or Production)

; to Tidy the script

Tools > Tidy Autoit Source

2

you will need to change you function to something lile this, because every time you use ClipPut() it erases the previous text/info

EDIT: It appears that the text is added together

Func df ()
  
EndFunc   ;==>df

3

To read a line you need to use a count starting with "0"

...please wait

8)

Edited by Valuater

NEWHeader1.png

Share this post


Link to post
Share on other sites

Working code

#include <GUIConstants.au3>
#include <GUIEdit.au3>
HotKeySet("{enter}", "read_func")
$line = 1
$Form1 = GUICreate("Terminal", 499, 274, 201, 116)
GUISetCursor(7)
$CommandInput = GUICtrlCreateEdit("", 0, 0, 497, 273, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN, $WS_VSCROLL))
GUICtrlSetData(-1, "shell:")
GUICtrlSetFont(-1, 10, 500, 0, "Terminal")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x000000)
GUISetState(@SW_SHOW)
While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd
Func read_func ()
    $line = _GUICtrlEdit_GetLineCount ($CommandInput) - 1
    $Input = _GUICtrlEdit_GetLine ($CommandInput, $line)
    $command = StringTrimLeft($Input, 6)
    $Say = StringInStr($command, "say")
    $Exit = StringInStr($command, "exit")
    $sysinfo = StringInStr($command, "sys")
    $ip = StringInStr($command, "ip")
    $ping = StringInStr($command, "ping")
    $run = StringInStr($command, "run")
    $play = StringInStr($command, "play")
    $kill = StringInStr($command, "kill")
    $delfile = StringInStr($command, "delfile")
    $diskfree = StringInStr($command, "diskfree")
    If $Say Then
        HotKeySet("{enter}")
        $string = StringTrimLeft($Input, 10)
        Send(@CRLF & $string & @CRLF & "shell:")
        $line = $line + 4
        Sleep(100)
        HotKeySet("{enter}", "read_func")
    Else
        If $Exit Then
            Exit
        Else
            If $sysinfo Then
                sys ()
                ;HERE'S THE FIX========
                HotKeySet("{enter}")
                Send(@CRLF & "shell:")
                $line = $line + 30
                HotKeySet("{enter}", "read_func")
                ;==========================
            Else
                If $diskfree Then
                    df()
                    HotKeySet("{enter}")
                    Send(@CRLF & "shell:")
                    $line = $line + 6
                    HotKeySet("{enter}", "read_func")
                EndIf
                If $kill Then
                    HotKeySet("{enter}")
                    $string = StringTrimLeft($Input, 11)
                    Send(@CRLF & "Killing " & $string & "...")
                    $PID = ProcessExists($string & ".exe")
                    If $PID Then
                        ProcessClose($PID & ".exe")
                        Send(@CRLF & "Shell:")
                        $line = $line + 4
                    Else
                        Send(@CRLF & "FATAL ERROR: could not find progress" & "..." & @CRLF & "Shell:")
                        $line = $line + 6
                    EndIf
                    HotKeySet("{enter}", "read_func")
                Else
                    If $run Then
                        HotKeySet("{enter}")
                        $string = StringTrimLeft($Input, 10)
                        Send(@CRLF & "running " & $string & "..." & @CRLF & "Shell:")
                        $line = $line + 4
                        Sleep(100)
                        HotKeySet("{enter}", "read_func")
                        Run($string)
                        If @error Then
                            HotKeySet("{enter}")
                            $string = StringTrimLeft($Input, 10)
                            Send(@CRLF & "FATAL ERROR: could not find external program" & "..." & @CRLF & "Shell:")
                            $line = $line + 4
                            Sleep(100)
                            HotKeySet("{enter}", "read_func")
                        EndIf
                    Else
                        If $play Then
                            HotKeySet("{enter}")
                            $string = StringTrimLeft($Input, 11)
                            Send(@CRLF & "running " & $string & "..." & @CRLF & "Shell:")
                            $line = $line + 4
                            Sleep(100)
                            HotKeySet("{enter}", "read_func")
                            SoundPlay($string)
                            If @error Then
                                HotKeySet("{enter}")
                                $string = StringTrimLeft($Input, 10)
                                Send(@CRLF & "FATAL ERROR: could not find external program" & "..." & @CRLF & "Shell:")
                                $line = $line + 4
                                Sleep(100)
                                HotKeySet("{enter}", "read_func")
                            EndIf
                        Else
                            If $delfile Then
                                HotKeySet("{enter}")
                                $string = StringTrimLeft($Input, 11)
                                Send(@CRLF & "Deleting" & $string & "..." & @CRLF & "Shell:")
                                $line = $line + 4
                                Sleep(100)
                                HotKeySet("{enter}", "read_func")
                                FileDelete($string)
                                If @error Then
                                    HotKeySet("{enter}")
                                    $string = StringTrimLeft($Input, 10)
                                    Send(@CRLF & "FATAL ERROR: could not delete file" & "..." & @CRLF & "Shell:")
                                    $line = $line + 4
                                    Sleep(100)
                                    HotKeySet("{enter}", "read_func")
                                EndIf
                            Else
                                If $ip Then
                                    HotKeySet("{enter}")
                                    Send(@CRLF & "Your IP address is :" & @IPAddress1 & @CRLF & "shell:")
                                    $line = $line + 4
                                    Sleep(100)
                                    HotKeySet("{enter}", "read_func")
                                Else
                                    HotKeySet("{enter}")
                                    Send(@CRLF & "'" & $command & "'" & "is not a valid command" & @CRLF & "shell:")
                                    $line = $line + 4
                                    Sleep(100)
                                    HotKeySet("{enter}", "read_func")
                                EndIf
                            EndIf
                        EndIf
                    EndIf
                EndIf
            EndIf
        EndIf
    EndIf
EndFunc   ;==>read_func
Func sys ()
    HotKeySet("{enter}")
;~ run("notepad")
    $VOL = DriveGetLabel("C:\")
    $SERIAL = DriveGetSerial("C:\")
    $TOTAL = DriveSpaceTotal("C:\")
    $FREE = DriveSpaceFree("C:\")
    $FS = DriveGetFileSystem("C:\")
;~ WinWaitActive("Untitled - Notepad")
;~ WinSetTitle("Untitled - Notepad","","system")
    ClipPut(@CRLF & "monitor:")
    Send("^v{enter}")
    ClipPut("Ekraanilaius: " & @DesktopWidth)
    Send("^v{enter}")
    ClipPut("Ekraanikõrgus: " & @DesktopHeight)
    Send("^v{enter}")
    ClipPut("Ekraanivärskendus: " & @DesktopRefresh)
    Send("^v{enter}")
    ClipPut("Ekraanivärvisügavus: " & @DesktopDepth)
    Send("^v{enter}")
    ClipPut("Arvuti ja süsteem")
    Send("^v{enter}")
    ClipPut("Süsteemi keel: " & @OSLang)
    Send("^v{enter}")
    ClipPut("Süsteem_tüüp: " & @OSTYPE)
    Send("^v{enter}")
    ClipPut("Süsteem_versioon: " & @OSVersion)
    Send("^v{enter}")
    ClipPut("Süsteem_ehitus: " & @OSBuild)
    Send("^v{enter}")
    ClipPut("Süsteem_SP: " & @OSServicePack)
    Send("^v{enter}")
    ClipPut("Klaviatuuri paigutus: " & @KBLayout)
    Send("^v{enter}")
    ClipPut("Protsessori arhidektuur: " & @ProcessorArch)
    Send("^v{enter}")
    ClipPut("Arvuti nimi: " & @ComputerName)
    Send("^v{enter}")
    ClipPut("Hetkel aktiivne kasutaja: " & @UserName)
    Send("^v{enter}")
    ClipPut("windows on kataloogis: " & @WindowsDir)
    Send("^v{enter}")
    ClipPut("Windows on kettal: " & @HomeDrive)
    Send("^v{enter}")
    ClipPut("Kasutaja profiilid: " & @UserProfileDir)
    Send("^v{enter}")
    ClipPut("start menüü: " & @StartMenuDir)
    Send("^v{enter}")
    ClipPut("töölaua asukoht: " & @DesktopDir)
    Send("^v{enter}")
    ClipPut("start menüü: " & @StartMenuDir)
    Send("^v{enter}")
    ClipPut("ketta C:\ nimetus: " & $VOL)
    Send("^v{enter}")
    ClipPut("ketta C:\ kogu suurus: " & $TOTAL)
    Send("^v{enter}")
    ClipPut("ketta C:\ vabaruum: " & $FREE)
    Send("^v{enter}")
    ClipPut("ketta C:\ serialli nr: " & $SERIAL)
    Send("^v{enter}")
    ClipPut("ketta C:\ failisüsteem: " & $FS)
    Send("^v{enter}")
    ClipPut("IP aadress on: " & @IPAddress1)
    Send("^v{enter}")
    HotKeySet("{enter}", "read_func")
EndFunc   ;==>sys
Func df()
    HotKeySet("{enter}")
;~ run("notepad")
    $VOL = DriveGetLabel("C:\")
    $SERIAL = DriveGetSerial("C:\")
    $TOTAL = DriveSpaceTotal("C:\")
    $FREE = DriveSpaceFree("C:\")
    $FS = DriveGetFileSystem("C:\")
    ClipPut("Volume Label " & $VOL)
    Send("^v{enter}")
    ClipPut("Total size of C:\ " & $TOTAL)
    Send("^v{enter}")
    ClipPut("Free space on C: " & $FREE)
    Send("^v{enter}")
    ClipPut("Disk C:\ S\N " & $SERIAL)
    Send("^v{enter}")
    ClipPut("Drive C\: File System " & $FS)
    Send("^v{enter}")
    HotKeySet("{enter}", "read_func")
EndFunc   ;==>df

8)


NEWHeader1.png

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0