0

「 https://twitter.com/search?q=vbs 」にFireFox を使用すると、すべて正常に動作し、(ログオンしなくても) ツイートが表示されます。しかし、XMLHTTP で最も単純な VBS スクリプトを使用しようとすると、モバイル ユーザーとして Twitter に宣言されているように見え、検索結果が得られません。では、以下の VBS コードを変更してこれを機能させるにはどうすればよいでしょうか? 原則として、任意のブラウザーを偽装するために何らかの objXMLHTTP プロパティを設定できるようにする必要があるように思われますが、マイクロソフトはおそらく、この自由をそう簡単には与えないでしょう。どんなコメントも素晴らしいでしょう！

strFileURL = "https://twitter.com/search?q=vbs"
strHDLocation = "C:\Users\me\webpages\saved_tweets.html"
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
objXMLHTTP.open "GET", strFileURL, false
objXMLHTTP.send()
if objXMLHTTP.Status = 200 then
  Set objADOStream = CreateObject("ADODB.Stream")
  objADOStream.Open
  objADOStream.Type = 1
  objADOStream.Write objXMLHTTP.ResponseBody
  objADOStream.Position = 0
  Set objFSO = Createobject("Scripting.FileSystemObject")
  if objFSO.Fileexists(strHDLocation) then objFSO.DeleteFile strHDLocation
  Set objFSO = Nothing
  objADOStream.SaveToFile strHDLocation
  objADOStream.Close
  Set objADOStream = Nothing
end if
Set objXMLHTTP = Nothing
4

2 に答える 2

2

HTTP リクエストでユーザー エージェント (ブラウザ) を偽装して、Twitter がブラウザを次のようなデスクトップと見なすようにすることもできます。

Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
objXMLHTTP.open "GET", strFileURL, false
objXMLHTTP.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:23.0) Gecko/20131011 Firefox/23.0"
objXMLHTTP.send()
于 2013-05-19T01:27:44.557 に答える
1

モバイル検索ページを使用するオプションはありますか?

strFileURL = "https://mobile.twitter.com/search?q=vbs"
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
objXMLHTTP.open "GET", strFileURL, false
objXMLHTTP.send
于 2013-05-19T00:12:28.630 に答える