امتیاز موضوع:
  • 0 رأی - میانگین امتیازات: 0
  • 1
  • 2
  • 3
  • 4
  • 5
آموزش به دست آوردن تاریخ و ساعت سرور
نویسنده پیام
1120 آفلاین
در حال پیشرفت
***

ارسال‌ها: 313
موضوع‌ها: 49
تاریخ عضویت: دى ۱۳۸۷

تشکرها : 404
( 381 تشکر در 161 ارسال )
ارسال: #1
Rolleyes  آموزش به دست آوردن تاریخ و ساعت سرور
سلام دوستان و اساتید گرامی .
دسترسی به تاریخ و ساعت دقیق و غیرقابل تغییر توسط کاربر همیشه از نیاز های مهم اکثر برنامه هاست.
برای این کار دو راه وجود داره :
1- استفاده از تاریخ و ساعت ویندوز که ریسک بسیار بالایی داره و اصلا قابل اطمینان نیست ، چون به راحتی توسط کاربر تغییر داده میشه و حتی ممکنه تاریخ و ساعت سیستم کاربر اصلا درست تنظیم نشده باشه .


2- بدست آوردن تاریخ و ساعت یک سرور از طریق اینترنت ، در این روش صحت تاریخ و ساعت به دست آمده تضمین شده هست و کاربر امکان تغییر اون رو نداره .

برای اجرای روش دوم نیاز به پیاده سازی موارد زیر دارید :

1 - یک برنامه سرور ساید (برنامه ای که طرف سرور اجرا بشه) که تاریخ و ساعت سرور رو بدست بیاره
برای این بخش ما از از زبان PHP استفاده میکنیم ، چون علاوه بر ساده بودن،بر روی تمامی هاست های ویندوز و لینوکس قابل اجراست .
در زبان PHP برای بدست آوردن تاریخ و ساعت سرور از تابع date استفاده میشه ، که در کد زیر شاهد اون هستید :

کد php:
//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 برای پیدا کردن تاریخ و ساعت در سورس صفحه استفاده شده .

سورس کامل برنامه هم ضمیمه شد .

انشاالله برای هم دوستان مفید واقع شده باشه .

موفق و سربلند باشیدCool.


فایل‌(های) پیوست شده
.zip   Get Server Date And Time From WebPage.zip (اندازه: 6.54 KB / تعداد دفعات دریافت: 126)

(آخرین ویرایش در این ارسال: ۰۶-شهریور-۱۳۹۰, ۱۷:۱۳:۰۳، توسط 1120.)
۰۶-شهریور-۱۳۹۰, ۱۷:۰۷:۵۸
ارسال‌ها
پاسخ
تشکر شده توسط : download69, bvk


موضوعات مرتبط با این موضوع...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  جستجو بین دو دو تاریخ و نمایش اطلاعات بین دو تاریخ mahdi61 1 3,020 ۰۵-دى-۱۳۹۵, ۰۲:۳۰:۳۴
آخرین ارسال: Ghoghnus
  بدست آوردن عین قسمت صحیح و اعشار mr91090 3 3,559 ۱۲-دى-۱۳۹۴, ۱۴:۵۲:۴۲
آخرین ارسال: sharin
  [سوال] به دست آوردن ماکسیمم یا مینیمم مقدار یک رنج اکسل eppagh 3 4,164 ۰۹-دى-۱۳۹۳, ۱۵:۳۲:۳۷
آخرین ارسال: eppagh
  حروف تاریخ شمسی automa 1 2,346 ۰۹-اردیبهشت-۱۳۹۳, ۲۲:۴۳:۲۲
آخرین ارسال: Ghoghnus
  سوال در مورد بدست آوردن سورس Hacker_2010 7 6,056 ۰۵-مرداد-۱۳۹۲, ۰۰:۵۴:۵۰
آخرین ارسال: babyy
  جستجو بینت دو تاریخ به همراه ساعت automa 20 16,921 ۲۳-تير-۱۳۹۲, ۱۶:۰۵:۳۶
آخرین ارسال: automa
  محاسبه میان چند ساعت و زمان مختلف sepahbod 5 6,496 ۰۴-تير-۱۳۹۲, ۱۶:۴۰:۴۵
آخرین ارسال: Ghoghnus
  بدست آوردن مطالب وب javaweb 4 5,975 ۱۶-خرداد-۱۳۹۲, ۱۳:۲۷:۳۰
آخرین ارسال: javaweb
  نرم افزار مشخص کننده روز بر اساس تاریخ Ambassador 2 3,630 ۰۲-بهمن-۱۳۹۱, ۲۰:۳۱:۵۹
آخرین ارسال: Ambassador
  مقایسه تاریخ automa 2 2,847 ۰۶-آذر-۱۳۹۱, ۱۹:۱۸:۰۳
آخرین ارسال: automa

پرش به انجمن:


کاربرانِ درحال بازدید از این موضوع: 1 مهمان

صفحه‌ی تماس | IranVig | بازگشت به بالا | | بایگانی | پیوند سایتی RSS