Here is a vbscript / vbs / vb script example which collects hebrew results from an External Website (Google Results in Example):
Set objWinHttp = CreateObject("WinHttp.WinHttpRequest.5.1") Set FSO = createobject("Scripting.FileSystemObject") 'Define Some http headers and options strUserAgentString = "http_requester/0.1" intSslErrorIgnoreFlags = 13056 ' 13056: ignore all err, 0: accept no err blnEnableRedirects = True blnEnableHttpsToHttpRedirects = True objWinHttp.Option(0) = strUserAgentString objWinHttp.Option(4) = intSslErrorIgnoreFlags objWinHttp.Option(6) = blnEnableRedirects objWinHttp.Option(12) = blnEnableHttpsToHttpRedirects 'If you need a Proxy define it here objWinHttp.SetProxy 2,"148.87.65.20:80" 'Define the Hebrew Google String you would like or any other Hebrew website. URL = "https://www.google.co.il/search?sugexp=chrome,mod=3&sourceid=chrome&ie=UTF-8&q=%D7%99%D7%A9%D7%A8%D7%90%D7%9C" objWinHttp.open "GET",URL objWinHttp.setRequestHeader "Content-Type", "text/html; charset=UTF-8" objWinHttp.send "" 'Generate an output file - This will fix UTF8 of objWinHttp.responseText to a file. Set Fileout = FSO.CreateTextFile("c:\temp\google_utf8.xml", true, true) Fileout.Write objWinHttp.responsetext Fileout.Close 'Instead of using : 'WScript.Echo objWinHttp.responseTextHow to implement :
Simply run it from CMD (windows)
ALL INFO APPEARS HERE THANKS TO :
http://www.tech-archive.net/Archive/Scripting/microsoft.public.scripting.vbscript/2007-04/msg00387.html
0 Comments:
Post a Comment