S i X h E a D { ? }

ตัวอย่างการดึงราคาน้ำมันจาก http://www.pttplc.com/pttinfo.asmx?wsdl
ขั้นแรก add Web References ก่อน

 
        Try
            Dim strReturn As String
            Dim WsPTT As New PTTInfo.PTTInfo()
 
            Dim cr As New System.Net.NetworkCredential("user", "pass", "mydomain")
            Dim pr As New System.Net.WebProxy("203.x.x.x", 8080)
 
            pr.Credentials = cr
            WsPTT.Proxy = pr
 
            strReturn = WsPTT.GetOilPrice("English", 6, 8, 2009)
            MessageBox.Show(strReturn)
 
        Catch Ex As System.Exception
            MessageBox.Show("Time Out")
        End Try
 

Public Function getSessionId () As String
	return System.Web.HttpContext.Current.Session.SessionID
End Functio

Dim myXmlDoc As XmlDocument = New XmlDocument()
'myXmlDoc.LoadXml(strXml) ' load from string
'myXmlDoc.Load(Server.MapPath("path/to/xml.xml"))
myXmlDoc.Load("http://domain/xml.xml")
Dim UserIdNode As XmlNodeList	=	myXmlDoc.GetElementsByTagName("UserId")
Dim FirstNameNode As XmlNodeList	=	myXmlDoc.GetElementsByTagName("FirstName")
 
Dim UserId As String	=	Convert.ToString(UserIdNode(0).InnerText)
Dim FirstName As String	=	Convert.ToString(FirstNameNode(0).InnerText)

(more...)

Dr. Watson

start->run->cmd enter

drwtsn32.exe -i

Visual Studio

 
<%
Dim colParameter As New System.Collections.Specialized.NameValueCollection
colParameter.Add("a", "aaaaaaaaa")
colParameter.Add("b", "bbbbbbbbb")
 
Dim objClient As Net.WebClient = New System.Net.WebClient
Dim bytReponse As Byte() = objClient.UploadValues("http://domain.com/path/to/script", "POST",colParameter)
Dim strWebPage As String = Encoding.ASCII.GetChars(bytReponse)
 
Response.Write(strWebPage)
%>
 

สำหรับคนที่ใช้ IIS ทดสอบงานกับ .NET Framework 2 นั้นอาจจะต้องเจอปัญหาแบบนี้
เนื่องจาก IIS ยังไม่รู้จักกับ .NET Framework 2 ซึ่งขั้นตอนการแก้ไขก็เพียงแต่ทำให้ IIS รู้จักกับ .NET Framework 2 เท่านั้นเอง
(more...)