با سلام
من میخوام برنامه ام وقتی اجرا میشه بررسی کنه که به اینترنت وصل هستش یا نه در صورتی که وصل بود تاریخ دقیق رو از اینترنت دریافت کنه
با تشکر از دوستان
با سلام
من میخوام برنامه ام وقتی اجرا میشه بررسی کنه که به اینترنت وصل هستش یا نه در صورتی که وصل بود تاریخ دقیق رو از اینترنت دریافت کنه
با تشکر از دوستان
سلام
این کد تشخیص اتصال به اینترنت
' rah 1:
if my.computer.network.isavalable then
Msgbox ("connect")
Else
Msgbox ("NO connect")
End if
' rah 2
Const NETWORK_ALIVE_AOL = &H4
Const NETWORK_ALIVE_LAN = &H1
Const NETWORK_ALIVE_WAN = &H2
Private Declare Function IsNetworkAlive Lib "SENSAPI.DLL" (ByRef lpdwFlags As Long) As Long
Private Sub Timer1_Timer()
Dim CRes As Long
If IsNetworkAlive(CResult) = 0 Then
Text1.Text = False
Else
Text1.Text = True
End If
End Sub
سلام
برای دریافت تاریخ روز ابتدا یک WebBrowser1 توی برنامه بزار url رو برابر با http://www.time.ir ست کن
و در یک button بنویس
Dim t1 As HtmlElement = WebBrowser1.Document.GetElementById("ctl00_cphMidd leRight_Sampa_Web_View_TimeUI_ShowDate20cphMiddleR ight_3409_lblShamsiDate")البته باید به نت متصل باشی ها
MsgBox(t1.InnerText.ToString)
موفق باشی
یا علی
سلامسلام دوست عزیز
برای بدست آوردن ساعت .. باید از چه کدی استفاده کرد ؟
هر کنترولیتوی صفحه وب یک ایدی برو توی سورس صفحه وب مورد نظر ایدی کنترول پیدا کن و در
Dimt1 AsHtmlElement = WebBrowser1.Document.GetElementById("ctl00_cphMidd leRight_Sampa_Web_View_TimeUI_ShowDate20cphMiddleR ight_3409_lblShamsiDate")
MsgBox(t1.InnerText.ToString)
داخل پرانتز بنویس
موفق باشی
یا علی
با سلام
آیا به غیر ازWebBrowserراه دیگه ای برای بدست آوردن اطلاعات از وب هست ؟
مثلا اگه بخاییم 100 عدد از 100 صفحه جداگانه رو یک جا تو نرم افزار نمایش بدیم استفاده از 100WebBrowser کمی منطقی به نظر نمیرسه
اگه راه دیگه ای هست ممنون میشم بگین
چه سایتی ادرسشو بدهبا سلام
آیا به غیر ازWebBrowser
راه دیگه ای برای بدست آوردن اطلاعات از وب هست ؟
مثلا اگه بخاییم 100 عدد از 100 صفحه جداگانه رو یک جا تو نرم افزار نمایش بدیم استفاده از 100WebBrowser کمی منطقی به نظر نمیرسه
اگه راه دیگه ای هست ممنون میشم بگین
مثلا اطلاعات قیمتی (مثل قیمت پایانی )ده شرکت بورسی از سایت
http://www.tsetmc.com/Loader.aspx?ParTree=15
البته در این صفحه هر لحظه اطلاعات عوض میشه
و هر شرکتی صفحه مخصوص خود را دارد
ضمنا این آدرس در وب بروزر بالا نمیاد
مگر اینکه از این صفحه استفاده کنیم
http://www.tsetmc.com/Loader.aspx?ParTree=15131F
این صفحه هم id یک قسمت مشخص نیست
مثلا قیمت پایانی شرکت مپنا با این کد html نشون داده شده
<div style="width:50px" class="t0c">7,277</div>
موردی که من میخام همون عدد 7277 هست
با تشکر و ممنون
بد نیست مطالب لینک زیر را هم مطالعه کنید
http://www.kloth.net/software/timesrv1.php