Autoit脚本调用pscp上传小程序

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

linux上传文件用pscp上传相对麻烦,如下写了个脚本方便上传

代码如下:

$fileURL=@ScriptDir & "pscp.ini"

If (FileExists($fileURL)==0)Then

IniWrite($fileURL,"Sever","IP","192.168.1.1")

IniWrite($fileURL,"Sever","user","root")

IniWrite($fileURL,"Sever","password","")

IniWrite($fileURL,"Sever","DesFolder","/home")

EndIf

$desvalue=IniRead($fileURL,"Sever","DesFolder","/home")

$IPvalue=IniRead($fileURL,"Sever","IP","192.168.1.1")

$uservalue=IniRead($fileURL,"Sever","user","root")

$passwordvalue=IniRead($fileURL,"Sever","password","")

$newdesvalue=InputBox("服务器:"&$IPvalue,"请输入要上传到服务器的目录",$desvalue)

IniWrite($fileURL,"Sever","DesFolder",$newdesvalue)

$var = FileOpenDialog("选择文件.", @DesktopDir & "\", "所有文件(*.*)", 1)

If @error Then

    MsgBox(4096,"","没有选择文件!")

Else

    If (MsgBox(1,"上传文件","你是否要上传:" & $var)==1)Then

        MsgBox(4096,"",$var)

        Run(@ScriptDir&"\pscp -l "&$uservalue&" -pw "&$passwordvalue&" -p 22 "&$var&" "&$IPvalue&":"&$newdesvalue)

        EndIf

EndIf