VBNet.Su - Visual Basic .NET. ASP .NET. Framework .NET.
Новости
26.12.2008 Лимитный инвайт для тех, кто хочет присоединиться к VBNet.Su, но не может :)
vbnet-super
С наступающим!
join

18.12.2008 Увеличен размер поля для подписи. Разрешено использовать некоторые теги HTML.
Изменены правила форума, в подписи разрешено использовать партнерские ссылки. Ссылки в подписи могут использовать только те пользователи, которые разместили обратную ссылку на VBNet.Su на одном из сайтов, указанных в профиле. Проверка обратных ссылок производится в автоматическом режиме. Если у Вас возникнут какие-либо вопросы, обращайтесь к администратору.

15.12.2008 Открылась рассылка VBNet.Su!
Рассылка будет выходить автоматически, несколько раз в неделю. В рассылке будут содержаться последние обновления сайта (аналог RSS). Чтобы подписаться на рассылку VBNet.Su, перейдите по этой ссылке.
Архив новостей
Будь в теме
Внешние HDD на VBNet.Su
VBNet.Su рекомендуетTranscend StoreJet 250 Gb, внешний жесткий диск, USB (TS250GSJ25P)
Компактный внешний жёсткий диск Transcend StoreJet 25 Portable .
Специально разработанный сверхкомпактный и лёгкий корпус содержит жёсткий диск SATA 250 Гб. Крышка корпуса легко сдвигается для удобной установки жёсткого диска. В комплект ... подробнее..
Цена: 3330 руб. КУПИТЬ
Партнеры
Kbyte.Ru OZON.ru
Счетчики
Рассылка 'Visual Basic .NET - новости, коды, статьи, форум'
Полезная информация
reyn90
reyn90
Создаю на платформе Visual Basic.NET

1.Итак, я создаю первый запрос HttpWebRequest
  1. Dim req As Net.HttpWebRequest = DirectCast(Net.HttpWebRequest.Create(url_adres), Net.HttpWebRequest)

и создаю контейнер для куков.
  1. Dim tmpOk As New CookieContainer

Потом присваиваю куки запросу
  1. req.CookieContainer = tmpOk


2.После чего получаю ответ от запроса req
  1. Dim res As Net.HttpWebResponse = DirectCast(req.GetResponse, Net.HttpWebResponse)

И сходу присваиваю переменной tmpOk куки от ответа
  1. tmpOk.Add(res.Cookies)


