[H111er]

سعود كتب :بارك الله فيكم اخواني.
بالنسبة للاخ الفاضل [b]macary007 طريقتك احترافية و متقدمة قد احتاج لها قريبا لاني استخدم استضافة مجانية قد لا تتوفر لدي الوصول الكامل.
----------------------------------------------------------
بالنسبة للاخ الفاضل [/b][b]H111er
قمت بتحويل الكود الذي كتبت الى فيجوال بيسك عبر موقع: [/b]http://converter.telerik.com/
واصبح كالتالي:

كود :

Private Sub Timer_Tick(sender As Object, e As System.Timers.ElapsedEventArgs)    Application("onlines") = ""
End Sub


Private Sub Application_Start(sender As Object, e As EventArgs)
    ' Code that runs on application startup
    Application("onlines") = ""
    Dim Timer As New System.Timers.Timer()
    Timer.Interval = 60000
    Timer.Elapsed += New System.Timers.ElapsedEventHandler(Timer_Tick)
    Timer.Enabled = True
    Timer.Start()
End Sub

لكن كيف اجمع بين هذا المتغير

كود :

Application("onlines") = ""

وين متغير تحمله الجلسة وهي مثلا

كود :

session("tname")

والذي اخزنه حال تسجيل الدخول

بالنسبة للكود الذي كتبته حضرتك فلن يعمل .. حتما سوف تحتاج الى السي شارب الا اذا وجدت حل .. عموما لا تقلق فالسي شارب قريبا جدا من الفيجوال بيسك ..
بالنسبة لسؤالك يوجد حل باستخدام الـ Split .. و تعامل دقيق مع النصوص .. باذن الله سوف اضع مثال بسيط في قسم المقالات .. و بالتوفيق !