編集履歴

質問編集履歴

内容の補足

2019/05/30 05:00

投稿

退会済みユーザー

スコア0

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -40,6 +40,14 @@
 Zohoのサポートサービスにも念のため、問い合わせをしております。
+【Zohoからの回答(必要部分だけをまとめたもの)】
+ブラウザIEでまずGoogleを開き、
+その後に対象URLを開くという動作にしたところ、
+取得することが出来た。そのコードを添付します。
 ![IE プロキシ設定](9013a3101871ec4eca5913140caf6e9d.jpeg)
@@ -307,3 +315,277 @@
 ```
+実行できたバージョン
+```Javascript
+test();
+function test() {
+      //  読み込み状態
+    var READYSTATE_UNINITIALIZED  = 0;  // 初期化中
+    var READYSTATE_LOADING        = 1;  // 表示データ読み込み中
+    var READYSTATE_LOADED         = 2;  // 表示データ読み込み完了
+    var READYSTATE_INTERACTIVE    = 3;  // データの表示中
+    var READYSTATE_COMPLETE       = 4;  // 全てのデータが表示終了
+    var ieAPP = new ActiveXObject( "InternetExplorer.Application" );
+    ieAPP.Visible = true;
+    // ieAPP.Visible = false;
+    var url = WScript.Arguments(0);
+    var testurl = "microsoft-edge:"+url
+    //デバッグ用
+   //WScript.echo(url);
+    //Edgeで開く場合
+    var edge = WScript.CreateObject("Shell.Application");
+    // edge.ShellExecute(testurl);
+    ieAPP.Navigate(" https://google.com");
+    var startMsec = new Date();
+    while (new Date() - startMsec < 5000);
+    ieAPP.Navigate(url);
+    //読込が終わるまで待つ
+    // while (ieAPP.Busy && ieAPP.ReadyState==READYSTATE_COMPLETE){WScript.Sleep(500)};
+    while (ieAPP.Busy || ieAPP.ReadyState!=4){WScript.Sleep(500)};
+    var sh = WScript.CreateObject("Shell.Application");
+    var array = [];
+    // var pattern = 'testsuntech.tk/';
+    var pattern = 'csuntec.co.jp/';
+    for (var i = 0; i < sh.Windows().Count; i++) {
+     var a = "";
+        try {a = sh.Windows(i).document.URL;}
+    catch(e) {}
+    if(a) {array.push(a);}
+    }
+    // WScript.echo(array[0]);
+    // WScript.echo(array[1]);
+    var fileName = "";
+    var filesh = new ActiveXObject("WScript.Shell");
+    var desktopPath = filesh.SpecialFolders("Desktop");
+    var absoluteFilePath = "";
+    var create = true;//ファイルを作成するかのフラグ
+    var iomode = 1;
+    // 1: ファイルを読み取り専用として開く(書き込めない)
+    // 2: ファイルを書き込み専用として開く
+    // 8: ファイルの最後に追加して書き込み
+    var format = -2;
+    // true(-1): Unicode
+    // false(0): ASCII
+    // -2: SJIS(システムデフォルト)
+    var fs = new ActiveXObject("Scripting.FileSystemObject");
+    //デバッグ用
+    // WScript.echo(str(array.length));
+    //リダイレクトURLだけ抜き取る
+    for (var i = 0; i < array.length; i++) {
+      if(array[i].indexOf(pattern) > -1){
+        // 部分一致のときの処理
+        var start = 0;
+        var end = 0;
+        var code = "";
+        start = array[i].indexOf("code=") + 5;
+        end = array[i].indexOf("&",start) - 1;
+        if (end > 0) {
+          end = end - start + 1;
+          code = array[i].substr(start,end);
+        }else {
+          code = "notfind"
+        }
+        //デバッグ用
+        WScript.echo(array[i]);
+        WScript.echo(String(start));
+        WScript.echo(String(end));
+        WScript.echo(code);
+        fileName = "code_" + code;
+        // WScript.echo(fileName);
+        //windowオブジェクトが使えないため
+        // window.navigator.msSaveBlob(blob, "fileName.txt");
+        absoluteFilePath = desktopPath + "\" + fileName;
+        var file = fs.OpenTextFile(absoluteFilePath,iomode,create,format);
+        //デバッグ用
+        WScript.echo(absoluteFilePath);
+      }else {
+        fileName = "Error"
+        absoluteFilePath = desktopPath + "\" + fileName;
+        var file = fs.OpenTextFile(absoluteFilePath,iomode,create,format);
+      }
+      file.Close();
+    }
+    if (array.length == 0) {
+      fileName = "ReferenceError"
+      absoluteFilePath = desktopPath + "\" + fileName;
+      var file = fs.OpenTextFile(absoluteFilePath,iomode,create,format);
+      file.Close();
+    }
+    //  Internet Explorerを終了
+    // ieAPP.Quit();
+}
+```

内容の補足と環境の追記

2019/05/30 05:00

投稿

退会済みユーザー

スコア0

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -43,3 +43,267 @@
 ![IE プロキシ設定](9013a3101871ec4eca5913140caf6e9d.jpeg)
+【環境】
+IE11
+windows10
+JSファイルでも試しましたが上手くいかなかったので、
+そちらのソースも載せます。
+```JavaScript
+test();
+function test() {
+      //  読み込み状態
+    var READYSTATE_UNINITIALIZED  = 0;  // 初期化中
+    var READYSTATE_LOADING        = 1;  // 表示データ読み込み中
+    var READYSTATE_LOADED         = 2;  // 表示データ読み込み完了
+    var READYSTATE_INTERACTIVE    = 3;  // データの表示中
+    var READYSTATE_COMPLETE       = 4;  // 全てのデータが表示終了
+    var ieAPP = new ActiveXObject( "InternetExplorer.Application" );
+    ieAPP.Visible = true;
+    // ieAPP.Visible = false;
+    var url = WScript.Arguments(0);
+    var testurl = "microsoft-edge:"+url
+    //デバッグ用
+    // WScript.echo(url);
+    //Edgeで開く場合
+    var edge = WScript.CreateObject("Shell.Application");
+    // edge.ShellExecute(testurl);
+    ieAPP.Navigate(url);
+    //読込が終わるまで待つ
+    while (ieAPP.Busy && ieAPP.ReadyState==READYSTATE_COMPLETE){WScript.Sleep(500)};
+    var sh = WScript.CreateObject("Shell.Application");
+    var array = [];
+    var pattern = 'testsuntech.tk/';
+    for (var i = 0; i < sh.Windows().Count; i++) {
+    	var a = "";
+        try {a = sh.Windows(i).document.URL;}
+		    catch(e) {}
+			if(a) {array.push(a);}
+    }
+    // WScript.echo(window.location.pathname);
+    var fileName = "";
+    var filesh = new ActiveXObject("WScript.Shell");
+    var desktopPath = filesh.SpecialFolders("Desktop");
+    var absoluteFilePath = "";
+    var create = true;//ファイルを作成するかのフラグ
+    var iomode = 1;
+    // 1: ファイルを読み取り専用として開く(書き込めない)
+    // 2: ファイルを書き込み専用として開く
+    // 8: ファイルの最後に追加して書き込み
+    var format = -2;
+    // true(-1): Unicode
+    // false(0): ASCII
+    // -2: SJIS(システムデフォルト)
+    var fs = new ActiveXObject("Scripting.FileSystemObject");
+    //リダイレクトURLだけ抜き取る
+    for (var i = 0; i < array.length; i++) {
+      if(array[i].indexOf(pattern) > -1){
+        // 部分一致のときの処理
+        var start = 0;
+        var end = 0;
+        var code = "";
+        start = array[i].indexOf("code=") + 5;
+        end = array[i].indexOf("&",start) - 1;
+        if (end > 0) {
+          end = end - start + 1;
+          code = array[i].substr(start,end);
+        }else {
+          code = "notfind"
+        }
+        //デバッグ用
+        // WScript.echo(array[i]);
+        // WScript.echo(String(start));
+        // WScript.echo(String(end));
+        // WScript.echo(code);
+        fileName = "code_" + code;
+        // WScript.echo(fileName);
+        //windowオブジェクトが使えないため
+        // window.navigator.msSaveBlob(blob, "fileName.txt");
+        absoluteFilePath = desktopPath + "\" + fileName;
+        var file = fs.OpenTextFile(absoluteFilePath,iomode,create,format);
+        //デバッグ用
+        WScript.echo(absoluteFilePath);
+      }else {
+        fileName = "Error"
+        absoluteFilePath = desktopPath + "\" + fileName;
+        var file = fs.OpenTextFile(absoluteFilePath,iomode,create,format);
+      }
+      file.Close();
+    }
+    if (array.length == 0) {
+      fileName = "ReferenceError"
+      absoluteFilePath = desktopPath + "\" + fileName;
+      var file = fs.OpenTextFile(absoluteFilePath,iomode,create,format);
+      file.Close();
+    }
+    //  Internet Explorerを終了
+    // ieAPP.Quit();
+}
+```

要望

2019/05/21 09:19

投稿

退会済みユーザー

スコア0

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -39,3 +39,7 @@
 もし、分かる方がいましたら教えていただけないでしょうか。
 Zohoのサポートサービスにも念のため、問い合わせをしております。
+![IE プロキシ設定](9013a3101871ec4eca5913140caf6e9d.jpeg)