{"blog_url":"https://dechnostick.hatenablog.com/","author_url":"https://blog.hatena.ne.jp/dechnostick/","provider_name":"Hatena Blog","title":"VBA \u3067\u7ba1\u7406\u8005\u6a29\u9650\u306b\u6607\u683c\u3059\u308b\u5fc5\u8981\u306e\u3042\u308b\u5916\u90e8\u30a2\u30d7\u30ea\u3092\u5b9f\u884c\u3059\u308b","categories":["VBA",".NET"],"type":"rich","description":"ShellExecuteEx \u3067 \"runas\" \u3059\u308b\u3002\u3053\u3093\u306a\u611f\u3058\u306b\u306a\u308b\u3002 Dim ei As SHELLEXECUTEINFO ei.cbSize = LenB(ei) ei.fMask = SEE_MASK_NOCLOSEPROCESS ' \u30d7\u30ed\u30bb\u30b9\u3092\u7d42\u4e86\u3055\u305b\u306a\u3044 ei.hwnd = GetActiveWindow() ' \u30b7\u30fc\u30c8\u306e\u30cf\u30f3\u30c9\u30eb ei.lpVerb = \"runas\" ei.lpFile = ActiveWorkbook.Path & \"\\ConsoleApplication1.exe\" ei.lpParameters = \"\" ' \u30b3\u30de\u30f3\u30c9\u30e9\u30a4\u30f3\u5f15\u6570(\u3042\u308b\u5834\u5408) ei.lpD\u2026","author_name":"dechnostick","published":"2012-03-07 02:14:32","provider_url":"https://hatena.blog","height":"190","image_url":"http://cdn-ak.f.st-hatena.com/images/fotolife/d/dechnostick/20120308/20120308021804.png","width":"100%","blog_title":"\u30c7\u30af\u30ce\u30b9\u30c6\u30a3\u30c3\u30af","url":"https://dechnostick.hatenablog.com/entry/20120307/1331140472","version":"1.0","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fdechnostick.hatenablog.com%2Fentry%2F20120307%2F1331140472\" title=\"VBA \u3067\u7ba1\u7406\u8005\u6a29\u9650\u306b\u6607\u683c\u3059\u308b\u5fc5\u8981\u306e\u3042\u308b\u5916\u90e8\u30a2\u30d7\u30ea\u3092\u5b9f\u884c\u3059\u308b - \u30c7\u30af\u30ce\u30b9\u30c6\u30a3\u30c3\u30af\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>"}