Серый форум — AHK: Виджет / GUI на рабочий стол, данные со страницы

Re: AHK: Виджет / GUI на рабочий стол, данные со страницы

null@example.com (Michael) — Mon, 13 Dec 2021 19:25:09 +0000

teadrinker
Понял

Re: AHK: Виджет / GUI на рабочий стол, данные со страницы

null@example.com (teadrinker) — Mon, 13 Dec 2021 19:21:14 +0000

Я понял, вы хотите в этой теме решить все вопросы, связанные с написанием скриптов на AHK. Вообще, программирование предполагает способность иногда думать и искать решения самостоятельно.
У нас есть правило: одна тема — один вопрос.

Re: AHK: Виджет / GUI на рабочий стол, данные со страницы

null@example.com (Michael) — Mon, 13 Dec 2021 19:16:37 +0000

teadrinker
Готово. Обновляется раз в секунду.
Пытаюсь добавить еще один курс (Биткоина) по аналогии.
Ошибка при компиляции:

Duplicate function definition.
Specifically: WebRequest(url, method := "GET", HeadersArray := "", body := "", ByRef error := "")

Вот код:

#SingleInstance Force
#NoEnv
SetBatchLines -1

Name = Test

GroupAdd, AppGroup, % Name

Gui +AlwaysOnTop
;Gui Color, 0x000000
Gui Add, Text, vText1 x8 y8 w250 h60 +0x200, uuu
Gui Add, Text, vText2 x8 y58 w250 h60 +0x200,
Menu, Tray, NoIcon
Gui Show, w246 h365, % Name

SetTimer, Price1, 1000

Price1:
url := "https://www.cryptometer.io/data/binance/eth/usdt"

html := WebRequest(url,, {"Pragma": "no-cache", "Cache-Control": "no-cache, no-store"})
RegExMatch(html, "class=""lastprice"">\K[\d,.]+", Price1)

WebRequest(url, method := "GET", HeadersArray := "", body := "", ByRef error := "") {
   Whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
   Whr.Open(method, url, true)
   for name, value in HeadersArray
      Whr.SetRequestHeader(name, value)
   Whr.Send(body)
   Whr.WaitForResponse()
   status := Whr.status
   if (status != 200)
      error := "HttpRequest error, status: " . status
   Arr := Whr.responseBody
   pData := NumGet(ComObjValue(arr) + 8 + A_PtrSize)
   length := arr.MaxIndex() + 1
   Return StrGet(pData, length, "UTF-8")
}

GuiControl,, Text2, % Price1

SetTimer, Price2, 1000

Price2:
url := "https://www.cryptometer.io/data/binance/eth/usdt"

html := WebRequest(url,, {"Pragma": "no-cache", "Cache-Control": "no-cache, no-store"})
RegExMatch(html, "class=""lastprice"">\K[\d,.]+", Price2)

WebRequest(url, method := "GET", HeadersArray := "", body := "", ByRef error := "") {
   Whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
   Whr.Open(method, url, true)
   for name, value in HeadersArray
      Whr.SetRequestHeader(name, value)
   Whr.Send(body)
   Whr.WaitForResponse()
   status := Whr.status
   if (status != 200)
      error := "HttpRequest error, status: " . status
   Arr := Whr.responseBody
   pData := NumGet(ComObjValue(arr) + 8 + A_PtrSize)
   length := arr.MaxIndex() + 1
   Return StrGet(pData, length, "UTF-8")
}

GuiControl,, Text2, % Price2

В чем может быть проблема?

Re: AHK: Виджет / GUI на рабочий стол, данные со страницы

null@example.com (teadrinker) — Mon, 13 Dec 2021 19:05:03 +0000

Смотрите в сторону SetTimer. Но если сайт слишком часто долбить запросами, ему это может не понравиться.

Re: AHK: Виджет / GUI на рабочий стол, данные со страницы

null@example.com (Michael) — Mon, 13 Dec 2021 19:02:02 +0000

Почитал, понял ошибку.
Показывает курс при старте программы:

#SingleInstance Force
#NoEnv
SetBatchLines -1

Name = Test

GroupAdd, AppGroup, % Name

Gui +AlwaysOnTop
;Gui Color, 0x000000
Gui Add, Text, vText x8 y8 w250 h60 +0x200,
Menu, Tray, NoIcon
Gui Show, w246 h365, % Name

Price:
url := "https://www.cryptometer.io/data/binance/eth/usdt"

html := WebRequest(url,, {"Pragma": "no-cache", "Cache-Control": "no-cache, no-store"})
RegExMatch(html, "class=""lastprice"">\K[\d,.]+", Price)

WebRequest(url, method := "GET", HeadersArray := "", body := "", ByRef error := "") {
   Whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
   Whr.Open(method, url, true)
   for name, value in HeadersArray
      Whr.SetRequestHeader(name, value)
   Whr.Send(body)
   Whr.WaitForResponse()
   status := Whr.status
   if (status != 200)
      error := "HttpRequest error, status: " . status
   Arr := Whr.responseBody
   pData := NumGet(ComObjValue(arr) + 8 + A_PtrSize)
   length := arr.MaxIndex() + 1
   Return StrGet(pData, length, "UTF-8")
}

GuiControl,, Text, % Price

Только он статичный, запрос делается один раз, а как сделать ежесекундно (обновляемый автоматически)? Хотя бы в какую сторону копать?

Re: AHK: Виджет / GUI на рабочий стол, данные со страницы

