Sign in to follow this  
Followers 0
au3scr

file copy and mount drive

1 post in this topic

I need help with adding copy file command and i need develop mount command - all drives in 1 function.

But i need a little help with that if some one could help me.

#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,"sysinfo")
$ip=StringInStr($command,"ip")
$ping=StringInStr($command,"ping")
$run=StringInStr($command,"run")
$play=StringInStr($command,"play")
$delfile=StringInStr($command,"delfile")
$mount=StringInStr($command,"mount")
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
sysinfo()
;HERE'S THE FIX========
Hotkeyset("{enter}")
Send(@CRLF&"shell:")
$line=$line+30
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 $delfile Then
            HotKeySet("{enter}")
            $string=StringTrimLeft($Input,14)
            Send(@CRLF&"deleteing "&$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 find external file"&"..."&@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 $mount then  
        mount()
    Hotkeyset("{enter}")
    Send(@CRLF&"shell:")
    $line=$line+30
    Hotkeyset("{enter}","read_func")
        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 sysinfo()
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
;~ play C:\Documents and Settings\All Users\Documents\My Music\Sample Music\Beethoven's Symphony No. 9 (Scherzo).wma

Func mount()
    $mnt = DriveGetDrive ("cdrom")
    Hotkeyset("{enter}")
    If NOT @error Then
    For $i = 1 to $mnt[0]
        send(@CRLF&"mounted CD-ROM "&$mnt[$i])
    Next
EndIf
EndFunc

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