نحوه Response در VB !

[siavashsay]

دوستان راستش من اطلاعات زیادی در VB ندارم ! و در اصل PHP کار هستم !
حالا میخوام بدونم دریافت اطلاعات روی اینترنت توسط VB چطوری هست !
مثلا ما یک خروجی توی یک فایل اینترنتی ( مثلا PHP ) داریم . حالا فرقی نمیکنه چی باشه یک عدد یک متن و یا هر چی دیگه !
میخوام بدونم چطوری میشه اون رو توی VB از روی اینترنت دریافت و نمایش داد !
با تشکر

[امین مستانی]

سلام مجدد !

من یک نمونه نوشتم براتون قرار میدم !

یک Button روی فرم بزارید و سپس این کد ها رو جایگزین همه کد ها کنید :


Imports System
Imports System.IO
Imports System.Net
Imports System.Text

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim Returned As String
Dim reader As StreamReader
Dim Request As HttpWebRequest = HttpWebRequest.Create("http://vb-barnamenevis.ir/ip.php") 'URL
'User Agent
Request.UserAgent = "Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.22 (KHTML, like Gecko) Chrome/25.0.1364.97 Safari/537.22"
Request.AllowAutoRedirect = True
Request.ContentType = "application/x-www-form-urlencoded"
Request.Method = "POST" 'Method
Dim postData As String = "user=AMIN" 'POST String
Request.ContentLength = postData.Length
Dim requestStream As Stream = Request.GetRequestStream()
Dim postBytes As Byte() = Encoding.ASCII.GetBytes(postData)
requestStream.Write(postBytes, 0, postBytes.Length)
requestStream.Close()
Dim Response As HttpWebResponse = Request.GetResponse()

reader = New StreamReader(Response.GetResponseStream())
Returned = reader.ReadToEnd()
Response.Close()

MsgBox(Returned) 'Output

End Sub
End Class



موفق باشید

[davood-ahmadi]

بنظر من اگر خروجی رو توی یک فایل xml ذخیره کنی و بعد با وی بی بخوای بخونیش خیلی بهتره. چون اینجوری اطلاعات رو با یک فرمت خاص آماده کردی و یا اینکه باید بدونی خروجی چیه و یا باید یک علامت گذاری مخصوص کنی که بتونی مثل دوستمون امین مستانی (http://barnamenevis.org/member.php?192916-%D8%A7%D9%85%DB%8C%D9%86-%D9%85%D8%B3%D8%AA%D8%A7%D9%86%DB%8C)که راهنمایی کردن فایل رو بگیری و توی یک متغیر بریزی.