Серый форум — AHK: Обновление страницы

Re: AHK: Обновление страницы

null@example.com (serzh82saratov) — Tue, 12 Feb 2013 16:56:10 +0000

Irbis
Познавательно. Спасибо!

Re: AHK: Обновление страницы

null@example.com (Irbis) — Tue, 12 Feb 2013 16:20:41 +0000

Пожалуйста.

Re: AHK: Обновление страницы

null@example.com (AlexRam666) — Tue, 12 Feb 2013 15:56:49 +0000

Irbis, Спасибо большое

Re: AHK: Обновление страницы

null@example.com (Irbis) — Tue, 12 Feb 2013 15:36:26 +0000

Функция StrMD5 получает хеш от входной строки, которой является содержимое страницы. Хеши не совпадут, только если содержимое изменится. (Почему-то простое сравнение строк a и b показывало неверный результат, возможно из-за большой длины строк)

Код, показывающий адрес и предлагающий перейти к нему (в браузере по умолчанию):

URL := "http://forum.script-coding.com/viewtopic.php?id=8039"
a := StrMD5(UrlDownloadToVar(URL))
Loop
{
   Sleep 1000 ; 10 сек
   b := StrMD5(UrlDownloadToVar(URL))
   if (a != b)
   {
      SoundPlay *48
      MsgBox, 4,, Изменилось страница: %URL% `nПерейти на страницу ?
      IfMsgBox Yes
      Run % URL
      a := b
   }
}
; далее по тексту из поста №2

Re: AHK: Обновление страницы

null@example.com (AlexRam666) — Sun, 10 Feb 2013 08:34:53 +0000

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

Re: AHK: Обновление страницы

null@example.com (AlexRam666) — Sun, 10 Feb 2013 08:31:38 +0000

Самому интересно

Re: AHK: Обновление страницы

null@example.com (serzh82saratov) — Wed, 06 Feb 2013 10:57:34 +0000

Irbis
Не могли бы вы пояснить нубу назначение функции StrMD5

Re: AHK: Обновление страницы

null@example.com (AlexRam666) — Wed, 06 Feb 2013 04:15:19 +0000

Большое спасибо!

Re: AHK: Обновление страницы

null@example.com (Irbis) — Mon, 04 Feb 2013 19:37:06 +0000

Скрипт в примере проверяет эту тему на обновления
(хотя в таком случае лучше просто подписаться )

URL := "http://forum.script-coding.com/viewtopic.php?id=8039"
a := StrMD5(UrlDownloadToVar(URL))
Loop
{
   Sleep 10000 ; 10 сек
   b := StrMD5(UrlDownloadToVar(URL))
   if (a != b)
   {
      SoundPlay *48
      MsgBox Achtung!
      Break
   }
}
ExitApp

UrlDownloadToVar(URL, UserAgent = "")
{
   WebRequest := ComObjCreate("WinHttp.WinHttpRequest.5.1")
   WebRequest.Open("GET", Url)
   UserAgent ? WebRequest.Option(WinHttpRequestOption_UserAgentString := 0) := UserAgent
   WebRequest.Send()
   Text := WebRequest.ResponseText
   WebRequest := ""
   return Text
}

StrMD5( V ) { ; www.autohotkey.com/forum/viewtopic.php?p=376840#376840
 VarSetCapacity( MD5_CTX,104,0 ), DllCall( "advapi32\MD5Init", UInt,&MD5_CTX )
 DllCall( "advapi32\MD5Update", UInt,&MD5_CTX, A_IsUnicode ? "AStr" : "Str",V
 , UInt,StrLen(V) ), DllCall( "advapi32\MD5Final", UInt,&MD5_CTX )
 Loop % StrLen( Hex:="123456789ABCDEF0" )
  N := NumGet( MD5_CTX,87+A_Index,"Char"), MD5 .= SubStr(Hex,N>>4,1) . SubStr(Hex,N&15,1)
Return MD5
}

AHK: Обновление страницы

null@example.com (AlexRam666) — Mon, 04 Feb 2013 06:29:29 +0000

Доброго времени суток. Если это возможно, мне нужен следующий скрипт. Скрипт заходит на определенный сайт и каждое n количество времени обновляет его. Когда на этой странице возникает новое сообщение (любое изменение страницы) , то происходит оповещение (звуковое, текстовое, но такое, что бы при запущенном приложение я бы увидел это оповещение).
Заранее благодарю.