+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] اريد كود للبرنامج لعمله تجريبى لمدة بأيام (/showthread.php?tid=14648)
الصفحات:
1
2
اريد كود للبرنامج لعمله تجريبى لمدة بأيام - ramygamalvb - 05-02-16
طرحت ملف المشروع
اريد التعديل عليه بان تظهر رسالة مدة الاشتراك المحددة كما فى البرنامج وباقى الانتهاء المدة
واريد ايضا بعد الانتهاء يطلب ادخال سريال كما فى النموذج وربطها بقاعدة بيانات mysql جداول اقدر انى ادخل سريالات
ويستعلممالبرنامج اذا وجد هذا السريال فى القاعدة يفتح وان لم يجده لا يغتح
وكيف احدد مدة السريال .. اريد مثلا سريال يعمل للبرنامج 15 يوم وسريال 30 يوم كما اريد ان ازود ايام السريالات
وشكرا لاحبائى
RE: اريد كود للبرنامج لعمله تجريبى لمدة بأيام - boudyonline - 06-02-16
تفضل هذا الموضوع يمكن أن ينفعك
http://vb4arb.com/vb/thread-2997.html
RE: اريد كود للبرنامج لعمله تجريبى لمدة بأيام - ramygamalvb - 06-02-16
لا احتاج الى موضوع ريجسترى لان سهل التعديل عليه وفتح البرنامج
اريد ربطه بقاعدة بيانات من نوع mysql
RE: اريد كود للبرنامج لعمله تجريبى لمدة بأيام - HASAN6.0 - 06-02-16
عند ربط برنامجك بقاعدة من نوع mysql هل تريد ان يتصل البرنامج مع القاعدة في كل مرة يتم تشغيله ؟
ماذا لو لم يكن هناك اتصال انترنت ؟
RE: اريد كود للبرنامج لعمله تجريبى لمدة بأيام - ramygamalvb - 06-02-16
نعم اريد ان يتصل البرنامج مع القاعدة في كل مرة يتم تشغيله
ماذا لو لم يكن هناك اتصال انترنت ؟ لا يتم دخولة ويظهر له رسالة التاكد من الاتصال اولاً
RE: اريد كود للبرنامج لعمله تجريبى لمدة بأيام - ramygamalvb - 06-02-16
اريد مشاركة البعض للاستفادة والاراء ايضا
وحل الموضوع
RE: اريد كود للبرنامج لعمله تجريبى لمدة بأيام - HASAN6.0 - 06-02-16
اخي الكريم :
حمل هذا الملف
ثم ثبته .
افتح مشروع جديد . واضف الـ Reference كما في الصورة .
[attachment=9326]
في الملف المرفق مثال كامل .
1. فحص الاتصال بالانترنت .
2. اخذ سيريال الهارد ديسك .
3. الاتصال بـMysql .
4. العد التنازلي لمدة 30 يوم .
ما عليك الا ضبط الاعدادات التي في الموديول .
[attachment=9327]
بالتوفيق .
طبعاً بدلاً من استخدام كلمة NOW وهي تعني تاريخ الجهاز .
يمكنك قرأة الوقت والتاريخ من موقع على الانترنت ... لتحصل على توقيت صحيح , حتى لو غير المستخدم تاريخ الجهاز . مثلاً
اضف هذا
كود :
Imports System.Net
Imports System.Net.Cache
Imports System.IO
Imports System.Text.RegularExpressionsثم اضف هذه الـFunction
PHP كود :
Public Shared Function GetNistTime() As DateTime
Dim dateTime__1 As DateTime = DateTime.MinValue
Dim request As HttpWebRequest = DirectCast(WebRequest.Create("http://nist.time.gov/actualtime.cgi?lzbc=siqm9b"), HttpWebRequest)
request.Method = "GET"
request.Accept = "text/html, application/xhtml+xml, */*"
request.UserAgent = "Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.1; Trident/6.0)"
request.ContentType = "application/x-www-form-urlencoded"
request.CachePolicy = New RequestCachePolicy(RequestCacheLevel.NoCacheNoStore)
'No caching
Dim response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
If response.StatusCode = HttpStatusCode.OK Then
Dim stream As New StreamReader(response.GetResponseStream())
Dim html As String = stream.ReadToEnd()
'<timestamp time=\"1395772696469995\" delay=\"1395772696469995\"/>
Dim time As String = Regex.Match(html, "(?<=\btime="")[^""]*").Value
Dim milliseconds As Double = Convert.ToInt64(time) / 1000.0
dateTime__1 = New DateTime(1970, 1, 1).AddMilliseconds(milliseconds).ToLocalTime()
End If
Return dateTime__1
End Function
ثم اكتب هذه الجملة .
PHP كود :
Public NetNow As DateTime = GetNistTime()
RE: اريد كود للبرنامج لعمله تجريبى لمدة بأيام - boudyonline - 06-02-16
شكرا للأخ Hasan6.0 ولي طلبين إن أمكن
الأول : إذا تم تنفيذ المشروع على قاعدة بيانات Access
الثاني : أن يكون المشروع المدرج على دوت نت 2008 أو 2010 - وذلك نظرا لعدم استخدام 2013
RE: اريد كود للبرنامج لعمله تجريبى لمدة بأيام - HASAN6.0 - 07-02-16
لا انصح استخدام access اطلاقا. لانه وبصراحه access بحاجه لمن يحميها .
RE: اريد كود للبرنامج لعمله تجريبى لمدة بأيام - ramygamalvb - 07-02-16
ماهى الجداول التى اقم انشأوها بقاعدة البيانات اخى
وكيف اسجل سريال لكى يتعارف مع البرنامج
وكيفية تغيير المدة حسب السريال
بمعنى اريد : ان اعطى للزبون سريال يفتح بيه البرنامج لمدة 15 يوم وزبون واخر 30 يوم
وبعد انتهاء المدة يظهر له رسالة انتهاء السريال ويجب التفعيل