[سعود]

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