30-12-13, 09:53 PM
السلام عليكم ورحمة اللة وبركاتة
سالت احد الاخوة بالمنتدي عن السؤال من قبل واعطاني برنامج بسيط جيد جددا
ولكن بعد فترة فشل الاكواد
انا اريد اكواد بسيطة للحصول علي الوقت من موقع لاصنع فترة تجريبية لبرنامجي الكود اشتغل لمدة شهر علي الاكثر وتوقف الان كان قد قال لي رفعت ملف php
دية الاكواد وانا خلصت برنامجي وحفظتة برقم الهارد ولكن اريد التحكم في العملاء
الاكواد الي اعطاني اياها كانت لاتاخذ وقت مثل الويب بروسر اريد اكواد مفتوحة المصدر او طريقة مستمرة
سالت احد الاخوة بالمنتدي عن السؤال من قبل واعطاني برنامج بسيط جيد جددا
ولكن بعد فترة فشل الاكواد
انا اريد اكواد بسيطة للحصول علي الوقت من موقع لاصنع فترة تجريبية لبرنامجي الكود اشتغل لمدة شهر علي الاكثر وتوقف الان كان قد قال لي رفعت ملف 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