=====================================
名前：FTPアップ君
版：web 1.0
用途：もの凄～い暇な人が、EmEditorからFTPを呼び出してアップロードして遊ぶ用
コメント：マクロに直接書き込んじゃえば少しは実用性あるかも。
=====================================
/*****************************************
____ _ _ ____ ___ _ _____ ___ ___
|___ | /| |___ | | | | | | |__|
|___ | | |___ |__/ | | |___| | |
_ _ _ ___ ___ ___ ___
| /| /_| | |__| | | |___
| | | | |___ | | |___| ____|
******************************************/
var ftphost = prompt( “ホスト名を入力して下さい”, “” );
var user = prompt( “ユーザ名を入力して下さい”,””);
var pass = prompt(“パスワードを入力して下さい”,””);
var ans = confirm( “今開いているファイルを保存し、アップロードを開始します。n動作終了までキー操作をしないで下さい。” );
if(ans != true) Quit();
try{
document.Save();
}catch(e){
alert(“処理は中断しました”);
}
var filepath = document.FullName;
WshShell = new ActiveXObject( “WScript.Shell” );
WshShell.Run( “ftp.exe” );
Sleep( 1000 );
WshShell.SendKeys( “o{ENTER}” );
Sleep( 200);
WshShell.SendKeys( ftphost );
Sleep( 200 );
WshShell.SendKeys( “{ENTER}” );
Sleep( 200 );
WshShell.SendKeys( user + “{ENTER}” );
Sleep( 200 );
WshShell.SendKeys( pass + “{ENTER}” );
Sleep( 200 );
WshShell.SendKeys( “put ” + filepath + “{ENTER}” );
Sleep( 200 );
WshShell.SendKeys( “bye{ENTER}” );