سلام مجدد !
من یک نمونه نوشتم براتون قرار میدم !
یک 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
موفق باشید
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول