(MVC) MVC (2015)

SiteRequestTracer - Система аналізу і трасування усіх реквестів до сайту.

На цій сторінці я розповім про свою систему, яка дозволяє побачити очима і зробити власні обробники-аналізатори усіх реквестів до сайту, особливо POST-реквестів. Це може бути потрібним у багатьох випадках, наприклад пошуку вірусної атаки чи якогось цікавого стану, у який попадає сайт незрозуміло чому.

Моя Система працює не заважаючи звичайним операціям сайту і при належної настройці майже не дає зайвого напруження обладнання, тобто час відклику сайта майже не збільшується.

Налаштування системи починається з додатку в Global.asax декількох стрічок, що будуть відслідковувати усі реквести і запам'ятовувати їх у базу.

   1:  <%@ Application Language="VB" %>

2:

   3:  <script runat="server">

4:

   5:       Sub Application_BeginRequest(ByVal sender As Object, ByVal e As System.EventArgs)

   6:          If CBool(System.Configuration.ConfigurationManager.AppSettings("TraceRequest")) Then

   7:              Dim X As New TraceRequest

   8:              X.SaveToLog(sender, e)

   9:          End If

  10:      End Sub

11:

  12:  ...

Саме таким чином заповнюється ось така табличка в базі:

   1:  CREATE TABLE [dbo].[TraceLog](

   2:      [i] [int] IDENTITY(1,1) NOT NULL,

   3:      [CrDate] [datetime] NOT NULL,

   4:      [RawUrl] [nvarchar](1000) NULL,

   5:      [UrlReferrer] [nvarchar](1000) NULL,

   6:      [HttpMethod] [nvarchar](50) NULL,

   7:      [UserHostAddress] [nvarchar](50) NULL,

   8:      [QueryString] [nvarchar](4000) NULL,

   9:      [Form] [nvarchar](4000) NULL,

  10:      [RequestParams] [nvarchar](4000) NULL,

  11:      [InputStreamLength] [int] NULL,

  12:      [IsAuthenticated] [int] NULL,

  13:      [IsLocal] [int] NULL,

  14:      [UserAgent] [nvarchar](4000) NULL,

  15:      [Headers] [nvarchar](4000) NULL

  16:  ) ON [PRIMARY]

17:

  18:  GO

Код, що формує параметри виглядає ось так:

   1:  Imports Microsoft.VisualBasic

2:

   3:  Public Class TraceRequest

   4:      Sub SaveToLog(ByVal sender As Object, ByVal e As System.EventArgs)

   5:          Dim CN1 As New Data.SqlClient.SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings("SQLServer_ConnectionStrings").ConnectionString)

   6:          Dim InsertTraceCMD As New Data.SqlClient.SqlCommand("AddTraceLog", CN1)

   7:          CN1.Open()

   8:          Try

9:

  10:              InsertTraceCMD.CommandType = Data.CommandType.StoredProcedure

11:

  12:              InsertTraceCMD.Parameters.AddWithValue("@RawUrl", HttpContext.Current.Request.RawUrl.ToString)

  13:              If HttpContext.Current.Request.UrlReferrer IsNot Nothing Then

  14:                  InsertTraceCMD.Parameters.AddWithValue("@UrlReferrer", HttpContext.Current.Request.UrlReferrer.ToString)

  15:              Else

  16:                  InsertTraceCMD.Parameters.AddWithValue("@UrlReferrer", DBNull.Value)

  17:              End If

18:

  19:              InsertTraceCMD.Parameters.AddWithValue("@HttpMethod", HttpContext.Current.Request.HttpMethod.ToString)

  20:              InsertTraceCMD.Parameters.AddWithValue("@UserHostAddress", HttpContext.Current.Request.UserHostAddress.ToString)

  21:              InsertTraceCMD.Parameters.AddWithValue("@QueryString", HttpContext.Current.Request.QueryString.ToString)

  22:              InsertTraceCMD.Parameters.AddWithValue("@Form", HttpContext.Current.Request.Form.ToString)

  23:              InsertTraceCMD.Parameters.AddWithValue("@RequestParams", HttpContext.Current.Request.Params.ToString)

24:

  25:              InsertTraceCMD.Parameters.AddWithValue("@IsAuthenticated", HttpContext.Current.Request.IsAuthenticated)

  26:              InsertTraceCMD.Parameters.AddWithValue("@IsLocal", HttpContext.Current.Request.IsLocal)

  27:              InsertTraceCMD.Parameters.AddWithValue("@UserAgent", HttpContext.Current.Request.UserAgent.ToString)

  28:              InsertTraceCMD.Parameters.AddWithValue("@Headers", HttpContext.Current.Request.Headers.ToString)

  29:              If HttpContext.Current.Request.InputStream IsNot Nothing Then

  30:                  InsertTraceCMD.Parameters.AddWithValue("@InputStreamLength", HttpContext.Current.Request.InputStream.Length)

  31:              Else

  32:                  InsertTraceCMD.Parameters.AddWithValue("@InputStreamLength", 0)

  33:              End If

  34:              InsertTraceCMD.ExecuteNonQuery()

35:

  36:          Catch ex As Exception

  37:              HttpContext.Current.Response.Write(ex.Message)

  38:          End Try

  39:          CN1.Close()

  40:      End Sub

41:

42:

  43:  End Class

Тут є важлива крапочка. Оскільки у мене одночасно з трасуванням реквестів працює у базі декілька ось таких тригерів (відображення даних з них я не буду тут описувати),

Але важливим тут є те, що дата у тригерах і тасуваннях повинна корелюватися, тобто дату у трасі треба проставляти процедурою, а не з дати web-серверу.

   1:  ALTER procedure [dbo].[AddTraceLog]

2:

   3:             (@RawUrl as nvarchar(1000)

   4:             ,@UrlReferrer as nvarchar(1000)

   5:             ,@HttpMethod as nvarchar(50)

   6:             ,@UserHostAddress as nvarchar(50)

   7:             ,@QueryString as nvarchar(4000)

   8:             ,@Form as nvarchar(4000)

   9:             ,@RequestParams as nvarchar(4000)

  10:             ,@InputStreamLength as int

  11:             ,@IsAuthenticated as int

  12:             ,@IsLocal as int

  13:             ,@UserAgent as nvarchar(4000)

  14:             ,@Headers as nvarchar(4000))

  15:  as

  16:  INSERT INTO [vOtpusk_Arenda].[dbo].[TraceLog]

  17:             ([CrDate]

  18:             ,[RawUrl]

  19:             ,[UrlReferrer]

  20:             ,[HttpMethod]

  21:             ,[UserHostAddress]

  22:             ,[QueryString]

  23:             ,[Form]

  24:             ,[RequestParams]

  25:             ,[InputStreamLength]

  26:             ,[IsAuthenticated]

  27:             ,[IsLocal]

  28:             ,[UserAgent]

  29:             ,[Headers])

  30:       VALUES

  31:             (GETDATE()

  32:             ,@RawUrl

  33:             ,@UrlReferrer

  34:             ,@HttpMethod

  35:             ,@UserHostAddress

  36:             ,@QueryString

  37:             ,@Form

  38:             ,@RequestParams

  39:             ,@InputStreamLength

  40:             ,@IsAuthenticated

  41:             ,@IsLocal

  42:             ,@UserAgent

  43:             ,@Headers)

44:

  45:  GO

Але найбільш важливою крапкою у налагодженні трасування є те, що базу треба перевести у режим BULK LOGGED

Разом з тим, що у цієї табличці немає кластерного індексу, можливо досягнути саме те, що при розмірі бази в декілька терабайт сайт все ще працює добре. У моїх обставинах сайт заповнює близько п'ятсот мегов даних трасування за добу. Тобто база стає багато-терабайтною за тиждень - а сайт все ще не тільки працює, але й майже не завищує час відклику.

Дані GET-реквесту накопичуються приблизно такого плану:

111072
2015-07-03 13:59:47.000
/GetFoto.ashx?id=598ec804-6cf1-45c8-bfa8-ea914f2839b2&W=100
http://arenda.votpusk.ru/Object_info_all.aspx?Object=06ae0b8c-2c3d-4b1b-8e29-24d25bc712ee
GET	217.118.81.29	id=598ec804-6cf1-45c8-bfa8-ea914f2839b2&W=100

id=598ec804-6cf1-45c8-bfa8-ea914f2839b2&W=100&Object=d243ce93-03a5-4455-aa94-b9d83252ac73%2c3e4c3a92-702c-4f8d-b316-5c33767eae01%2c94d29e19-8f9b-4fbb-af1b-3c8966553d2e%2cbed3cc4a-a2ba-466b-951c-e1baa49c13c3%2c&__atuvc=9%257C26&ASP.NET_SessionId=i1hqciqshna54z55u5sirf45&__utmt=1&_ym_visorc_48203=w&hotlog=1&__utma=191732909.143089651.1435606512.1435606512.1435920966.2&__utmb=191732909.8.10.1435920966&__utmc=191732909&__utmz=191732909.1435606512.1.1.utmcsr%3d(direct)%7cutmccn%3d(direct)%7cutmcmd%3d(none)&ALL_HTTP=HTTP_CONNECTION%3akeep-alive%0d%0aHTTP_ACCEPT%3aimage%2fwebp%2c*%2f*%3bq%3d0.8%0d%0aHTTP_ACCEPT_ENCODING%3agzip%2c+deflate%2c+sdch%0d%0aHTTP_ACCEPT_LANGUAGE%3aru-RU%2cru%3bq%3d0.8%2cen-US%3bq%3d0.6%2cen%3bq%3d0.4%0d%0aHTTP_COOKIE%3aObject%3dd243ce93-03a5-4455-aa94-b9d83252ac73%2c3e4c3a92-702c-4f8d-b316-5c33767eae01%2c94d29e19-8f9b-4fbb-af1b-3c8966553d2e%2cbed3cc4a-a2ba-466b-951c-e1baa49c13c3%2c%3b+__atuvc%3d9%257C26%3b+ASP.NET_SessionId%3di1hqciqshna54z55u5sirf45%3b+__utmt%3d1%3b+_ym_visorc_48203%3dw%3b+hotlog%3d1%3b+__utma%3d191732909.143089651.1435606512.1435606512.1435920966.2%3b+__utmb%3d191732909.8.10.1435920966%3b+__utmc%3d191732909%3b+__utmz%3d191732909.1435606512.1.1.utmcsr%3d(direct)%7cutmccn%3d(direct)%7cutmcmd%3d(none)%0d%0aHTTP_HOST%3aarenda.votpusk.ru%0d%0aHTTP_REFERER%3ahttp%3a%2f%2farenda.votpusk.ru%2fObject_info_all.aspx%3fObject%3d06ae0b8c-2c3d-4b1b-8e29-24d25bc712ee%0d%0aHTTP_USER_AGENT%3aMozilla%2f5.0+(Linux%3b+Android+4.2.2%3b+IdeaTab+S6000-H+Build%2fJDQ39)+AppleWebKit%2f537.36+(KHTML%2c+like+Gecko)+Chrome%2f40.0.2214.109+Safari%2f537.36%0d%0a&ALL_RAW=Connection%3a+keep-alive%0d%0aAccept%3a+image%2fwebp%2c*%2f*%3bq%3d0.8%0d%0aAccept-Encoding%3a+gzip%2c+deflate%2c+sdch%0d%0aAccept-Language%3a+ru-RU%2cru%3bq%3d0.8%2cen-US%3bq%3d0.6%2cen%3bq%3d0.4%0d%0aCookie%3a+Object%3dd243ce93-03a5-4455-aa94-b9d83252ac73%2c3e4c3a92-702c-4f8d-b316-5c33767eae01%2c94d29e19-8f9b-4fbb-af1b-3c8966553d2e%2cbed3cc4a-a2ba-466b-951c-e1baa49c13c3%2c%3b+__atuvc%3d9%257C26%3b+ASP.NET_SessionId%3di1hqciqshna54z55u5sirf45%3b+__utmt%3d1%3b+_ym_visorc_48203%3dw%3b+hotlog%3d1%3b+__utma%3d191732909.143089651.1435606512.1435606512.1435920966.2%3b+__utmb%3d191732909.8.10.1435920966%3b+__utmc%3d191732909%3b+__utmz%3d191732909.1435606512.1.1.utmcsr%3d(direct)%7cutmccn%3d(direct)%7cutmcmd%3d(none)%0d%0aHost%3a+arenda.votpusk.ru%0d%0aReferer%3a+http%3a%2f%2farenda.votpusk.ru%2fObject_info_all.aspx%3fObject%3d06ae0b8c-2c3d-4b1b-8e29-24d25bc712ee%0d%0aUser-Agent%3a+Mozilla%2f5.0+(Linux%3b+Android+4.2.2%3b+IdeaTab+S6000-H+Build%2fJDQ39)+AppleWebKit%2f537.36+(KHTML%2c+like+Gecko)+Chrome%2f40.0.2214.109+Safari%2f537.36%0d%0a&APPL_MD_PATH=%2fLM%2fW3SVC%2f2%2fROOT&APPL_PHYSICAL_PATH=C%3a%5cinetpub%5cwwwroot%5c2009_arenda%5c&AUTH_TYPE=&AUTH_USER=&AUTH_PASSWORD=&LOGON_USER=&REMOTE_USER=&CERT_COOKIE=&CERT_FLAGS=&CERT_ISSUER=&CERT_KEYSIZE=&CERT_SECRETKEYSIZE=&CERT_SERIALNUMBER=&CERT_SERVER_ISSUER=&CERT_SERVER_SUBJECT=&CERT_SUBJECT=&CONTENT_LENGTH=0&CONTENT_TYPE=&GATEWAY_INTERFACE=CGI%2f1.1&HTTPS=off&HTTPS_KEYSIZE=&HTTPS_SECRETKEYSIZE=&HTTPS_SERVER_ISSUER=&HTTPS_SERVER_SUBJECT=&INSTANCE_ID=2&INSTANCE_META_PATH=%2fLM%2fW3SVC%2f2&LOCAL_ADDR=192.168.4.22&PATH_INFO=%2fGetFoto.ashx&PATH_TRANSLATED=C%3a%5cinetpub%5cwwwroot%5c2009_arenda%5cGetFoto.ashx&QUERY_STRING=id%3d598ec804-6cf1-45c8-bfa8-ea914f2839b2%26W%3d100&REMOTE_ADDR=217.118.81.29&REMOTE_HOST=217.118.81.29&REMOTE_PORT=26537&REQUEST_METHOD=GET&SCRIPT_NAME=%2fGetFoto.ashx&SERVER_NAME=arenda.votpusk.ru&SERVER_PORT=80&SERVER_PORT_SECURE=0&SERVER_PROTOCOL=HTTP%2f1.1&SERVER_SOFTWARE=Microsoft-IIS%2f7.0&URL=%2fGetFoto.ashx&HTTP_CONNECTION=keep-alive&HTTP_ACCEPT=image%2fwebp%2c*%2f*%3bq%3d0.8&HTTP_ACCEPT_ENCODING=gzip%2c+deflate%2c+sdch&HTTP_ACCEPT_LANGUAGE=ru-RU%2cru%3bq%3d0.8%2cen-US%3bq%3d0.6%2cen%3bq%3d0.4&HTTP_COOKIE=Object%3dd243ce93-03a5-4455-aa94-b9d83252ac73%2c3e4c3a92-702c-4f8d-b316-5c33767eae01%2c94d29e19-8f9b-4fbb-af1b-3c8966553d2e%2cbed3cc4a-a2ba-466b-951c-e1baa49c13c3%2c%3b+__atuvc%3d9%257C26%3 0 0 0 Mozilla/5.0 (Linux; Android 4.2.2; IdeaTab S6000-H Build/JDQ39) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.109 Safari/537.36 Connection=keep-alive&Accept=image%2fwebp%2c*%2f*%3bq%3d0.8&Accept-Encoding=gzip%2c+deflate%2c+sdch&Accept-Language=ru-RU%2cru%3bq%3d0.8%2cen-US%3bq%3d0.6%2cen%3bq%3d0.4&Cookie=Object%3dd243ce93-03a5-4455-aa94-b9d83252ac73%2c3e4c3a92-702c-4f8d-b316-5c33767eae01%2c94d29e19-8f9b-4fbb-af1b-3c8966553d2e%2cbed3cc4a-a2ba-466b-951c-e1baa49c13c3%2c%3b+__atuvc%3d9%257C26%3b+ASP.NET_SessionId%3di1hqciqshna54z55u5sirf45%3b+__utmt%3d1%3b+_ym_visorc_48203%3dw%3b+hotlog%3d1%3b+__utma%3d191732909.143089651.1435606512.1435606512.1435920966.2%3b+__utmb%3d191732909.8.10.1435920966%3b+__utmc%3d191732909%3b+__utmz%3d191732909.1435606512.1.1.utmcsr%3d(direct)%7cutmccn%3d(direct)%7cutmcmd%3d(none)&Host=arenda.votpusk.ru&Referer=http%3a%2f%2farenda.votpusk.ru%2fObject_info_all.aspx%3fObject%3d06ae0b8c-2c3d-4b1b-8e29-24d25bc712ee&User-Agent=Mozilla%2f5.0+(Linux%3b+Android+4.2.2%3b+IdeaTab+S6000-H+Build%2fJDQ39)+AppleWebKit%2f537.36+(KHTML%2c+like+Gecko)+Chrome%2f40.0.2214.109+Safari%2f537.36

А у POST-реквесту додатково запам'ятовується ще два поля - RequestForm і RequestParams. Десь приблизно ось такого плану:

__EVENTTARGET=Button1&__EVENTARGUMENT=&__VIEWSTATE=%2fwEPDwULLTE0Njk0NDc2ODEPZBYCAgMPZBYGAgEPDxYCHgRUZXh0BTvQp9Cw0YHRgtC90YvQuSDQvNC40L3QuC3Qv9Cw0L3RgdC40L7QvdCw0YIgwqvQnNCw0LrRgdCw0YLCu2RkAgUPD2QPEBYBZhYBFgIeDlBhcmFtZXRlclZhbHVlBSQwZTk4MDhhMS03ZWZiLTQxMWQtYWY4YS00ZTAxMTQ4ZTU0MGUWAQIEZGQCBw8PZA8QFgFmFgEWAh8BZBYBAgNkZBgBBQpNdWx0aVZpZXcxDw9kZmR7sjjP%2bKVMZehqfuP%2f57okXKunzA%3d%3d&__VIEWSTATEGENERATOR=B7E08CCA&__EVENTVALIDATION=%2fwEWCAK6t6rZDwKx8NrXAwKMqNr3DgKO3e7wBgLQ1Jz6AQLs0bLrBgLM9PumDwKM54rGBoVdJ6mmMkq%2boP7PF%2fHGcQEBTxN9&txName=%u0410%u043b%u0438%u044f&txEmail=daa230383%40mail.ru&txPhone=87015149574&txTEXT=2+%u0432%u0437%u0440%u043e%u0441%u043b%u044b%u0445%2c+1+%u0440%u0435%u0431%u0435%u043d%u043e%u043a+7+%u043b%u0435%u0442&TextBox1=9C29C

Object=0e9808a1-7efb-411d-af8a-4e01148e540e&__EVENTTARGET=Button1&__EVENTARGUMENT=&__VIEWSTATE=%2fwEPDwULLTE0Njk0NDc2ODEPZBYCAgMPZBYGAgEPDxYCHgRUZXh0BTvQp9Cw0YHRgtC90YvQuSDQvNC40L3QuC3Qv9Cw0L3RgdC40L7QvdCw0YIgwqvQnNCw0LrRgdCw0YLCu2RkAgUPD2QPEBYBZhYBFgIeDlBhcmFtZXRlclZhbHVlBSQwZTk4MDhhMS03ZWZiLTQxMWQtYWY4YS00ZTAxMTQ4ZTU0MGUWAQIEZGQCBw8PZA8QFgFmFgEWAh8BZBYBAgNkZBgBBQpNdWx0aVZpZXcxDw9kZmR7sjjP%2bKVMZehqfuP%2f57okXKunzA%3d%3d&__VIEWSTATEGENERATOR=B7E08CCA&__EVENTVALIDATION=%2fwEWCAK6t6rZDwKx8NrXAwKMqNr3DgKO3e7wBgLQ1Jz6AQLs0bLrBgLM9PumDwKM54rGBoVdJ6mmMkq%2boP7PF%2fHGcQEBTxN9&txName=%u0410%u043b%u0438%u044f&txEmail=daa230383%40mail.ru&txPhone=87015149574&txTEXT=2+%u0432%u0437%u0440%u043e%u0441%u043b%u044b%u0445%2c+1+%u0440%u0435%u0431%u0435%u043d%u043e%u043a+7+%u043b%u0435%u0442&TextBox1=9C29C&__utma=191732909.235862469.1435226727.1435564853.1435920744.3&__utmz=191732909.1435920744.3.3.utmcsr%3dyandex%7cutmccn%3d(organic)%7cutmcmd%3dorganic&ASP.NET_SessionId=rwqzi44545gaf155ffm5iayl&hotlog=1&__utmb=191732909.15.10.1435920744&__utmc=191732909&__atuvc=1%257C26&__atuvs=5596696797f05541000&_ym_visorc_48203=w&Random1=oPYjnS41b4k%3d&ALL_HTTP=HTTP_CONNECTION%3akeep-alive%0d%0aHTTP_CONTENT_LENGTH%3a754%0d%0aHTTP_CONTENT_TYPE%3aapplication%2fx-www-form-urlencoded%0d%0aHTTP_ACCEPT%3atext%2fhtml%2capplication%2fxhtml%2bxml%2capplication%2fxml%3bq%3d0.9%2c*%2f*%3bq%3d0.8%0d%0aHTTP_ACCEPT_ENCODING%3agzip%2c+deflate%0d%0aHTTP_ACCEPT_LANGUAGE%3aru-RU%2cru%3bq%3d0.8%2cen-US%3bq%3d0.5%2cen%3bq%3d0.3%0d%0aHTTP_COOKIE%3a__utma%3d191732909.235862469.1435226727.1435564853.1435920744.3%3b+__utmz%3d191732909.1435920744.3.3.utmcsr%3dyandex%7cutmccn%3d(organic)%7cutmcmd%3dorganic%3b+ASP.NET_SessionId%3drwqzi44545gaf155ffm5iayl%3b+hotlog%3d1%3b+__utmb%3d191732909.15.10.1435920744%3b+__utmc%3d191732909%3b+__atuvc%3d1%257C26%3b+__atuvs%3d5596696797f05541000%3b+_ym_visorc_48203%3dw%3b+Random1%3doPYjnS41b4k%3d%0d%0aHTTP_HOST%3aarenda.votpusk.ru%0d%0aHTTP_REFERER%3ahttp%3a%2f%2farenda.votpusk.ru%2fMessage.aspx%3fObject%3d0e9808a1-7efb-411d-af8a-4e01148e540e%0d%0aHTTP_USER_AGENT%3aMozilla%2f5.0+(Windows+NT+6.2%3b+WOW64%3b+rv%3a38.0)+Gecko%2f20100101+Firefox%2f38.0%0d%0a&ALL_RAW=Connection%3a+keep-alive%0d%0aContent-Length%3a+754%0d%0aContent-Type%3a+application%2fx-www-form-urlencoded%0d%0aAccept%3a+text%2fhtml%2capplication%2fxhtml%2bxml%2capplication%2fxml%3bq%3d0.9%2c*%2f*%3bq%3d0.8%0d%0aAccept-Encoding%3a+gzip%2c+deflate%0d%0aAccept-Language%3a+ru-RU%2cru%3bq%3d0.8%2cen-US%3bq%3d0.5%2cen%3bq%3d0.3%0d%0aCookie%3a+__utma%3d191732909.235862469.1435226727.1435564853.1435920744.3%3b+__utmz%3d191732909.1435920744.3.3.utmcsr%3dyandex%7cutmccn%3d(organic)%7cutmcmd%3dorganic%3b+ASP.NET_SessionId%3drwqzi44545gaf155ffm5iayl%3b+hotlog%3d1%3b+__utmb%3d191732909.15.10.1435920744%3b+__utmc%3d191732909%3b+__atuvc%3d1%257C26%3b+__atuvs%3d5596696797f05541000%3b+_ym_visorc_48203%3dw%3b+Random1%3doPYjnS41b4k%3d%0d%0aHost%3a+arenda.votpusk.ru%0d%0aReferer%3a+http%3a%2f%2farenda.votpusk.ru%2fMessage.aspx%3fObject%3d0e9808a1-7efb-411d-af8a-4e01148e540e%0d%0aUser-Agent%3a+Mozilla%2f5.0+(Windows+NT+6.2%3b+WOW64%3b+rv%3a38.0)+Gecko%2f20100101+Firefox%2f38.0%0d%0a&APPL_MD_PATH=%2fLM%2fW3SVC%2f2%2fROOT&APPL_PHYSICAL_PATH=C%3a%5cinetpub%5cwwwroot%5c2009_arenda%5c&AUTH_TYPE=&AUTH_USER=&AUTH_PASSWORD=&LOGON_USER=&REMOTE_USER=&CERT_COOKIE=&CERT_FLAGS=&CERT_ISSUER=&CERT_KEYSIZE=&CERT_SECRETKEYSIZE=&CERT_SERIALNUMBER=&CERT_SERVER_ISSUER=&CERT_SERVER_SUBJECT=&CERT_SUBJECT=&CONTENT_LENGTH=754&CONTENT_TYPE=application%2fx-www-form-urlencoded&GATEWAY_INTERFACE=CGI%2f1.1&HTTPS=off&HTTPS_KEYSIZE=&HTTPS_SECRETKEYSIZE=&HTTPS_SERVER_ISSUER=&HTTPS_SERVER_SUBJECT=&INSTANCE_ID=2&INSTANCE_META_PATH=%2fLM%2fW3SVC%2f2&LOCAL_ADDR=192.168.4.22&PATH_INFO=%2fMessage.aspx&PATH_TRANSLATED=C%3a%5cinetpub%5cwwwroot%5c2009_arenda%5cMessage.aspx&QUERY_STRING=Object%3d0e9808a1-7efb-411d-af8a-4e01148e540e&REMOTE_ADDR=92.47.181.185&REMOTE_HOST=92.47.181.185&REMOTE_PORT=62468&REQUEST_METHOD=POST&SCRIPT_NAME=%2fMessage.asp

Тепер, коли мі бачимо - що накопичується і у якому розмірі - зрозуміло, що важливо якось обробляти ці мільйони записів. Для чого ми накопичували ці 12 мільйонів записів, що зайняли у моєму випадку пів-терабайту? Щонайменше потрібна якась обробка цієї сировини - щоб знайти відповіді на свої запитання, заради яких накопичувалися ці терабайти.

Далі я буду розповідати саме про таку прогу, яка обробляє усю цю сировину. Спочатку відбирає потрібні записи, а потім розкодовує потрібні поля і шукає в них те, шо мі шукаємо. Наприклад XSS-атаку, чи якусь причину попадання сайта у неможливе становище, яке не виходить прорахувати логічно у голові.

Моя прога працює таким чином. Спочатку відбирається необхідні записі у базі по такому критерію, що можливо побачити на рівні SQL. Наприклад, на першому скріні я відбираю на рівні SQL такі записи, які я умовно назвав VIRUS.

Відбори по такій великій базі ідуть довго. Дуже довго. Декілька хвилин, щонайменше. Цілком інтерактивну форму, що працює поки іде запит до базі зробити важко, тому я задовольнився тут простою формою очікування.

І ось запит до бази виконався, і ми можемо побачити очима ті самі записи, якими ми зацікавилися на рівні SQL. Теперь мм можемо звузити місце пошуку і шукати очима потрібні записи:

Коли мы знаходимо цікаву запис, то можемо її розкодувати, та зробити над окремими полями інші потрібні операції (тут буде описано лише розкодування з ESCAPE-HTML. Взагалі, у полях POST-реквесту можно що завгодно розкодувати, наприклад далекому 2005-му році мені було потрібно розкодуваті ViewState.

Щодо додаткових вимог до проги, то важливо, щоб вона розтягувалась на весь монітор, бо, як ви бачите на скринах - даних занадто багато і шукати голочку у цілому стогу цього сміття досить важко.

Ну ось мі дійшли до того місця, у якому вже можливо описувати саму прогу. По-перше подивимося, з чого складається увесь цей проєкт. Тут є дві форми, один модуль, один класс і один статично маркований буфер для даних. У ресурсах і сетінгах є ще іконка та ConnectionString до бази.

Тепер я покажу код кожного компонента. Почнемо з основної форми. Тут немає жодних хитрощів. Усе по букварику. Як я вже казав раніше, такий засіб інтерактивності на час запиту до бази не зовсім коректний, але це найбільш простіший засіб із можливих і все одно це краще, ніж форма взагалі підвисає без жодних пояснень.

   1:  Public Class Form1

2:

   3:      Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load

   4:          Application.DoEvents()

   5:          DataGridView1.Enabled = False

   6:          Me.ComboBox1.Items.Add("Top10")

   7:          Me.ComboBox1.Items.Add("AllPost")

   8:          Me.ComboBox1.Items.Add("Virus")

   9:          Me.TraceLogTableAdapter.SetCommandTimeout(100000)

  10:          ContextMenuStrip1.Cursor = Cursors.Hand

11:

  12:          BackgroundWorker1.WorkerSupportsCancellation = True

  13:      End Sub

14:

  15:      Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

  16:          Progress.Show()

  17:          If Not BackgroundWorker1.IsBusy = True Then

  18:              BackgroundWorker1.RunWorkerAsync()

  19:          End If

  20:      End Sub

21:

22:

  23:      Private Sub DataGridView1_SelectionChanged(sender As Object, e As System.EventArgs) Handles DataGridView1.SelectionChanged

  24:          If CType(sender, DataGridView).SelectedRows.Count > 0 Then

  25:              Dim RowIndex As Integer = CType(sender, DataGridView).SelectedRows(0).Index

  26:              TextBox_Form.Text = TraceLog_DS.TraceLog.Rows(RowIndex).Item("Form").ToString.Replace("&", vbCrLf & vbCrLf)

  27:              TextBox_Param.Text = TraceLog_DS.TraceLog.Rows(RowIndex).Item("RequestParams").ToString.Replace("&", vbCrLf & vbCrLf)

  28:          End If

  29:      End Sub

30:

  31:      Private Sub Label3_Click(sender As System.Object, e As System.EventArgs) Handles Label3.Click

  32:          Dim sInfo As ProcessStartInfo = New ProcessStartInfo("http://unicode.online-toolz.com/tools/text-unicode-entities-convertor.php")

  33:          Process.Start(sInfo)

  34:      End Sub

35:

  36:      Private Sub ToolStripTextBox1_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripTextBox1.Click

  37:          Select Case CType(CType(sender, ToolStripTextBox).Owner, ContextMenuStrip).SourceControl.Name

  38:              Case "TextBox_Form"

  39:                  MsgBox(DecodeHTML(TextBox_Form.SelectedText), MsgBoxStyle.OkOnly, "Unicode")

  40:              Case "TextBox_Param"

  41:                  MsgBox(DecodeHTML(TextBox_Param.SelectedText), MsgBoxStyle.OkOnly, "Unicode")

  42:          End Select

  43:      End Sub

44:

  45:      Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork

  46:          Me.Invoke(New MethodInvoker(AddressOf Fill_DS))

  47:      End Sub

48:

  49:      Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted

  50:          Me.Invoke(New MethodInvoker(AddressOf ProgressEnd))

  51:      End Sub

52:

53:

  54:      Private Sub Fill_DS()

  55:          DataGridView1.Enabled = False

  56:          Me.Button1.Enabled = False

  57:          Select Case ComboBox1.SelectedItem.ToString

  58:              Case "Top10"

  59:                  Me.TraceLogTableAdapter.Fill_top10(Me.TraceLog_DS.TraceLog)

  60:              Case "AllPost"

  61:                  Me.TraceLogTableAdapter.FillByAllPost(Me.TraceLog_DS.TraceLog)

  62:              Case "Virus"

  63:                  Me.TraceLogTableAdapter.FillByVirus(Me.TraceLog_DS.TraceLog)

  64:          End Select

  65:          Me.Button1.Enabled = True

  66:          DataGridView1.Enabled = True

  67:          DataGridView1.DataSource = Me.TraceLog_DS.TraceLog

  68:      End Sub

69:

  70:      Sub ProgressEnd()

  71:          If Progress IsNot Nothing AndAlso Progress.Visible Then

  72:              Progress.Close()

  73:          End If

  74:      End Sub

  75:  End Class

   1:  <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _

   2:  Partial Class Form1

   3:      Inherits System.Windows.Forms.Form

4:

   5:      'Form overrides dispose to clean up the component list.

   6:      <System.Diagnostics.DebuggerNonUserCode()> _

   7:      Protected Overrides Sub Dispose(ByVal disposing As Boolean)

   8:          Try

   9:              If disposing AndAlso components IsNot Nothing Then

  10:                  components.Dispose()

  11:              End If

  12:          Finally

  13:              MyBase.Dispose(disposing)

  14:          End Try

  15:      End Sub

16:

  17:      'Required by the Windows Form Designer

  18:      Private components As System.ComponentModel.IContainer

19:

  20:      'NOTE: The following procedure is required by the Windows Form Designer

  21:      'It can be modified using the Windows Form Designer.

  22:      'Do not modify it using the code editor.

  23:      <System.Diagnostics.DebuggerStepThrough()> _

  24:      Private Sub InitializeComponent()

  25:          Me.components = New System.ComponentModel.Container()

  26:          Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))

  27:          Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)

  28:          Me.ToolStripTextBox1 = New System.Windows.Forms.ToolStripTextBox()

  29:          Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()

  30:          Me.GroupBox1 = New System.Windows.Forms.GroupBox()

  31:          Me.Label4 = New System.Windows.Forms.Label()

  32:          Me.ComboBox1 = New System.Windows.Forms.ComboBox()

  33:          Me.Button1 = New System.Windows.Forms.Button()

  34:          Me.GroupBox2 = New System.Windows.Forms.GroupBox()

  35:          Me.TextBox_Form = New System.Windows.Forms.TextBox()

  36:          Me.GroupBox3 = New System.Windows.Forms.GroupBox()

  37:          Me.TextBox_Param = New System.Windows.Forms.TextBox()

  38:          Me.GroupBox4 = New System.Windows.Forms.GroupBox()

  39:          Me.DataGridView1 = New System.Windows.Forms.DataGridView()

  40:          Me.IDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()

  41:          Me.CrDateDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()

  42:          Me.RawUrlDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()

  43:          Me.UrlReferrerDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()

  44:          Me.HttpMethodDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()

  45:          Me.UserHostAddressDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()

  46:          Me.QueryStringDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()

  47:          Me.FormDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()

  48:          Me.RequestParamsDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()

  49:          Me.InputStreamLengthDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()

  50:          Me.IsAuthenticatedDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()

  51:          Me.IsLocalDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()

  52:          Me.UserAgentDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()

  53:          Me.HeadersDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()

  54:          Me.TraceLogBindingSource = New System.Windows.Forms.BindingSource(Me.components)

  55:          Me.TraceLog_DS = New Virus.TraceLog_DS()

  56:          Me.Label3 = New System.Windows.Forms.Label()

  57:          Me.TraceLogTableAdapter = New Virus.TraceLog_DSTableAdapters.TraceLogTableAdapter()

  58:          Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker()

  59:          Me.ContextMenuStrip1.SuspendLayout()

  60:          Me.TableLayoutPanel1.SuspendLayout()

  61:          Me.GroupBox1.SuspendLayout()

  62:          Me.GroupBox2.SuspendLayout()

  63:          Me.GroupBox3.SuspendLayout()

  64:          Me.GroupBox4.SuspendLayout()

  65:          CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()

  66:          CType(Me.TraceLogBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()

  67:          CType(Me.TraceLog_DS, System.ComponentModel.ISupportInitialize).BeginInit()

  68:          Me.SuspendLayout()

  69:          '

  70:          'ContextMenuStrip1

  71:          '

  72:          Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripTextBox1})

  73:          Me.ContextMenuStrip1.Name = "ContextMenuStrip1"

  74:          Me.ContextMenuStrip1.Size = New System.Drawing.Size(161, 27)

  75:          '

  76:          'ToolStripTextBox1

  77:          '

  78:          Me.ToolStripTextBox1.Name = "ToolStripTextBox1"

  79:          Me.ToolStripTextBox1.ReadOnly = True

  80:          Me.ToolStripTextBox1.Size = New System.Drawing.Size(100, 21)

  81:          Me.ToolStripTextBox1.Text = "UNICODE"

  82:          '

  83:          'TableLayoutPanel1

  84:          '

  85:          Me.TableLayoutPanel1.ColumnCount = 1

  86:          Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!))

  87:          Me.TableLayoutPanel1.Controls.Add(Me.GroupBox1, 0, 0)

  88:          Me.TableLayoutPanel1.Controls.Add(Me.GroupBox2, 0, 2)

  89:          Me.TableLayoutPanel1.Controls.Add(Me.GroupBox3, 0, 3)

  90:          Me.TableLayoutPanel1.Controls.Add(Me.GroupBox4, 0, 1)

  91:          Me.TableLayoutPanel1.Controls.Add(Me.Label3, 0, 4)

  92:          Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill

  93:          Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 0)

  94:          Me.TableLayoutPanel1.Name = "TableLayoutPanel1"

  95:          Me.TableLayoutPanel1.RowCount = 5

  96:          Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 50.0!))

  97:          Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.48671!))

  98:          Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.59537!))

  99:          Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 32.91792!))

 100:          Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))

 101:          Me.TableLayoutPanel1.Size = New System.Drawing.Size(914, 719)

 102:          Me.TableLayoutPanel1.TabIndex = 11

 103:          '

 104:          'GroupBox1

 105:          '

 106:          Me.GroupBox1.Controls.Add(Me.Label4)

 107:          Me.GroupBox1.Controls.Add(Me.ComboBox1)

 108:          Me.GroupBox1.Controls.Add(Me.Button1)

 109:          Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Fill

 110:          Me.GroupBox1.Location = New System.Drawing.Point(3, 3)

 111:          Me.GroupBox1.Name = "GroupBox1"

 112:          Me.GroupBox1.Size = New System.Drawing.Size(908, 44)

 113:          Me.GroupBox1.TabIndex = 0

 114:          Me.GroupBox1.TabStop = False

 115:          '

 116:          'Label4

 117:          '

 118:          Me.Label4.AutoSize = True

 119:          Me.Label4.ForeColor = System.Drawing.SystemColors.Desktop

 120:          Me.Label4.Location = New System.Drawing.Point(9, 14)

 121:          Me.Label4.Name = "Label4"

 122:          Me.Label4.Size = New System.Drawing.Size(556, 13)

 123:          Me.Label4.TabIndex = 10

 124:          Me.Label4.Text = "Для анализа запросов к сайту сначала выберите запрос в базу, потом конкретный зап" & _

 125:      "рос в таблице ниже"

 126:          '

 127:          'ComboBox1

 128:          '

 129:          Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList

 130:          Me.ComboBox1.FormattingEnabled = True

 131:          Me.ComboBox1.Location = New System.Drawing.Point(593, 9)

 132:          Me.ComboBox1.Name = "ComboBox1"

 133:          Me.ComboBox1.Size = New System.Drawing.Size(249, 21)

 134:          Me.ComboBox1.TabIndex = 9

 135:          '

 136:          'Button1

 137:          '

 138:          Me.Button1.BackgroundImage = CType(resources.GetObject("Button1.BackgroundImage"), System.Drawing.Image)

 139:          Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch

 140:          Me.Button1.Location = New System.Drawing.Point(859, 9)

 141:          Me.Button1.Name = "Button1"

 142:          Me.Button1.Size = New System.Drawing.Size(23, 23)

 143:          Me.Button1.TabIndex = 2

 144:          Me.Button1.UseVisualStyleBackColor = True

 145:          '

 146:          'GroupBox2

 147:          '

 148:          Me.GroupBox2.Controls.Add(Me.TextBox_Form)

 149:          Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Fill

 150:          Me.GroupBox2.ForeColor = System.Drawing.SystemColors.Desktop

 151:          Me.GroupBox2.Location = New System.Drawing.Point(3, 270)

 152:          Me.GroupBox2.Name = "GroupBox2"

 153:          Me.GroupBox2.Size = New System.Drawing.Size(908, 212)

 154:          Me.GroupBox2.TabIndex = 1

 155:          Me.GroupBox2.TabStop = False

 156:          Me.GroupBox2.Text = "RequestForm"

 157:          '

 158:          'TextBox_Form

 159:          '

 160:          Me.TextBox_Form.ContextMenuStrip = Me.ContextMenuStrip1

 161:          Me.TextBox_Form.Dock = System.Windows.Forms.DockStyle.Fill

 162:          Me.TextBox_Form.Location = New System.Drawing.Point(3, 16)

 163:          Me.TextBox_Form.Multiline = True

 164:          Me.TextBox_Form.Name = "TextBox_Form"

 165:          Me.TextBox_Form.ReadOnly = True

 166:          Me.TextBox_Form.ScrollBars = System.Windows.Forms.ScrollBars.Both

 167:          Me.TextBox_Form.Size = New System.Drawing.Size(902, 193)

 168:          Me.TextBox_Form.TabIndex = 13

 169:          '

 170:          'GroupBox3

 171:          '

 172:          Me.GroupBox3.Controls.Add(Me.TextBox_Param)

 173:          Me.GroupBox3.Dock = System.Windows.Forms.DockStyle.Fill

 174:          Me.GroupBox3.ForeColor = System.Drawing.SystemColors.Desktop

 175:          Me.GroupBox3.Location = New System.Drawing.Point(3, 488)

 176:          Me.GroupBox3.Name = "GroupBox3"

 177:          Me.GroupBox3.Size = New System.Drawing.Size(908, 207)

 178:          Me.GroupBox3.TabIndex = 2

 179:          Me.GroupBox3.TabStop = False

 180:          Me.GroupBox3.Text = "RequestParams"

 181:          '

 182:          'TextBox_Param

 183:          '

 184:          Me.TextBox_Param.ContextMenuStrip = Me.ContextMenuStrip1

 185:          Me.TextBox_Param.Dock = System.Windows.Forms.DockStyle.Fill

 186:          Me.TextBox_Param.Location = New System.Drawing.Point(3, 16)

 187:          Me.TextBox_Param.Multiline = True

 188:          Me.TextBox_Param.Name = "TextBox_Param"

 189:          Me.TextBox_Param.ReadOnly = True

 190:          Me.TextBox_Param.ScrollBars = System.Windows.Forms.ScrollBars.Both

 191:          Me.TextBox_Param.Size = New System.Drawing.Size(902, 188)

 192:          Me.TextBox_Param.TabIndex = 15

 193:          '

 194:          'GroupBox4

 195:          '

 196:          Me.GroupBox4.Controls.Add(Me.DataGridView1)

 197:          Me.GroupBox4.Dock = System.Windows.Forms.DockStyle.Fill

 198:          Me.GroupBox4.ForeColor = System.Drawing.SystemColors.Desktop

 199:          Me.GroupBox4.Location = New System.Drawing.Point(3, 53)

 200:          Me.GroupBox4.Name = "GroupBox4"

 201:          Me.GroupBox4.Size = New System.Drawing.Size(908, 211)

 202:          Me.GroupBox4.TabIndex = 3

 203:          Me.GroupBox4.TabStop = False

 204:          Me.GroupBox4.Text = "POST-запросы к сайту"

 205:          '

 206:          'DataGridView1

 207:          '

 208:          Me.DataGridView1.AutoGenerateColumns = False

 209:          Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize

 210:          Me.DataGridView1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.IDataGridViewTextBoxColumn, Me.CrDateDataGridViewTextBoxColumn, Me.RawUrlDataGridViewTextBoxColumn, Me.UrlReferrerDataGridViewTextBoxColumn, Me.HttpMethodDataGridViewTextBoxColumn, Me.UserHostAddressDataGridViewTextBoxColumn, Me.QueryStringDataGridViewTextBoxColumn, Me.FormDataGridViewTextBoxColumn, Me.RequestParamsDataGridViewTextBoxColumn, Me.InputStreamLengthDataGridViewTextBoxColumn, Me.IsAuthenticatedDataGridViewTextBoxColumn, Me.IsLocalDataGridViewTextBoxColumn, Me.UserAgentDataGridViewTextBoxColumn, Me.HeadersDataGridViewTextBoxColumn})

 211:          Me.DataGridView1.Cursor = System.Windows.Forms.Cursors.Hand

 212:          Me.DataGridView1.DataSource = Me.TraceLogBindingSource

 213:          Me.DataGridView1.Dock = System.Windows.Forms.DockStyle.Fill

 214:          Me.DataGridView1.GridColor = System.Drawing.SystemColors.InactiveBorder

 215:          Me.DataGridView1.Location = New System.Drawing.Point(3, 16)

 216:          Me.DataGridView1.MultiSelect = False

 217:          Me.DataGridView1.Name = "DataGridView1"

 218:          Me.DataGridView1.ReadOnly = True

 219:          Me.DataGridView1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect

 220:          Me.DataGridView1.Size = New System.Drawing.Size(902, 192)

 221:          Me.DataGridView1.TabIndex = 8

 222:          '

 223:          'IDataGridViewTextBoxColumn

 224:          '

 225:          Me.IDataGridViewTextBoxColumn.DataPropertyName = "i"

 226:          Me.IDataGridViewTextBoxColumn.HeaderText = "i"

 227:          Me.IDataGridViewTextBoxColumn.Name = "IDataGridViewTextBoxColumn"

 228:          Me.IDataGridViewTextBoxColumn.ReadOnly = True

 229:          '

 230:          'CrDateDataGridViewTextBoxColumn

 231:          '

 232:          Me.CrDateDataGridViewTextBoxColumn.DataPropertyName = "CrDate"

 233:          Me.CrDateDataGridViewTextBoxColumn.HeaderText = "CrDate"

 234:          Me.CrDateDataGridViewTextBoxColumn.Name = "CrDateDataGridViewTextBoxColumn"

 235:          Me.CrDateDataGridViewTextBoxColumn.ReadOnly = True

 236:          '

 237:          'RawUrlDataGridViewTextBoxColumn

 238:          '

 239:          Me.RawUrlDataGridViewTextBoxColumn.DataPropertyName = "RawUrl"

 240:          Me.RawUrlDataGridViewTextBoxColumn.HeaderText = "RawUrl"

 241:          Me.RawUrlDataGridViewTextBoxColumn.Name = "RawUrlDataGridViewTextBoxColumn"

 242:          Me.RawUrlDataGridViewTextBoxColumn.ReadOnly = True

 243:          '

 244:          'UrlReferrerDataGridViewTextBoxColumn

 245:          '

 246:          Me.UrlReferrerDataGridViewTextBoxColumn.DataPropertyName = "UrlReferrer"

 247:          Me.UrlReferrerDataGridViewTextBoxColumn.HeaderText = "UrlReferrer"

 248:          Me.UrlReferrerDataGridViewTextBoxColumn.Name = "UrlReferrerDataGridViewTextBoxColumn"

 249:          Me.UrlReferrerDataGridViewTextBoxColumn.ReadOnly = True

 250:          '

 251:          'HttpMethodDataGridViewTextBoxColumn

 252:          '

 253:          Me.HttpMethodDataGridViewTextBoxColumn.DataPropertyName = "HttpMethod"

 254:          Me.HttpMethodDataGridViewTextBoxColumn.HeaderText = "HttpMethod"

 255:          Me.HttpMethodDataGridViewTextBoxColumn.Name = "HttpMethodDataGridViewTextBoxColumn"

 256:          Me.HttpMethodDataGridViewTextBoxColumn.ReadOnly = True

 257:          '

 258:          'UserHostAddressDataGridViewTextBoxColumn

 259:          '

 260:          Me.UserHostAddressDataGridViewTextBoxColumn.DataPropertyName = "UserHostAddress"

 261:          Me.UserHostAddressDataGridViewTextBoxColumn.HeaderText = "UserHostAddress"

 262:          Me.UserHostAddressDataGridViewTextBoxColumn.Name = "UserHostAddressDataGridViewTextBoxColumn"

 263:          Me.UserHostAddressDataGridViewTextBoxColumn.ReadOnly = True

 264:          '

 265:          'QueryStringDataGridViewTextBoxColumn

 266:          '

 267:          Me.QueryStringDataGridViewTextBoxColumn.DataPropertyName = "QueryString"

 268:          Me.QueryStringDataGridViewTextBoxColumn.HeaderText = "QueryString"

 269:          Me.QueryStringDataGridViewTextBoxColumn.Name = "QueryStringDataGridViewTextBoxColumn"

 270:          Me.QueryStringDataGridViewTextBoxColumn.ReadOnly = True

 271:          '

 272:          'FormDataGridViewTextBoxColumn

 273:          '

 274:          Me.FormDataGridViewTextBoxColumn.DataPropertyName = "Form"

 275:          Me.FormDataGridViewTextBoxColumn.HeaderText = "Form"

 276:          Me.FormDataGridViewTextBoxColumn.Name = "FormDataGridViewTextBoxColumn"

 277:          Me.FormDataGridViewTextBoxColumn.ReadOnly = True

 278:          '

 279:          'RequestParamsDataGridViewTextBoxColumn

 280:          '

 281:          Me.RequestParamsDataGridViewTextBoxColumn.DataPropertyName = "RequestParams"

 282:          Me.RequestParamsDataGridViewTextBoxColumn.HeaderText = "RequestParams"

 283:          Me.RequestParamsDataGridViewTextBoxColumn.Name = "RequestParamsDataGridViewTextBoxColumn"

 284:          Me.RequestParamsDataGridViewTextBoxColumn.ReadOnly = True

 285:          '

 286:          'InputStreamLengthDataGridViewTextBoxColumn

 287:          '

 288:          Me.InputStreamLengthDataGridViewTextBoxColumn.DataPropertyName = "InputStreamLength"

 289:          Me.InputStreamLengthDataGridViewTextBoxColumn.HeaderText = "InputStreamLength"

 290:          Me.InputStreamLengthDataGridViewTextBoxColumn.Name = "InputStreamLengthDataGridViewTextBoxColumn"

 291:          Me.InputStreamLengthDataGridViewTextBoxColumn.ReadOnly = True

 292:          '

 293:          'IsAuthenticatedDataGridViewTextBoxColumn

 294:          '

 295:          Me.IsAuthenticatedDataGridViewTextBoxColumn.DataPropertyName = "IsAuthenticated"

 296:          Me.IsAuthenticatedDataGridViewTextBoxColumn.HeaderText = "IsAuthenticated"

 297:          Me.IsAuthenticatedDataGridViewTextBoxColumn.Name = "IsAuthenticatedDataGridViewTextBoxColumn"

 298:          Me.IsAuthenticatedDataGridViewTextBoxColumn.ReadOnly = True

 299:          '

 300:          'IsLocalDataGridViewTextBoxColumn

 301:          '

 302:          Me.IsLocalDataGridViewTextBoxColumn.DataPropertyName = "IsLocal"

 303:          Me.IsLocalDataGridViewTextBoxColumn.HeaderText = "IsLocal"

 304:          Me.IsLocalDataGridViewTextBoxColumn.Name = "IsLocalDataGridViewTextBoxColumn"

 305:          Me.IsLocalDataGridViewTextBoxColumn.ReadOnly = True

 306:          '

 307:          'UserAgentDataGridViewTextBoxColumn

 308:          '

 309:          Me.UserAgentDataGridViewTextBoxColumn.DataPropertyName = "UserAgent"

 310:          Me.UserAgentDataGridViewTextBoxColumn.HeaderText = "UserAgent"

 311:          Me.UserAgentDataGridViewTextBoxColumn.Name = "UserAgentDataGridViewTextBoxColumn"

 312:          Me.UserAgentDataGridViewTextBoxColumn.ReadOnly = True

 313:          '

 314:          'HeadersDataGridViewTextBoxColumn

 315:          '

 316:          Me.HeadersDataGridViewTextBoxColumn.DataPropertyName = "Headers"

 317:          Me.HeadersDataGridViewTextBoxColumn.HeaderText = "Headers"

 318:          Me.HeadersDataGridViewTextBoxColumn.Name = "HeadersDataGridViewTextBoxColumn"

 319:          Me.HeadersDataGridViewTextBoxColumn.ReadOnly = True

 320:          '

 321:          'TraceLogBindingSource

 322:          '

 323:          Me.TraceLogBindingSource.DataMember = "TraceLog"

 324:          Me.TraceLogBindingSource.DataSource = Me.TraceLog_DS

 325:          '

 326:          'TraceLog_DS

 327:          '

 328:          Me.TraceLog_DS.DataSetName = "TraceLog_DS"

 329:          Me.TraceLog_DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema

 330:          '

 331:          'Label3

 332:          '

 333:          Me.Label3.AutoSize = True

 334:          Me.Label3.Cursor = System.Windows.Forms.Cursors.Hand

 335:          Me.Label3.Dock = System.Windows.Forms.DockStyle.Fill

 336:          Me.Label3.ForeColor = System.Drawing.SystemColors.Desktop

 337:          Me.Label3.Location = New System.Drawing.Point(3, 698)

 338:          Me.Label3.Name = "Label3"

 339:          Me.Label3.Size = New System.Drawing.Size(908, 21)

 340:          Me.Label3.TabIndex = 11

 341:          Me.Label3.Text = "Для просмотра в UNICODE выделите текст, щелкните правой кнопкой мышки и выберите " & _

 342:      "- UNICODE или кликните здесь, чтобы воспользоваться онлайн-инструментами"

 343:          '

 344:          'TraceLogTableAdapter

 345:          '

 346:          Me.TraceLogTableAdapter.ClearBeforeFill = True

 347:          '

 348:          'BackgroundWorker1

 349:          '

 350:          '

 351:          'Form1

 352:          '

 353:          Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

 354:          Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font

 355:          Me.ClientSize = New System.Drawing.Size(914, 719)

 356:          Me.Controls.Add(Me.TableLayoutPanel1)

 357:          Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)

 358:          Me.Name = "Form1"

 359:          Me.Text = "Arenda Antivirus (парсер POST-запросов к сайту)"

 360:          Me.ContextMenuStrip1.ResumeLayout(False)

 361:          Me.ContextMenuStrip1.PerformLayout()

 362:          Me.TableLayoutPanel1.ResumeLayout(False)

 363:          Me.TableLayoutPanel1.PerformLayout()

 364:          Me.GroupBox1.ResumeLayout(False)

 365:          Me.GroupBox1.PerformLayout()

 366:          Me.GroupBox2.ResumeLayout(False)

 367:          Me.GroupBox2.PerformLayout()

 368:          Me.GroupBox3.ResumeLayout(False)

 369:          Me.GroupBox3.PerformLayout()

 370:          Me.GroupBox4.ResumeLayout(False)

 371:          CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()

 372:          CType(Me.TraceLogBindingSource, System.ComponentModel.ISupportInitialize).EndInit()

 373:          CType(Me.TraceLog_DS, System.ComponentModel.ISupportInitialize).EndInit()

 374:          Me.ResumeLayout(False)

 375:

 376:  End Sub

 377:      Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip

 378:      Friend WithEvents ToolStripTextBox1 As System.Windows.Forms.ToolStripTextBox

 379:      Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel

 380:      Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox

 381:      Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox

 382:      Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox

 383:      Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox

 384:      Friend WithEvents Button1 As System.Windows.Forms.Button

 385:      Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox

 386:      Friend WithEvents Label4 As System.Windows.Forms.Label

 387:      Friend WithEvents TextBox_Form As System.Windows.Forms.TextBox

 388:      Friend WithEvents TextBox_Param As System.Windows.Forms.TextBox

 389:      Friend WithEvents Label3 As System.Windows.Forms.Label

 390:      Friend WithEvents DataGridView1 As System.Windows.Forms.DataGridView

 391:      Friend WithEvents TraceLog_DS As Virus.TraceLog_DS

 392:      Friend WithEvents TraceLogBindingSource As System.Windows.Forms.BindingSource

 393:      Friend WithEvents TraceLogTableAdapter As Virus.TraceLog_DSTableAdapters.TraceLogTableAdapter

 394:      Friend WithEvents IDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn

 395:      Friend WithEvents CrDateDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn

 396:      Friend WithEvents RawUrlDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn

 397:      Friend WithEvents UrlReferrerDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn

 398:      Friend WithEvents HttpMethodDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn

 399:      Friend WithEvents UserHostAddressDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn

 400:      Friend WithEvents QueryStringDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn

 401:      Friend WithEvents FormDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn

 402:      Friend WithEvents RequestParamsDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn

 403:      Friend WithEvents InputStreamLengthDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn

 404:      Friend WithEvents IsAuthenticatedDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn

 405:      Friend WithEvents IsLocalDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn

 406:      Friend WithEvents UserAgentDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn

 407:      Friend WithEvents HeadersDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn

 408:      Friend WithEvents BackgroundWorker1 As System.ComponentModel.BackgroundWorker

 409:

 410:  End Class

