{"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,"_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"],"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}]}}