[مبتدئ]

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