Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Mail in vb.net



Mail in vb.net
2015-06-21 20:19 rusiko
Привет. помогите пожалуйста. Как можно с помощью VB.NET, создать программу, которая при нажатии на кнопку, сама открывает браузер и заходит в майл. У меня есть программа которая посылает сообщения в майл. Но, нужно чтобы программа сама прописывала майл адрес и пароль и заходила в почту. Возможно ли сделать что-то подобное? Надеюсь смог объяснить. Спасибо большое.

DataGridView in VB.NET
2015-06-21 20:26 rusiko
Привет всем. Есть прога в VB.NET и Datagrid. Вся информация записывается прямо в Datagrid. Но есть один минус. Когда какая-то запись целиком удаляется из Datagrid, то место этой записи остается пустым. Можно-ли сделать так, чтоб при удалении записи, автоматически нижеследующая запись поднималась и заполняла пустую строку? спасибо большое

RE: Mail in vb.net
2015-06-22 16:20 Алексей Немиро
Проще всего использовать элемент WebBrowser.
Открыть страницу (WebBrowser1.Navigate("https://mail.ru/")) и найти элементы ввода логина и пароля и установить нужные значения:
WebBrowser1.Document.GetElementById("mailbox__login").InnerText ="логин"
WebBrowser1.Document.GetElementById("mailbox__password").InnerText = "пароль"
И нажать на кнопку Войти:
WebBrowser1.Document.GetElementById("mailbox__auth__button").InvokeMember("click")

Управлять внешним браузером тоже можно, но сложно и придется учитывать все возможные браузеры.

Еще вариант - использовать API. Вход осуществлять по протоколу OAuth с использованием WebBrowser.
Программно работать с API будет проще и надежней, чем парсить сайт, который может меняться.

RE: Mail in vb.net
2015-06-22 16:20 Алексей Немиро
Проще всего использовать элемент WebBrowser.
Открыть страницу (WebBrowser1.Navigate("https://mail.ru/")) и найти элементы ввода логина и пароля и установить нужные значения:
WebBrowser1.Document.GetElementById("mailbox__login").InnerText ="логин"
WebBrowser1.Document.GetElementById("mailbox__password").InnerText = "пароль"
И нажать на кнопку Войти:
WebBrowser1.Document.GetElementById("mailbox__auth__button").InvokeMember("click")

Управлять внешним браузером тоже можно, но сложно и придется учитывать все возможные браузеры.

Еще вариант - использовать API. Вход осуществлять по протоколу OAuth с использованием WebBrowser.
Программно работать с API будет проще и надежней, чем парсить сайт, который может меняться.

RE: DataGridView in VB.NET
2015-06-22 16:51 Алексей Немиро
Просто удалять строку из DataGridView:
DataGridView1.Rows.Remove(DataGridView1.CurrentRow)
При условии, что текущая строка (DataGridView1.CurrentRow) будет удаленной из базы строкой.

Google обвинили в выпуске прослушивающего браузера
2015-06-23 15:51

Основатель Пиратской партии Швеции Рик Фальквинге обвинил Google в установке прослушивающего программного обеспечения на компьютеры пользователей без их согласия. Пользователь браузера Chromium заметил таинственную программу, которая самостоятельно активировала микрофон и реагировала на голос.



Visual basic
2015-06-23 16:08 makslim
Здравствуйте. Помогите пожалуйста написать программу.
Подсчитайте, каково наибольшее количество одинаковых элементов следуют подряд в массиве.(Visual basic)

В Китае выпустят первый смартфон на 10-ядерном процессоре
2015-06-24 16:20
Китайский производитель мобильной техники Elephone пообещал осенью 2015 года выпустить первый в мире смартфон с 10-ядерным процессором. Ожидается, что P9000 с топовой начинкой и под управлением Android 5.1 поступит в продажу по цене 500 долларов в Европе, Северной и Южной Америке, на Ближнем Востоке.

