Определение в онлайне Вы или нет. Как получить файл с сервера. Как узнать, что Вам пришла почта, работа с сетевыми дисками и т.д.
Code
'отправка письма
Imports System.Net.Mail
Dim mailMsg As New MailMessage("исходящий", "входящий ящик", "тема", "текст")
Dim mysmtp As SmtpClient
mysmtp = New SmtpClient("smtp.mail.ru")
mysmtp.Credentials = New System.Net.NetworkCredential("имя пользователя исх. ящика", "пароль")
Try
mysmtp.Send(mailMsg)
MessageBox.Show("Отправлено! в течении 12 часов письмо будет прочитано", _
"Статус письма", MessageBoxButtons.OK, _
MessageBoxIcon.Information)
Catch exp As Exception
MessageBox.Show("Ошибка:" & exp.Message, _
Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Code
Смотрим код HTML или PHP страницы
Dim wbc as new WebClient
wbc.Encoding = Encoding.UTF8
TextBox1.AppendText(wbc.DownloadString("http://www.sql.ru"))
Code
Проверяем подключен ли компьютер к интернету
Public Function IsConnectionAvailable() As Boolean
Dim objUrl As New System.Uri("http://kbyte.ru")
Dim objWebReq As System.Net.WebRequest
objWebReq = System.Net.WebRequest.Create(objUrl)
Dim objResp As System.Net.WebResponse
Try
objResp = objWebReq.GetResponse
objResp.Close()
objWebReq = Nothing
Return True
Catch ex As Exception
objResp.Close()
objWebReq = Nothing
Return False
End Try
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If IsConnectionAvailable() Then
MsgBox("Компьютер подключен к Интернет!", MsgBoxStyle.Information)
Else
MsgBox("Компьютер НЕ подключен к Интернет!", MsgBoxStyle.Information)
End If
End Sub
Code
Узнаем свой IP адрес
Private Sub Form_Load()
MsgBox "Ваш IP: " & Winsock1.LocalIP
End Sub
