小编use*_*026的帖子

我被要求向服务器发送请求以在线注册点收集系统的交易.我不太了解这个请求 - 响应程序.

他们告诉我,请求应该是这样的:

request( 
p1 - loginInfo:UN|PASS|MP1
p2 - XMLTransactionInfo (below)
p3 - returnPointBalance:1
)

<transaction>
  <partnernum>000001</partnernum>
  <trxndate>2012-10->12T07:18:27</trxndate>
  <cardnum>1234567891234567</cardnum>
  <trxnamount>5.4</trxnamount>
  <trxnpoints>729</trxnpoints>
  <posnum>000-001</posnum>
  <contactidnum></contactidnum>
  <contactphone>357</contactphone>
  <trxnseqnum>12345612345612</trxnseqnum>
</transaction>

响应应该是这样的:

response(    
<?xml version="1.0" encoding="UTF-8"?> 
<transactionresponse xmlns="C:\path\Sth.ear\Sth.war/xmlschema/TransactionResponse.rng">
  <sequencenum>123123121312</sequencenum> 
  <errorcode>0</errorcode> 
  <errormessage></errormessage> 
  <trxnnum>6399575</trxnnum> 
  <balancebefore>1942</balancebefore> 
  <balanceafter>1213</balanceafter> 
  <mpcontrib>729</mpcontrib> 
  <partnercontrib>0</partnercontrib> 
</transactionresponse>
)

他们还告诉我:"你可以使用这个URL获取WSDL:url1 ......"和"WS端点是:url2 ......"

到目前为止,我已成功完成以下任务:

Dim request As WebRequest = Nothing

  'Create a request for the URL.
  request =WebRequest.Create("URL1")

  'set the credentials.
  Dim credentials As NetworkCredential
  loginUser = "username"
  loginPass = "pass"
  credentials = New NetworkCredential(loginUser, loginPass, …