[محمد اسماعيل]

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

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

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

انا اريد اكواد بسيطة للحصول علي الوقت من موقع لاصنع فترة تجريبية لبرنامجي الكود اشتغل لمدة شهر علي الاكثر وتوقف الان كان قد قال لي رفعت ملف 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