Далі та сама маленька форма, яка не дуже інтерактивно працює, але це все одно краще, ниж нічого.

   1:  Imports System.Windows.Forms

2:

   3:  Public Class Progress

4:

   5:      Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

   6:          Me.DialogResult = System.Windows.Forms.DialogResult.OK

   7:          Me.Close()

   8:      End Sub

9:

  10:      Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

  11:          Me.DialogResult = System.Windows.Forms.DialogResult.Cancel

  12:          Me.Close()

  13:      End Sub

14:

  15:  End Class

   1:  <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _

   2:  Partial Class Progress

   3:      Inherits System.Windows.Forms.Form

4:

   5:      'Form overrides dispose to clean up the component list.

   6:      <System.Diagnostics.DebuggerNonUserCode()> _

   7:      Protected Overrides Sub Dispose(ByVal disposing As Boolean)

   8:          Try

   9:              If disposing AndAlso components IsNot Nothing Then

  10:                  components.Dispose()

  11:              End If

  12:          Finally

  13:              MyBase.Dispose(disposing)

  14:          End Try

  15:      End Sub

16:

  17:      'Required by the Windows Form Designer

  18:      Private components As System.ComponentModel.IContainer

19:

  20:      'NOTE: The following procedure is required by the Windows Form Designer

  21:      'It can be modified using the Windows Form Designer.

  22:      'Do not modify it using the code editor.

  23:      <System.Diagnostics.DebuggerStepThrough()> _

  24:      Private Sub InitializeComponent()

  25:          Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()

  26:          Me.SuspendLayout()

  27:          '

  28:          'ProgressBar1

  29:          '

  30:          Me.ProgressBar1.Dock = System.Windows.Forms.DockStyle.Fill

  31:          Me.ProgressBar1.Location = New System.Drawing.Point(0, 0)

  32:          Me.ProgressBar1.Name = "ProgressBar1"

  33:          Me.ProgressBar1.Size = New System.Drawing.Size(435, 56)

  34:          Me.ProgressBar1.Style = System.Windows.Forms.ProgressBarStyle.Marquee

  35:          Me.ProgressBar1.TabIndex = 0

  36:          '

  37:          'Progress

  38:          '

  39:          Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

  40:          Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font

  41:          Me.ClientSize = New System.Drawing.Size(435, 56)

  42:          Me.Controls.Add(Me.ProgressBar1)

  43:          Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog

  44:          Me.MaximizeBox = False

  45:          Me.MinimizeBox = False

  46:          Me.Name = "Progress"

  47:          Me.ShowInTaskbar = False

  48:          Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen

  49:          Me.Text = "Waiting"

  50:          Me.TopMost = True

  51:          Me.ResumeLayout(False)

