HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2021
0323
シンバルブラウザ非対応と判定されるサイトから対応ブラウザと同じHTMLを得る方法について2解決


シンバル

リンク

2021/3/23(Tue) 00:51:05|NO.92517


#module xmlhttp objXMLHTTP, ReturnHTML #define adTypeBinary 1 #define adSaveCreateNotExist 1 #define adSaveCreateOverWrite 2 #modinit ReturnHTML="" newcom objXMLHTTP, "Microsoft.XMLHTTP" return #modterm delcom objXMLHTTP return #modfunc xmlhttp_Open str _type, str _url objXMLHTTP->"Open" _type, _url, 0 return #modfunc xmlhttp_setRequestHeader str _name, str _value objXMLHTTP->"SetRequestHeader" _name, _value return #modcfunc xmlhttp_Send str _strin, str _charcode, int _type objXMLHTTP->"Send" _strin if objXMLHTTP("status") = 200 { newcom objRS,"ADODB.Stream" if(stat!0){ return 0 } objRS("Type") = 1 objRS->"Open" sHtml=objXMLHTTP("ResponseBody") objRS->"Write" sHtml objRS("Position") = 0 objRS("Type") = 2 objRS("Charset") = _charcode ReturnHTML=objRS("ReadText") if _type = 0 : objRS->"Close" }else{ return 0 } if _type = 0 { if vartype(objRS)==6 { if varuse(objRS)==1 : delcom objRS } } return ReturnHTML #global #module #deffunc HTMLload str target,int mode newmod objXMLHTTP, xmlhttp xmlhttp_Open objXMLHTTP, "GET", target HTML@ = xmlhttp_Send(objXMLHTTP, "", "UTF-8",1) return #global 証券コード = "2410" HTMLload "https://finance.yahoo.co.jp/quote/"+証券コード+".T" mesbox HTML,400,400

Webから株式の情報取得を行っていたのですが、本日ヤフーファイナンスの仕様が変わって情報が取得できず、現在ご利用のブラウザでは、正しく表示することができません。InternetExplorerのバージョンを11以上にする、もしくは別のブラウザでご利用くださいと表示されるようになってしまいました。

正しい表示ではなくHTMLコードが欲しいだけなのですが、なんとかならないでしょうか。

InternetExplorerにカモフラージュして結果をもらえればと浅い知識で試行錯誤をしていたら、ieplore.exeの例外 不明なソフトウェアエラーというのを出してシステムを不安定にしてしまい、これ以上の自主努力は危なそうなのでお助けお願いします。



この記事に返信する


TOMATO

リンク

2021/3/23(Tue) 08:08:58|NO.92519


#module #deffunc HTMLload str target,int mode newmod objXMLHTTP, xmlhttp xmlhttp_Open objXMLHTTP, "GET", target xmlhttp_setRequestHeader objXMLHTTP, "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64; Trident/7.0; rv:11.0) like Gecko" HTML@ = xmlhttp_Send(objXMLHTTP, "", "UTF-8",1) return #global

だけ置き換えれば、動くかな?



シンバル

リンク

2021/3/23(Tue) 11:31:19|NO.92520

ありがとうございます、そこが分からず困っていました。無事にデータの取得ができました。



ONION software Copyright 1997-2023(c) All rights reserved.