3.Теперь создаю второй запрос:
  1. Dim req2 As Net.HttpWebRequest = DirectCast(Net.HttpWebRequest.Create("url_adres2), Net.HttpWebRequest)

Устанавливаю опять куки
  1. req2.CookieContainer = tmpOk

Вот только во второй ЗАПРОСЕ там где url_adres2 должно быть что то вроде 7titft7nuut3d22mqtdg67f1c4
В перехвате запросов
Cookie PHPSESSID=7titft7nuut3d22mqtdg67f1c4; _ym_visorc=w
ВОПРОС: Как получить программно строку Cookie PHPSESSID=7titft7nuut3d22mqtdg67f1c4; _ym_visorc=w ????
http://vbnet.su/forum/single-354.html
Ігор
Ігор
  1. Imports System.Security.Cryptography
  2. Imports System.IO
  3.  
  4. Public Module Encryptorrr
  5.  
  6. Private encv() As Byte = {64, 122, 10, 56, 20, _
  7.  74, 121, 39, 19, 91, 145, 78, 189, 211, 133, 162}
  8.  
  9. Public Function Encrypt(ByRef data() As Byte, ByVal key() As Byte) As Boolean
  10.     If (data Is Nothing) OrElse (data.Length <= 0) Then Return False
  11.     If (key Is Nothing) OrElse (key.Length <= 0) Then Return False
  12.     Dim key2() As Byte = key.Clone(), data2() As Byte = data.Clone()
  13.     If key2.Length > 32 Then ReDim Preserve key2(31)
  14.     Dim n As Int64
  15.     For n = 0 To 31
  16.         If n > key2.GetUpperBound(0) Then
  17.            ReDim Preserve key2(key2.Length)
  18.            key2(key2.GetUpperBound(0)) = CByte(n)
  19.         End If
  20.     Next
  21.     Dim arr() As Byte = {CByte(Asc("i")), CByte(Asc("g")), CByte(Asc("o")), CByte(Asc("r"))}
  22.     Dim res As Boolean = True
  23.     Dim ms As MemoryStream = Nothing
  24.     Dim cs As CryptoStream = Nothing
  25.     Dim rm As RijndaelManaged = Nothing
  26.     Dim bw As BinaryWriter = Nothing
  27.     Try
  28.         ReDim Preserve data2(data2.GetUpperBound(0) + 4)
  29.         Call Array.Copy(arr, 0, data2, data.Length, 4)
  30.         rm = New RijndaelManaged
  31.         ms = New MemoryStream()
  32.         cs = New CryptoStream(ms, rm.CreateEncryptor(key2, encv), CryptoStreamMode.Write)
  33.         cs.Write(data2, 0, data2.Length)
  34.         Call cs.FlushFinalBlock()
  35.         bw = New BinaryWriter(ms)
  36.         Call bw.Seek(0, SeekOrigin.End)
  37.         Dim bs() As Byte = BitConverter.GetBytes(CType((data.GetLongLength(0) + 4), Int64))
  38.         bw.Write(bs) : bw.Flush() : Erase bs   
  39.         data = ms.ToArray()
  40.     Catch
  41.         res = False
  42.     Finally
  43.        Try
  44.           If Not IsNothing(rm) Then rm.Clear()
  45.           If Not IsNothing(cs) Then cs.Close()
  46.        Catch
  47.        Finally
  48.           If Not IsNothing(ms) Then ms.Close()
  49.           If Not IsNothing(bw) Then bw.Close()
  50.           Erase arr : Erase data2 : Erase key2
  51.        End Try
  52.     End Try
  53.     Return res
  54. End Function
  55.  
  56. Public Function Decrypt(ByRef data() As Byte, ByVal key() As Byte) As Boolean
  57.    If IsNothing(data) OrElse (data.Length <= 8) Then Return False
  58.    If (key Is Nothing) OrElse (key.Length <= 0) Then Return False
  59.    Dim key2() As Byte = key.Clone(), data2() As Byte = data.Clone()
  60.    Dim l As Int64, res As Boolean = True
  61.    Try
  62.       l = BitConverter.ToInt64(data2, data2.GetLongLength(0) - 8)
  63.       ReDim Preserve data2(data2.GetLongLength(0) - 9)
  64.    Catch
  65.       Return False
  66.    End Try
  67.    If key2.Length > 32 Then ReDim Preserve key2(31)
  68.    Dim n As Int64
  69.    For n = 0 To 31
  70.        If n > key2.GetUpperBound(0) Then
  71.           ReDim Preserve key2(key2.Length)
  72.           key2(key2.GetUpperBound(0)) = CByte(n)
  73.        End If
  74.    Next
  75.    Dim decripted() As Byte = Nothing
  76.    Dim rm As RijndaelManaged = Nothing
  77.    Dim ms As MemoryStream = Nothing
  78.    Dim cs As CryptoStream = Nothing
  79.    Try
  80.        ReDim decripted(data2.Length - 1)
  81.        ms = New MemoryStream(data2)
  82.        rm = New RijndaelManaged
  83.        cs = New CryptoStream(ms, rm.CreateDecryptor(key2, encv), CryptoStreamMode.Read)
  84.        cs.Read(decripted, 0, decripted.Length)
  85.        ReDim Preserve decripted(l - 1)
  86.        If (decripted(decripted.GetUpperBound(0) - 3) = Asc("i")) AndAlso _
  87.           (decripted(decripted.GetUpperBound(0) - 2) = Asc("g")) AndAlso _
  88.           (decripted(decripted.GetUpperBound(0) - 1) = Asc("o")) AndAlso _
  89.           (decripted(decripted.GetUpperBound(0)) = Asc("r")) Then
  90.           ReDim Preserve decripted(decripted.GetUpperBound(0) - 4)
  91.           data = decripted
  92.        Else
  93.           Erase decripted
  94.           res = False
  95.        End If
  96.    Catch
  97.        res = False
  98.    Finally
  99.        Try
  100.           If Not IsNothing(rm) Then rm.Clear()
  101.           If Not IsNothing(cs) Then cs.Close()
  102.        Catch
  103.        Finally
  104.           If Not IsNothing(ms) Then ms.Close()
  105.           Erase data2 : Erase key2
  106.        End Try
  107.    End Try
  108.    Return res
  109. End Function
  110.  
  111. End Module
  112.  

http://vbnet.su/forum/single-224.html
Алексей Немиро
Алексей Немиро
В .NET есть фишка, называется типизированные DataSet, на мой взгляд, использовать данную технологию нихт гуд, но это уже из раздела религиозных вопросов smile
Собственно, рабата с этими DataSet визуальная. Создаем новый проект (WinForms), далее, жмем меню Project -> Add Item, выбираем DataSet, далее открываем его, берем с панели инструментов (Toolbox) TableAdapter, в окне Wizard-а выбираем источник данных, далее все дефолтно, на последнем шаге пишем запрос на выборку, например: SELECT * FROM table1, остальное дефолтно. Если в запросе ошибка, визард об этом сообщит. Далее, переходим к форме, кидаем DataGridView указываем в DataSource созданный DataSet, запускаем проект, и любуемся результатом. smile
В DataSet можно написать любые запросы.
http://vbnet.su/forum/single-68.html
Больше полезной информации
Новые коды (обновлено: 25 мая 2009 / 01:42)
Visual Basic .NET (Framework x.x) HTML-код цвета без ColorTranslator
Автор: Ігор | добавлено: 25 мая 2009 / 01:42 | просмотров: 4236 (+3604)
Visual Basic .NET (Framework x.x) Позднее связывание
Автор: Ігор | добавлено: 10 мая 2009 / 03:26 | просмотров: 5121 (+4600)
Visual Basic .NET (Framework x.x) Пример контрола
Автор: Kolyasik | добавлено: 04 мая 2009 / 12:38 | просмотров: 4618 (+4108)
Visual Basic .NET (Framework x.x) Преобразование цвета в целое 32-битовое число и наоборот
Автор: Ігор | добавлено: 24 января 2009 / 04:39 | просмотров: 5244 (+4630)
Visual Basic .NET 2008 (Framework 3.0/3.5) Реализация пользовательского CheckBox
Автор: Karl Shifflett | добавлено: 26 декабря 2008 / 09:50 | просмотров: 6435 (+5470)
Visual Basic .NET 2008 (Framework 3.0/3.5) Реализация интерфейса WPF
Автор: Karl Shifflett | добавлено: 26 декабря 2008 / 09:45 | просмотров: 5712 (+4536)
Visual Basic .NET 2008 (Framework 3.0/3.5) Сортировка данных в ComboBox
Автор: Karl Shifflett | добавлено: 26 декабря 2008 / 09:40 | просмотров: 5897 (+5039)
Visual Basic .NET 2008 (Framework 3.0/3.5) ErrorProvider с использованием WPF
Автор: Rahul Singla | добавлено: 26 декабря 2008 / 09:33 | просмотров: 4540 (+3873)
Visual Basic .NET 2008 (Framework 3.0/3.5) ProgressBar как в IE 7
Автор: jebarson | добавлено: 26 декабря 2008 / 09:26 | просмотров: 6324 (+5068)
Visual Basic .NET 2008 (Framework 3.0/3.5) Использование WPF-контролов в Office 2007
Автор: Alessandro Del Sole | добавлено: 26 декабря 2008 / 09:20 | просмотров: 4332 (+3640)
Все коды
У нас есть
Мозолистые пальцы
Всего:1160
С ногами:2320
Красные глаза
Всего:232
Левых:116
Правых:116
Горячие мозги
Всего:116
Левых:1
Правых:26
Еще какие-то:89
Сегодня сказали
Сегодня еще никто ничего не говорил :-(
Архив сказанного ранее
Букварь всему голова
Книги на VBNet.SuMicrosoft Visual Basic 2005 (+ CD-ROM)
Эта книга - всеобъемлющее введение в программирование на Visual Basic с помощью Microsoft Visual Basic 2005. Вы узнаете, как работать в среде разработки Microsoft Visual Studio 2005; использовать элементы управления Toolbox и создавать интерфейсы ... подробнее..
Автор: Майкл Хальворсон
Цена: 467 руб. КУПИТЬ
Все книги на VBNet.Su
TOP 10 пользователей
Алексей Немиро65.2275660625+
Ігор47.181654625+
kibernetics16.0390645+
Kolyasik5.9658263125+
rublenko3.734375+
Arseny3.6845703125+
Skywalker2.904296875+
ostgals2.857421875+
5acredphoenix2.708994375+
andrey_z5z2.3857511875+
Все пользователи


Реклама: