au3scr Posted October 17, 2007 Share Posted October 17, 2007 Here is something wong with diskfree command but i cant find mistake. Could some one help me please? expandcollapse popup#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 Link to comment Share on other sites More sharing options...
Valuater Posted October 17, 2007 Share Posted October 17, 2007 Use Scite Editor, it will check syntax for you and Tidy expandcollapse popup#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) Link to comment Share on other sites More sharing options...
au3scr Posted October 17, 2007 Author Share Posted October 17, 2007 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: ======================================= Link to comment Share on other sites More sharing options...
Valuater Posted October 17, 2007 Share Posted October 17, 2007 (edited) 1On the SciTe Editor - at the top PressTools > SyntaxCheck ( beta or Production); to Tidy the scriptTools > Tidy Autoit Source2you will need to change you function to something lile this, because every time you use ClipPut() it erases the previous text/infoEDIT: It appears that the text is added together Func df () EndFunc ;==>df3To read a line you need to use a count starting with "0"...please wait8) Edited October 17, 2007 by Valuater Link to comment Share on other sites More sharing options...
Valuater Posted October 17, 2007 Share Posted October 17, 2007 Working code expandcollapse popup#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) Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now