مثلآ لو يوجد 2 label و لو عاوز التيكست بتاع Label يتم اخذه من موقع يعنى يوجد فى موقع هذه الكلام Who's Online : 0 \ 500
لو العدع 0 ذاد يتم الذيادة فى التيكست و اخرى Server Status offline لو تغير الى Online التكست يتغير لى Online لو offline يتخير لى offline هل يمكن لى احد ان يساعدنى ؟
مبتدئ كتب :مثلآ لو يوجد 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)
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-programmi...ippet.html
مبتدئ كتب :انا مش ادمن الموقع
انا وجت هذا الكود لاكن يوجد خطء فى ها هو
كود :
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-programmi...ippet.html
الكود الذى وضعته لك لا يحتاج لان تكون ادمن السيرفر حتى يعمل
ورابط الصفحة الذي وضعته انت لا توجد فيه كلمة Who's Online
والمثال الذي ارفقته انت لا اعلم سبب المشكلة فيه
trustmeee كتب :الكود الذى وضعته لك لا يحتاج لان تكون ادمن السيرفر حتى يعمل
ورابط الصفحة الذي وضعته انت لا توجد فيه كلمة Who's Online
والمثال الذي ارفقته انت لا اعلم سبب المشكلة فيه
انا حليت ال online فى offline هذه ليسة الصفة التى الريد ان اعمل لة المثال
بس اذاى اعمل ال Who's Online
هذا هو الموقع الذى اريد ان اعمل الثال علية
http://terra-ro.tk/ لقنة مغلق الان !