{"id":2336,"date":"2022-04-29T16:40:30","date_gmt":"2022-04-29T07:40:30","guid":{"rendered":"http:\/\/oreoreki.gotdns.ch\/?p=2336"},"modified":"2022-04-29T18:09:49","modified_gmt":"2022-04-29T09:09:49","slug":"post-2336","status":"publish","type":"post","link":"http:\/\/oreoreki.gotdns.ch\/?p=2336","title":{"rendered":"VBA\u3067Chrome\u64cd\u4f5c\u3092\u81ea\u52d5\u5316\u3057\u3066\u307f\u305f"},"content":{"rendered":"<p>VBA100\u672c\u30ce\u30c3\u30af\u306e100\u672c\u76ee\u3092\u3084\u3063\u3066\u307f\u305f\u3002<\/p>\r\n<p><span class=\"embed-youtube\" style=\"text-align:center; display: block;\"><iframe loading=\"lazy\" class=\"youtube-player\" width=\"750\" height=\"422\" src=\"https:\/\/www.youtube.com\/embed\/rNux8UWqAMY?version=3&#038;rel=1&#038;showsearch=0&#038;showinfo=1&#038;iv_load_policy=1&#038;fs=1&#038;hl=ja&#038;autohide=2&#038;wmode=transparent\" allowfullscreen=\"true\" style=\"border:0;\" sandbox=\"allow-scripts allow-same-origin allow-popups allow-presentation allow-popups-to-escape-sandbox\"><\/iframe><\/span><\/p>\r\n<span class=\"bold-red\">.NET Framework\u304c\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u3055\u308c\u3066\u3044\u306a\u3044\u3068\u3001\u5b9f\u884c\u6642\u306b\u30aa\u30fc\u30c8\u30e1\u30fc\u30b7\u30e7\u30f3\u30a8\u30e9\u30fc\u304c\u767a\u751f\u3057\u307e\u3059\u3002\r\n\u30aa\u30fc\u30c8\u30e1\u30fc\u30b7\u30e7\u30f3\u30a8\u30e9\u30fc\u304c\u767a\u751f\u3059\u308b\u5834\u5408\u3001.NET Framework 3.5\u3092\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u3057\u3066\u304f\u3060\u3055\u3044\u3002<\/span>\r\n\r\n<div class=\"hcb_wrap\">VBA\u3067\u4f5c\u3063\u305f\u307f\u305f\u3002\r\n<pre class=\"prism line-numbers lang-ts\" data-lang=\"TypeScript\"><code>Sub Macro()\r\n    '\u30af\u30ed\u30fc\u30e0\u30d6\u30e9\u30a6\u30b6\u3092\u8d77\u52d5\r\n    Dim Driver, o_elem, i, num_trend_word\r\n    Set Driver = CreateObject(\"Selenium.WebDriver\")\r\n    Driver.Start \"chrome\"\r\n    Driver.Get \"https:\/\/websearch.rakuten.co.jp\/\"\r\n\r\n    '\u30c8\u30ec\u30f3\u30c9\u30ef\u30fc\u30c9\u3092\u914d\u5217\u306b\u683c\u7d0d\r\n    Set o_elem = Driver.FindElementsByCss(\"input.TrendWord-module__trendWordText__1uZER\")\r\n    num_trend_word = o_elem.Count\r\n    Dim str_trend_word(5)\r\n    For i = 1 To num_trend_word\r\n        str_trend_word(i - 1) = o_elem.Item(i).Value\r\n    Next\r\n    \r\n    '\u914d\u5217\u306b\u683c\u7d0d\u3055\u308c\u305f\u30c8\u30ec\u30f3\u30c9\u30ef\u30fc\u30c9\u3092\u691c\u7d22\u3059\u308b\r\n    For i = 1 To num_trend_word\r\n        '\u691c\u7d22\u7a93\u306b\u30c8\u30ec\u30f3\u30c9\u30ef\u30fc\u30c9\u3092\u5165\u529b\u3059\u308b\r\n        Set o_elem = Driver.FindElementsByCss(\"#search-input,#srchformtxt_qt\")\r\n        o_elem.Item(1).Clear\r\n        o_elem.Item(1).SendKeys str_trend_word(i)\r\n        '\u691c\u7d22\u30dc\u30bf\u30f3\u3092\u62bc\u3059\r\n        Set o_elem = Driver.FindElementsByCss(\"#search-submit,#searchBtn\")\r\n        o_elem.Item(1).Click\r\n        MessageBoxTimeoutA 0&amp;, \"5\u79d2\u5f8c\u3001\u81ea\u52d5\u306b\u9589\u3058\u307e\u3059\", \"\u6642\u9593\u5f85\u3061\u3067\u3059\", 1, 65536, 5 * 1000\r\n    Next\r\n    \r\n    'IE\u3092\u9589\u3058\u308b\r\n    Driver.Quit\r\n    Set Driver = Nothing\r\nEnd Sub\r\n<\/code><\/pre>\r\n<\/div>\r\n\r\n<h2><\/h2>\r\n<div class=\"hcb_wrap\">DOS\u30d0\u30c3\u30c1\u30fbVBScript\u3067\u4f5c\u3063\u305f\u307f\u305f\u3002\r\n<pre class=\"prism line-numbers lang-ts\" data-lang=\"TypeScript\"><code>&lt;!-- :\r\n@%windir%\\System32\\cscript.exe \/\/nologo \"%~f0?.wsf\"\r\n@exit \/b %errorlevel%\r\n--&gt;\r\n&lt;job&gt;\r\n&lt;script language=\"VBScript\"&gt;\r\n\t'IE\u3092\u8d77\u52d5\u3059\u308b\r\n\tSet Driver = WScript.CreateObject(\"Selenium.WebDriver\")\r\n\tDriver.Start \"chrome\"  '\u30af\u30ed\u30fc\u30e0\u30d6\u30e9\u30a6\u30b6\u3092\u7acb\u3061\u4e0a\u3052\u307e\u3059\u3002\r\n\tDriver.Get \"https:\/\/websearch.rakuten.co.jp\/\"\r\n\r\n\t'\u30c8\u30ec\u30f3\u30c9\u30ef\u30fc\u30c9\u3092\u914d\u5217\u306b\u683c\u7d0d\r\n\tSet o_elem = Driver.FindElementsByCss(\"input.TrendWord-module__trendWordText__1uZER\")\r\n\tnum_trend_word = o_elem.Count\r\n\tDim str_trend_word(5)\r\n\tFor i = 1 To num_trend_word\r\n\tstr_trend_word(i - 1) = o_elem.Item(i).Value\r\n\tNext\r\n\r\n\t'\u914d\u5217\u306b\u683c\u7d0d\u3055\u308c\u305f\u30c8\u30ec\u30f3\u30c9\u30ef\u30fc\u30c9\u3092\u691c\u7d22\u3059\u308b\r\n\tFor i = 1 To num_trend_word\r\n\t\t'\u691c\u7d22\u7a93\u306b\u30c8\u30ec\u30f3\u30c9\u30ef\u30fc\u30c9\u3092\u5165\u529b\u3059\u308b\r\n\t\tSet o_elem = Driver.FindElementsByCss(\"#search-input,#srchformtxt_qt\")\r\n\t\to_elem.Item(1).Clear\r\n\t\to_elem.Item(1).SendKeys str_trend_word(i)\r\n\t\t'\u691c\u7d22\u30dc\u30bf\u30f3\u3092\u62bc\u3059\r\n\t\tSet o_elem = Driver.FindElementsByCss(\"#search-submit,#searchBtn\")\r\n\t\to_elem.Item(1).Click\r\n\t\tWScript.CreateObject(\"WScript.Shell\").popup \"5\u79d2\u5f8c\u3001\u81ea\u52d5\u306b\u9589\u3058\u307e\u3059\",5, \"\u6642\u9593\u5f85\u3061\u3067\u3059\", 1\r\n\tNext\r\n\t'IE\u3092\u9589\u3058\u308b\r\n\tDriver.Quit\r\n\tSet Driver = Nothing\r\n&lt;\/script&gt;\r\n&lt;\/job&gt;<\/code><\/pre>\r\n<\/div>","protected":false},"excerpt":{"rendered":"<p>VBA100\u672c\u30ce\u30c3\u30af\u306e100\u672c\u76ee\u3092\u3084\u3063\u3066\u307f\u305f\u3002 .NET Framework\u304c\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u3055\u308c\u3066\u3044\u306a [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":2344,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[34,35],"tags":[],"class_list":["post-2336","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-vba","category-vbscript"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"http:\/\/oreoreki.gotdns.ch\/wp-content\/uploads\/sites\/2\/2022\/04\/mqdefault-3.jpg","jetpack_shortlink":"https:\/\/wp.me\/p9WqRX-BG","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"http:\/\/oreoreki.gotdns.ch\/index.php?rest_route=\/wp\/v2\/posts\/2336","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/oreoreki.gotdns.ch\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/oreoreki.gotdns.ch\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/oreoreki.gotdns.ch\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/oreoreki.gotdns.ch\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=2336"}],"version-history":[{"count":4,"href":"http:\/\/oreoreki.gotdns.ch\/index.php?rest_route=\/wp\/v2\/posts\/2336\/revisions"}],"predecessor-version":[{"id":2346,"href":"http:\/\/oreoreki.gotdns.ch\/index.php?rest_route=\/wp\/v2\/posts\/2336\/revisions\/2346"}],"wp:featuredmedia":[{"embeddable":true,"href":"http:\/\/oreoreki.gotdns.ch\/index.php?rest_route=\/wp\/v2\/media\/2344"}],"wp:attachment":[{"href":"http:\/\/oreoreki.gotdns.ch\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2336"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/oreoreki.gotdns.ch\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2336"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/oreoreki.gotdns.ch\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2336"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}