كيفية التعامل مع الويب كتحميل وتصفح !

الحفظ من على النت

My.Computer.Network.DownloadFile("FileUrl", "C:\1.txt")

تغيير صفحة البحث

Public Sub SetSearchPage(ByVal URL As String)

If URL = Nothing Then

MsgBox("لم تقم بوضع مسار", MsgBoxStyle.Critical, "خطأ")

Else

My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Search Page", URL)

End If

End Sub

ملئ الشاشة

Public Sub FullScreen(ByVal Enable As Boolean)

If Enable = True Then

My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "FullScreen", "Yes")

Else

My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "FullScreen", "no")

End If

End Sub

إرسال بريد

System.Web.Mail.SmtpMail.SmtpServer = "localhost"

System.Web.Mail.SmtpMail.Send("x@x.com", "y@y.com", "the subject", "the body")

رفع الملف إلى النت

My.Computer.Network.UploadFile("c:\1.txt", "www.google.com")

أتمنى أن أكود قد أفدتك