{"id":1924,"date":"2020-09-04T15:00:21","date_gmt":"2020-09-04T06:00:21","guid":{"rendered":"https:\/\/qol-kk.com\/wp2\/?p=1924"},"modified":"2020-09-04T15:01:06","modified_gmt":"2020-09-04T06:01:06","slug":"post-1924","status":"publish","type":"post","link":"https:\/\/qol-kk.com\/wp2\/blog\/2020\/09\/04\/post-1924\/","title":{"rendered":"VBS(WSH)\u3067SendKeys\u3092\u4f7f\u3063\u3066\u65e5\u672c\u8a9e(2\u30d0\u30a4\u30c8\u6587\u5b57)\u3092\u5165\u529b\u3059\u308b\u65b9\u6cd5"},"content":{"rendered":"<h2>VBS(WSH)\u3067SendKeys\u3092\u4f7f\u3063\u3066\u65e5\u672c\u8a9e(2\u30d0\u30a4\u30c8\u6587\u5b57)\u3092\u5165\u529b\u3059\u308b\u65b9\u6cd5<\/h2>\n<p>script\u304c\u826f\u3044\u611f\u3058\u306b\u7d44\u307f\u3042\u304c\u3063\u3066\u304d\u305f\u6642\u306b\u767a\u751f\u3057\u305f\u30a8\u30e9\u30fc\u3002<br \/>\n\u300e\u4fdd\u5b58\u30d5\u30a9\u30eb\u30c0\u304c\u3042\u308a\u307e\u305b\u3093\u300f<\/p>\n<p>\u5b9f\u9a13\u3067\u30cd\u30c3\u30c8\u30ef\u30fc\u30af\u30c9\u30e9\u30a4\u30d6\u306b\u4fdd\u5b58\u3057\u3088\u3046\u3068\u3057\u305f\u3093\u3067\u3059\u3002<\/p>\n<p>\u5834\u6240\u306f[ \\\\Landisk\\disk1\\\u5171\u6709File\\Test ] \u4f55\u5ea6\u304b\u78ba\u304b\u3081\u305f\u6240\u3001\u6307\u793a\u3057\u3066\u3044\u308b\u5834\u6240\u306f\u30b3\u30b3\u306a\u306e\u306b[ \\\\Landisk\\disk1\\MFile\\Test ] \u306b\u4fdd\u5b58\u3057\u3088\u3046\u3068\u3057\u3066\u307e\u3059\u3002<\/p>\n<p>\u305d\u308a\u3083\u306d\u3001\u305d\u3093\u306a\u30d5\u30a9\u30eb\u30c0\u306a\u3044\u304b\u3089\u30a8\u30e9\u30fc\u306b\u306a\u308b\u306e\u306f\u5206\u304b\u308b\u3002<br \/>\n\u3067\u3082\u3001\u306a\u3093\u3067\uff1f<br \/>\n\u3069\u3053\u304b\u3089MFile\u306a\u3093\u3066\u540d\u524d\u304c\u51fa\u3066\u304d\u305f\uff1f\uff1f<br \/>\n\u6587\u5b57\u5316\u3051\u306a\u3089\u3082\u3063\u3068\u96e3\u89e3\u306a\u6587\u5b57\u306b\u306a\u3063\u3066\u3044\u3066\u3082\u3088\u3055\u305d\u3046\u306a\u306e\u306bMFile\u3063\u3066\u3002<\/p>\n<h3>\u307e\u305a\u5148\u306b\u89e3\u6c7a\u7b56\u3092\u8a18\u8f09<\/h3>\n<p>\u25a0IE\u3067DL\u30c7\u30fc\u30bf\u306b\u5bfe\u3057\u3066\u540d\u524d\u3092\u4ed8\u3051\u3066\u4fdd\u5b58\u3092\u5b9f\u884c<\/p>\n<pre class=\"lang:default decode:true\">private function saveFile(filName,dirName)  \r\n   Dim i\r\n   Dim onjShell\r\n   Dim textClip\r\n\r\n   Set textClip = CreateObject(\"WScript.Shell\")\r\n   WScript.Sleep 3000\r\n   textClip.Run \"cmd.exe \/c Echo \"&amp;dirName&amp;\" | Clip\", 0, True\r\n   \r\n    '\u4fdd\u5b58\u64cd\u4f5c\u30a8\u30df\u30e5\u30ec\u30fc\u30c8\r\n    Set onjShell = WScript.CreateObject (\"WScript.Shell\")\r\n      '\u30d5\u30a9\u30fc\u30ab\u30b9\u79fb\u52d5\r\n      onjShell.SendKeys( \"{F6}\" )\r\n        WScript.Sleep 300\r\n      onjShell.SendKeys( \"{TAB}\" )\r\n        WScript.Sleep 300\r\n      onjShell.SendKeys( \"{DOWN}\" )\r\n        WScript.Sleep 300\r\n      onjShell.SendKeys( \"A\" )\r\n        WScript.Sleep 1000\r\n      onjShell.SendKeys(filName)\r\n        WScript.Sleep 300\r\n      'Tab\u53cd\u5fdc\u30ba\u30ec\u9632\u6b62\u7b56\r\n      For i=1 To 5\r\n        onjShell.SendKeys( \"{TAB}\" )\r\n        WScript.Sleep 100\r\n      Next\r\n      '\u6700\u4e0a\u4f4d\u30d5\u30a9\u30eb\u30c0\u306b\u79fb\u52d5\r\n      onjShell.SendKeys(\"{ENTER 10}\")\r\n        WScript.Sleep 300\r\n      \r\n      '\u4fdd\u5b58\u4f5c\u696d\r\n      onjShell.SendKeys( \"{TAB 1}\" )\r\n        WScript.Sleep 300\r\n      onjShell.SendKeys( \"{ENTER 1}\" )\r\n        WScript.Sleep 1000\r\n      textClip.SendKeys( \"^v\" )\r\n\u3000\u3000\u3000\u3000'\u2193\u3060\u3068MFile\u306b\u306a\u308b\r\n\u3000\u3000\u3000\u3000'onjShell.SendKeys(dirName)\r\n        WScript.Sleep 300\r\n      onjShell.SendKeys( \"{ENTER 1}\" )\r\n        WScript.Sleep 300\r\n      onjShell.SendKeys( \"%s\" )\r\n        WScript.Sleep 300\r\n\r\n    Set i = Nothing\r\n    Set onjShell = Nothing\r\n    Set textClip = Nothing\r\n  End Function<\/pre>\n<p>\u547c\u3073\u51fa\u3057\u6642\u306b2\u3064\u306e\u5f15\u6570\uff08filName\u3001dirName\uff09\u3092\u6e21\u3057\u3066\u3044\u307e\u3059\u3002<br \/>\n\u5171\u306bCSV\u30c7\u30fc\u30bf\u304b\u3089\u547c\u3073\u51fa\u3057\u3066\u53d6\u308a\u51fa\u3057\u305f\u5024\u3067\u3001CSV\u30c7\u30fc\u30bf\u306fASIN(Shift_Jis)\u3067\u4fdd\u5b58\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n<h3>SendKeys\u3067\u9001\u308b\u524d\u306f\u65e5\u672c\u8a9e\u3082\u3061\u3083\u3093\u3068\u3057\u3066\u3044\u308b<\/h3>\n<p>SendKeys\u3067\u9001\u308b\u524d\u306bMsgBox(dirName)\u3067\u78ba\u8a8d\u3059\u308b\u3068\u6b63\u3057\u3044\u4fdd\u5b58\u5148\u304c\u51fa\u529b\u3055\u308c\u308b\u306e\u3067\u3001\u4fdd\u5b58\u6587\u5b57\u30b3\u30fc\u30c9\u306e\u554f\u984c\u3067\u306f\u306a\u3055\u305d\u3046\u3067\u3059\u3002<\/p>\n<p>\u3064\u307e\u308a\u306f\u3001SendKeys\u306b\u639b\u3051\u308b\u3068\u5316\u3051\u308b\u3068\u3002<\/p>\n<h3>\u89e3\u6c7a\u7b56\u306e\u89e3\u8aac<\/h3>\n<p>\u4e00\u5ea6\u4ed6\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u306b\u66f8\u304d\u8fbc\u3093\u3067\u3001\u305d\u308c\u3092\u30af\u30ea\u30c3\u30d7 \u21d2 \u8cbc\u4ed8\u3051 \u3067\u8ab2\u984c\u89e3\u6c7a\u3067\u304d\u308b\u3088\u3046\u3067\u3059\u3002<br \/>\n\u306a\u3093\u3060\u305d\u306e\u9762\u5012\u306a\u4ed5\u69d8\u306f...\u3002<\/p>\n<p>\u4e0a\u306e\u30b9\u30af\u30ea\u30d7\u30c8\u306e\u5834\u5408\u306f\u4e00\u5ea6\u30b3\u30de\u30f3\u30c9\u30d7\u30ed\u30f3\u30c8\u306b\u66f8\u304d\u51fa\u3057\u3066\u3001\u5165\u529b\u3057\u305f\u5024\u3092\u30b3\u30d4\u30fc\u3001\u5fc5\u8981\u306a\u500b\u6240\u3067\u547c\u3073\u51fa\u3057\u3066\u307e\u3059\u3002<\/p>\n<div class=\"borderBox\">Set textClip = CreateObject(\"WScript.Shell\")<br \/>\nWScript.Sleep 3000<br \/>\ntextClip.Run \"cmd.exe \/c Echo \"&amp;dirName&amp;\" | Clip\", 0, True<\/div>\n<p>\u30b3\u30b3\u304c\u30b3\u30de\u30f3\u30c9\u30d7\u30ed\u30f3\u30c8\u306b\u66f8\u304d\u8fbc\u3093\u3067\u308b\u7b87\u6240\u3067<\/p>\n<div class=\"borderBox\">\n<p>textClip.SendKeys( \"^v\" )<\/p>\n<\/div>\n<p>\u3053\u308c\u304c\u66f8\u304d\u8fbc\u3093\u3060\u5024\u3092\u30b3\u30d4\u30fc\u3057\u3066\u6240\u5b9a\u306e\u4f4d\u7f6e\u306b\u5f35\u308a\u4ed8\u3051\u3066\u3044\u308b\u30d1\u30fc\u30c4\u3067\u3059\u3002<\/p>\n<p>\u3061\u306a\u307f\u306b\u3001\u4e0b\u306e\u69d8\u306b\u66f8\u304f\u3068\u6539\u884c\u3092\u7121\u8996\u3057\u3066\u6587\u5b57\u308c\u6238\u3092\u30b3\u30d4\u30da\u3059\u308b\u3088\u3046\u3067\u3059\u3002<\/p>\n<pre class=\"lang:default decode:true\">textClip.Run( \"cmd.exe \/c set \/p dummy=\"\u683c\u7d0d\u3057\u305f\u3044\u6587\u5b57\u5217\" | clip\", 0, true )<\/pre>\n<h3>\u305d\u306e\u4ed6\u306e\u6ce8\u610f\u70b9<\/h3>\n<p>VBS\u3067\u306fUTF-16\u307e\u305f\u306fShift_Jis\u306e\u307f\u304c\u5bfe\u5fdc\u30a8\u30f3\u30b3\u30fc\u30c9\u3068\u306a\u308a\u307e\u3059\u3002<br \/>\nCSV\u30d5\u30a1\u30a4\u30eb\u306e\u30b3\u30fc\u30c9\u3092 UTF-8 \u306b\u3059\u308b\u3068\u8aad\u8fbc\u3093\u3060\u6642\u70b9\u3067\u6587\u5b57\u5316\u3051\u3057\u3066\u308b\u306e\u3067\u3001SendKeys\u4ee5\u524d\u306e\u554f\u984c\u3067\u3046\u307e\u304f\u52d5\u304d\u307e\u305b\u3093\u3002<\/p>\n<p>VBS\u5229\u7528\u8005\u306a\u3089CSV\u4f5c\u6210\u306fExcel\u3067\u884c\u3046\u3067\u3057\u3087\u3046\u304b\u3089\u3001\u30b3\u30b3\u306f\u7d20\u76f4\u306bShift_Jis\u3067\u4fdd\u5b58\u3057\u3068\u304d\u307e\u3057\u3087\u3046\u3002<\/p>\n<h3>\u307e\u3068\u3081<\/h3>\n<p>\u3053\u308c\u3067\u30cd\u30c3\u30c8\u30ef\u30fc\u30af\u30d5\u30a9\u30eb\u30c0\u3078\u306e\u4fdd\u5b58\u3082\u30d0\u30c3\u30c1\u30ea\u3002<\/p>\n<p>\u307e\u3055\u304b\u30b3\u30de\u30f3\u30c9\u30d7\u30ed\u30f3\u30c8\u4f7f\u3063\u3066\u30b3\u30d4\u30da\u306a\u3093\u3066\u82b8\u5f53\u3067\u89e3\u6c7a\u3057\u306a\u304d\u3083\u306a\u3089\u306a\u3044\u3068\u306f\u601d\u3044\u3082\u3057\u307e\u305b\u3093\u3067\u3057\u305f\u304c...\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"<p>VBS(WSH)\u3067SendKeys\u3092\u4f7f\u3063\u3066\u65e5\u672c\u8a9e(2\u30d0\u30a4\u30c8\u6587\u5b57)\u3092\u5165\u529b\u3059\u308b\u65b9\u6cd5 script\u304c\u826f\u3044\u611f\u3058\u306b\u7d44\u307f\u3042\u304c\u3063\u3066\u304d\u305f\u6642\u306b\u767a\u751f\u3057\u305f\u30a8\u30e9\u30fc\u3002 \u300e\u4fdd\u5b58\u30d5\u30a9\u30eb\u30c0\u304c\u3042\u308a\u307e\u305b\u3093\u300f \u5b9f\u9a13\u3067\u30cd\u30c3\u30c8\u30ef\u30fc\u30af\u30c9\u30e9\u30a4\u30d6\u306b\u4fdd\u5b58\u3057\u3088\u3046\u3068\u3057\u305f\u3093\u3067 [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":1923,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"vkexunit_cta_each_option":"","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":[689],"tags":[717,719,685,684,718,716,720,721],"class_list":["post-1924","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-wsh-vbs","tag-717","tag-sendkeys","tag-vbs","tag-wsh","tag-718","tag-716","tag-720","tag-721"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"https:\/\/qol-kk.com\/wp2\/wp-content\/uploads\/2020\/09\/image.png","jetpack-related-posts":[],"jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/qol-kk.com\/wp2\/wp-json\/wp\/v2\/posts\/1924","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/qol-kk.com\/wp2\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/qol-kk.com\/wp2\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/qol-kk.com\/wp2\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/qol-kk.com\/wp2\/wp-json\/wp\/v2\/comments?post=1924"}],"version-history":[{"count":0,"href":"https:\/\/qol-kk.com\/wp2\/wp-json\/wp\/v2\/posts\/1924\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/qol-kk.com\/wp2\/wp-json\/wp\/v2\/media\/1923"}],"wp:attachment":[{"href":"https:\/\/qol-kk.com\/wp2\/wp-json\/wp\/v2\/media?parent=1924"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/qol-kk.com\/wp2\/wp-json\/wp\/v2\/categories?post=1924"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/qol-kk.com\/wp2\/wp-json\/wp\/v2\/tags?post=1924"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}