RE: Visual basic
2015-06-24 19:51 makslim
Кое что накопал есть ошибка как исправить
Private Sub mass()
Dim a(10) As Integer
Dim i As Integer
Dim max, v, k As Integer
k = 0
For i = 0 To Len(a) - 1
Input a(i)
If (i = 0) Or (a(i) = v) Then
k = k + 1
Else
If max < k Then
max = k
End If
k = 0
End If
v = a(i)
Next i
Print max
End Sub


RE: Visual basic
2015-06-24 19:51 makslim
Кое что накопал есть ошибка как исправить
Private Sub mass()
Dim a(10) As Integer
Dim i As Integer
Dim max, v, k As Integer
k = 0
For i = 0 To Len(a) - 1
Input a(i)
If (i = 0) Or (a(i) = v) Then
k = k + 1
Else
If max < k Then
max = k
End If
k = 0
End If
v = a(i)
Next i
Print max
End Sub


Lexus объявил о создании летающей доски-ховерборда
2015-06-25 12:06

Lexus заявил о создании ховерборда (летающей доски) на основе эффекта магнитной левитации. Она не представила полноценного видео, однако в симуляции видно, что доска требует глубокого охлаждения. Компания поясняет, что левитация происходит за счет использования сверхпроводников.



Пользователям Gmail разрешили возвращать отправленные письма
2015-06-25 12:08

Google добавил в своей почтовый сервис Gmail возможность отменить отправку письма. Опция Undo Send появились в веб-версии Gmail после шести лет бета-тестирования. Для того чтобы исправить ошибки или отредактировать список получателей письма, у пользователей есть 30 секунд.



SQL formula
2015-06-25 22:56 rusiko
Привет всем. Есть одна проблемма с решением формулы на SQL. Но никак не могу найти выход. Программа написана на VB.NET, а БД на SQL Server. Дело в следующем. На форме есть datagrid. В datagrid есть поля: First, second, third, four, five, six, finish, summa. В первый день в поле First записывается какое-то число (например 1000), во-второй день в поле second записывается другое число (например 30). Мне нужно чтобы поле summa равна First минус second. Это понятно. Но проблема в том, что когда в третий день в поле third записывается какое-то число (например 60), то summa была равна First минус third и при этом значение second оставалось не тронутым. И так далее до последнего дня (summa = first - finish). Суть в следующем. В поле First, значения записываются один раз, но в другие поля каждый день записывается значение и поле summa должна каждый день вычитать значения поля First от значения последнего поля. И самое главное, чтобы поля, которые содержать значения не обнулялись. Не знаю смог ли правильно задать вопрос, но если вопрос понятен, очень надеюсь на вашу помощь. И не имеет значения как можно решить задачу. На стороне sql или на стороне VB.NET. Главное как-то решить задачу. Спасибо заранее.

RE: SQL formula
2015-06-26 16:36 Алексей Немиро
Если значения не обнулять намеренно, то само сбрасываться ничего не будет.

Поле summa тут вообще лишнее, если выводить данные, то можно его значение считать на лету:
SELECT (first - second) AS summa FROM tableName;
SELECT (first - third) AS summa FROM tableName;
SELECT (first - four) AS summa FROM tableName;
-- ..
SELECT (first - finish) AS summa FROM tableName;

Самое сложное в этой задаче - это определение, что вычитать от summa.
Если бы данные хранились вертикально, было бы проще. Можно было бы номер дня записать в виде целого числа и просто брать нужно число.
А с горизонтальной структурой придется писать дополнительные условия.

Если значения полей изначально равны NULL, а first, second, third, four, five, six, finish - это абсолютно любой день обращения к программе, то можно проверять по значению NULL, какой нужно считать день.

В T-SQL есть инструкция UNPIVOT, которая может горизонтальные данные превратить в вертикальные, что для решения данной задачи будет проще, если нет возможности переделывать структуру таблицы:

SELECT id, [day], value FROM 
(SELECT id, [first], [second], [third], [four], [five], [six], [finish] FROM @table) AS p
UNPIVOT 
(
  value FOR [day] IN ([first], [second], [third], [four], [five], [six], [finish])
) AS unpvt;

