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

Программирование (VB,C#,ASP,.NET): новости, советы, примеры

Рассылка закрыта

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

← Июль 2012 →
	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

Автор

Алексей Немиро

Статистика

1.234 подписчиков
-1 за неделю

← Все выпуски →

Программирование (VB,C#,ASP,.NET): новости, советы, примеры

Выпуск # 693

Друзья! Прошло совсем мало времени с момент последнего выпуска, и вот уже новый! Удивительно, как быстро летит время в Интернете, сколько всего нового происходит ежедневно, да что там, ежесекундно. И Kbyte.Ru в этом плане не исключение, на сайте столько всего произошло, столько всего, что многое даже и не влезло в этот выпуск! И кто только придумал ограничения скорости интернет-соединения и объемов писем! Эх..., благо на сайте есть живая лента событий, которая не даст потеряться среди гущи событий.
Надеюсь, этот выпуск будет интересен для вас. Если вы хотите увидеть в следующих выпусках что-то конкретное, напишите мне об этом на ящик subscribe@kbyte.ru.

Содержание выпуска

Читайте в этом выпуске:

Новые темы на форумах
Исходные коды
- BackgroundWorker Demonstration Example
Вакансии в IT
Новости мира IT

Если у вас есть вопросы по программированию или работе с компьютером, не стесняйтесь, спрашивайте.

Форумы Kbyte.Ru

На форумах Kbyte.Ru постоянно появляются новые интересные темы и обсуждения. В этом выпуске представлены лишь новые темы, с момента прошлой рассылки.

Кстати, любой желающий может на форумах Kbyte.Ru совершенно свободно получить помощь грамотных специалистов в области программирования, да и в целом информационных технологий.

Задать свой вопрос прямо сейчас

Reg.Exp. @i32 05.07.2012 13:39

Привет всем.Не получается вывести ВСЕ совпадения в текстБокс

 Dim soq As String = thepage
        Dim mcs As MatchCollection = Regex.Matches(soq, "'\);\\"">(?<Bllw>.*?)</a>")
        Dim mm As Match
'Далее фиг.знает..?
       ' If mcs.Count > 0 Then mm = mcs(mcs.Count - 30)
        'TextBox5.Text += Match.ToString ()+ Environment.NewLine)
      ' TextBox5.Text = (mm.Groups("Bllw").Value)

Спасибо...

[- к содержанию -]

Ответ #1 @Aleksey Nemiro 05.07.2012 14:31

Дальше так:

For Each mm As Match In mcs
  If Not String.IsNullOrEmpty(TextBox5.Text) Then TextBox5.Text &= vbCrLf
  TextBox5.Text &= mm.Groups("Bllw").Value
Next

[- к содержанию -]

Добавить свой ответ в эту тему

Вытащить значение из ListBox @aero122 03.07.2012 17:22

Делаю будильник.
Имеется ListBox, в нем представлены значения в виде "22:40".
Как сравнить их с реальным(текущим) временем?

[- к содержанию -]

Ответ #1 @Aleksey Nemiro 03.07.2012 18:07

Если в списке указано время в строгом формате HH:MM, то сравнить можно так:

If Now.ToString("HH:mm") = ListBox1.SelectedItem Then
  'время в списке равно текущему времени
End If

[- к содержанию -]

Ответ #2 @aero122 03.07.2012 19:38

Спасииибо!

[- к содержанию -]

Добавить свой ответ в эту тему

Проблема с HttpWebRequest @[i]Pro 03.07.2012 09:58

Пишу один проект, необходимо часто пользоваться HttpWebRequest'ом. Заметил такой недочет что, при частом использовании его, к примеру 5 последовательных друг за другом запросов, первые несколько проходят нормально, остальные выдают исключение "Время ожидания операции истекло", т.е. вылетают по таймауту, в MSDN про это писали и советовали использовать константу Infinity, в моем случае запрос начинается длиться бесконечность "зависая"

UPD:
Забыл добавить, что на сервере нету всяких Anti DDoS'ов, и таких предусмотрительных фаерволлов, т.е. со стороны сервера все нормально, проблема явно в чем то другом

Класс

Imports System.Net
Imports System.IO
Imports System.Text
Imports System.IO.Compression

Public Class cWebRequester
  Public Cookies As String
  Public UseProxy As Boolean

  Dim Request As HttpWebRequest
  Dim Response As HttpWebResponse


  Public Function ReqPOST(ByVal url As String, ByVal data As String, Optional ByVal h As Boolean = False) As String
    Try
      Request = HttpWebRequest.Create("http://" & url)

      Request.Method = "POST"
      If UseProxy Then
        Request.Proxy = New WebProxy(Proxy)
      End If
      Request.Timeout = 10000
      Request.UserAgent = "Mozilla/5.0 (Windows NT 5.1; rv:12.0) Gecko/20100101 Firefox/12.0"
      Request.Accept = "text/html"
      Request.Headers.Add(HttpRequestHeader.AcceptEncoding, "gzip")
      Request.Headers.Add(HttpRequestHeader.Cookie, Cookies)
      Request.AllowAutoRedirect = False

      Dim requestData As Byte() = Encoding.GetEncoding(1251).GetBytes(data)

      Using s As System.IO.Stream = Request.GetRequestStream()
        s.Write(requestData, 0, requestData.Length)
      End Using

      Response = Request.GetResponse

      Dim responseStream As Stream = Response.GetResponseStream()

      If (Response.ContentEncoding.ToLower().Contains("gzip")) Then
        responseStream = New GZipStream(responseStream, CompressionMode.Decompress)
      End If

      Dim reader As StreamReader = New StreamReader(responseStream, Encoding.Default)

      If h Then
        Return Response.Headers.ToString
      Else
        Return reader.ReadToEnd()
      End If
    Catch ex As Exception
      Debug(ex.Message)
    End Try
  End Function

  Public Function ReqGET(ByVal url As String, ByVal data As String, Optional ByVal h As Boolean = False) As String
    Try
      Request = HttpWebRequest.Create(String.Format("http://{0}?{1}", url, data))

      Request.Method = "GET"
      If UseProxy Then
        Request.Proxy = New WebProxy(Proxy)
      End If
      Request.Timeout = 10000
      Request.UserAgent = "Mozilla/5.0 (Windows NT 5.1; rv:12.0) Gecko/20100101 Firefox/12.0"
      Request.Accept = "text/html"
      Request.Headers.Add(HttpRequestHeader.AcceptEncoding, "gzip")
      Request.Headers.Add(HttpRequestHeader.Cookie, Cookies)
      Request.AllowAutoRedirect = False

      Response = Request.GetResponse

      Dim responseStream As Stream = Response.GetResponseStream()

      If (Response.ContentEncoding.ToLower().Contains("gzip")) Then
        responseStream = New GZipStream(responseStream, CompressionMode.Decompress)
      End If

      Dim reader As StreamReader = New StreamReader(responseStream, Encoding.Default)

      If h Then
        Return Response.Headers.ToString
      Else
        Return reader.ReadToEnd()
      End If
    Catch ex As Exception
      Debug(ex.Message)
    End Try
  End Function

  Private Function Proxy() As String
    Return m_Proxy(R.Next(0, m_Proxy.Count))
  End Function

  Private Function UserAgent() As String
    Return ""
  End Function

End Class

[- к содержанию -]

Ответ #1 @Aleksey Nemiro 03.07.2012 10:39

А с другими серверами дела обстоят также? Если нет, значит скорей всего проблема в сервере.

По коду, Response - на уровне класса, лучше сделать локальным, на уровне процедуры. И соединения нужно, после завершения работы, всегда закрывать. Высока вероятность, что проблема с таймаутом именно в отсутствии Response.Close.

Еще недавно была тема, я там про ServicePoint упоминал, можно его поковырять.

[- к содержанию -]

Ответ #2 @[i]Pro 03.07.2012 20:36

Response.Close помогло, спасибо вечно эта проблема меня мучала)

[- к содержанию -]

Добавить свой ответ в эту тему

Еще 1 вопрос :) @fruksik1465 30.06.2012 02:23

Извините что так много вопрос, но мне очень нужно.
Вот я делаю цикл
(весь код)
Dim x as integer (ввожу переменную)
в таймер пишу
x=x+1
For x = 0 To 10
Picture1.Width = Picture1.Width + 50
Next x
То есть как я понял пока х не будет ровно Picture1.Width будет двигаться на 50 пикселей в право, а когда х = 10 то оно останавливается. Но у меня почему-то не останавливается.
Подскажите что не так!

[- к содержанию -]

Ответ #1 @Shark1 30.06.2012 11:19

Если таймер не остановить, то и цикл будет выполняться бесконечное колличество раз.
Здесь просто нужно в таймере сделать проверку на ширину(Width) картинки(Picture1).

If Picture1.Width = "столько-то" Then
timer1.Enabled = False
End If

[- к содержанию -]

Ответ #2 @fruksik1465 30.06.2012 12:51

Ага спасибо большое. Странно я раньше пробовал у меня не получалось так :D

[- к содержанию -]

Добавить свой ответ в эту тему

Error @fruksik1465 29.06.2012 23:11

Вот такой вопрос я сделал программку и там такой код
Disk = "C:\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set drv = fso.GetDrive(Disk)

s = "Диск " & Disk & vbCrLf
s = s & "Информация : " & drv.VolumeName & vbCrLf & vbCrLf
s = s & "Занято : "
s = s & FormatNumber((drv.TotalSize - drv.FreeSpace) / 1073741824, 2)
s = s & " ГБ" & vbCrLf
s = s & "Свободно : " & FormatNumber(drv.FreeSpace / 1073741824, 2)
s = s & " ГБ" & vbCrLf
s = s & "Общая ёмкость : " & FormatNumber(drv.TotalSize / 1073741824, 2)
s = s & " ГБ" & vbCrLf

MsgBox s

Он позволяет видеть всю память на диске С , а вот если у пользователя нету диска С то вилетает ошибка и игра закрывается .
Как сделать так что бы игра не закрывалась и вместо ошибки выскакивал MsgBox "У вас нет такого диска"?

[- к содержанию -]

Ответ #1 @Aleksey Nemiro 30.06.2012 12:40

Перед кодом, который может привести к возникновению ошибки нужно поставить оператор: On Error Goto [имя маркера]
Например:

On Error GoTo myErrHandler
Disk = "C:\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set drv = fso.GetDrive(Disk)

s = "Диск " & Disk & vbCrLf
s = s & "Информация : " & drv.VolumeName & vbCrLf & vbCrLf
s = s & "Занято : "
s = s & FormatNumber((drv.TotalSize - drv.FreeSpace) / 1073741824, 2)
s = s & " ГБ" & vbCrLf
s = s & "Свободно : " & FormatNumber(drv.FreeSpace / 1073741824, 2)
s = s & " ГБ" & vbCrLf
s = s & "Общая ёмкость : " & FormatNumber(drv.TotalSize / 1073741824, 2)
s = s & " ГБ" & vbCrLf

MsgBox s
myErrHandler:
' сюда буде направлено выполнение кода, если в коде выше произойдет какая-нибудь ошибка
If Err.Number <> 0 Then MsgBox Err.Description

[- к содержанию -]

Ответ #2 @fruksik1465 30.06.2012 12:54

Помог!!! Спасибо большое !

[- к содержанию -]

Добавить свой ответ в эту тему

ПОМОГИТЕ @fruksik1465 29.06.2012 17:59

Вообщем у меня такая проблема.
Я вчера случайно отключил одно ядро на компе,и перезагрузил его. Теперь захожу и у меня ни одна программа не открывается кроме интернета1 Даже те настроки где я ядро отключал.
Что делать???
Даже ебаный пеинт не открывается =(

[- к содержанию -]

Ответ #1 @fruksik1465 29.06.2012 23:09

Все не надо рахобрался

[- к содержанию -]

Ответ #2 @Aleksey Nemiro 30.06.2012 12:28

Какая интригующая тема :) Как отключил ядро и как была решена проблема?

[- к содержанию -]

Ответ #3 @Shark1 30.06.2012 12:41

случайно отключил

[- к содержанию -]

Ответ #4 @fruksik1465 30.06.2012 12:46

Windows переустановил :D

[- к содержанию -]

Добавить свой ответ в эту тему

Все темы и обсуждения

Исходные коды

BackgroundWorker Demonstration Example

Visual Basic .NET: WPF & Silverlight (WPF/E) @Shark1 03.07.2012 15:23

Пример использования BackgroundWorker в WPF.

К данном исходному коду прилагаются файлы примеров. Скачать.

[- к содержанию -]

Все исходные коды

Вакансии в IT

Инженер-разработчик аппаратуры

Россия, Москва | Работа в офисе | 30 000.00 KBP