การใช้ WebClient สำหรับเรียก URL

Dim _url As String = "https://www.MyDomain.com/?q=ทดสอบ"

Dim wc As New System.Net.WebClient()

wc.Encoding = System.Text.Encoding.UTF8

' เสนอการใช้งาน 3 แบบคือ

' 1) ใช้เรียก HTML ของเว็บไซต์นั้นแล้วส่งค่าให้ตัวแปร

Dim Result As String = wc.DownloadString(_url) 

' 2) ใช้ส่งค่าไปยังเว็บไซต์ผ่าน URL
wc.OpenRead(_url)

' 3) เรียก HTML แล้วนำไปสร้างเป็นไฟล์ในเครื่องเรา
wc.DownloadFile(_url, "C:\Log Files\123.html")

 

wc.Dispose()

wc = Nothing

 

'******************* อีกแบบครับ ****************

Dim HttpWebRequestX As System.Net.HttpWebRequest = CType(System.Net.WebRequest.Create(_url), System.Net.HttpWebRequest)

HttpWebRequestX.Method = "GET"

Dim WebResponseX As System.Net.WebResponse = HttpWebRequestX.GetResponse()

Dim StreamReaderX As System.IO.StreamReader = New System.IO.StreamReader(WebResponseX.GetResponseStream(), System.Text.Encoding.UTF8)

Dim Source As String = StreamReaderX.ReadToEnd()

StreamReaderX.Close()

WebResponseX.Close()

วิธีการเรียกข้อมูลจาก Item ใน Repeater ด้วยการคลิกที่ button

            <asp:Repeater ID="Repeater1" runat="server">

                <HeaderTemplate>

 

                </HeaderTemplate>

                <ItemTemplate>

                    <div>

                        <asp:TextBox ID="txt_member_print_vocab_num" runat="server" Text='<%#Eval("member_print_vocab_num").ToString  %>'></asp:TextBox>

                      <%#Eval("member_print_vocab_num").ToString  %>

                        <%#Eval("member_code").ToString  %>

                        <%#Eval("member_email").ToString  %>

                        <%#Eval("member_Fullname").ToString  %>

                       

                    </div>

                </ItemTemplate>

                <FooterTemplate>

                </FooterTemplate>

            </asp:Repeater>

 

            <asp:Button ID="Button1" runat="server" Text="OKkkkk" /> 

******************************************

    Protected Sub Page_Load() Handles Me.Load

        Dim sql As String = ""

        sql = "SELECT  ……. WHERE  ……"

        Dim obj As New MyClassExecuteData

        Repeater1.DataSource = obj.GetDataTable(sql)

        Repeater1.DataBind()

        obj = Nothing

    End Sub

 

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim ss As Double

        For Each item As RepeaterItem In Repeater1.Items

            Dim txt_member_print_vocab_num As TextBox = item.FindControl("txt_member_print_vocab_num")

            ss = ss + Val(txt_member_print_vocab_num.Text)

        Next

 

        Button1.Text = ss

    End Sub