au3scr Posted October 17, 2007 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
Valuater Posted October 17, 2007 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)
au3scr Posted October 17, 2007 Author 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: =======================================
Valuater Posted October 17, 2007 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
Valuater Posted October 17, 2007 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)
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