このコードが実行されないのはなぜですか?
PHP 経由で vbs スクリプトを呼び出して、vbs Thunder を単独で実行してダウンロードします。
PHP コードは次のとおりです。
define('ROOT', dirname(__FILE__).'/');
define('vbs', ROOT.'cmccapp_down .vbs' );
$rs = array();
$file = 'http://www.baidu.com/img/baidu_sylogo1.gif';
if(!is_file($file) ){
$name = Basename($file);
$rs = array($file, $name, 'http://www.cmccapp.com/');
$content = file_get_contents( vbs);
preg_match_all('#"([^"]+)",#', $content, $m);
foreach($m[1] as $key=>$val){
$content = str_replace($val, $rs[$key], $content);
}
file_put_contents(vbs, $content);
$WshShell = new COM("WScript.Shell ");
$cmdline = "cmd /C ".vbs;
$oExec = $WshShell -> Run($cmdline, 0, false);?
}
? >
vbs コードは次のとおりです:
Set ThunderAgent = CreateObject("ThunderAgent.Agent.1")
Call ThunderAgent.AddTask("http:/ /www.baidu.com /img/baidu_sylogo1.gif","baidu_sylogo1.gif","","","http://www.cmccapp.com/",1,0,5)?
電話ThunderAgent.CommitTasks2(1) ?
Set ThunderAgent = Nothing
-----解決策------
COM コンポーネントを呼び出す PHP は非常に不安定なので、あきらめてください