Пример с временной таблицей:
DECLARE @table AS TABLE (id int primary key identity, [first] int, [second] int, [third] int, [four] int, [five] int, [six] int, [finish] int);

INSERT INTO @table ([first], [second], [third], [four], [five], [six], [finish])
VALUES (1000, 30, NULL, NULL, NULL, NULL, NULL);

SELECT id, [day], value FROM 
(SELECT id, [first], [second], [third], [four], [five], [six], [finish] FROM @table) AS p
UNPIVOT 
(
  value FOR [day] IN ([first], [second], [third], [four], [five], [six], [finish])
) AS unpvt;
Результат:
id          day      value
----------- -------- -----------
1           first    1000
1           second   30

В реальных условиях, вместо @table нужно указывать существующую таблицу (только в запросе SELECT, инструкция DECLARE и INSERT не нужны, это для примера).

Можно сделать временную таблицу для вертикальных данных:
DECLARE @work AS TABLE (id int, [day] varchar(20), [value] int);

INSERT INTO @work
SELECT id, [day], value FROM 
(SELECT id, [first], [second], [third], [four], [five], [six], [finish] FROM @table) AS p
UNPIVOT 
(
  value FOR [day] IN ([first], [second], [third], [four], [five], [six], [finish])
) AS unpvt;

И далее определить, какой день был последним и понять, для какого дня нужно считать сумму.
Удобней всего, если first, second, third и т.п. будут числами, а не текстом:

DECLARE @table AS TABLE (id int primary key identity, [first] int, [second] int, [third] int, [four] int, [five] int, [six] int, [finish] int);

INSERT INTO @table ([first], [second], [third], [four], [five], [six], [finish])
VALUES (1000, 30, NULL, NULL, NULL, NULL, NULL);


DECLARE @work AS TABLE (id int, [day] int, [value] int);

INSERT INTO @work
SELECT id, [day], value FROM 
(
	SELECT id, 
	[first] AS [1], [second] AS [2], [third] AS [3], 
	[four] AS [4], [five] AS [5], [six] AS [6], [finish] AS [7] FROM @table
) AS p
UNPIVOT 
(
  value FOR [day] IN ([1], [2], [3], [4], [5], [6], [7])
) AS unpvt;

-- переменная для хранения значения первого дня
DECLARE @значениеПервогоДня int;

-- берем значение первого дня
SELECT TOP 1  @значениеПервогоДня = value FROM @work WHERE [day] = 1;

-- переменные для хранения номера последнего дня и значения
DECLARE @последнийДень int, @значениеПоследнегоДня int;

-- получаем последний день
SELECT TOP 1 
@последнийДень = [day], 
@значениеПоследнегоДня = value
FROM @work ORDER BY [day] DESC;

SELECT @последнийДень, @значениеПоследнегоДня

SELECT (@значениеПервогоДня - @значениеПоследнегоДня) AS summa;
Вот небольшая схема того, как это работает (надеюсь, не слишком запутано):


Результат выборки будет таким:

Это два последних SELECT:
SELECT @последнийДень, @значениеПоследнегоДня
SELECT (@значениеПервогоДня - @значениеПоследнегоДня) AS summa;


RE: SQL formula
2015-06-27 04:38 Алексей Немиро
Еще добавлю, в T-SQL есть функция SUM, которая суммирует значения указанных полей. Если нужно от first вычесть сумму остальных полей, то можно использовать эту функцию. Но данные должны быть вертикальными.

SELECT
(
  (SELECT TOP 1 value FROM table WHERE day = 1) - (SELECT SUM(value) FROM table WHERE day <> 1)
) AS summa


Пакет
2015-06-28 16:35 i32
Привет всем..
Вопрос что значит '>>"

 Dim Buf As Byte() = {CByte(magic >> 0), CByte(magic >> 8), CByte(magic >> 16), CByte(magic >> 24)
Хочу создать пакет для отправки ..Что то не вкурить...Тут перевод с С..Может не правельно..
Питон
# ф-ция по созданию пакета приветствия
def packet_make(msg, seq=1, mydata=''):
    formt = '<5L'
    dlen = len(mydata)
    my_header = pack(formt, CS_MAGIC, PROTO_VERSION, seq, msg, dlen) + pack('<L', 0)*6
    return my_header
Спасибо...

RE: Пакет
2015-06-28 20:13 Shark1
Этот оператор ((">>" - "вправо") или ("<<" - "влево")) выполняет арифметический сдвиг разряда.

Посмотри здесь : Тыц и здесь : Тыц




Область применения закона &#171;о&#160;забвении&#187; сократили ко&#160;второму чтению
2015-06-29 15:47

Из-под действия законопроекта о «праве на забвение» ко второму чтению в Госдуме выведены «внутренние» поисковые системы, существующие на многих интернет-сайтах. Россияне будут иметь право требовать удаления ссылок только на специализированных поисковых порталах, которые зарабатывают деньги в России, показывая рекламу.



Bloomberg рассказал о суперчувствительном дисплее нового iPhone
2015-06-30 14:34

Apple начала производство первых образцов iPhone с поддержкой технологии Force Touch, которая считывает силу и продолжительность нажатия на экран. Дисплей iPhone станет еще более чувствительным и позволит пользователям взаимодействовать с гаджетом большим числом жестов. Массовое производство может стартовать в июле.



Что такое декорированное свойство ?
2015-06-30 14:38 dr.monstr
Всем привет!

Работаю я над проектом, и вижу это "... декорированного свойства", мне стало интересно что же это такое.

Что такое декорированной свойство?

RE: Что такое декорированное свойство ?
2015-06-30 16:46 Алексей Немиро
Декорированное - помеченное одним или более атрибутами.

string ОбычноеСвойство { get; set; }

[Атрибут]
string РазукрашенноеСвойство { get; set; }


RE: Что такое декорированное свойство ?
2015-06-30 21:31 dr.monstr
Спасибо Алексей, как всегда выручаешь !

Законопроект о &#171;праве на забвение&#187; прошел второе чтение в Думе
2015-07-01 15:41

Госдума приняла во втором чтении законопроект, известный как «право на забвение» в интернете и обязывающий поисковики по требованию гражданина удалять из поисковой выдачи ссылки с информацией о нем. После обсуждений законодателей и представителей интернет-отрасли в законопроект были внесены изменения.



Apple Music стал доступен в России
2015-07-01 15:41

Музыкальный стриминговый сервис Apple Music запустился в России. Apple Music доступна через стандартное приложение «Музыка». Сервис позволяет слушать музыку из библиотеки iTunes и каталога, в который входит более 30 миллионов композиций, а также сохранять композиции для прослушивания офлайн.



При создании класса, чтобы автоматически создавались регионы
2015-07-01 19:14 dr.monstr
Сижу пишу очередной проект, и постоянно при создании класса я сам прописываю регионы. Я задумался, как можно сделать так, чтобы при создании класса, автоматически прописывали регионы?

#region Fields
#endregion Fields

#region Proiperties
#endregion Properties

#region Constructors
#endregion Constructors

и тд.


Textbox summ
2015-07-01 21:13 rusiko
Привет всем. Есть одна маленькая проблемка. Помогите пожалуйста. Если честно, я несколько раз старался описать проблемму, но в конце-концов решил отправить сам файл, чтобы было совсем ясно в чем проблемма. На форме есть button3. При загрузке формы, textbox9.Text равняется textbox2.Text. мне нужно следующее. Когда в textbox3.text записывается какое-то число, то при нажатии на button3 textbox10.text равнялось textbox2.Text минус textbox3.text. Потом, если в textbox4.text записывается какое-то число, то при нажатии на button3 textbox10.text равнялось textbox2.Text минус textbox4.text. И так далее до конца когда в textbox8.text записывается какое-то число, то при нажатии на button3 textbox10.text равнялось textbox2.Text минус textbox8.text. Одним словом, чтобы в textbox10.text отображалась информация о вычитании значений textbox2.Text из значения textbox.Text, в которое было записано какое-то число последним. Спасибо заранее!!!

RE: При создании класса, чтобы автоматически создавались регионы
2015-07-01 23:42 Алексей Немиро
Шаблоны можно подправить:
/КаталогVisualStudio/Common7/IDE/ProjectTemplates
/КаталогVisualStudio/Common7/IDE/ItemTemplates

Для x64 следует искать в /Program Files (x86)

Например, для Visual Studio 2010 в Windows x64:
C:\Program Files (x86)\Microsoft Visual Studio 10.0\Common7\IDE\ItemTemplates

Еще можно макрос написать. Меню Сервис -> Макросы.
В студии должны быть примеры готовых макросов, для данной задачи см. раздел VSEditor.

Я обычно руками пишу, ибо это не всегда нужно, а когда становится нужно, то приходится выделять готовые блоки кода.

RE: Textbox summ
2015-07-02 00:06 Алексей Немиро
	Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
		'делаем массив текстовых полей, чтобы не писать много одинакового кода
		Dim textbox() As TextBox = {TextBox2, TextBox3, TextBox4, TextBox5, TextBox6, TextBox7, TextBox8}
		'TextBox10 должен быть равен значению TextBox2 минус значение последнего не пустого textbox
		For Each t As TextBox In textbox
			If Not String.IsNullOrEmpty(t.Text) Then
				'текущее значение не является пустым, вычитаем
				TextBox10.Text = CType(TextBox2.Text, Decimal) - CType(t.Text, Decimal)
			Else
				'пустое значение, выходим из цикла
				Exit For
			End If
		Next
	End Sub
Работать будет только при последовательном вводе, т.е. если ввести значение в TextBox8, а предыдущие поля будут пустыми, то расчет с TextBox8 не будет выполнен.



Если поля по середине могут быть пустыми, то можно проверить все поля и запомнить те, в которых есть какое-то значение, а затем вычесть последнее значение:
	Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
		'делаем массив текстовых полей, чтобы не писать много одинакового кода
		Dim textbox() As TextBox = {TextBox2, TextBox3, TextBox4, TextBox5, TextBox6, TextBox7, TextBox8}
		Dim nums As New List(Of Decimal)
		For Each t As TextBox In textbox
			If Not String.IsNullOrEmpty(t.Text) Then
				'текущее значение не является пустым, добавляем в коллекцию
				nums.Add(CType(t.Text, Decimal))
			End If
		Next
		'вычитаем последний не пустой элемент
		If nums.Count > 0 Then
			TextBox10.Text = CType(TextBox2.Text, Decimal) - nums(nums.Count - 1)
		End If
	End Sub



RE: Textbox summ
2015-07-02 01:57 rusiko
Спасибо вам большое.

В России начались продажи первого смартфона Acer на Windows 8.1
2015-07-02 15:51

Компания Acer начала продажи бюджетной модели Liquid M220. Новинка с 4-дюймовым экраном доступна в магазинах по рекомендованной цене 4490 рублей. Liquid M220 стал первым телефоном компании, который управляется операционной системой Windows 8.1 и может быть обновлен в перспективе до Windows 10.



RE: Textbox summ
2015-07-02 18:55 rusiko
Извините пожалуйста, но код не сработал. При нажатии на кнопку TextBox10.Text равняется TextBox2.Text.

RE: Textbox summ
2015-07-02 19:50 Алексей Немиро
В первом примере так может быть, если в промежуточных полях будет пусто.

Во втором примере используется последнее веденное значение, независимо от пустот в остальных полях.

RE: Textbox summ
2015-07-02 19:58 rusiko
Да я вас понял, но дело в том, что я скопировал ваш код, вставил для события click Button3 и запустил программу. Ввел значения в Texbox2, texbox3 и texbox4. И при нажатии на bitton он просто скопировал значения texbox2 в texbox10. спасибо

RE: Textbox summ
2015-07-02 20:10 Алексей Немиро
См. пример проекта во вложении.

RE: Textbox summ
2015-07-02 20:26 rusiko
Спасибо вам. Да, я увидел, у вас все работает. Но вот, когда я вставляю этот код в свою прогу, то она работает только, когда все поля заполнены. И вычитает значение только последнего textbox-а. То есть, когда допустим Texbox2 = 1000, Texbox3 = 200, а все остальные Texbox-ы равны 0, то Texbox10 не равняется Texbox2 минус последнее значение. В таком случае при нажатии на кнопку Texbox10 равняется значению Texbox2. А когда допустим, Texbox2 = 1000, Texbox3 = 20, Texbox4 = 60, Texbox5 = 70, Texbox6 = 80, Texbox7 = 90 и Texbox8 = 100, то Texbox10 равняется 900. То есть когда во всех Texbox-ах есть какие-то числа, то только тогда работает код и то, вычитает только значения последнего Texbox-а. Извините что надоедаю своим примером. Спасибо вам большое.

RE: Textbox summ
2015-07-02 20:38 Алексей Немиро
Код в студию!

RE: Textbox summ
2015-07-02 20:47 rusiko
Сами увидете. На форме есть две записи. первая Test не работает, копирует как я описывал, а вторая info работает, так как все поля заполнены. Спасибо

RE: Textbox summ
2015-07-02 23:46 Алексей Немиро
а все остальные Texbox-ы равны 0
Ноль - это число. Проверка ведь делается только на пустоту.

Если нужно считать ноль за пустоту, то следует указать это в условии.

If Not String.IsNullOrEmpty(t.Text) And Not t.Text = "0" Then
'...


RE: Textbox summ
2015-07-03 01:26 rusiko
Спасибо большое. все работает

Google запатентовал нательную клавиатуру
2015-07-03 15:52

Google получил патент, описывающий носимое устройство, которое могло бы проецировать панель управления и клавиатуру на различные части тела. Патент предусматривает несколько вариантов клавиатуры: только цифры, чтобы набрать телефонный номер, или полный набор символов в привычной Qwerty-раскладке для сообщений.



Протокол POP3
2015-07-04 01:01 trueplant
Всем привет! Хочу подключить корпарат. почту яндекса, домен подтвердил, МХ запись поменял на хосте.
создал почту: info@domen.ru
захожу в "почта → все настройки → Почтовые программы" поставить галочку на POP3....а ее просто нет! только IMAP.
подскажите в чем проблема может быть? на другом домене все ОК

DataGridview Refresh
2015-07-04 04:28 rusiko
Привет всем. Не подскажете как обновлять datagrid?. Когда сохраняю данные, то их количество увеличивается. То есть если в datagrid записаны 5 записей, то при нажатии на кнопку сохранить их количество увеличиваеться (на 2, 3), в зависимости от количества записей, а потом сохраняються. Но после того как закрываю форму и заново открываю ее, то все записи становяться на свои места. Странное то, что в одной части когда прописал следующее:

DataGridView1.ClearSelection()
da.Fill(ds, "Table1")
DataGridView1.DataSource = ds.Tables("Table1")
чтобы сперва DataGrid очищялась, а потом опять заполнялась. И этот код сработал. Но для другой формы пишу это, не работает. То есть работает, но после закрытия и открытия окна. Есть ли какой-то другой способ, для того чтобы обновить данные datagrid, не закрывая форму? Спасибо большое.

Вот мой пример кода для кнопки сохранить.

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Dim x As Integer
da.UpdateCommand = cmb.GetUpdateCommand
x = da.Update(ds.Tables("Table1"))
MsgBox(x & " Success")
Form1_Load(sender, e)
DataGridView1.ClearSelection()
Summa()
Catch ex As Exception
End Try
End If
End Sub

WebRequest
2015-07-04 15:32 i32
Привет всем..Подскажите как после получения ответа с сервера
Слепить этот ответ в файл и загрузить..
 postresponse = postReq.GetResponse
            str = postresponse.GetResponseStream()
            If (postresponse.ContentEncoding.ToLower().Contains("gzip")) Then
                str = New IO.Compression.GZipStream(str, IO.Compression.CompressionMode.Decompress)
            ElseIf (postresponse.ContentEncoding.ToLower().Contains("deflate")) Then
                str = New IO.Compression.DeflateStream(str, IO.Compression.CompressionMode.Decompress)
            ElseIf (postresponse.ContentEncoding.ToLower().Contains("sdch")) Then
                str = New IO.Compression.DeflateStream(str, IO.Compression.CompressionMode.Decompress)
            End If
            buffer = New IO.StreamReader(str, System.Text.Encoding.ASCII).ReadToEnd 
Textbox.text = buffer
Ответ правда еще в таком виде .что вижу я его только через анолизатор..(Показывает текст тхт - файла..)
Если все это делать блаузером то загрузка идет автоматом ..

RE: WebRequest
2015-07-04 15:48 Алексей Немиро
buffer = New IO.StreamReader(str, System.Text.Encoding.ASCII).ReadToEnd
Для текстовых данных кодировку желательно учитывать (см. заголовок Content-Type, charset, а для html - meta-теги).

Если содержимое не является текстом, то его нужно читать как массив байт. Примерно так:
Using reader As New BinaryReader(str)
  File.WriteAllBytes("C:\файл.dat", reader.ReadBytes(CType(str.Length, Integer)))
End Using
Но это плохое решение, лучше читать последовательно и сразу писать в файл. Может позже покажу нормальный пример.
Это плохой, ленивый код.

RE: Протокол POP3
2015-07-04 15:50 Алексей Немиро
Этот вопрос нужно задавать к Яндекс.

RE: DataGridview Refresh
2015-07-04 15:53 Алексей Немиро
Добавлять руками.

DataGridView1.Rows.Add(строка добавленных данных)

Если связь с DataSurce не позволит этого сделать, то отвязываться. Вообще, работа с DataGridView без источника данных проще, не будет никаких преград и можно делать все, что захочется.

Либо полностью перезагружать данные из базы. Это проще всего, если данных мало.

RE: Протокол POP3
2015-07-04 17:08 trueplant
Да, спасибо, писал им уже. Пока нету ответа

RE: WebRequest
2015-07-04 17:50 i32
Вроде что то начало выходить..
Dim memstream As MemoryStream = New MemoryStream(New UnicodeEncoding().GetBytes(buffer))
            Dim data As Byte() = memstream.ToArray()
            Using filestrm As FileStream = New FileStream("C:\" & Format(Now, "dd.MM.%y") & "\123" & i & ".dat", FileMode.Create)
                filestrm.Write(data, 0, data.Length)
            End Using
            Return
Как бы пока так...

RE: WebRequest
2015-07-04 18:21 i32
Не точности вылазят ..Заметил в блакноте кодировка UCS
А мне надо ANSI..Как програмно поменять???

RE: WebRequest
2015-07-04 21:54 Алексей Немиро
А мне надо ANSI..Как програмно поменять???
Dim memstream As MemoryStream = New MemoryStream(New UnicodeEncoding().GetBytes(buffer))

Работа с кодировка осуществляется в классе System.Text.Encoding.
Например: System.Text.Encoding.ASCII

https://msdn.microsoft.com/ru-ru/library/system.text.encoding(v=vs.110).aspx

Нужно использовать ту кодовую страницу, которую возвращает сервер.

Для преобразования кодировок можно использовать метод Convert.

RE: WebRequest
2015-07-04 23:23 i32
Разобрался..Тонкая штука..Чуть что не так
Сразу вместо прочерков - вопросы....
 buffer = New IO.StreamReader(str, System.Text.Encoding.GetEncoding(1251)).ReadToEnd      
       ' TextBox3.Text = buffer
            Dim memstream As MemoryStream = New MemoryStream(System.Text.Encoding.GetEncoding(1251).GetBytes(buffer))
Спасибо...

RE: Протокол POP3
2015-07-04 23:38 trueplant
Ответили с поддержки. протокол больше не поддерживается, морально устарел

В избранное