Рассылка закрыта
Вы можете найти рассылки сходной тематики в Каталоге рассылок.
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 Алексей Немиро Проще всего использовать элемент Открыть страницу (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 будет проще и надежней, чем парсить сайт, который может меняться. RE: Mail in vb.net 2015-06-22 16:20 Алексей Немиро Проще всего использовать элемент Открыть страницу (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 будет проще и надежней, чем парсить сайт, который может меняться. RE: DataGridView in VB.NET 2015-06-22 16:51 Алексей Немиро Просто удалять строку из DataGridView: DataGridView1.Rows.Remove(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 Этот оператор ((">>" - "вправо") или ("<<" - "влево")) выполняет арифметический сдвиг разряда. Посмотри здесь : Область применения закона «о забвении» сократили ко второму чтению 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 Спасибо Алексей, как всегда выручаешь ! Законопроект о «праве на забвение» прошел второе чтение в Думе 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 Если поля по середине могут быть пустыми, то можно проверить все поля и запомнить те, в которых есть какое-то значение, а затем вычесть последнее значение: 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 Ответ правда еще в таком виде .что вижу я его только через анолизатор..(Показывает текст тхт - файла..) Если все это делать блаузером то загрузка идет автоматом .. 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 Нужно использовать ту кодовую страницу, которую возвращает сервер. Для преобразования кодировок можно использовать метод 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 Ответили с поддержки. протокол больше не поддерживается, морально устарел |
В избранное | ||