{"id":220,"date":"2011-08-21T19:03:24","date_gmt":"2011-08-21T10:03:24","guid":{"rendered":"http:\/\/www.ka-net.org\/blog\/?p=220"},"modified":"2011-12-28T09:39:51","modified_gmt":"2011-12-28T00:39:51","slug":"64%e3%83%93%e3%83%83%e3%83%88%e7%89%88office%e3%81%a7url%e3%82%a8%e3%83%b3%e3%82%b3%e3%83%bc%e3%83%89%e5%87%a6%e7%90%86%e3%81%8c%e3%81%a7%e3%81%8d%e3%81%aa%e3%81%84%ef%bc%9f","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=220","title":{"rendered":"64\u30d3\u30c3\u30c8\u7248Office\u3067URL\u30a8\u30f3\u30b3\u30fc\u30c9\u51e6\u7406\u304c\u3067\u304d\u306a\u3044\uff1f"},"content":{"rendered":"

2011\/12\/28 \u8ffd\u8a18\uff1a<\/strong>
\n\u95a2\u9023\u8a18\u4e8b\u3068\u3057\u3066\u300c\u6587\u5b57\u30b3\u30fc\u30c9\u3092\u6307\u5b9a\u3057\u3066URL\u30a8\u30f3\u30b3\u30fc\u30c9\u3092\u884c\u3046<\/a>\u300d\u3092\u66f8\u304d\u307e\u3057\u305f\u3002<\/p>\n

\u300c64\u30d3\u30c3\u30c8\u74b0\u5883\u3067\u306eScriptControl\u306e\u4ee3\u308f\u308a<\/a>\u300d\u3067\u8a18\u4e8b\u3092\u66f8\u3044\u3066\u3044\u307e\u3059\u304c\u300164\u30d3\u30c3\u30c8\u74b0\u5883\u3067ScriptControl\u3092\u5229\u7528\u3057\u3066URL\u30a8\u30f3\u30b3\u30fc\u30c9\u51e6\u7406\u3092\u884c\u304a\u3046\u3068\u3057\u305f\u5834\u5408\u3001\u30a8\u30e9\u30fc\u304c\u767a\u751f\u3057\u3066\u51e6\u7406\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u305b\u3093(64\u30d3\u30c3\u30c8OS\u4e0a\u306e32\u30d3\u30c3\u30c8\u7248Office(WOW64\u4e0a)\u3067\u306f\u30a8\u30e9\u30fc\u306b\u306a\u308a\u307e\u305b\u3093<\/strong>)\u3002<\/p>\n

\u3053\u308c\u306f\u300cmsscript.ocx<\/strong>\u300d\u304c64\u30d3\u30c3\u30c8\u74b0\u5883\u306b\u5bfe\u5fdc\u3057\u3066\u3044\u306a\u3044\u305f\u3081\u3067\u3059\u304c\u3001\u4eca\u56de\u306f\u300c64\u30d3\u30c3\u30c8\u74b0\u5883\u3067\u306eScriptControl\u306e\u4ee3\u308f\u308a<\/a>\u300d\u3067\u7d39\u4ecb\u3057\u3066\u3044\u308b\u65b9\u6cd5\u3068\u306f\u9055\u3046\u65b9\u6cd5\u3067URL\u30a8\u30f3\u30b3\u30fc\u30c9\u51e6\u7406\u3092\u5b9f\u884c\u3057\u3066\u307f\u307e\u3059\u3002
\n<\/p>\n

[\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb]<\/strong><\/p>\n

Option Explicit\r\n\r\nPublic Sub Sample()\r\n  MsgBox EncodeURLx64("\u6771\u4eac\u90fd\u5343\u4ee3\u7530\u533a")\r\nEnd Sub\r\n\r\nPublic Function EncodeURLx64(ByVal str As String) As String\r\n  Dim s As String, com As String, ret As String\r\n  Dim ScriptFilePath As String, ExeFilePath As String\r\n  \r\n  ret = "" '\u521d\u671f\u5316\r\n  \r\n  '\u30b9\u30af\u30ea\u30d7\u30c8\u7528\u30b3\u30fc\u30c9\u8a2d\u5b9a\r\n  s = "Option Explicit" & vbCrLf\r\n  s = s & vbCrLf\r\n  s = s & "Dim Args, ret" & vbCrLf\r\n  s = s & vbCrLf\r\n  s = s & "Set Args = WScript.Arguments" & vbCrLf\r\n  s = s & "If Args.Count < 1 Then WScript.Quit" & vbCrLf\r\n  s = s & "With CreateObject(""ScriptControl"")" & vbCrLf\r\n  s = s & "  .Language = ""JScript""" & vbCrLf\r\n  s = s & "  ret = .CodeObject.encodeURIComponent(Args(0))" & vbCrLf\r\n  s = s & "End With" & vbCrLf\r\n  s = s & "Set Args = Nothing" & vbCrLf\r\n  s = s & "WScript.Echo ret"\r\n  \r\n  ScriptFilePath = VBA.Environ$("TEMP") & "\\enc.vbs"\r\n  With CreateObject("Scripting.FileSystemObject")\r\n    With .CreateTextFile(ScriptFilePath, True)\r\n      .Write s\r\n      .Close\r\n    End With\r\n    If .FileExists(ScriptFilePath) Then\r\n      ExeFilePath = .GetSpecialFolder(0).Path & "\\SysWOW64\\cscript.exe"\r\n      If .FileExists(ExeFilePath) Then\r\n        com = ExeFilePath & " \/\/Nologo """ & ScriptFilePath & """ """ & str & """"\r\n        ret = CreateObject("WScript.Shell").Exec(com).StdOut.ReadAll\r\n      End If\r\n      .DeleteFile ScriptFilePath\r\n    End If\r\n  End With\r\n  EncodeURLx64 = ret\r\nEnd Function<\/pre>\n
\u4e0a\u8a18\u300cSample<\/strong>\u300d\u3092\u5b9f\u884c\u3059\u308b\u3068\u3001MsgBox\u3067URL\u30a8\u30f3\u30b3\u30fc\u30c9\u51e6\u7406\u3055\u308c\u305f\u6587\u5b57\u5217\u304c\u8868\u793a\u3055\u308c\u307e\u3059\u3002<\/p>\n
\"\"<\/a><\/p>\n
\u4e0a\u8a18\u30b3\u30fc\u30c9\u3067\u306f\u4e00\u6642\u7684\u306bVBScript\u30d5\u30a1\u30a4\u30eb\u3092\u4f5c\u6210\u3057\u300132\u30d3\u30c3\u30c8\u7248\u306ecscript.exe\u3067\u305d\u306e\u30b9\u30af\u30ea\u30d7\u30c8\u3092\u5b9f\u884c\u3059\u308b\u3053\u3068\u3067\u3001URL\u30a8\u30f3\u30b3\u30fc\u30c9\u51e6\u7406\u3092\u884c\u3063\u3066\u3044\u307e\u3059\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"2011\/12\/28 \u8ffd\u8a18\uff1a \u95a2\u9023\u8a18\u4e8b\u3068\u3057\u3066\u300c\u6587\u5b57\u30b3\u30fc\u30c9\u3092\u6307\u5b9a\u3057\u3066URL\u30a8\u30f3\u30b3\u30fc\u30c9\u3092\u884c\u3046\u300d\u3092\u66f8\u304d\u307e\u3057\u305f\u3002 \u300c64\u30d3\u30c3\u30c8\u74b0\u5883\u3067\u306eScriptControl\u306e\u4ee3\u308f\u308a\u300d\u3067\u8a18\u4e8b\u3092\u66f8\u3044\u3066\u3044\u307e\u3059\u304c\u300164\u30d3\u30c3\u30c8\u74b0\u5883\u3067ScriptCon […]","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_feature_clip_id":0,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2},"jetpack_post_was_ever_published":false},"categories":[4],"tags":[8,17,43],"class_list":["post-220","post","type-post","status-publish","format-standard","hentry","category-office","tag-vba","tag-scriptcontrol","tag-url"],"aioseo_notices":[],"aioseo_head":"\n\t\t\n\t\n\t\n\t\n\t\n\t\n\t\n\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t