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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ممكن مسعدة فى عمل هذا المشروع (/showthread.php?tid=9138)



ممكن مسعدة فى عمل هذا المشروع - مبتدئ - 03-06-13

مثلآ لو يوجد 2 label و لو عاوز التيكست بتاع Label يتم اخذه من موقع يعنى يوجد فى موقع هذه الكلام Who's Online : 0 \ 500
لو العدع 0 ذاد يتم الذيادة فى التيكست و اخرى Server Status offline لو تغير الى Online التكست يتغير لى Online لو offline يتخير لى offline هل يمكن لى احد ان يساعدنى ؟


ممكن مسعدة فى عمل هذا المشروع - trustmeee - 03-06-13

مبتدئ كتب :مثلآ لو يوجد 2 label و لو عاوز التيكست بتاع Label يتم اخذه من موقع يعنى يوجد فى موقع هذه الكلام Who's Online : 0 \ 500
لو العدع 0 ذاد يتم الذيادة فى التيكست و اخرى Server Status offline لو تغير الى Online التكست يتغير لى Online لو offline يتخير لى offline هل يمكن لى احد ان يساعدنى ؟
اولا قم بعمل download للنص المكتوب في الصفحة المطلوبة من خلال الكود التالي ثم ضع نص الصفحة في textbox1

كود :
dim url as string = "www.msn.com"
Dim webclient1 As New System.Net.WebClient
                Try
                    TextBox1.Text = webclient1.DownloadString(url)
                Catch ex As Exception
                    MessageBox.Show("incorrect url or there is a problem with your internet connection", "can't load the page")
                End Try
ثم تعامل مع نص textbox كما تتعامل مع باقي النصوص مثلا
كود :
Label2.Text = TextBox1.Text.Substring(TextBox1.Text.IndexOf("Who's Online") + "Who's Online".Length, 2)



ممكن مسعدة فى عمل هذا المشروع - مبتدئ - 03-06-13

trustmeee كتب :اولا قم بعمل download للنص المكتوب في الصفحة المطلوبة من خلال الكود التالي ثم ضع نص الصفحة في textbox1

كود :
dim url as string = "www.msn.com"
Dim webclient1 As New System.Net.WebClient
                Try
                    TextBox1.Text = webclient1.DownloadString(url)
                Catch ex As Exception
                    MessageBox.Show("incorrect url or there is a problem with your internet connection", "can't load the page")
                End Try
ثم تعامل مع نص textbox كما تتعامل مع باقي النصوص مثلا
كود :
Label2.Text = TextBox1.Text.Substring(TextBox1.Text.IndexOf("Who's Online") + "Who's Online".Length, 2)
انا مش ادمن الموقع
انا وجت هذا الكود لاكن يوجد خطء فى ها هو
كود :
Private Function CheckServer(ByVal server As String) As Boolean
        Try
           New TcpClient().Connect(server.Split(":"c)(0), Integer.Parse(server.Split(":"c)(1)))
            Return True
        Catch
            Return False
        End Try
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show(If("Server" & CheckServer("google.com:25565"), "Online!", "Offline"))
    End Sub
لقد برنامج مثال للذى الايضه http://www.xboxmb.com/forum/52-programming/31864-minecraft-server-status-checker-using-kinks-snippet.html


ممكن مسعدة فى عمل هذا المشروع - trustmeee - 03-06-13

مبتدئ كتب :انا مش ادمن الموقع
انا وجت هذا الكود لاكن يوجد خطء فى ها هو
كود :
Private Function CheckServer(ByVal server As String) As Boolean
        Try
           New TcpClient().Connect(server.Split(":"c)(0), Integer.Parse(server.Split(":"c)(1)))
            Return True
        Catch
            Return False
        End Try
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show(If("Server" & CheckServer("google.com:25565"), "Online!", "Offline"))
    End Sub
لقد برنامج مثال للذى الايضه http://www.xboxmb.com/forum/52-programming/31864-minecraft-server-status-checker-using-kinks-snippet.html
الكود الذى وضعته لك لا يحتاج لان تكون ادمن السيرفر حتى يعمل

ورابط الصفحة الذي وضعته انت لا توجد فيه كلمة Who's Online
والمثال الذي ارفقته انت لا اعلم سبب المشكلة فيه


ممكن مسعدة فى عمل هذا المشروع - مبتدئ - 03-06-13

trustmeee كتب :الكود الذى وضعته لك لا يحتاج لان تكون ادمن السيرفر حتى يعمل

ورابط الصفحة الذي وضعته انت لا توجد فيه كلمة Who's Online
والمثال الذي ارفقته انت لا اعلم سبب المشكلة فيه

انا حليت ال online فى offline هذه ليسة الصفة التى الريد ان اعمل لة المثال
بس اذاى اعمل ال Who's Online
هذا هو الموقع الذى اريد ان اعمل الثال علية http://terra-ro.tk/ لقنة مغلق الان !