52:

  53:      End Sub

  54:      Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar

55:

  56:  End Class

Далі той самий форматований

   1:    2:    3:    4:    5:    6:    7:    8:    9:   10:   11:   12:   13:   14:   15:   16:   17:   18:   19:   20:   21:   22:   23:   24:   25:   26:     27:     28:     29:     30:     31:     32:     33:     34:     35:     36:     37:     38:     39:     40:     41:     42:     43:     44:     45:     46:     47:     48:     49:     50:     51:     52:     53:     54:     55:     56:     57:     58:     59:     60:     61:     62:     63:     64:     65:     66:     67:     68:     69:     70:     71:     72:     73:     74:     75:     76:     77:     78:     79:     80:     81:     82:     83:     84:     85:     86:     87:     88:     89:     90:     91:     92:     93:     94:     95:     96:     97:     98:     99:    100:    101:    102:    103:    104:    105:    106:    107:    108:    109:    110:    111:    112:    113:    114:    115:    116:    117:    118:    119:    120:    121:    122:    123:    124:    125:    126:    127:    128:    129:    130:    131:    132:    133:    134:    135:    136:    137:    138:    139:    140:    141:    142:    143:    144:    145:    146:    147:    148:    149:    150:    151:    152:    153:    154:    155:    156:    157:    158:    159:    160:    161:    162:    163:    164:    165:    166:    167:    168:    169:    170:    171:    172:    173:    174:    175:    176:    177:    178:    179:    180:    181:    182:    183:    184:    185:    186:    187:    188:    189:    190:    191:    192:    193:    194:    195:    196:    197:    198:    199:    200:    201:    202:    203:    204:    205:    206:    207:    208:    209:    210:    211:    212:    213:    214:    215:    216:    217:    218:    219:    220:    221:    222:    223:    224:    225:    226:    227:    228:    229:    230:    231:    232:    233:    234:    235:    236:    237:    238:    239:    240:    241:    242:    243:    244:    245:    246:    247:    248:    249:    250:    251:    252:    253:    254:    255:    256:    257:    258:    259:    260:    261:    262:    263:    264:    265:    266:    267:    268:    269:    270:    271:    272:    273:    274:    275:    276:    277:    278:    279:    280:    281:    282:    283:    284:    285:    286:    287:    288:    289:    290:    291:    292:    293:    294:    295:    296:    297:    298:    299:    300:    301:    302:    303:    304:    305:    306:    307:    308:    309:    310:    311:    312:    313:    314:    315:    316:    317:    318:    319:    320:    321:    322:    323:    324:    325:    326:    327:    328:    329:    330:    331:    332:    333:    334:    335:    336:    337:    338:    339:    340:    341:    342:    343:    344:    345:    346:    347:    348:    349:    350:    351:    352:    353:    354:    355:    356:    357:    358:    359:    360:    361:    362:    363:    364:    365:    366:    367:    368:    369:    370:    371:    372:    373:    374:    375:    376:    377:    378:    379:    380:    381:    382:    383:    384:    385:    386:    387:    388:    389:    390:    391:    392:    393:    394:    395:    396:    397:    398:    399:    400:    401:    402:    403:    404:    405:    406:    407:    408:    409:    410:    411:    412:    413:    414:    415:    416:    417:    418:    419:    420:    421:    422:    423:    424:    425:    426:    427:    428:    429:    430:    431:    432:    433:    434:    435:    436:    437:    438:    439:    440:    441:    442:    443:    444:    445:    446:    447:    448:    449:    450:    451:    452:    453:    454:    455:    456:    457:    458:    459:    460:    461:    462:    463:    464:    465:    466:    467:    468:    469:    470:    471:    472:    473:    474:    475:    476:    477:    478:    479:    480:    481:    482:    483:    484:    485:    486:    487:    488:    489:    490:    491:    492:    493:    494:    495:    496:    497:    498:    499:    500:    501:    502:    503:    504:    505:    506:    507:    508:    509:    510:    511:    512:    513:    514:    515:    516:    517:    518:    519:    520:    521:    522:    523:    524:    525:    526:    527:    528:    529:    530:    531:    532:    533:    534:    535:    536:    537:    538:    539:    540:    541:    542:    543:    544:    545:    546:    547:    548:    549:    550:    551:    552:    553:    554:    555:    556:    557:    558:    559:    560:    561:    562:    563:    564:    565:    566:    567:    568:    569:    570:    571:    572:    573:    574:    575:    576:    577:    578:    579:    580:    581:    582:    583:    584:    585:    586:    587:    588:    589:    590:    591:    592:    593:    594:    595:    596:    597:    598:    599:    600:    601:    602:    603:    604:    605:    606:    607:    608:    609:    610:    611:    612:    613:    614:    615:    616:    617:    618:    619:    620:    621:    622:    623:    624:    625:    626:    627:    628:    629:    630:    631:    632:    633:    634:    635:    636:    637:    638:    639:    640:    641:    642:    643:    644:    645:    646:    647:    648:    649:    650:    651:    652:    653:    654:    655:    656:    657:    658:    659:    660:    661:    662:    663:    664:    665:    666:    667:    668:    669:    670:    671:    672:    673:    674:    675:    676:    677:    678:    679:    680:    681:    682:    683:    684:    685:    686:    687:    688:    689:    690:    691:    692:    693:    694:    695:    696:    697:    698:    699:    700:    701:    702:    703:    704:    705:    706:    707:    708:    709:    710:    711:    712:    713:    714:    715:    716:    717:    718:    719:    720:    721:    722:    723:    724:    725:    726:    727:    728:    729:    730:    731:    732:    733:    734:    735:    736:    737:    738:    739:    740:    741:    742:    743:    744:    745:    746:    747:    748:    749:    750:    751:    752:    753:    754:    755:    756:    757:    758:    759:    760:    761:    762:    763:    764:    765:    766:    767:    768:    769:    770:    771:    772:    773:    774:    775:    776:    777:    778:    779:    780:    781:    782:    783:    784:    785:    786:    787:    788:    789:    790:    791:    792:    793:    794:    795:    796:    797:    798:    799:    800:    801:    802:    803:    804:    805:    806:    807:    808:    809:    810:    811:    812:    813:    814:    815:    816:    817:    818:    819:    820:    821:    822:    823:    824:    825:    826:    827:    828:    829:    830:    831:    832:    833:    834:    835:    836:    837:    838:    839:    840:    841:    842:    843:    844:    845:    846:    847:    848:    849:    850:    851:    852:    853:    854:    855:    856:    857:    858:    859:    860:    861:    862:    863:    864:    865:    866:    867:    868:    869:    870:    871:    872:    873:    874:    875:    876:    877:    878:    879:    880:    881:    882:    883:    884:    885:    886:    887:    888:    889:    890:    891:    892:    893:    894:    895:    896:    897:    898:    899:    900:    901:    902:    903:    904:    905:    906:    907:    908:    909:    910:    911:    912:    913:    914:    915:    916:    917:    918:    919:    920:    921:    922:    923:    924:    925:    926:    927:    928:    929:    930:    931:    932:    933:    934:    935:    936:    937:    938:    939:    940:    941:    942:    943:    944:    945:    946:    947:    948:    949:    950:    951:    952:    953:    954:    955:    956:    957:    958:    959:    960:    961:    962:    963:    964:    965:    966:    967:    968:    969:    970:    971:    972:    973:    974:    975:    976:    977:    978:    979:    980:    981:    982:    983:    984:    985:    986:    987:    988:    989:    990:    991:    992:    993:    994:    995:    996:    997:    998:    999:   1000:   1001:   1002:   1003:   1004:   1005:   1006:   1007:   1008:   1009:   1010:   1011:   1012:   1013:   1014:   1015:   1016:   1017:   1018:   1019:   1020:   1021:   1022:   1023:   1024:   1025:   1026:   1027:   1028:   1029:   1030:   1031:   1032:   1033:   1034:   1035:   1036:   1037:   1038:   1039:   1040:   1041:   1042:   1043:   1044:   1045:   1046:   1047:   1048:   1049:   1050:   1051:   1052:   1053:   1054:   1055:   1056:   1057:   1058:   1059:   1060:   1061:   1062:   1063:   1064:   1065:   1066:   1067:   1068:   1069:   1070:   1071:   1072:   1073:   1074:   1075:   1076:   1077:   1078:   1079:   1080:   1081:   1082:   1083:   1084:   1085:   1086:   1087:   1088:   1089:   1090:   1091:   1092:   1093:   1094:   1095:   1096:   1097:   1098:   1099:   1100:   1101:   1102:   1103:   1104:   1105:   1106:   1107:   1108:   1109:   1110:   1111:   1112:   1113:   1114:   1115:   1116:   1117:   1118:   1119: 1120: 1121: 1122:   1123:   1124:   1125:   1126:   1127:   1128:   1129:   1130:   1131:   1132:   1133:   1134:   1135:   1136:   1137:   1138:   1139:   1140:   1141:   1142:   1143:   1144:   1145:   1146:   1147:   1148:   1149:   1150:   1151:   1152:   1153:   1154:   1155:   1156:   1157:   1158:   1159:   1160:   1161:   1162:   1163:   1164:   1165:   1166:   1167:   1168:   1169:   1170:   1171:   1172:   1173:   1174:   1175:   1176:   1177:   1178:   1179:   1180:   1181:   1182:   1183:   1184:   1185:   1186:   1187:   1188:   1189:   1190:   1191:   1192:   1193:   1194:   1195:   1196:   1197:   1198:   1199:   1200:   1201:   1202:   1203:   1204:   1205:   1206:   1207:   1208:   1209:   1210:   1211:   1212:   1213:   1214:   1215:   1216:   1217:   1218:   1219:   1220:   1221:   1222:   1223:   1224:   1225:   1226:   1227:   1228:   1229:   1230:   1231:   1232:   1233:   1234:   1235:   1236:   1237:   1238:   1239:   1240:   1241:   1242:   1243:   1244:   1245:   1246:   1247:   1248:   1249:   1250:   1251:   1252:   1253:   1254:   1255:   1256:   1257:   1258:   1259:   1260:   1261:   1262:   1263:   1264:   1265:   1266:   1267:   1268:   1269:   1270:   1271:   1272:   1273:   1274:   1275:   1276:   1277:   1278:   1279:   1280:   1281:   1282:   1283:   1284:   1285:   1286:   1287:   1288:   1289:   1290:   1291:   1292:   1293:   1294:   1295:   1296:   1297:   1298:   1299:   1300:   1301:   1302:   1303:   1304:   1305:   1306:   1307:   1308:   1309:   1310:   1311:   1312:   1313:   1314:   1315:   1316:   1317:   1318:   1319:   1320:   1321:   1322:   1323:   1324:   1325:   1326:   1327:   1328:   1329:   1330:   1331:   1332:   1333:   1334:   1335:   1336:   1337:   1338:   1339:   1340:   1341:   1342:   1343:   1344:   1345:   1346:   1347:   1348:   1349:   1350:   1351:   1352:   1353:   1354:   1355:   1356:   1357:   1358:   1359:   1360:   1361:   1362:   1363:   1364:   1365:   1366:   1367:   1368:   1369:   1370:   1371:   1372:   1373:   1374:   1375:   1376:   1377:   1378:   1379:   1380:   1381:   1382:   1383:   1384:   1385:   1386:   1387:   1388:   1389:   1390:   1391:   1392:   1393:   1394:   1395:   1396:   1397:   1398:   1399:   1400:   1401:   1402:   1403:   1404:   1405:   1406:   1407:   1408:   1409:   1410:   1411:   1412:   1413:   1414:   1415:   1416:   1417:   1418:   1419:   1420:   1421:   1422:   1423:   1424:   1425:   1426:   1427:   1428:   1429:   1430:   1431:   1432:   1433:   1434:   1435:   1436:   1437:   1438:   1439:   1440:   1441:   1442:   1443:   1444:   1445:   1446:   1447:   1448:   1449:   1450:   1451:   1452:   1453:   1454:   1455:   1456:   1457:   1458:   1459:   1460:   1461:   1462:   1463:   1464:   1465:   1466:   1467:   1468:   1469:   1470:   1471:   1472:   1473:   1474:   1475:   1476:   1477:   1478:   1479:   1480:   1481:   1482:   1483:   1484:   1485:   1486:   1487:   1488:   1489:   1490:   1491:   1492:   1493:   1494:   1495:   1496:   1497:   1498:   1499:   1500:   1501:   1502:   1503:   1504:   1505:   1506:   1507:   1508:   1509:   1510:   1511:   1512:   1513:   1514:   1515:   1516:   1517:   1518:   1519:   1520:   1521:   1522:   1523:   1524:   1525:   1526:   1527:   1528:   1529:   1530:   1531:   1532:   1533:   1534:   1535:   1536:   1537:   1538:   1539:   1540:   1541:   1542:   1543:   1544:   1545:   1546:   1547:   1548:   1549:   1550:   1551:   1552:   1553:   1554:   1555:   1556:   1557:   1558:   1559:   1560:   1561:   1562:   1563:   1564:   1565:   1566:   1567:   1568:   1569:   1570:   1571:   1572:   1573:   1574:   1575:   1576:   1577:   1578:   1579:   1580:   1581:   1582:   1583:   1584:   1585:   1586:   1587:   1588:   1589:   1590:   1591:   1592:   1593:   1594:   1595:   1596:   1597:   1598:   1599:   1600:   1601:   1602:   1603:   1604:   1605:   1606:   1607:   1608:   1609:   1610:   1611:   1612:   1613:   1614:   1615:   1616:   1617:   1618:   1619:   1620:   1621:   1622:   1623:   1624:   1625:   1626:   1627:   1628:   1629:   1630:   1631:   1632:   1633:   1634:   1635:   1636:   1637:   1638:   1639:   1640:   1641:   1642:   1643:   1644:   1645:   1646:   1647:   1648:   1649:   1650:   1651:   1652:   1653:   1654:   1655:   1656:   1657:   1658:   1659:   1660:   1661:   1662:   1663:   1664:   1665:   1666:   1667:   1668:   1669:   1670:   1671:   1672:   1673: 1674:   1675:   1676: 1677:   1678: 1679:   1680:   1681:   1682:   1683:   1684:   1685: 1686:   1687: 1688:   1689:   1690:   1691:   1692: 1693:   1694:   1695:   1696:   1697:   1698:   1699: 1700:   1701:   1702: 1703:   1704:   1705:   1706:   1707:   1708:   1709:   1710:   1711:   1712:   1713:   1714:   1715:   1716:   1717:   1718: 1719:   1720:   1721: 1722:   1723:   1724: 1725:   1726:   1727:   1728:   1729:   1730:   1731:   1732:   1733:   1734:   1735:   1736:   1737:   1738:   1739:

