цитата pagekaa

Как мне, не заходя на страницу с этой книгой постоянно, получить сообщение о том, что книга появилась в продаже?

цитата

Public Sub ПроверитьПродаютЛиИздание()
Dim sID As String
Dim myURL As String
Dim winHttpReq As Object
Dim sContent As String

On Error GoTo FailAutor
sID = InputBox("Введите номер издания")
Set winHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")
myURL = "https://fantlab.ru/edition" & sID
Do While True
   winHttpReq.Open "GET", myURL, False
   winHttpReq.setRequestHeader "Connection", "close"
   winHttpReq.Option(6) = False 'Redirect disable
   winHttpReq.sEnd
   sContent = winHttpReq.ResponseText
   Select Case winHttpReq.StatusText
     Case "OK":
       If InStr(sContent, "bcase_icon1.gif") > 0 Then
         MsgBox "Продается издание " & sID
         Set winHttpReq = Nothing
         Exit Sub
       End If
     Case Else
   End Select
   DoEvents
   Application.Wait Now + #12:00:10 AM# 'Подождать 10 секунд
Loop
Exit Sub
FailAutor:
Exit Sub
End Sub

цитата georgkorg

Очень хотелось бы, чтобы на сайте появилось разделение на жанры в разделе поэзия

цитата Pavinc

Отберите кто-нибудь у Танасейчука смайлики.

цитата kenrube

пирр Если вас так расстраивает наличие смайлов, вы всегда можете отключить их у себя в настройках

цитата пирр

P.S. Да, я знаю о возможности индивидуальной настройки в профиле пользователя. Но заданный вопрос мне кажется общим и принципиальным.

сообщение модератора

ZiZu, пустые сообщения нарушают регламент сайта.
_Y_, не нужно оффтопить.