null@example.com (teadrinker) — Mon, 13 Dec 2021 18:56:21 +0000

Наверно, стоит почитать, что такое Return, и для чего оно нужно. А также ExitApp.

Re: AHK: Виджет / GUI на рабочий стол, данные со страницы

null@example.com (Michael) — Mon, 13 Dec 2021 18:53:23 +0000

teadrinker пишет:

А если убрать Return, тогда перестаёт появляться?

Нет, всё также появляется, попробовал в своём скрипте без Return - никаких изменений...
Не пойму, как это связано.

Re: AHK: Виджет / GUI на рабочий стол, данные со страницы

null@example.com (teadrinker) — Mon, 13 Dec 2021 18:49:11 +0000

Я в вас верю, вы способны пройти этот челлендж!

Re: AHK: Виджет / GUI на рабочий стол, данные со страницы

null@example.com (teadrinker) — Mon, 13 Dec 2021 18:48:20 +0000

А если убрать Return, тогда перестаёт появляться?

Re: AHK: Виджет / GUI на рабочий стол, данные со страницы

null@example.com (Michael) — Mon, 13 Dec 2021 18:45:18 +0000

Потому что добавил Return в конец. Что и сделал в моем скрипте...
Мне уже самому смешно, что мне такие вопросы задаете, чувствую себя умственно-отсталым...)))

Re: AHK: Виджет / GUI на рабочий стол, данные со страницы

null@example.com (teadrinker) — Mon, 13 Dec 2021 18:39:43 +0000

А почему второе сообщение стало появляться?

Re: AHK: Виджет / GUI на рабочий стол, данные со страницы

null@example.com (Michael) — Mon, 13 Dec 2021 18:36:50 +0000

teadrinker

MsgBox, Вы увидите это сообщение

MsgBox, Это сообщение не появится, как думаете, почему?
Return

Вот так я вижу сначала первое, потом второе.
В моем случае это почему-то не работает:

#SingleInstance Force
#NoEnv
SetBatchLines -1

Name = Test

GroupAdd, AppGroup, % Name

;Gui +AlwaysOnTop
;Gui Color, 0x000000
Gui Add, Text, vText x8 y8 w250 h60 +0x200, % Price
Menu, Tray, NoIcon

Gui Show, w246 h365, % Name
return

GuiClose:
ExitApp

Price:
url := "https://www.cryptometer.io/data/binance/eth/usdt"

html := WebRequest(url,, {"Pragma": "no-cache", "Cache-Control": "no-cache, no-store"})
RegExMatch(html, "class=""lastprice"">\K[\d,.]+", Price)
GuiControl,, Text, % Price

;MsgBox, % Price

WebRequest(url, method := "GET", HeadersArray := "", body := "", ByRef error := "") {
   Whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
   Whr.Open(method, url, true)
   for name, value in HeadersArray
      Whr.SetRequestHeader(name, value)
   Whr.Send(body)
   Whr.WaitForResponse()
   status := Whr.status
   if (status != 200)
      error := "HttpRequest error, status: " . status
   Arr := Whr.responseBody
   pData := NumGet(ComObjValue(arr) + 8 + A_PtrSize)
   length := arr.MaxIndex() + 1
   Return StrGet(pData, length, "UTF-8")
}
return

Знаю, вокруг да около хожу, проблемы не вижу... Туплю...

Re: AHK: Виджет / GUI на рабочий стол, данные со страницы

null@example.com (teadrinker) — Mon, 13 Dec 2021 18:31:46 +0000

Michael пишет:

Потому что нету Return.

Уверены? А с return как будет?

MsgBox, Вы увидите это сообщение
Return

MsgBox, Это сообщение не появится, как думаете, почему?
Return

Так?

Re: AHK: Виджет / GUI на рабочий стол, данные со страницы

null@example.com (Michael) — Mon, 13 Dec 2021 18:29:15 +0000

teadrinker
Потому что нету Return.
Но с ним тоже ничего не показывает:

#SingleInstance Force
#NoEnv
SetBatchLines -1

Name = Test

GroupAdd, AppGroup, % Name

;Gui +AlwaysOnTop
;Gui Color, 0x000000
Gui Add, Text, vText x8 y8 w250 h60 +0x200, % Price
Menu, Tray, NoIcon

Gui Show, w246 h365, % Name
Return

GuiClose:
ExitApp

Price:
url := "https://www.cryptometer.io/data/binance/eth/usdt"

html := WebRequest(url,, {"Pragma": "no-cache", "Cache-Control": "no-cache, no-store"})
RegExMatch(html, "class=""lastprice"">\K[\d,.]+", Price)
GuiControl,, Text, % Price
return
;MsgBox, % Price

WebRequest(url, method := "GET", HeadersArray := "", body := "", ByRef error := "") {
   Whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
   Whr.Open(method, url, true)
   for name, value in HeadersArray
      Whr.SetRequestHeader(name, value)
   Whr.Send(body)
   Whr.WaitForResponse()
   status := Whr.status
   if (status != 200)
      error := "HttpRequest error, status: " . status
   Arr := Whr.responseBody
   pData := NumGet(ComObjValue(arr) + 8 + A_PtrSize)
   length := arr.MaxIndex() + 1
   Return StrGet(pData, length, "UTF-8")
}

Re: AHK: Виджет / GUI на рабочий стол, данные со страницы

null@example.com (teadrinker) — Mon, 13 Dec 2021 18:25:34 +0000

MsgBox, Вы увидите это сообщение
Return

MsgBox, Это сообщение не появится, как думаете, почему?