PHP كود :
Dim un As String = "", cpid As String = "", dt As String = ""
un = txtid.Text
cpid = CpuId()
dt = gd()
Dim forcheck As String = "?un=" & un & "&cpid=" & cpid & "&dt=" & dt
Dim url As String = "http://localhost:54832/Default.aspx" & forcheck
Dim req As WebRequest = WebRequest.Create(url)
req.Headers.Add("Charset", "windows-1256")
Dim res As WebResponse = req.GetResponse
lblstate.Text = res.Headers("ok").ToString
res.Close()
الاعلى في البرنامج المكتبي
في صفحة الويب
PHP كود :
Private Function reply(ByVal un As String) As String
Return "welcome : " & un
End Function
If Not IsPostBack Then
Response.Headers.Add("ok", reply(Request.QueryString("un")))
Return
End If