{"id":429,"date":"2014-07-25T17:51:40","date_gmt":"2014-07-25T08:51:40","guid":{"rendered":"http:\/\/wp.ultimai.org\/wp\/?p=429"},"modified":"2014-08-25T07:58:54","modified_gmt":"2014-08-24T22:58:54","slug":"access_download_files","status":"publish","type":"post","link":"http:\/\/wp.ultimai.org\/?p=429","title":{"rendered":"Access\u3067\u6307\u5b9aURL\u306e\u30d5\u30a1\u30a4\u30eb\u3092\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3059\u308b\u65b9\u6cd5"},"content":{"rendered":"<p>URLMON\uff08URLMoniker\uff09\u30e9\u30a4\u30d6\u30e9\u30ea\u306eAPI\u95a2\u6570\u3001\u300cURLDownloadToFile\u300d\u3092\u4f7f\u7528\u3057\u3066\u3001\u30a4\u30f3\u30bf\u30fc\u30cd\u30c3\u30c8\u4e0a\u306e\u6307\u5b9aURL\u306e\u30d5\u30a1\u30a4\u30eb\u3092\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3059\u308b\u65b9\u6cd5\u3092\u7d39\u4ecb\u3057\u307e\u3059\u3002\u3053\u3053\u3067\u306e&#8221;\u30d5\u30a1\u30a4\u30eb&#8221;\u3068\u306f\u3001\u30a4\u30f3\u30bf\u30fc\u30cd\u30c3\u30c8\u304b\u3089\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u5165\u624b\u3067\u304d\u308b\u30d5\u30ea\u30fc\u30bd\u30d5\u30c8\u306e\u3088\u3046\u306a\u3082\u306e\u3060\u3051\u3067\u306a\u304f\u3001\u305d\u306eURL\u3067\u8868\u793a\u3055\u308c\u308bHTML\u30d5\u30a1\u30a4\u30eb\u3084\u305d\u3053\u3067\u4f7f\u308f\u308c\u3066\u3044\u308b\u753b\u50cf\u30d5\u30a1\u30a4\u30eb\u306a\u3069\u3082\u3059\u3079\u3066\u542b\u307f\u307e\u3059\u3002<\/p>\n<p>\u307e\u305a\u3001\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u306b\u6b21\u306e\u3088\u3046\u306aAPI\u306e\u5ba3\u8a00\u3092\u8a18\u8ff0\u3057\u307e\u3059\u3002<\/p>\n<pre class=\"EnlighterJSRAW\" data-enlighter-language=\"generic\">\r\nPrivate Declare Function URLDownloadToFile Lib \"urlmon\" Alias \"URLDownloadToFileA\" _\r\n                          (ByVal pCaller As Long, ByVal szURL As String, _\r\n                           ByVal szFileName As String, ByVal dwReserved As Long, _\r\n                           ByVal lpfnCB As Long) As Long\r\n<\/pre>\n<p>\u6b21\u306e\u30b5\u30f3\u30d7\u30eb\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u3067\u306f\u3001\u5f53\u30b5\u30a4\u30c8\u3088\u308a\u3001LZH\u30d5\u30a1\u30a4\u30eb\u3001HTML\u30d5\u30a1\u30a4\u30eb\u3001JPEG\u30d5\u30a1\u30a4\u30eb\u3092\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3057\u3066\u3044\u307e\u3059\u3002\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u5143URL\u3092\u5909\u66f4\u3059\u308b\u3053\u3068\u3067\u3001\u3055\u307e\u3056\u307e\u306a\u30d5\u30a1\u30a4\u30eb\u3092\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3067\u304d\u308b\u3053\u3068\u304c\u5206\u304b\u308b\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n<pre class=\"EnlighterJSRAW\" data-enlighter-language=\"generic\">\r\nSub test()\r\n\r\n  Dim strURL As String\r\n  Dim strFileName As String\r\n  Dim lngRet As Long\r\n\r\n  '*************************************\r\n  ' LZH\u30d5\u30a1\u30a4\u30eb\u306e\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\r\n  '*************************************\r\n  '\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u5143\u306eURL\u3092\u8a2d\u5b9a\r\n  strURL = \"http:\/\/www.tsware.jp\/download\/cabinet\/jinz200.lzh\"\r\n  '\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u5148\u306e\u4fdd\u5b58\u30d5\u30a1\u30a4\u30eb\u540d\u3092\u8a2d\u5b9a\r\n  strFileName = \"c:\\jinz200.lzh\"\r\n  '\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u306e\u5b9f\u884c\r\n  GoSub ExecDownload\r\n\r\n  '*************************************\r\n  ' HTML\u30d5\u30a1\u30a4\u30eb\u306e\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\r\n  '*************************************\r\n  strURL = \"http:\/\/www.tsware.jp\/index.htm\"\r\n  strFileName = \"c:\\index.htm\"\r\n  GoSub ExecDownload\r\n\r\n  '*************************************\r\n  ' JPEG\u30d5\u30a1\u30a4\u30eb\u306e\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\r\n  '*************************************\r\n  strURL = \"http:\/\/www.tsware.jp\/images\/topmainphoto.jpg\"\r\n  strFileName = \"c:\\topmainphoto.jpg\"\r\n  GoSub ExecDownload\r\n\r\n  Exit Sub\r\n\r\nExecDownload:\r\n'\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u306e\u5b9f\u884c\r\n  lngRet = URLDownloadToFile(0, strURL, strFileName, 0, 0)\r\n  If lngRet = 0 Then\r\n    MsgBox \"\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u306b\u6210\u529f\u3057\u307e\u3057\u305f\uff01\", vbOKOnly + vbInformation\r\n  Else\r\n    MsgBox \"\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u306b\u5931\u6557\u3057\u307e\u3057\u305f\uff01\", vbOKOnly + vbExclamation\r\n  End If\r\n  Return\r\n\r\nEnd Sub\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>URLMON\uff08URLMoniker\uff09\u30e9\u30a4\u30d6\u30e9\u30ea\u306eA [&hellip;]<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[19],"tags":[],"class_list":["post-429","post","type-post","status-publish","format-standard","hentry","category-access"],"_links":{"self":[{"href":"http:\/\/wp.ultimai.org\/index.php?rest_route=\/wp\/v2\/posts\/429","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/wp.ultimai.org\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/wp.ultimai.org\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/wp.ultimai.org\/index.php?rest_route=\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"http:\/\/wp.ultimai.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=429"}],"version-history":[{"count":0,"href":"http:\/\/wp.ultimai.org\/index.php?rest_route=\/wp\/v2\/posts\/429\/revisions"}],"wp:attachment":[{"href":"http:\/\/wp.ultimai.org\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=429"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/wp.ultimai.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=429"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/wp.ultimai.org\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=429"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}