سوال در مورد ارتباط با فایل های متنی در هاست ؟

[mohsen.fk]

با سلام من یک برنامه دارم این برنامه آدرس یک فایل توی یک هاست رو میگیره و داخل یک لیبل اطلاعات توی فایل رو نمایش میده حالا اگه بخوام بدون اینکه توی کادر آدرس فایل رو بدم میخام یک آدرس ثابت داخل کد بدم که وقتی روی باتن کلیک کردم اطلاعات داخل فایل تکست روی هاست رو به من نشون بده و وقتی روی لیبل کلیک کردم اون سایتو داخل مرورگرم باز کنه :
نکته : 1 اطلاعات داخل فایل یکی آدرس وب سایت هست
2 فایل دومی اطلاعات فارسی داخلش هست

ممنون میشم راهنمایی کنید
نصف برنامه درست هست

113874 113876


Imports System.Net
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
MsgBox("مسیر فایل را وارد کنید")
Exit Sub
End If
Try
Label1.Text = ""
Dim instance As WebClient = New WebClient
Dim address As String = TextBox1.Text
Dim returnValue As String
returnValue = instance.DownloadString(address)
Label1.Text = returnValue
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

End Class

این هم کل کدهای برنامه

[barnamenevisjavan]

Private Function ShowRemoteStringFile(ByVal url As String) As String
Try
Dim req As WebRequest = WebRequest.Create(url)
Dim rsp As WebResponse = CType(req.GetResponse, HttpWebResponse)
Dim rdr As New StreamReader(rsp.GetResponseStream())
Dim result As String = rdr.ReadToEnd
Return result
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Exclamation)
Return Nothing
End Try
End Function


Label1.Text = ShowRemoteStringFile("http://shadoow.ir/key/misiontype.txt")

[Hossis]

خاصیتVisible اون دو تا رو برابر False کن تا نشون داده نشه