سلام میتونین این کارو با ایجاد فایل در هاستینگ مقصد انجام بدین 

وقتی سیستم وصل میشه یه فایل متنی باز کنه و داخلش ساعت اتصال و از کدوم مرکزه یا شهره بنویسه 

و شما در ادمینتون همون فایلهارو صداکنین به عنوان مثال اگه داخل فایل مرکز تبریز 0 بود یعنب متصل نیست و چراغ قرمز دیده شه و وقتی تبریز متصل شد فایل در لود فرم بازشه عدد 1 رو توش ذخیره کنه که یعنی چراغ سبزه 

به همین سادگی 

شماهم داخل ادمینتون کنترول کنین محتویات فایل 0 یا 1 رو

و وقتی فرم بسته میشه اول بره فایل رو بازکنه 0 رو توش بنویسه ذخیره کنه و ببنده

 '////////// loading txt
        Try
            HyperLink1.Text = File.ReadAllText(Server.MapPath("~/txt/Default/1.txt"))
        Catch ex As Exception
        End Try

اینم کد ذخیره در تکست باکسها

 Dim path2 As String
        path2 = Server.MapPath("~/FCpanel/Default/" + DropDownList1.Text + ".txt")
        File.Delete(path2)

        Dim path As String
        Dim appendText As String
        path = Server.MapPath("~/FCpanel/Default/" + DropDownList1.Text + ".txt")
        appendText = TextBox2.Text + Environment.NewLine
        File.AppendAllText(path, appendText, Encoding.UTF8)

        Try
            tiket1.Text = File.ReadAllText(Server.MapPath("~/FCpanel/Default/tiket1.txt"))
            tiket2.Text = File.ReadAllText(Server.MapPath("~/FCpanel/Default/tiket2.txt"))
            tiket3.Text = File.ReadAllText(Server.MapPath("~/FCpanel/Default/tiket3.txt"))
            tiket4.Text = File.ReadAllText(Server.MapPath("~/FCpanel/Default/tiket4.txt"))
            tiket5.Text = File.ReadAllText(Server.MapPath("~/FCpanel/Default/tiket5.txt"))
            tiket6.Text = File.ReadAllText(Server.MapPath("~/FCpanel/Default/tiket6.txt"))
            tiket7.Text = File.ReadAllText(Server.MapPath("~/FCpanel/Default/tiket7.txt"))
            tiket8.Text = File.ReadAllText(Server.MapPath("~/FCpanel/Default/tiket8.txt"))
            tiket9.Text = File.ReadAllText(Server.MapPath("~/FCpanel/Default/tiket9.txt"))

            ''l11.Text = Read_TextFile("http://daneshseir.com/FCpanel/Comments/main/tiket1.txt")

        Catch ex As Exception
            'Label1.Text = ex.Message & "   **خطا**   "

        End Try

و وقتی فرم بسته میشه اول بره فایل رو بازکنه 0 رو توش بنویسه ذخیره کنه و ببنده

 '////////// loading txt
        Try
            HyperLink1.Text = File.ReadAllText(Server.MapPath("~/txt/Default/1.txt"))
        Catch ex As Exception
        End Try

اینم کد ذخیره در تکست باکسها

 Dim path2 As String
        path2 = Server.MapPath("~/FCpanel/Default/" + DropDownList1.Text + ".txt")
        File.Delete(path2)

        Dim path As String
        Dim appendText As String
        path = Server.MapPath("~/FCpanel/Default/" + DropDownList1.Text + ".txt")
        appendText = TextBox2.Text + Environment.NewLine
        File.AppendAllText(path, appendText, Encoding.UTF8)

        Try
            tiket1.Text = File.ReadAllText(Server.MapPath("~/FCpanel/Default/tiket1.txt"))
            tiket2.Text = File.ReadAllText(Server.MapPath("~/FCpanel/Default/tiket2.txt"))
            tiket3.Text = File.ReadAllText(Server.MapPath("~/FCpanel/Default/tiket3.txt"))
            tiket4.Text = File.ReadAllText(Server.MapPath("~/FCpanel/Default/tiket4.txt"))
            tiket5.Text = File.ReadAllText(Server.MapPath("~/FCpanel/Default/tiket5.txt"))
            tiket6.Text = File.ReadAllText(Server.MapPath("~/FCpanel/Default/tiket6.txt"))
            tiket7.Text = File.ReadAllText(Server.MapPath("~/FCpanel/Default/tiket7.txt"))
            tiket8.Text = File.ReadAllText(Server.MapPath("~/FCpanel/Default/tiket8.txt"))
            tiket9.Text = File.ReadAllText(Server.MapPath("~/FCpanel/Default/tiket9.txt"))

            ''l11.Text = Read_TextFile("http://daneshseir.com/FCpanel/Comments/main/tiket1.txt")

        Catch ex As Exception
            'Label1.Text = ex.Message & "   **خطا**   "

        End Try

ببخشید زبان من ویبی هستش

دوست عزیز یک مشکلی که من دارم وقتی اداره تعطیل هستش برنامه اجرا نمیشه که کدها به سرور ارسال بشه .تا برنامه رو کاربر لود نکنه که کد های منم اجرا نمیشه.پس در نتیجه این کارو باید سرور با یک نرم افزار مجزا انجام بده.

در ضمن وقتی یک شعبه اینترنت نداره پس نمیتونه مقدار رو داخل هاست ذخیره کنه.فقط زمانی که اینترنت داره میشه.

حالا یه چیز مهمتر اینکه من به برنامه میگم هر پنج دقیقه مقدار رو بریزه داخل هاست. حالا چون برنامه تو کشور های مختلف اجرا میشه اختلاف ساعت داریم.برنامه هاست باید جوری باشه هر هفت دقیقه چک کنه ردیف جدیدی که توی دیتابیس هاست ذخیره شده کدوم فیلد ها مقدار true داره همونا رو سبز کنه.

خب شما تو هر شعبتون باید هر چند دقیقه ریپورت کنه و اطلاعات مثلا 3 دیقیقه رو داخل فایل یا دیتا بیس ذخیره کنه و اگه نت شعبتون قط شد خب طبیعتا دیگه فایل اپ دیت نمیشه و اخرین کانکت رو داخل دیتا بیس نشون میده