Misc 1.6 Provision 反向接口

Misc 1.6 Provision 反向接口，适合反向定购和反向退定。由Http的Response和Request实现。

Imports System.Web.Services
Imports System.Xml.Serialization
Imports System.Web.Services.Protocols
Imports System.Net.WebRequest

<SoapDocumentService(RoutingStyle:=SoapServiceRoutingStyle.RequestElement), WebService(Namespace :Namespace:="http://www.monternet.com/dsmp/schemas/")> _
Public Class Provision_BackClass Provision_Back
    Inherits System.Web.Services.WebService

    Dim Xml_To_Misc As String
    Dim TransactionID, Version, DeviceType_S, MsgType, DeviceID_S, DeviceType_D, DeviceID_D As String
    Dim UserIDType_F, MSISDN_F, PseudoCode_F As String
    Dim UserIDType_D, MSISDN_D, PseudoCode_D As String
    Dim ServiceIDType, SPID, SPServiceID, AccessNo, FeatureStr As String

    Function PostXmlAndGetResponse()Function PostXmlAndGetResponse(ByVal PostToUrl, ByVal XmlBody)
        Dim xhttp As MSXML2.XMLHTTP
        xhttp = CreateObject("Microsoft.XMLHTTP")
        xhttp.open("POST", PostToUrl, False)
        xhttp.send(XmlBody)
        PostXmlAndGetResponse = xhttp.responseText
        xhttp = Nothing
    End Function


#Region " Web 服务设计器生成的代码 "

    Public Sub New()Sub New()
        MyBase.New()
 
        InitializeComponent()

        
    End Sub
 
    Private components As System.ComponentModel.IContainer
 
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()Sub InitializeComponent()

    End Sub

    Protected Overloads Overrides Sub Dispose()Sub Dispose(ByVal disposing As Boolean) 

        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

#End Region
 
    '
    <WebMethod()> _
    Public Function UnSubscribeServiceReq()Function HelloWorld(ByVal TransactionID As String, ByVal Version As String, ByVal DeviceType_S As String, ByVal MsgType As String, ByVal DeviceID_S As String, ByVal DeviceType_D As String, ByVal DeviceID_D As String, ByVal UserIDType_F As String, ByVal MSISDN_F As String, ByVal PseudoCode_F As String, ByVal UserIDType_D As String, ByVal MSISDN_D As String, ByVal PseudoCode_D As String, ByVal ServiceIDType As String, ByVal SPID As String, ByVal SPServiceID As String, ByVal AccessNo As String, ByVal FeatureStr As String) As String
        Dim PostToUrl As String = "http://211.140.11.43/dsmp/dsmp.wsdl"
        Dim XmlBody As String
        XmlBody = XmlBody + "<?xml version=""1.0"" encoding=""UTF-8"" ?> " & vbCrLf
        XmlBody = XmlBody + "<SOAP-ENV:Envelope xmlns:SOAP-ENV=""http://schemas.xmlsoap.org/soap/envelope/"" xmlns:SOAP-ENC=""http://schemas.xmlsoap.org/soap/encoding/"" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" SOAP-ENV:encodingStyle=""http://schemas.xmlsoap.org/soap/encoding/"" xmlns=""http://www.monternet.com/dsmp/schemas/"">" & vbCrLf
        XmlBody = XmlBody + "<SOAP-ENV:Header>" & vbCrLf
        XmlBody = XmlBody + "<TransactionID xmlns=""http://www.monternet.com/dsmp/schemas/"" xsi:type=""xsd:string"">" & TransactionID & "</TransactionID> " & vbCrLf
        XmlBody = XmlBody + "</SOAP-ENV:Header>" & vbCrLf
        XmlBody = XmlBody + "<SOAP-ENV:Body>" & vbCrLf
        XmlBody = XmlBody + "<UnSubscribeServiceReq xmlns=""http://www.monternet.com/dsmp/schemas/"">" & vbCrLf
        XmlBody = XmlBody + "<Version>" & Version & "</Version> " & vbCrLf
        XmlBody = XmlBody + "<MsgType>" & MsgType & "</MsgType> " & vbCrLf
        XmlBody = XmlBody + "<Send_Address>" & vbCrLf
        XmlBody = XmlBody + "<DeviceType>" & DeviceType_D & "</DeviceType> " & vbCrLf
        XmlBody = XmlBody + "<DeviceID>" & DeviceID_S & "</DeviceID> " & vbCrLf
        XmlBody = XmlBody + "</Send_Address>" & vbCrLf
        XmlBody = XmlBody + "<Dest_Address>" & vbCrLf
        XmlBody = XmlBody + "<DeviceType>" & DeviceType_D & "</DeviceType> " & vbCrLf
        XmlBody = XmlBody + "<DeviceID>" & DeviceID_D & "</DeviceID> " & vbCrLf
        XmlBody = XmlBody + "</Dest_Address>" & vbCrLf
        XmlBody = XmlBody + "<FeeUser_ID>" & vbCrLf
        XmlBody = XmlBody + "<UserIDType>" & UserIDType_F & "</UserIDType> " & vbCrLf
        XmlBody = XmlBody + "<MSISDN>" & MSISDN_F & "</MSISDN> " & vbCrLf
        XmlBody = XmlBody + "<PseudoCode /> " & vbCrLf
        XmlBody = XmlBody + "</FeeUser_ID>" & vbCrLf
        XmlBody = XmlBody + "<DestUser_ID>" & vbCrLf
        XmlBody = XmlBody + "<UserIDType>" & UserIDType_D & "</UserIDType> " & vbCrLf
        XmlBody = XmlBody + "<MSISDN>" & MSISDN_D & "</MSISDN> " & vbCrLf
        XmlBody = XmlBody + "<PseudoCode /> " & vbCrLf
        XmlBody = XmlBody + "</DestUser_ID>" & vbCrLf
        XmlBody = XmlBody + "<Service_ID>" & vbCrLf
        XmlBody = XmlBody + "<ServiceIDType>" & ServiceIDType & "</ServiceIDType> " & vbCrLf
        XmlBody = XmlBody + "<SPID>" & SPID & "</SPID> " & vbCrLf
        XmlBody = XmlBody + "<SPServiceID>" & SPServiceID & "</SPServiceID> " & vbCrLf
        XmlBody = XmlBody + "<AccessNo /> " & vbCrLf
        XmlBody = XmlBody + "<FeatureStr />" & vbCrLf
        XmlBody = XmlBody + "</Service_ID>" & vbCrLf
        XmlBody = XmlBody + "<FeatureStr />" & vbCrLf
        XmlBody = XmlBody + "</UnSubscribeServiceReq>" & vbCrLf
        XmlBody = XmlBody + "</SOAP-ENV:Body>" & vbCrLf
        XmlBody = XmlBody + "</SOAP-ENV:Envelope>"
        Return PostXmlAndGetResponse(PostToUrl, XmlBody)
    End Function

End Class