Отправка письма с вложением

Отправляем сообщение с вложением.

Imports System.Net.Mail
Imports System.Text
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     Dim email As New MailMessage
     Dim smtp As SmtpClient
     smtp = New SmtpClient("Smtp сервер") ' Пример smtp.mail.ru
     smtp.Credentials = New Net.NetworkCredential("Ваш e-mail", "Ваш пароль")
     email.From = New MailAddress("Ваш e-mail")
     email.To.Add(New MailAddress("Кому хотите отправить e-mail")
     email.Body = "Тут будет текст сообщения"
     email.Subject = "Заголовок сообщения" 
     email.Attachments.Add(New System.Net.Mail.Attachment("Путь к файлу, вложение")) ' Пример D:/SendMessage.exe
     smtp.Send(email)
End Sub

Загрузить проект от AeroWhite

E Mail Отправка письма с вложением

  Метки:
  Евгений
  Просмотров: 10 163
  Запись опубликована в 17:52

Под тип большого курсора или прицела

Написал это ради своих целей, ну целей в плане FastScreen, хотел реализовать такой же курсор при начале выделения области, но потом передумал и не стал это использовать, т.к объекты, а нужна была графика.

Если кому пригодиться, берите.

Загрузить проект

  
  Евгений
  Просмотров: 3 410
  Запись опубликована в 12:04

Простой графический редактор

Будем рисовать по PictureBox.

Возможности:

  • Плавное рисование
  • Открытие и сохранение изображений
  • Размер кисти и цвет кисти
  • Авто размер изображения подгоняемый под форму

Загрузить проект

PaintRedactor Простой графический редактор

  Метки:
  Евгений
  Просмотров: 10 524
  Запись опубликована в 07:24

Раскладка клавиатуры

Узнаем и задаем раскладку клавиатуры.

1033 - код английской раскладки клавиатуры [EN] (США)

1049 - код русской раскладки клавиатуры [RU] (Русская)

Узнаем раскладку:

MsgBox(System.Windows.Forms.InputLanguage.CurrentInputLanguage.LayoutName)

Меняем раскладку:

System.Windows.Forms.InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(System.Globalization.CultureInfo.GetCultureInfo(1049)) ' Меняем раскладку на русский язык
System.Windows.Forms.InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(System.Globalization.CultureInfo.GetCultureInfo(1033)) ' Меняем раскладку на английский язык
  Метки:
  Евгений
  Просмотров: 6 517
  Запись опубликована в 12:19

Перемещаем контрол(ы) по форме

"Таскаем" контрол по форме c помощью мышки.

Перемещать будем кнопку (можно сделать практически с любым контролом).

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Cursor = Cursors.SizeAll
    End Sub
    Private Sub Button1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove
        If Control.MouseButtons = Windows.Forms.MouseButtons.Left Then
            CType(sender, Button).Left = Control.MousePosition.X - Me.Left - CType(sender, Button).Width
            CType(sender, Button).Top = Control.MousePosition.Y - Me.Top - CType(sender, Button).Height
        End If
    End Sub
End Class

Запускаем проект на исполнение и пробуем потаскать свою кнопку.

  Метки:
  Евгений
  Просмотров: 6 605
  Запись опубликована в 09:24

Индикатор загрузки ЦП

Индикатор загрузки ЦП в графическом виде.

Первый вариант (мой):

cpuindect Индикатор загрузки ЦП

Загрузить проект

Второй вариант (не мой, но идея - моя):

cpu pam Индикатор загрузки ЦП

Загрузить проект

  Метки:
  Евгений
  Просмотров: 8 179
  Запись опубликована в 10:00

WinSock | Клиент и Сервер

Сегодня мы познакомимся с WinSock контролом.

WinSock - это компонент через который можно соединяться с удаленной машиной и обмениваться с ней данными.

WinSock использует 2 протокола:

1) UDP (User Datagram Protocol)

2) TCP (Transmission Control Protocol).

Оба эти протокола используются для создания Клиент-Серверных приложений.

В этом уроке мы напишем программу клиент - сервер на Visual Basic.NET

Начнем.

Сначала создадим Сервер.

1. Создаем новый проект(Файл->Новый проект->Приложение Windows Form) или у кого версия английская (File->New Project->Application Windows Form)
2. Добавляем элемент WinSock.(смотрите видео кто не знает как добавить WinSock

3. Раз кликаем на WinSock1 и добавляем его на форму.
Изменим у него свойство Name на tcpServer

tcpserver WinSock | Клиент и Сервер

4. Добавим на форму два TextBox'а и один Button

5. Вот что должно получиться(немного приукрасил)

tcpserver1 WinSock | Клиент и Сервер

Подробнее »

  Метки:
  Евгений
  Просмотров: 19 218
  Запись опубликована в 18:55

Генератор паролей

Не можете придумать хороший пароль? Тогда это для вас!

generator Генератор паролей

Принцип работы:

  • Указываем длину пароля
  • Нажимаем кнопку "Генерировать"
  • Получаем пароль(состоящий из англ букв и цифр)
  • Индикатор надежности

Загрузить проект

  Метки:
  Евгений
  Просмотров: 7 316
  Запись опубликована в 16:40

Буфер обмена

Добавляем и получаем текст из Буфера Обмена.

bo Буфер обмена

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = My.Computer.Clipboard.GetText ' Получаем текст из буфера обмены
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        My.Computer.Clipboard.SetText(TextBox2.Text) ' Добавляем текст в буфер обмена
    End Sub
End Class
  Метки:
  Евгений
  Просмотров: 4 289
  Запись опубликована в 17:00

Страницы:«1...3738394041424344»