butterfly8528
یک شنبه 06 شهریور 1390, 17:42 عصر
سلام دوستان و اساتید گرامی .
دسترسی به تاریخ و ساعت دقیق و غیرقابل تغییر توسط کاربر همیشه از نیاز های مهم اکثر برنامه هاست.
برای این کار دو راه وجود داره :
1- استفاده از تاریخ و ساعت ویندوز که ریسک بسیار بالایی داره و اصلا قابل اطمینان نیست ، چون به راحتی توسط کاربر تغییر داده میشه و حتی ممکنه تاریخ و ساعت سیستم کاربر اصلا درست تنظیم نشده باشه .
2- بدست آوردن تاریخ و ساعت یک سرور از طریق اینترنت ، در این روش صحت تاریخ و ساعت به دست آمده تضمین شده هست و کاربر امکان تغییر اون رو نداره .
برای اجرای روش دوم نیاز به پیاده سازی موارد زیر دارید :
1 - یک برنامه سرور ساید (برنامه ای که طرف سرور اجرا بشه) که تاریخ و ساعت سرور رو بدست بیاره
برای این بخش ما از از زبان PHP استفاده میکنیم ، چون علاوه بر ساده بودن،بر روی تمامی هاست های ویندوز و لینوکس قابل اجراست .
در زبان PHP برای بدست آوردن تاریخ و ساعت سرور از تابع date استفاده میشه ، که در کد زیر شاهد اون هستید :
//www.arshamsoft.com
<?php
echo "{BeginD}";
echo date("Y/m/d");
echo "{EndD}";
echo "<br>";
echo "{BeginT}";
echo date("H:i:s");
echo "{EndT}";
?>
* تاریخ و ساعت رو بین دو واژه اختصاصی قرار میدیم که بعدا راحت بتونیم از سورس صفحه تفکیکشون کنیم !
کد های بالا رو کپی کنید تو Note Pad و با هر اسمی که دوست دارید و پسوند .php ذخیره کنید (مثلا datetime.php )، و فایل ذخیره شده رو بر روی هاستتون آپلود کنید .
2 - به دست آوردن سورس صفحه وبی که با PHP نوشته بودیم و بر روی هاست آپلود کرده بودیم ( بنده برای این کار از کنترل Microsoft Internet Transfer استفاده می کنم) ، و جدا کردن تاریخ و ساعت بدست آمده از سورس صفحه :
'www.arshamsoft.com
Option Explicit
Private Sub Command1_Click()
Dim strPageSource As String, strDate As String, strTime As String
Command1.Enabled = False
Command1.Caption = "Please Wait..."
strPageSource = Inet1.OpenURL("http://www.arshamsoft.com/gdate/datetime.php")
strDate = SearchBetween(strPageSource, "{BeginD}", "{EndD}") 'Get Date
strTime = SearchBetween(strPageSource, "{BeginT}", "{EndT}") 'Get Time
MsgBox "Server Date : " & strDate & vbCrLf & "Server Time : " & strTime, vbInformation, "Arshamsoft"
Command1.Enabled = True
Command1.Caption = "Get Server Date And Time"
End Sub
Public Function SearchBetween(IStringStr As String, IBefore As String, IPast As String)
Dim iString As String
iString = IStringStr
iString = Right(iString, Len(iString) - InStr(iString, IBefore) - Len(IBefore) + 1)
iString = Mid(iString, 1, InStr(iString, IPast) - 1)
SearchBetween = iString
End Function
* به جای'http://www.arshamsoft.com/gdate/datetime.php آدرس و نام فایل PHP بر روی هاست هاست خودتون رو بدید .
* از تابع SearchBetween برای پیدا کردن تاریخ و ساعت در سورس صفحه استفاده شده .
سورس کامل برنامه هم ضمیمه شد .
انشاالله برای هم دوستان مفید واقع شده باشه .
موفق و سربلند باشید :لبخندساده:.
دسترسی به تاریخ و ساعت دقیق و غیرقابل تغییر توسط کاربر همیشه از نیاز های مهم اکثر برنامه هاست.
برای این کار دو راه وجود داره :
1- استفاده از تاریخ و ساعت ویندوز که ریسک بسیار بالایی داره و اصلا قابل اطمینان نیست ، چون به راحتی توسط کاربر تغییر داده میشه و حتی ممکنه تاریخ و ساعت سیستم کاربر اصلا درست تنظیم نشده باشه .
2- بدست آوردن تاریخ و ساعت یک سرور از طریق اینترنت ، در این روش صحت تاریخ و ساعت به دست آمده تضمین شده هست و کاربر امکان تغییر اون رو نداره .
برای اجرای روش دوم نیاز به پیاده سازی موارد زیر دارید :
1 - یک برنامه سرور ساید (برنامه ای که طرف سرور اجرا بشه) که تاریخ و ساعت سرور رو بدست بیاره
برای این بخش ما از از زبان PHP استفاده میکنیم ، چون علاوه بر ساده بودن،بر روی تمامی هاست های ویندوز و لینوکس قابل اجراست .
در زبان PHP برای بدست آوردن تاریخ و ساعت سرور از تابع date استفاده میشه ، که در کد زیر شاهد اون هستید :
//www.arshamsoft.com
<?php
echo "{BeginD}";
echo date("Y/m/d");
echo "{EndD}";
echo "<br>";
echo "{BeginT}";
echo date("H:i:s");
echo "{EndT}";
?>
* تاریخ و ساعت رو بین دو واژه اختصاصی قرار میدیم که بعدا راحت بتونیم از سورس صفحه تفکیکشون کنیم !
کد های بالا رو کپی کنید تو Note Pad و با هر اسمی که دوست دارید و پسوند .php ذخیره کنید (مثلا datetime.php )، و فایل ذخیره شده رو بر روی هاستتون آپلود کنید .
2 - به دست آوردن سورس صفحه وبی که با PHP نوشته بودیم و بر روی هاست آپلود کرده بودیم ( بنده برای این کار از کنترل Microsoft Internet Transfer استفاده می کنم) ، و جدا کردن تاریخ و ساعت بدست آمده از سورس صفحه :
'www.arshamsoft.com
Option Explicit
Private Sub Command1_Click()
Dim strPageSource As String, strDate As String, strTime As String
Command1.Enabled = False
Command1.Caption = "Please Wait..."
strPageSource = Inet1.OpenURL("http://www.arshamsoft.com/gdate/datetime.php")
strDate = SearchBetween(strPageSource, "{BeginD}", "{EndD}") 'Get Date
strTime = SearchBetween(strPageSource, "{BeginT}", "{EndT}") 'Get Time
MsgBox "Server Date : " & strDate & vbCrLf & "Server Time : " & strTime, vbInformation, "Arshamsoft"
Command1.Enabled = True
Command1.Caption = "Get Server Date And Time"
End Sub
Public Function SearchBetween(IStringStr As String, IBefore As String, IPast As String)
Dim iString As String
iString = IStringStr
iString = Right(iString, Len(iString) - InStr(iString, IBefore) - Len(IBefore) + 1)
iString = Mid(iString, 1, InStr(iString, IPast) - 1)
SearchBetween = iString
End Function
* به جای'http://www.arshamsoft.com/gdate/datetime.php آدرس و نام فایل PHP بر روی هاست هاست خودتون رو بدید .
* از تابع SearchBetween برای پیدا کردن تاریخ و ساعت در سورس صفحه استفاده شده .
سورس کامل برنامه هم ضمیمه شد .
انشاالله برای هم دوستان مفید واقع شده باشه .
موفق و سربلند باشید :لبخندساده:.