Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
	MergeImages(Server.MapPath("bg.jpg"), Server.MapPath("frame.gif"))
End Sub
 
Private Sub MergeImages(ByVal imgBG As String, ByVal imgFG As String)
        Try
            Dim MemStream As New System.IO.MemoryStream()
 
            Dim myGraphic As System.Drawing.Graphics = Nothing
            Dim imgB As System.Drawing.Image
            imgB = System.Drawing.Image.FromFile(imgBG)
            Dim imgF As System.Drawing.Image
            imgF = System.Drawing.Image.FromFile(imgFG)
            Dim m As System.Drawing.Image
            m = System.Drawing.Image.FromFile(imgBG)
            myGraphic = System.Drawing.Graphics.FromImage(m)
            myGraphic.DrawImageUnscaled(imgB, 0, 0)
            myGraphic.DrawImageUnscaled(imgF, 0, 0)
            myGraphic.Save()
 
            Response.ContentType = "image/png"
            'm.Save(Server.MapPath("save.png"), System.Drawing.Imaging.ImageFormat.Png)
            m.Save(MemStream, System.Drawing.Imaging.ImageFormat.Png)
            MemStream.WriteTo(Response.OutputStream)
 
        Catch ex As Exception
            Response.Write("error: " & ex.Message)
        End Try
    End Sub
 

VB.NET

 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
	MergeImages("bg.jpg", "frame.gif")
End Sub
 
Private Sub MergeImages(ByVal imgBG As String, ByVal imgFG As String)
Try
    Dim myGraphic As System.Drawing.Graphics = Nothing
 
    Dim imgB As Image
    imgB = Image.FromFile(imgBG)
    Dim imgF As Image
    imgF = Image.FromFile(imgFG)
    Dim m As Image
    m = Image.FromFile(imgBG)
    myGraphic = System.Drawing.Graphics.FromImage(m)
    myGraphic.DrawImageUnscaled(imgB, 0, 0)
    myGraphic.DrawImageUnscaled(imgF, 0, 0)
    myGraphic.Save()
 
    m.Save("save.png", System.Drawing.Imaging.ImageFormat.Png)
Catch ex As Exception
    MessageBox.Show(ex.Message)
End Try
 
End Sub
 

Application Pools ->DefaultAppPool

right click  Advance Settings

Generals->Enable 32-bit Applications set it to true

 
        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
 

ลองดึงข้อมูลจาก xml แล้ววน loop

XmlDocument.xml

<SiXhEaD>
	<Member>
		<UserId>6</UserId>
		<Zipcode>10000</Zipcode>
		<Email>email1@domain.com</Email>
	</Member>
	<Member>
		<UserId>7</UserId>
		<Zipcode>20000</Zipcode>
		<Email>email2@domain.com</Email>
	</Member>
	<Status>Complete</Status>
</SiXhEaD>

XmlDocument.aspx

<%@ Import Namespace="System.Xml" %>
<%
Dim myXmlDoc As XmlDocument = New XmlDocument()
myXmlDoc.Load(Server.MapPath("XmlDocument.xml"))
 
Dim UserIdNode As XmlNodeList = myXmlDoc.GetElementsByTagName("UserId")
Dim ZipcodeNode As XmlNodeList = myXmlDoc.GetElementsByTagName("Zipcode")
Dim EmailNode As XmlNodeList = myXmlDoc.GetElementsByTagName("Email")
Dim StatusNode As XmlNodeList = myXmlDoc.GetElementsByTagName("Status")
 
Dim UserId As String
Dim Zipcode As String
Dim Email As String
Dim Status As String
 
Dim strResult As String = ""
 
Dim intI As Integer = 0
For intI = 0 To UserIdNode.Count - 1
    UserId = UserIdNode(intI).InnerText
    Zipcode = ZipcodeNode(intI).InnerText
    Email = EmailNode(intI).InnerText
 
    strResult = strResult & "UserId: " & UserId & "<br>"
    strResult = strResult & "Zipcode: " & Zipcode & "<br>"
    strResult = strResult & "Email: " & Email & "<br>"
    strResult = strResult & "..............." & "<br>"
Next
 
Status = StatusNode(0).InnerText
strResult = strResult & "" & Status & "<br>"
 
Response.Write(strResult)
%>

ผลลัพท์

UserId: 6
Zipcode: 10000
Email: email1@domain.com
...............
UserId: 7
Zipcode: 20000
Email: email2@domain.com
...............
Complete

start->run->cmd enter

drwtsn32.exe -i

Visual Studio

วิธีแก้ไข
เปิด command prompt ขึ้นมา โดย start -> run -> cmd แล้ว enter
เข้าไป ใน folder นี้ โดยสั่ง cd ตามด้วยชื่อ folder

C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727

แล้วสั่งรันคำสั่งนี้
aspnet_regiis.exe -i