درخواست سورس به دست آوردن تاریخ از یک سایت ایرانی

[tootro20]

سلام.
ببخشید یه سورسی می خوام که باهاش مثلا به سایت time.ir وصل بشم و تاریخ و ساعت رو به صورت آنلاین ثبت کنم روی فورم میشه لطفا سورسشو بزارید؟ ممنون:خجالت::قلب:

[SlowCode]

قبل از ایجاد تاپیک جستجو کنید:
http://barnamenevis.org/showthread.php?399668-%DA%86%DA%AF%D9%88%D9%86%D9%87-%D9%85%DB%8C-%D8%AA%D9%88%D8%A7%D9%86-%D8%A7%D8%B2-%D8%B3%D8%A7%D8%B9%D8%AA-%D8%A7%DB%8C%D8%B1%D8%A7%D9%86-%D8%AF%D8%B1-%DB%8C%DA%A9-%D9%86%D8%B1%D9%85-%D8%A7%D9%81%D8%B2%D8%A7%D8%B1-%D8%A8%D8%B1%D8%A7%DB%8C-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D8%B1%DB%8C%D8%B2%DB%8C-%D8%A7%D8%B3%D8%AA%D9%81%D8%A7%D8%AF%D9%87-%DA%A9%D8%B1%D8%AF%D8%9F&p=1774604&viewfull=1#post1774604

[محسن واژدی]

سلام علیکم
دریافت زمان با ارسال بسته http هم میتوانید از دستور زیر استفاده کنید:
Private Sub Command1_Click()
Dim xmlhttp, sRet$
Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
With xmlhttp
.open "GET", "http://www.time.ir/Components/Time/GetDate.aspx"
.send
.waitForResponse 20
sRet$ = .responseText
MsgBox TimeSerial(Split(sRet$, " ")(3), Split(sRet$, " ")(4), Split(sRet$, " ")(5))
End With
End Sub

موفق باشید

[tootro20]

سلام.
ببخشید یه سورسی می خوام که باهاش مثلا به سایت time.ir وصل بشم و تاریخ و ساعت رو به صورت آنلاین ثبت کنم روی فورم میشه لطفا سورسشو بزارید؟ ممنون:خجالت::قلب:
سلام علیکم برادر ببخشید بنده توی پوست فرموده بودم که تاریخ هم باشه میشه لطفا علاوه بر ساعت تاریخ هم بزارید؟
ممنون
دستت درد نکنه برادر گلم.
تشکّر ♥

[SlowCode]

ساده است کافیه id اون span که تاریخ توش ذخیره شده رو پیدا کنی.

msgbox WebBrowser1.Document.GetElementByID("ctl00_cphMiddleRight_SAMPARL_Web_View_TimeUI_ShowD ate00cphMiddleRight_1376_lblShamsiDate").innerhtml


ببخشید بنده توی پوست فرموده بودم
بله فرموده بودین:لبخند:

[tootro20]

ساده است کافیه id اون span که تاریخ توش ذخیره شده رو پیدا کنی.

msgbox WebBrowser1.Document.GetElementByID("ctl00_cphMiddleRight_SAMPARL_Web_View_TimeUI_ShowD ate00cphMiddleRight_1376_lblShamsiDate").innerhtml


بله فرموده بودین:لبخند:
سلام. ممنون آما کار نکرد :D

[SlowCode]

به خاطر اینه که سایت برنامه نویس توی متنها تغییراتی ایجاد میکنه. از کد آقای واژدی استفاده کن:

Dim xmlhttp, sRet$
Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
With xmlhttp
.open "GET", "http://www.time.ir/Components/Time/GetDate.aspx"
.send
.waitForResponse 20
sRet$ = .responseText
parts = Split(sRet$, " ")
MsgBox TimeSerial(parts(3), parts(4), parts(5))
MsgBox DateSerial(parts(0), parts(1), parts(2))
End With