Misc 1.6 Provision 反向接口
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