{"id":110,"date":"2012-08-08T13:30:12","date_gmt":"2012-08-08T04:30:12","guid":{"rendered":"http:\/\/auctionpro.co.kr\/WPress\/?p=110"},"modified":"2018-07-24T13:37:20","modified_gmt":"2018-07-24T04:37:20","slug":"vb%ec%97%90%ec%84%9c-%ec%9b%b9%ec%84%9c%eb%b9%84%ec%8a%a4-%ec%9d%b4%ec%9a%a9%ed%95%98%ea%b8%b0","status":"publish","type":"post","link":"https:\/\/www.auctionpro.co.kr\/?p=110","title":{"rendered":"VB ASP\uc5d0\uc11c \uc6f9\uc11c\ube44\uc2a4 \uc774\uc6a9\ud558\uae30"},"content":{"rendered":"<p>VB\uc5d0\uc11c \uc6f9\uc11c\ube44\uc2a4 \uc774\uc6a9\ud558\uae30<\/p>\n<pre class=\"prettyprint\">\r\nOption Explicit\r\nPrivate Sub Command1_Click()\r\n\r\nConst HttpPath = \"http:\/\/111.111.111.111\/service.asmx\/Doc\"\r\nDim xmlDoc As Object\r\nDim strRequest As String\r\nDim XMLhttp As MSXML2.XMLHTTP30\r\nDim sSend\r\n\r\nSet XMLhttp = New MSXML2.XMLHTTP30\r\nsSend = \"RLOC=\" & Me.Text1.Text\r\n\r\nXMLhttp.open \"POST\", HttpPath, False\r\nXMLhttp.setRequestHeader \"Content-Type\", \"application\/x-www-form-urlencoded\"\r\nXMLhttp.send sSend\r\nMe.Text2 = XMLhttp.responseText\r\nMe.Text2 = response\r\n\r\nDim doc As DOMDocument\r\n\r\nSet doc = New DOMDocument '\ub3d9\uc801\uba54\ubaa8\ub9ac \uc124\uc815\r\n\r\nDim objNodeList As IXMLDOMNodeList\r\n\r\ndoc.async = False\r\ndoc.loadXML (response)\r\n\r\nSet objNodeList = doc.getElementsByTagName(\"Root\")\r\n   \r\n   If objNodeList.length Then\r\n        Me.Text3 = Me.Text3 & objNodeList.Item(0).selectSingleNode(\"Name\").nodeTypedValue & \", \"\r\n        Me.Text3 = Me.Text3 & objNodeList.Item(0).selectSingleNode(\"age\").nodeTypedValue & \", \"\r\n        Me.Text3 = Me.Text3 & objNodeList.Item(0).selectSingleNode(\"address\").nodeTypedValue & \", \"\r\n        Me.Text3 = Me.Text3 & objNodeList.Item(0).selectSingleNode(\"phonnumber\").nodeTypedValue & \", \"\r\n  End If\r\n  \r\nEnd Sub\r\n\r\n<\/pre>\n<p>ASP\uc5d0\uc11c \uc6f9\uc11c\ube44\uc2a4 \uc774\uc6a9\ud558\uae30<\/p>\n<pre class=\"prettyprint\">\r\n<%\r\nDim ServerType\r\nDim ServiceName\r\nDim SoapRequest: \r\n\r\nServerType = request.Form(\"ServerType\")\r\nServiceName = request.Form(\"ServiceName\")\r\nSoapRequest = request.Form(\"SoapRequest\")\r\n\r\nHttpPath=\"http:\/\/uapi.test.com\/API\"\r\n\r\n '-------------------------------------------------------------------\r\nDim lResolve\r\nDim lConnect\r\nDim\tlSend\r\nDim lReceive\r\nDim sSend \r\nsSend=\"ServerType=\"&#038; ServerType &#038; _\r\n\t  \"&#038;ServiceName=\"&#038; ServiceName &#038; _\r\n\t  \"&#038;SoapRequest=\"&#038; SoapRequest\r\n \r\n    Set XMLhttp = Server.CreateObject(\"Msxml2.ServerXMLHTTP.3.0\")\r\n\tlResolve = 60 * 1000 'Timeout values are in milli-seconds\r\n\tlConnect = 60 * 1000\r\n\tlSend = 60 * 1000\r\n\tlReceive = 60 * 1000\r\n\tXMLhttp.setTimeouts lResolve, lConnect, lSend, lReceive\r\n\tXMLhttp.open \"POST\",HttpPath, False\r\n '------------------------------------------------------------------\r\n\tXMLhttp.setRequestHeader \"Content-Type\", \"application\/x-www-form-urlencoded\"   \r\n\tXMLhttp.Send sSend\r\n\t\r\n Dim sResponse\r\n sResponse = XMLhttp.responseText\r\n \r\nResponse.ContentType = \"text\/xml\"\r\nresponse.write sResponse\r\n\r\nresponse.end\r\n%>\r\n<\/pre>\n<p>\uc624\ub958 : \uc2dc\uc2a4\ud15c\uc774 \uc9c0\uc815\ud55c \uc778\ucf54\ub529\uc744 \uc9c0\uc6d0\ud558\uc9c0 \uc54a\uc2b5\ub2c8\ub2e4.=> MSXML 4.0 SP2 \ud30c\uc11c\uac00 \uc124\uce58 \ub418\uc9c0 \uc54a\uc74c<br \/>\nmsxmlkor.msi \uc124\uce58<br \/>\n\ub2e4\uc6b4\ub85c\ub4dc : https:\/\/www.microsoft.com\/ko-kr\/download\/confirmation.aspx?id=19662<\/p>\n","protected":false},"excerpt":{"rendered":"<div class=\"mh-excerpt\"><p>VB\uc5d0\uc11c \uc6f9\uc11c\ube44\uc2a4 \uc774\uc6a9\ud558\uae30 Option Explicit Private Sub Command1_Click() Const HttpPath = &#8220;http:\/\/111.111.111.111\/service.asmx\/Doc&#8221; Dim xmlDoc As Object Dim strRequest As String Dim XMLhttp As MSXML2.XMLHTTP30 Dim <a class=\"mh-excerpt-more\" href=\"https:\/\/www.auctionpro.co.kr\/?p=110\" title=\"VB ASP\uc5d0\uc11c \uc6f9\uc11c\ube44\uc2a4 \uc774\uc6a9\ud558\uae30\">[&#8230;]<\/a><\/p>\n<\/div>","protected":false},"author":6,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[33,14],"tags":[],"class_list":["post-110","post","type-post","status-publish","format-standard","hentry","category-asp","category-visualbasic6-0-vb"],"yoast_head":"<!-- This site is optimized with the Yoast SEO plugin v27.3 - https:\/\/yoast.com\/product\/yoast-seo-wordpress\/ -->\n<title>VB ASP\uc5d0\uc11c \uc6f9\uc11c\ube44\uc2a4 \uc774\uc6a9\ud558\uae30 - AuctionPro<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/www.auctionpro.co.kr\/?p=110\" \/>\n<meta property=\"og:locale\" content=\"ko_KR\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"VB ASP\uc5d0\uc11c \uc6f9\uc11c\ube44\uc2a4 \uc774\uc6a9\ud558\uae30 - AuctionPro\" \/>\n<meta property=\"og:description\" content=\"VB\uc5d0\uc11c \uc6f9\uc11c\ube44\uc2a4 \uc774\uc6a9\ud558\uae30 Option Explicit Private Sub Command1_Click() Const HttpPath = &quot;http:\/\/111.111.111.111\/service.asmx\/Doc&quot; Dim xmlDoc As Object Dim strRequest As String Dim XMLhttp As MSXML2.XMLHTTP30 Dim [...]\" \/>\n<meta property=\"og:url\" content=\"https:\/\/www.auctionpro.co.kr\/?p=110\" \/>\n<meta property=\"og:site_name\" content=\"AuctionPro\" \/>\n<meta property=\"article:published_time\" content=\"2012-08-08T04:30:12+00:00\" \/>\n<meta property=\"article:modified_time\" content=\"2018-07-24T04:37:20+00:00\" \/>\n<meta name=\"author\" content=\"golgol\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"\uae00\uc4f4\uc774\" \/>\n\t<meta name=\"twitter:data1\" content=\"golgol\" \/>\n\t<meta name=\"twitter:label2\" content=\"\uc608\uc0c1 \ub418\ub294 \ud310\ub3c5 \uc2dc\uac04\" \/>\n\t<meta name=\"twitter:data2\" content=\"1\ubd84\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/www.auctionpro.co.kr\\\/?p=110#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/www.auctionpro.co.kr\\\/?p=110\"},\"author\":{\"name\":\"golgol\",\"@id\":\"https:\\\/\\\/www.auctionpro.co.kr\\\/#\\\/schema\\\/person\\\/d3dbae599b06cd55f5b14a3e2116f7a2\"},\"headline\":\"VB ASP\uc5d0\uc11c \uc6f9\uc11c\ube44\uc2a4 \uc774\uc6a9\ud558\uae30\",\"datePublished\":\"2012-08-08T04:30:12+00:00\",\"dateModified\":\"2018-07-24T04:37:20+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/www.auctionpro.co.kr\\\/?p=110\"},\"wordCount\":17,\"commentCount\":0,\"articleSection\":[\"[Dev]ASP\",\"[Dev]VB6.0\"],\"inLanguage\":\"ko-KR\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\\\/\\\/www.auctionpro.co.kr\\\/?p=110#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/www.auctionpro.co.kr\\\/?p=110\",\"url\":\"https:\\\/\\\/www.auctionpro.co.kr\\\/?p=110\",\"name\":\"VB ASP\uc5d0\uc11c \uc6f9\uc11c\ube44\uc2a4 \uc774\uc6a9\ud558\uae30 - AuctionPro\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/www.auctionpro.co.kr\\\/#website\"},\"datePublished\":\"2012-08-08T04:30:12+00:00\",\"dateModified\":\"2018-07-24T04:37:20+00:00\",\"author\":{\"@id\":\"https:\\\/\\\/www.auctionpro.co.kr\\\/#\\\/schema\\\/person\\\/d3dbae599b06cd55f5b14a3e2116f7a2\"},\"breadcrumb\":{\"@id\":\"https:\\\/\\\/www.auctionpro.co.kr\\\/?p=110#breadcrumb\"},\"inLanguage\":\"ko-KR\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/www.auctionpro.co.kr\\\/?p=110\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/www.auctionpro.co.kr\\\/?p=110#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"\ud648\",\"item\":\"https:\\\/\\\/www.auctionpro.co.kr\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"VB ASP\uc5d0\uc11c \uc6f9\uc11c\ube44\uc2a4 \uc774\uc6a9\ud558\uae30\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\\\/\\\/www.auctionpro.co.kr\\\/#website\",\"url\":\"https:\\\/\\\/www.auctionpro.co.kr\\\/\",\"name\":\"AuctionPro\",\"description\":\"\uc625\uc158\ud504\ub85c\",\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\\\/\\\/www.auctionpro.co.kr\\\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"ko-KR\"},{\"@type\":\"Person\",\"@id\":\"https:\\\/\\\/www.auctionpro.co.kr\\\/#\\\/schema\\\/person\\\/d3dbae599b06cd55f5b14a3e2116f7a2\",\"name\":\"golgol\",\"url\":\"https:\\\/\\\/www.auctionpro.co.kr\\\/?author=6\"}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"VB ASP\uc5d0\uc11c \uc6f9\uc11c\ube44\uc2a4 \uc774\uc6a9\ud558\uae30 - AuctionPro","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/www.auctionpro.co.kr\/?p=110","og_locale":"ko_KR","og_type":"article","og_title":"VB ASP\uc5d0\uc11c \uc6f9\uc11c\ube44\uc2a4 \uc774\uc6a9\ud558\uae30 - AuctionPro","og_description":"VB\uc5d0\uc11c \uc6f9\uc11c\ube44\uc2a4 \uc774\uc6a9\ud558\uae30 Option Explicit Private Sub Command1_Click() Const HttpPath = \"http:\/\/111.111.111.111\/service.asmx\/Doc\" Dim xmlDoc As Object Dim strRequest As String Dim XMLhttp As MSXML2.XMLHTTP30 Dim [...]","og_url":"https:\/\/www.auctionpro.co.kr\/?p=110","og_site_name":"AuctionPro","article_published_time":"2012-08-08T04:30:12+00:00","article_modified_time":"2018-07-24T04:37:20+00:00","author":"golgol","twitter_card":"summary_large_image","twitter_misc":{"\uae00\uc4f4\uc774":"golgol","\uc608\uc0c1 \ub418\ub294 \ud310\ub3c5 \uc2dc\uac04":"1\ubd84"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/www.auctionpro.co.kr\/?p=110#article","isPartOf":{"@id":"https:\/\/www.auctionpro.co.kr\/?p=110"},"author":{"name":"golgol","@id":"https:\/\/www.auctionpro.co.kr\/#\/schema\/person\/d3dbae599b06cd55f5b14a3e2116f7a2"},"headline":"VB ASP\uc5d0\uc11c \uc6f9\uc11c\ube44\uc2a4 \uc774\uc6a9\ud558\uae30","datePublished":"2012-08-08T04:30:12+00:00","dateModified":"2018-07-24T04:37:20+00:00","mainEntityOfPage":{"@id":"https:\/\/www.auctionpro.co.kr\/?p=110"},"wordCount":17,"commentCount":0,"articleSection":["[Dev]ASP","[Dev]VB6.0"],"inLanguage":"ko-KR","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/www.auctionpro.co.kr\/?p=110#respond"]}]},{"@type":"WebPage","@id":"https:\/\/www.auctionpro.co.kr\/?p=110","url":"https:\/\/www.auctionpro.co.kr\/?p=110","name":"VB ASP\uc5d0\uc11c \uc6f9\uc11c\ube44\uc2a4 \uc774\uc6a9\ud558\uae30 - AuctionPro","isPartOf":{"@id":"https:\/\/www.auctionpro.co.kr\/#website"},"datePublished":"2012-08-08T04:30:12+00:00","dateModified":"2018-07-24T04:37:20+00:00","author":{"@id":"https:\/\/www.auctionpro.co.kr\/#\/schema\/person\/d3dbae599b06cd55f5b14a3e2116f7a2"},"breadcrumb":{"@id":"https:\/\/www.auctionpro.co.kr\/?p=110#breadcrumb"},"inLanguage":"ko-KR","potentialAction":[{"@type":"ReadAction","target":["https:\/\/www.auctionpro.co.kr\/?p=110"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/www.auctionpro.co.kr\/?p=110#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"\ud648","item":"https:\/\/www.auctionpro.co.kr\/"},{"@type":"ListItem","position":2,"name":"VB ASP\uc5d0\uc11c \uc6f9\uc11c\ube44\uc2a4 \uc774\uc6a9\ud558\uae30"}]},{"@type":"WebSite","@id":"https:\/\/www.auctionpro.co.kr\/#website","url":"https:\/\/www.auctionpro.co.kr\/","name":"AuctionPro","description":"\uc625\uc158\ud504\ub85c","potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/www.auctionpro.co.kr\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"ko-KR"},{"@type":"Person","@id":"https:\/\/www.auctionpro.co.kr\/#\/schema\/person\/d3dbae599b06cd55f5b14a3e2116f7a2","name":"golgol","url":"https:\/\/www.auctionpro.co.kr\/?author=6"}]}},"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.auctionpro.co.kr\/index.php?rest_route=\/wp\/v2\/posts\/110","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.auctionpro.co.kr\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.auctionpro.co.kr\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.auctionpro.co.kr\/index.php?rest_route=\/wp\/v2\/users\/6"}],"replies":[{"embeddable":true,"href":"https:\/\/www.auctionpro.co.kr\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=110"}],"version-history":[{"count":0,"href":"https:\/\/www.auctionpro.co.kr\/index.php?rest_route=\/wp\/v2\/posts\/110\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.auctionpro.co.kr\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=110"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.auctionpro.co.kr\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=110"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.auctionpro.co.kr\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=110"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}