І ось тут стоп. буфер для даних, що так просто формується Студією (лише одним drag-and-drop'ом) але займає так багато коду: '------------------------------------------------------------------------------ ' <auto-generated> ' This code was generated by a tool. ' Runtime Version:4.0.30319.34209 ' ' Changes to this file may cause incorrect behavior and will be lost if ' the code is regenerated. ' </auto-generated> '------------------------------------------------------------------------------ Option Strict Off Option Explicit On '''<summary> '''Represents a strongly typed in-memory cache of data. '''</summary> <Global.System.Serializable(), _ Global.System.ComponentModel.DesignerCategoryAttribute("code"), _ Global.System.ComponentModel.ToolboxItem(true), _ Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedDataSetSchema"), _ Global.System.Xml.Serialization.XmlRootAttribute("TraceLog_DS"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _ Partial Public Class TraceLog_DS Inherits Global.System.Data.DataSet Private tableTraceLog As TraceLogDataTable Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Sub New() MyBase.New Me.BeginInit Me.InitClass Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler Me.EndInit End Sub <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context, false) If (Me.IsBinarySerialized(info, context) = true) Then Me.InitVars(false) Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 Return End If Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String) If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) If (Not (ds.Tables("TraceLog")) Is Nothing) Then MyBase.Tables.Add(New TraceLogDataTable(ds.Tables("TraceLog"))) End If Me.DataSetName = ds.DataSetName Me.Prefix = ds.Prefix Me.Namespace = ds.Namespace Me.Locale = ds.Locale Me.CaseSensitive = ds.CaseSensitive Me.EnforceConstraints = ds.EnforceConstraints Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) Me.InitVars Else Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) End If Me.GetSerializationData(info, context) Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler AddHandler Me.Relations.CollectionChanged, schemaChangedHandler End Sub <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Browsable(false), _ Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _ Public ReadOnly Property TraceLog() As TraceLogDataTable Get Return Me.tableTraceLog End Get End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.BrowsableAttribute(true), _ Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)> _ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode Get Return Me._schemaSerializationMode End Get Set Me._schemaSerializationMode = value End Set End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _ Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection Get Return MyBase.Tables End Get End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _ Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection Get Return MyBase.Relations End Get End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub InitializeDerivedDataSet() Me.BeginInit Me.InitClass Me.EndInit End Sub <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataSet Dim cln As TraceLog_DS = CType(MyBase.Clone,TraceLog_DS) cln.InitVars cln.SchemaSerializationMode = Me.SchemaSerializationMode Return cln End Function <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Function ShouldSerializeTables() As Boolean Return false End Function <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Function ShouldSerializeRelations() As Boolean Return false End Function <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then Me.Reset Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() ds.ReadXml(reader) If (Not (ds.Tables("TraceLog")) Is Nothing) Then MyBase.Tables.Add(New TraceLogDataTable(ds.Tables("TraceLog"))) End If Me.DataSetName = ds.DataSetName Me.Prefix = ds.Prefix Me.Namespace = ds.Namespace Me.Locale = ds.Locale Me.CaseSensitive = ds.CaseSensitive Me.EnforceConstraints = ds.EnforceConstraints Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) Me.InitVars Else Me.ReadXml(reader) Me.InitVars End If End Sub <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) stream.Position = 0 Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) End Function <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Friend Overloads Sub InitVars() Me.InitVars(true) End Sub <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Friend Overloads Sub InitVars(ByVal initTable As Boolean) Me.tableTraceLog = CType(MyBase.Tables("TraceLog"),TraceLogDataTable) If (initTable = true) Then If (Not (Me.tableTraceLog) Is Nothing) Then Me.tableTraceLog.InitVars End If End If End Sub <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Private Sub InitClass() Me.DataSetName = "TraceLog_DS" Me.Prefix = "" Me.Namespace = "http://tempuri.org/TraceLog_DS.xsd" Me.EnforceConstraints = true Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema Me.tableTraceLog = New TraceLogDataTable() MyBase.Tables.Add(Me.tableTraceLog) End Sub <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Private Function ShouldSerializeTraceLog() As Boolean Return false End Function <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then Me.InitVars End If End Sub <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim ds As TraceLog_DS = New TraceLog_DS() Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any.Namespace = ds.Namespace sequence.Items.Add(any) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Delegate Sub TraceLogRowChangeEventHandler(ByVal sender As Object, ByVal e As TraceLogRowChangeEvent) '''<summary> '''Represents the strongly named DataTable class. '''</summary> <Global.System.Serializable(), _ Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _ Partial Public Class TraceLogDataTable Inherits Global.System.Data.TypedTableBase(Of TraceLogRow) Private columni As Global.System.Data.DataColumn Private columnCrDate As Global.System.Data.DataColumn Private columnRawUrl As Global.System.Data.DataColumn Private columnUrlReferrer As Global.System.Data.DataColumn Private columnHttpMethod As Global.System.Data.DataColumn Private columnUserHostAddress As Global.System.Data.DataColumn Private columnQueryString As Global.System.Data.DataColumn Private columnForm As Global.System.Data.DataColumn Private columnRequestParams As Global.System.Data.DataColumn Private columnInputStreamLength As Global.System.Data.DataColumn Private columnIsAuthenticated As Global.System.Data.DataColumn Private columnIsLocal As Global.System.Data.DataColumn Private columnUserAgent As Global.System.Data.DataColumn Private columnHeaders As Global.System.Data.DataColumn <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TraceLog" Me.BeginInit Me.InitClass Me.EndInit End Sub <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public ReadOnly Property iColumn() As Global.System.Data.DataColumn Get Return Me.columni End Get End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public ReadOnly Property CrDateColumn() As Global.System.Data.DataColumn Get Return Me.columnCrDate End Get End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public ReadOnly Property RawUrlColumn() As Global.System.Data.DataColumn Get Return Me.columnRawUrl End Get End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public ReadOnly Property UrlReferrerColumn() As Global.System.Data.DataColumn Get Return Me.columnUrlReferrer End Get End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public ReadOnly Property HttpMethodColumn() As Global.System.Data.DataColumn Get Return Me.columnHttpMethod End Get End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public ReadOnly Property UserHostAddressColumn() As Global.System.Data.DataColumn Get Return Me.columnUserHostAddress End Get End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public ReadOnly Property QueryStringColumn() As Global.System.Data.DataColumn Get Return Me.columnQueryString End Get End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public ReadOnly Property FormColumn() As Global.System.Data.DataColumn Get Return Me.columnForm End Get End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public ReadOnly Property RequestParamsColumn() As Global.System.Data.DataColumn Get Return Me.columnRequestParams End Get End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public ReadOnly Property InputStreamLengthColumn() As Global.System.Data.DataColumn Get Return Me.columnInputStreamLength End Get End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public ReadOnly Property IsAuthenticatedColumn() As Global.System.Data.DataColumn Get Return Me.columnIsAuthenticated End Get End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public ReadOnly Property IsLocalColumn() As Global.System.Data.DataColumn Get Return Me.columnIsLocal End Get End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public ReadOnly Property UserAgentColumn() As Global.System.Data.DataColumn Get Return Me.columnUserAgent End Get End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public ReadOnly Property HeadersColumn() As Global.System.Data.DataColumn Get Return Me.columnHeaders End Get End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Browsable(false)> _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TraceLogRow Get Return CType(Me.Rows(index),TraceLogRow) End Get End Property <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Event TraceLogRowChanging As TraceLogRowChangeEventHandler <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Event TraceLogRowChanged As TraceLogRowChangeEventHandler <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Event TraceLogRowDeleting As TraceLogRowChangeEventHandler <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Event TraceLogRowDeleted As TraceLogRowChangeEventHandler <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Overloads Sub AddTraceLogRow(ByVal row As TraceLogRow) Me.Rows.Add(row) End Sub <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Overloads Function AddTraceLogRow(ByVal CrDate As Date, ByVal RawUrl As String, ByVal UrlReferrer As String, ByVal HttpMethod As String, ByVal UserHostAddress As String, ByVal QueryString As String, ByVal Form As String, ByVal RequestParams As String, ByVal InputStreamLength As Integer, ByVal IsAuthenticated As Integer, ByVal IsLocal As Integer, ByVal UserAgent As String, ByVal Headers As String) As TraceLogRow Dim rowTraceLogRow As TraceLogRow = CType(Me.NewRow,TraceLogRow) Dim columnValuesArray() As Object = New Object() {Nothing, CrDate, RawUrl, UrlReferrer, HttpMethod, UserHostAddress, QueryString, Form, RequestParams, InputStreamLength, IsAuthenticated, IsLocal, UserAgent, Headers} rowTraceLogRow.ItemArray = columnValuesArray Me.Rows.Add(rowTraceLogRow) Return rowTraceLogRow End Function <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Function FindByi(ByVal i As Integer) As TraceLogRow Return CType(Me.Rows.Find(New Object() {i}),TraceLogRow) End Function <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TraceLogDataTable = CType(MyBase.Clone,TraceLogDataTable) cln.InitVars Return cln End Function <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TraceLogDataTable() End Function <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Friend Sub InitVars() Me.columni = MyBase.Columns("i") Me.columnCrDate = MyBase.Columns("CrDate") Me.columnRawUrl = MyBase.Columns("RawUrl") Me.columnUrlReferrer = MyBase.Columns("UrlReferrer") Me.columnHttpMethod = MyBase.Columns("HttpMethod") Me.columnUserHostAddress = MyBase.Columns("UserHostAddress") Me.columnQueryString = MyBase.Columns("QueryString") Me.columnForm = MyBase.Columns("Form") Me.columnRequestParams = MyBase.Columns("RequestParams") Me.columnInputStreamLength = MyBase.Columns("InputStreamLength") Me.columnIsAuthenticated = MyBase.Columns("IsAuthenticated") Me.columnIsLocal = MyBase.Columns("IsLocal") Me.columnUserAgent = MyBase.Columns("UserAgent") Me.columnHeaders = MyBase.Columns("Headers") End Sub <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Private Sub InitClass() Me.columni = New Global.System.Data.DataColumn("i", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columni) Me.columnCrDate = New Global.System.Data.DataColumn("CrDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCrDate) Me.columnRawUrl = New Global.System.Data.DataColumn("RawUrl", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRawUrl) Me.columnUrlReferrer = New Global.System.Data.DataColumn("UrlReferrer", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUrlReferrer) Me.columnHttpMethod = New Global.System.Data.DataColumn("HttpMethod", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHttpMethod) Me.columnUserHostAddress = New Global.System.Data.DataColumn("UserHostAddress", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUserHostAddress) Me.columnQueryString = New Global.System.Data.DataColumn("QueryString", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnQueryString) Me.columnForm = New Global.System.Data.DataColumn("Form", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnForm) Me.columnRequestParams = New Global.System.Data.DataColumn("RequestParams", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRequestParams) Me.columnInputStreamLength = New Global.System.Data.DataColumn("InputStreamLength", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnInputStreamLength) Me.columnIsAuthenticated = New Global.System.Data.DataColumn("IsAuthenticated", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIsAuthenticated) Me.columnIsLocal = New Global.System.Data.DataColumn("IsLocal", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnIsLocal) Me.columnUserAgent = New Global.System.Data.DataColumn("UserAgent", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUserAgent) Me.columnHeaders = New Global.System.Data.DataColumn("Headers", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHeaders) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("TraceLogKey1", New Global.System.Data.DataColumn() {Me.columni}, true)) Me.columni.AutoIncrement = true Me.columni.AutoIncrementSeed = -1 Me.columni.AutoIncrementStep = -1 Me.columni.AllowDBNull = false Me.columni.ReadOnly = true Me.columni.Unique = true Me.columnCrDate.AllowDBNull = false Me.columnRawUrl.MaxLength = 1000 Me.columnUrlReferrer.MaxLength = 1000 Me.columnHttpMethod.MaxLength = 50 Me.columnUserHostAddress.MaxLength = 50 Me.columnQueryString.MaxLength = 4000 Me.columnForm.MaxLength = 4000 Me.columnRequestParams.MaxLength = 4000 Me.columnUserAgent.MaxLength = 4000 Me.columnHeaders.MaxLength = 4000 End Sub <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Function NewTraceLogRow() As TraceLogRow Return CType(Me.NewRow,TraceLogRow) End Function <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TraceLogRow(builder) End Function <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TraceLogRow) End Function <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TraceLogRowChangedEvent) Is Nothing) Then RaiseEvent TraceLogRowChanged(Me, New TraceLogRowChangeEvent(CType(e.Row,TraceLogRow), e.Action)) End If End Sub <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TraceLogRowChangingEvent) Is Nothing) Then RaiseEvent TraceLogRowChanging(Me, New TraceLogRowChangeEvent(CType(e.Row,TraceLogRow), e.Action)) End If End Sub <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TraceLogRowDeletedEvent) Is Nothing) Then RaiseEvent TraceLogRowDeleted(Me, New TraceLogRowChangeEvent(CType(e.Row,TraceLogRow), e.Action)) End If End Sub <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TraceLogRowDeletingEvent) Is Nothing) Then RaiseEvent TraceLogRowDeleting(Me, New TraceLogRowChangeEvent(CType(e.Row,TraceLogRow), e.Action)) End If End Sub <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Sub RemoveTraceLogRow(ByVal row As TraceLogRow) Me.Rows.Remove(row) End Sub <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As TraceLog_DS = New TraceLog_DS() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "TraceLogDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class '''<summary> '''Represents strongly named DataRow class. '''</summary> Partial Public Class TraceLogRow Inherits Global.System.Data.DataRow Private tableTraceLog As TraceLogDataTable <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTraceLog = CType(Me.Table,TraceLogDataTable) End Sub <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Property i() As Integer Get Return CType(Me(Me.tableTraceLog.iColumn),Integer) End Get Set Me(Me.tableTraceLog.iColumn) = value End Set End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Property CrDate() As Date Get Return CType(Me(Me.tableTraceLog.CrDateColumn),Date) End Get Set Me(Me.tableTraceLog.CrDateColumn) = value End Set End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Property RawUrl() As String Get Try Return CType(Me(Me.tableTraceLog.RawUrlColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'RawUrl' in table 'TraceLog' is DBNull.", e) End Try End Get Set Me(Me.tableTraceLog.RawUrlColumn) = value End Set End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Property UrlReferrer() As String Get Try Return CType(Me(Me.tableTraceLog.UrlReferrerColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'UrlReferrer' in table 'TraceLog' is DBNull.", e) End Try End Get Set Me(Me.tableTraceLog.UrlReferrerColumn) = value End Set End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Property HttpMethod() As String Get Try Return CType(Me(Me.tableTraceLog.HttpMethodColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'HttpMethod' in table 'TraceLog' is DBNull.", e) End Try End Get Set Me(Me.tableTraceLog.HttpMethodColumn) = value End Set End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Property UserHostAddress() As String Get Try Return CType(Me(Me.tableTraceLog.UserHostAddressColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'UserHostAddress' in table 'TraceLog' is DBNull.", e) End Try End Get Set Me(Me.tableTraceLog.UserHostAddressColumn) = value End Set End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Property QueryString() As String Get Try Return CType(Me(Me.tableTraceLog.QueryStringColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'QueryString' in table 'TraceLog' is DBNull.", e) End Try End Get Set Me(Me.tableTraceLog.QueryStringColumn) = value End Set End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Property Form() As String Get If Me.IsFormNull Then Return String.Empty Else Return CType(Me(Me.tableTraceLog.FormColumn),String) End If End Get Set Me(Me.tableTraceLog.FormColumn) = value End Set End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Property RequestParams() As String Get Try Return CType(Me(Me.tableTraceLog.RequestParamsColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'RequestParams' in table 'TraceLog' is DBNull.", e) End Try End Get Set Me(Me.tableTraceLog.RequestParamsColumn) = value End Set End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Property InputStreamLength() As Integer Get Try Return CType(Me(Me.tableTraceLog.InputStreamLengthColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'InputStreamLength' in table 'TraceLog' is DBNull.", e) End Try End Get Set Me(Me.tableTraceLog.InputStreamLengthColumn) = value End Set End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Property IsAuthenticated() As Integer Get Try Return CType(Me(Me.tableTraceLog.IsAuthenticatedColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'IsAuthenticated' in table 'TraceLog' is DBNull.", e) End Try End Get Set Me(Me.tableTraceLog.IsAuthenticatedColumn) = value End Set End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Property IsLocal() As Integer Get Try Return CType(Me(Me.tableTraceLog.IsLocalColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'IsLocal' in table 'TraceLog' is DBNull.", e) End Try End Get Set Me(Me.tableTraceLog.IsLocalColumn) = value End Set End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Property UserAgent() As String Get Try Return CType(Me(Me.tableTraceLog.UserAgentColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'UserAgent' in table 'TraceLog' is DBNull.", e) End Try End Get Set Me(Me.tableTraceLog.UserAgentColumn) = value End Set End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Property Headers() As String Get Try Return CType(Me(Me.tableTraceLog.HeadersColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'Headers' in table 'TraceLog' is DBNull.", e) End Try End Get Set Me(Me.tableTraceLog.HeadersColumn) = value End Set End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Function IsRawUrlNull() As Boolean Return Me.IsNull(Me.tableTraceLog.RawUrlColumn) End Function <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Sub SetRawUrlNull() Me(Me.tableTraceLog.RawUrlColumn) = Global.System.Convert.DBNull End Sub <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Function IsUrlReferrerNull() As Boolean Return Me.IsNull(Me.tableTraceLog.UrlReferrerColumn) End Function <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Sub SetUrlReferrerNull() Me(Me.tableTraceLog.UrlReferrerColumn) = Global.System.Convert.DBNull End Sub <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Function IsHttpMethodNull() As Boolean Return Me.IsNull(Me.tableTraceLog.HttpMethodColumn) End Function <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Sub SetHttpMethodNull() Me(Me.tableTraceLog.HttpMethodColumn) = Global.System.Convert.DBNull End Sub <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Function IsUserHostAddressNull() As Boolean Return Me.IsNull(Me.tableTraceLog.UserHostAddressColumn) End Function <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Sub SetUserHostAddressNull() Me(Me.tableTraceLog.UserHostAddressColumn) = Global.System.Convert.DBNull End Sub <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Function IsQueryStringNull() As Boolean Return Me.IsNull(Me.tableTraceLog.QueryStringColumn) End Function <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Sub SetQueryStringNull() Me(Me.tableTraceLog.QueryStringColumn) = Global.System.Convert.DBNull End Sub <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Function IsFormNull() As Boolean Return Me.IsNull(Me.tableTraceLog.FormColumn) End Function <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Sub SetFormNull() Me(Me.tableTraceLog.FormColumn) = Global.System.Convert.DBNull End Sub <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Function IsRequestParamsNull() As Boolean Return Me.IsNull(Me.tableTraceLog.RequestParamsColumn) End Function <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Sub SetRequestParamsNull() Me(Me.tableTraceLog.RequestParamsColumn) = Global.System.Convert.DBNull End Sub <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Function IsInputStreamLengthNull() As Boolean Return Me.IsNull(Me.tableTraceLog.InputStreamLengthColumn) End Function <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Sub SetInputStreamLengthNull() Me(Me.tableTraceLog.InputStreamLengthColumn) = Global.System.Convert.DBNull End Sub <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Function IsIsAuthenticatedNull() As Boolean Return Me.IsNull(Me.tableTraceLog.IsAuthenticatedColumn) End Function <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Sub SetIsAuthenticatedNull() Me(Me.tableTraceLog.IsAuthenticatedColumn) = Global.System.Convert.DBNull End Sub <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Function IsIsLocalNull() As Boolean Return Me.IsNull(Me.tableTraceLog.IsLocalColumn) End Function <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Sub SetIsLocalNull() Me(Me.tableTraceLog.IsLocalColumn) = Global.System.Convert.DBNull End Sub <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Function IsUserAgentNull() As Boolean Return Me.IsNull(Me.tableTraceLog.UserAgentColumn) End Function <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Sub SetUserAgentNull() Me(Me.tableTraceLog.UserAgentColumn) = Global.System.Convert.DBNull End Sub <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Function IsHeadersNull() As Boolean Return Me.IsNull(Me.tableTraceLog.HeadersColumn) End Function <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Sub SetHeadersNull() Me(Me.tableTraceLog.HeadersColumn) = Global.System.Convert.DBNull End Sub End Class '''<summary> '''Row event argument class '''</summary> <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Class TraceLogRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TraceLogRow Private eventAction As Global.System.Data.DataRowAction <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Sub New(ByVal row As TraceLogRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public ReadOnly Property Row() As TraceLogRow Get Return Me.eventRow End Get End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class End Class Namespace TraceLog_DSTableAdapters '''<summary> '''Represents the connection and commands used to retrieve and save data. '''</summary> <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _ Global.System.ComponentModel.ToolboxItem(true), _ Global.System.ComponentModel.DataObjectAttribute(true), _ Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ Partial Public Class TraceLogTableAdapter Inherits TableAdapterBase Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TraceLog" tableMapping.ColumnMappings.Add("i", "i") tableMapping.ColumnMappings.Add("CrDate", "CrDate") tableMapping.ColumnMappings.Add("RawUrl", "RawUrl") tableMapping.ColumnMappings.Add("UrlReferrer", "UrlReferrer") tableMapping.ColumnMappings.Add("HttpMethod", "HttpMethod") tableMapping.ColumnMappings.Add("UserHostAddress", "UserHostAddress") tableMapping.ColumnMappings.Add("QueryString", "QueryString") tableMapping.ColumnMappings.Add("Form", "Form") tableMapping.ColumnMappings.Add("RequestParams", "RequestParams") tableMapping.ColumnMappings.Add("InputStreamLength", "InputStreamLength") tableMapping.ColumnMappings.Add("IsAuthenticated", "IsAuthenticated") tableMapping.ColumnMappings.Add("IsLocal", "IsLocal") tableMapping.ColumnMappings.Add("UserAgent", "UserAgent") tableMapping.ColumnMappings.Add("Headers", "Headers") Me._adapter.TableMappings.Add(tableMapping) End Sub <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.Virus.My.MySettings.Default.vOtpusk_ArendaConnectionString End Sub <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT top(10) i, CrDate, RawUrl, UrlReferrer, HttpMethod, UserHostAddress, Quer"& _ "yString, Form, RequestParams, InputStreamLength, IsAuthenticated, IsLocal, UserA"& _ "gent, Headers FROM dbo.TraceLog" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1).Connection = Me.Connection Me._commandCollection(1).CommandText = " with All1 as"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ("&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SELECT *"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM [vOtpusk_Arenda].[dbo].[TraceLog]"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" wher"& _ "e CrDate > '2015-07-08 08:34:00.810' and CrDate < '2015-07-08 08:35:16.810'"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" a"& _ "nd HttpMethod='POST'"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" union all"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SELECT * "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM [vOtpusk_Arenda].[d"& _ "bo].[TraceLog]"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" where CrDate > '2015-07-08 08:35:16.810'"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" and HttpMethod='P"& _ "OST'"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" )"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" select * from All1 order by i " Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(2).Connection = Me.Connection Me._commandCollection(2).CommandText = " SELECT *"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM [vOtpusk_Arenda].[dbo].[TraceLog]"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" where CrDate > '2015-07-0"& _ "8 08:34:00.810' and CrDate < '2015-07-08 08:35:16.810'"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" and HttpMethod='POST'" Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text End Sub <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _ Public Overloads Overridable Function Fill_top10(ByVal dataTable As TraceLog_DS.TraceLogDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ Public Overloads Overridable Function GetData() As TraceLog_DS.TraceLogDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As TraceLog_DS.TraceLogDataTable = New TraceLog_DS.TraceLogDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _ Public Overloads Overridable Function FillByAllPost(ByVal dataTable As TraceLog_DS.TraceLogDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(1) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _ Public Overloads Overridable Function GetDataByAllPost() As TraceLog_DS.TraceLogDataTable Me.Adapter.SelectCommand = Me.CommandCollection(1) Dim dataTable As TraceLog_DS.TraceLogDataTable = New TraceLog_DS.TraceLogDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _ Public Overloads Overridable Function FillByVirus(ByVal dataTable As TraceLog_DS.TraceLogDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(2) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _ Public Overloads Overridable Function GetDataByVirus() As TraceLog_DS.TraceLogDataTable Me.Adapter.SelectCommand = Me.CommandCollection(2) Dim dataTable As TraceLog_DS.TraceLogDataTable = New TraceLog_DS.TraceLogDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class '''<summary> '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios '''</summary> <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _ Global.System.ComponentModel.ToolboxItem(true), _ Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerDesigner, Microsoft.VSD"& _ "esigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapterManager")> _ Partial Public Class TableAdapterManager Inherits Global.System.ComponentModel.Component Private _updateOrder As UpdateOrderOption Private _backupDataSetBeforeUpdate As Boolean Private _connection As Global.System.Data.IDbConnection <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Property UpdateOrder() As UpdateOrderOption Get Return Me._updateOrder End Get Set Me._updateOrder = value End Set End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Property BackupDataSetBeforeUpdate() As Boolean Get Return Me._backupDataSetBeforeUpdate End Get Set Me._backupDataSetBeforeUpdate = value End Set End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Browsable(false)> _ Public Property Connection() As Global.System.Data.IDbConnection Get If (Not (Me._connection) Is Nothing) Then Return Me._connection End If Return Nothing End Get Set Me._connection = value End Set End Property <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Browsable(false)> _ Public ReadOnly Property TableAdapterInstanceCount() As Integer Get Dim count As Integer = 0 Return count End Get End Property '''<summary> '''Update rows in top-down order. '''</summary> <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Private Function UpdateUpdatedRows(ByVal dataSet As TraceLog_DS, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 Return result End Function '''<summary> '''Insert rows in top-down order. '''</summary> <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Private Function UpdateInsertedRows(ByVal dataSet As TraceLog_DS, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 Return result End Function '''<summary> '''Delete rows in bottom-up order. '''</summary> <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Private Function UpdateDeletedRows(ByVal dataSet As TraceLog_DS, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 Return result End Function '''<summary> '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first '''</summary> <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() If ((updatedRows Is Nothing) _ OrElse (updatedRows.Length < 1)) Then Return updatedRows End If If ((allAddedRows Is Nothing) _ OrElse (allAddedRows.Count < 1)) Then Return updatedRows End If Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() Dim i As Integer = 0 Do While (i < updatedRows.Length) Dim row As Global.System.Data.DataRow = updatedRows(i) If (allAddedRows.Contains(row) = false) Then realUpdatedRows.Add(row) End If i = (i + 1) Loop Return realUpdatedRows.ToArray End Function '''<summary> '''Update all changes to the dataset. '''</summary> <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Overridable Function UpdateAll(ByVal dataSet As TraceLog_DS) As Integer If (dataSet Is Nothing) Then Throw New Global.System.ArgumentNullException("dataSet") End If If (dataSet.HasChanges = false) Then Return 0 End If Dim workConnection As Global.System.Data.IDbConnection = Me.Connection If (workConnection Is Nothing) Then Throw New Global.System.ApplicationException("TableAdapterManager contains no connection information. Set each TableAdapterMana"& _ "ger TableAdapter property to a valid TableAdapter instance.") End If Dim workConnOpened As Boolean = false If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ = Global.System.Data.ConnectionState.Broken) Then workConnection.Close End If If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then workConnection.Open workConnOpened = true End If Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction If (workTransaction Is Nothing) Then Throw New Global.System.ApplicationException("The transaction cannot begin. The current data connection does not support transa"& _ "ctions or the current state is not allowing the transaction to begin.") End If Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)() Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)() Dim result As Integer = 0 Dim backupDataSet As Global.System.Data.DataSet = Nothing If Me.BackupDataSetBeforeUpdate Then backupDataSet = New Global.System.Data.DataSet() backupDataSet.Merge(dataSet) End If Try '---- Prepare for update ----------- ' ' '---- Perform updates ----------- ' If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) Else result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) End If result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows)) ' '---- Commit updates ----------- ' workTransaction.Commit If (0 < allAddedRows.Count) Then Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow allAddedRows.CopyTo(rows) Dim i As Integer = 0 Do While (i < rows.Length) Dim row As Global.System.Data.DataRow = rows(i) row.AcceptChanges i = (i + 1) Loop End If If (0 < allChangedRows.Count) Then Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow allChangedRows.CopyTo(rows) Dim i As Integer = 0 Do While (i < rows.Length) Dim row As Global.System.Data.DataRow = rows(i) row.AcceptChanges i = (i + 1) Loop End If Catch ex As Global.System.Exception workTransaction.Rollback '---- Restore the dataset ----------- If Me.BackupDataSetBeforeUpdate Then Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing)) dataSet.Clear dataSet.Merge(backupDataSet) Else If (0 < allAddedRows.Count) Then Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow allAddedRows.CopyTo(rows) Dim i As Integer = 0 Do While (i < rows.Length) Dim row As Global.System.Data.DataRow = rows(i) row.AcceptChanges row.SetAdded i = (i + 1) Loop End If End If Throw ex Finally If workConnOpened Then workConnection.Close End If If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) Dim i As Integer = 0 Do While (i < adapters.Length) Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i) adapter.AcceptChangesDuringUpdate = true i = (i + 1) Loop End If End Try Return result End Function <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) End Sub <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean If (Not (Me._connection) Is Nothing) Then Return true End If If ((Me.Connection Is Nothing) _ OrElse (inputConnection Is Nothing)) Then Return true End If If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then Return true End If Return false End Function '''<summary> '''Update Order Option '''</summary> <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Enum UpdateOrderOption InsertUpdateDelete = 0 UpdateInsertDelete = 1 End Enum '''<summary> '''Used to sort self-referenced table's rows '''</summary> <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Private Class SelfReferenceComparer Inherits Object Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) Private _relation As Global.System.Data.DataRelation Private _childFirst As Integer <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) MyBase.New Me._relation = relation If childFirst Then Me._childFirst = -1 Else Me._childFirst = 1 End If End Sub <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) Dim root As Global.System.Data.DataRow = row distance = 0 Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)() traversedRows(row) = row Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) Do While ((Not (parent) Is Nothing) _ AndAlso (traversedRows.ContainsKey(parent) = false)) distance = (distance + 1) root = parent traversedRows(parent) = parent parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) Loop If (distance = 0) Then traversedRows.Clear traversedRows(row) = row parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) Do While ((Not (parent) Is Nothing) _ AndAlso (traversedRows.ContainsKey(parent) = false)) distance = (distance + 1) root = parent traversedRows(parent) = parent parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) Loop End If Return root End Function <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare If Object.ReferenceEquals(row1, row2) Then Return 0 End If If (row1 Is Nothing) Then Return -1 End If If (row2 Is Nothing) Then Return 1 End If Dim distance1 As Integer = 0 Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1) Dim distance2 As Integer = 0 Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2) If Object.ReferenceEquals(root1, root2) Then Return (Me._childFirst * distance1.CompareTo(distance2)) Else Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ AndAlso (Not (root2.Table) Is Nothing))) If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then Return -1 Else Return 1 End If End If End Function End Class End Class End Namespace Тут є один із важливіших моментів цієї проги, без якого прога працювати не буде. Таймаути операцій до SQL встановлені на декілька секунд, а до такої бази, як у цьому проекті запити продовжуються декілька хвилин. Тому подивиться на стрічку 1133 - там е важлива модифікація коду, яка вноситься руками. Замість наслідку цього класу від класу System.ComponentModel.Component я зробив наслідування від свого класу TableAdapterBase, у я кому за допомогою System.Reflection я модифікував стандартні таймаути.

   1:  Public Class TableAdapterBase

   2:      Inherits System.ComponentModel.Component

   3:      Public Sub New()

   4:          SetCommandTimeout(GetConnection().ConnectionTimeout)

   5:      End Sub

6:

   7:      Public Sub SetCommandTimeout(Timeout As Integer)

   8:          For Each One In SelectCommand()

   9:              One.CommandTimeout = Timeout

  10:          Next

  11:      End Sub

12:

  13:      Private Function GetConnection() As System.Data.SqlClient.SqlConnection

  14:          Return TryCast(GetProperty("Connection"), System.Data.SqlClient.SqlConnection)

  15:      End Function

16:

  17:      Private Function SelectCommand() As SqlClient.SqlCommand()

  18:          Return TryCast(GetProperty("CommandCollection"), SqlClient.SqlCommand())

  19:      End Function

20:

  21:      Private Function GetProperty(s As [String]) As [Object]

  22:          Return Me.[GetType]().GetProperty(s, Reflection.BindingFlags.NonPublic Or Reflection.BindingFlags.GetProperty Or Reflection.BindingFlags.Instance).GetValue(Me, Nothing)

  23:      End Function

  24:  End Class

І на Module1, у якому розташована функція DecodeHTML - стоп іще раз.

   1:  Module Module1

   2:      Function DecodeHTML(Str1) As String

   3:          Dim Ret As New System.Text.StringBuilder

   4:          Dim I As Integer

   5:          Do While I < Str1.Length - 1

   6:              If Str1(I) & Str1(I + 1) = "%u" Then

   7:                  Dim OneChar As String = Mid(Str1, I + 3, 4)

   8:                  I = I + 6

   9:                  Dim HexVal As Integer

  10:                  HexVal = Convert.ToInt32(OneChar, 16)

  11:                  Dim TwoByte(1) As Byte

  12:                  'меняем байты местами

  13:                  TwoByte(1) = Convert.ToByte(Mid(OneChar, 1, 2), 16)

  14:                  TwoByte(0) = Convert.ToByte(Mid(OneChar, 3, 2), 16)

  15:                  Dim U As New System.Text.UnicodeEncoding

  16:                  Dim Rus As String = U.GetChars(TwoByte)

  17:                  Ret.Append(Rus)

  18:              ElseIf Str1(I) = "+" Then

  19:                  I = I + 1

  20:                  Ret.Append(" ")

  21:              ElseIf Str1(I) = "%" Then

  22:                  I = I + 3

  23:                  Ret.Append(Mid(Str1, I + 2, 2))

  24:              Else

  25:                  I = I + 1

  26:                  Ret.Append(Str1(I))

  27:              End If

  28:          Loop

  29:          Return Ret.ToString

  30:      End Function

  31:  End Module

Я не знайшов у мікрософтовській бібліотеці (яка нараховує біля 100 тисяч класів) функціі, яка перекодує ESCAPE HTML ENTITY у прості стрічні константи. І написав цю функцию сам ПРИБЛИЗНО. Але моїм потребам вона відповідає. Якщо вам потрібно повністю коректне перекодування, то потрібно усі двосимвольні escape-послідовності корректно розкодувати. Я над цією функцію роздумував мабуть дві години, пока зрозумів що байти потрібно змініти місцями. Бо прямий порядок байт вікористовується у процессорах IBM, а у процессорах INTEL вікористовується зворотній порядок байтів при комбінування байтів у полу-слова і слова. Після цього усвідомлення - все останне у цієї функції було ділом суто технічним і нецікавим - а оскільки зайвого часу у мене не було (бо ця прога набагато більше ніж тут описано) - перекодування деяких послідовностей залишилося приблизним.

Comments (

)

Link to this page: //www.vb-net.com/SiteRequestTracer/index.htm

< THANKS ME>