منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - عمل برنامج تجريبي بالتاريخ والوقت من موقع

السلام عليكم ورحمة اللة وبركاتة

سالت احد الاخوة بالمنتدي عن السؤال من قبل واعطاني برنامج بسيط جيد جددا

ولكن بعد فترة فشل الاكواد

انا اريد اكواد بسيطة للحصول علي الوقت من موقع لاصنع فترة تجريبية لبرنامجي الكود اشتغل لمدة شهر علي الاكثر وتوقف الان كان قد قال لي رفعت ملف php

دية الاكواد وانا خلصت برنامجي وحفظتة برقم الهارد ولكن اريد التحكم في العملاء

الاكواد الي اعطاني اياها كانت لاتاخذ وقت مثل الويب بروسر اريد اكواد مفتوحة المصدر او طريقة مستمرة

كود :

Imports System.Text

Imports System.Threading

Public Class Form1

    Dim End_d As String = "31/12/2013"

    Dim worl_D As String

    Dim W_req As WebRequest

    Dim W_resp As WebResponse

    Dim D_str As Stream

    Dim S_read As StreamReader

    Dim Th_1 As Thread

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Th_1 = New Thread(AddressOf _Load_Bage_)

        Th_1.Start()

    End Sub

    Private Sub _Load_Bage_()

        Try

            W_req = WebRequest.Create("http://cocoo.orgfree.com/xtest.php")

            W_resp = W_req.GetResponse()

            D_str = W_resp.GetResponseStream()

            S_read = New StreamReader(D_str)

            worl_D = S_read.ReadToEnd

            If worl_D = End_d Then

                MsgBox("انتهي الاصدار التجريبى جاري اغلاق البرنامج", MsgBoxStyle.Critical)

                End

            Else

                MsgBox("لم ينتهي الاصدار التجريبى")

            End If

        Catch ex As Exception

            MsgBox("فشل الاتصال بصفحة التاريخ جاري اغلاق البرنامج", MsgBoxStyle.Critical)

            End

        End Try

    End Sub

End Class

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

محمد اسماعيل