使用hta解析网页，并上传结果至FTP

越茗雪

　　HTA介绍详见http://en.wikipedia.org/wiki/HTML_Application

　　
　　本文分三部分，记录了碰到的问题与解决方法
　　一、HTA编写。
　　利用HTA进行解析网页信息，类似的工具应该不少，之所以使用hta 主要是由于轻量级，容易执行。但是由于使用比较少，处理问题时碰到的问题比较多：
　　
　　1. 判断网页是否打开(更多需求参照 selenium实现)
　　一般开发web页面时，常用的页面事件为body的onload，或者Jquery插件的$(document).ready(). 但是在HTA中你无法通过打开页面的body来注册事件，因为无法预知body对象是否已经创建或者onload结束了。下面是我的处理，
　　

function doWaitPageLoad(objName,functionName){
setTimeout("detectWaitPageLoad('"+objName+"','"+functionName+"')", 1000);
}
function detectWaitPageLoad(objName,functionName){
var obj = execCmd(objName);
if(obj.childwin && obj.childwin.document && obj.childwin.document.readyState=='complete'){
execCmd(objName+'.'+functionName+'()');
}
else{
setTimeout("detectWaitPageLoad('"+objName+"','"+functionName+"')",500);
}
}
function execCmd(cmd){
return eval("("+cmd+")");
}
　　此处理的核心部分就是，
　　        obj.childwin && obj.childwin.document && obj.childwin.document.readyState
，

　　 obj.chidwin
就是你打开的窗口对象，
obj.childwin = window.open(url, "childwin");
　　
　　2. ActiveXObject调用
　　

function saveFile(strFullPath, strContent) {
var fso = new ActiveXObject( "Scripting.FileSystemObject" );
var flOutput = fso.CreateTextFile( strFullPath, true );
flOutput.Write( strContent );
flOutput.Close();
}
function deleteFile(strFullPath){
var deleteFileObject = new ActiveXObject( "Scripting.FileSystemObject" );
if(deleteFileObject.FileExists( strFullPath)){
delefilepath=deleteFileObject.GetFile(strFullPath);
delefilepath.Delete ();
}
}
function saveFileWithUTF(strFullPath,strContent){
deleteFile(strFullPath);
var fso = new ActiveXObject("adodb.stream");
fso.Type = 2;
fso.mode = 3;
fso.charset = "utf-8";
fso.open();
fso.WriteText(strContent);
fso.SaveToFile(strFullPath);
fso.Close();
}
function uploadToFTP(){
var shellScript = new ActiveXObject( "WScript.Shell" );
//shellScript.Run("cmd.exe 'fileupload.bat'");
shellScript.Run("fileuploadwithscriptftp.bat");
}
　　1） 保存js文件，第一种方式
Scripting.FileSystemObject无法指定文件编码格式，然后换成了
adodb.stream定义成特定格式UTF-8编码进行保存文件

　　
　　2）执行bat脚本使用WScript.Shell。

　　
　　二、上传ftp
　　尝试了好几种方式，最终使用了破解付费软件才搞定：
　　1. 第一次使用MS-DOS的ftp， 结果因为ftp服务器使用的是PASV模式，无法建立数据通道
　　
　　@echo open www.example.com>>t
　　@echo accountName>>t
　　@echo password>>t
　　@echo cd serverPath>>t
　　@echo ascii>>t
　　@echo literal pasv>>t
　　@echo put localfile>>t
　　@echo bye>>t
　　@ftp -i -s:t
　　@del t




2. 使用LFTP for window版本，结果可能是因为ftp server精致ssl连接导致还是上传失败，

XX.bat

lftp\lftp.exe -f yourscriptfile





yourscriptfile：

open -u 'accout name','password' ftp.example.com


cd yourserverpath


lcd localpath


mput *


quit



　　
　　3. 最后使用ScriptFTP, 貌似很顺畅
　　XX.bat
　　ScriptFTP\ScriptFTP_console.exe upload.ftp

　　
　　upload.ftp
　　
　　# Connect to FTP server

　　OPENHOST("ftp.example.com","username","password")

　　

　　# Change current remote directory to

　　CHDIR("/server path")

　　

　　# Send all the files and subdirectories in C:\MyDir to the server

　　PUTFILE("dir\*.*",SUBDIRS)

　　

　　# Transfer finished, close the connection

　　CLOSEHOST

　　
　　三、添加至window tasks
　　待续....