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
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير