+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كيف نرسل ترميز النص مع الــ webrequest (/showthread.php?tid=13166)
RE: كيف نرسل ترميز النص مع الــ webrequest - سعود - 08-09-15
(08-09-15, 09:05 PM)الطالب كتب : سلام
ما هي الدله gd
ماذا تقصد (المقارنة بين التواريخ من نمط Shortdate ومعرفة كم بقي يوم)؟
موفقين
لالا . مايهم الدالة هذي من صنعي
فكرة غبية خصوصا لو اردت تطبيق المقارنة بين التواريخ.اقصد ان التاريخ الذي اود التعامل معه بالجدول shortdate
هذا الاجراء التالي يفحص حالة الاشتراك
PHP كود :
Dim un As String = "", cpid As String = "", dt As String = ""
un = txtid.Text
cpid = CpuId()
Dim da As DateTime = Now.Date
dt = da.ToShortDateString
Dim forcheck As String = "?un=" & un & "&cpid=" & cpid & "&dt=" & dt & "&reqtype=check"
Dim url As String = "http://localhost:63003/Default.aspx" & forcheck
Dim req As WebRequest = WebRequest.Create(url)
Dim res As WebResponse = req.GetResponse
If res.Headers("active") = "yes" Then
lblstate.Text = "الاشتراك نشط"
End If
وهذا في الويب
PHP كود :
Dim days As Integer = 3
Dim cm As New Data.OleDb.OleDbCommand("", cls.con)
cm.CommandText = "select * from tb where cpid='" & cpid & "'"
If cls.con.State = Data.ConnectionState.Closed Then cls.con.Open()
Dim dr As Data.OleDb.OleDbDataReader = cm.ExecuteReader
If dr.Read Then
Dim dd As DateTime = dr("dt")
If dd.AddDays(days) > da Then
Response.AddHeader("active", "yes")
'اريد ان اكتب كود يبين كم بقي يوم
End If
End If
RE: كيف نرسل ترميز النص مع الــ webrequest - الطالب - 08-09-15
سلام
كود :
Dim days As Integer = 3
Using cmd As New OleDb.OleDbCommand("Select DateDiff('d', [dt], NOW()) AS [Days] From [tb] Where [cpid] = ?", cls.con)
cmd.Parameters.AddWithValue("@cpid", cpid)
If cls.con.State = Data.ConnectionState.Closed Then cls.con.Open()
Dim d As Integer = cmd.ExecuteScalar
If d <= days Then
Response.AddHeader("active", "yes")
'اريد ان اكتب كود يبين كم بقي يوم
End If
cls.con.Close()
End Usingموفقين
RE: كيف نرسل ترميز النص مع الــ webrequest - سعود - 08-09-15
طيب اخي الكريم كيف اعرف كم بقي يوم وينتهي الاشتراك اذا حددنا ايام التجربة بثلاث ايام مع المتغير days
RE: كيف نرسل ترميز النص مع الــ webrequest - الطالب - 08-09-15
سلام
المتغير d فيه عدد الايام وممكن نقول
كود :
If d <= days Then
Response.AddHeader("active", "yes")
MsgBox("بقي لك: " & days - d & " يوما")
'اريد ان اكتب كود يبين كم بقي يوم
Else
Response.AddHeader("active", "no")
MsgBox(" عفوا انتهى اشتراكك")
End Ifموفقين