Гайд AHK + API VK

[Pizduk2277]

UPDATE
Обновленная функция vk_send()

vk_send(text) {
text := RegExReplace(text, "%", "%25") ; first string
text := RegExReplace(text, "\+", "%2B")
text := RegExReplace(text, "#", "%23")
text := RegExReplace(text, "&", "%26")
text := RegExReplace(text, "`n", "%0A")

HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
HTTP.Open("GET", proxy "api.vk.com/method/messages.send?user_id=" vk_id "&message=" text "&v=5.131&random_id=0&access_token=" vk_token)
try
HTTP.Send()
return
}

выше

global vkid :="264630844"
global vktoken:=""
global proxy := "https://vk-api-proxy.xtrafrancyz.net/_/"
vk_send(text) {
text := RegExReplace(text, "%", "%25") ; first string
text := RegExReplace(text, "\+", "%2B")
text := RegExReplace(text, "#", "%23")
text := RegExReplace(text, "&", "%26")
text := RegExReplace(text, "`n", "%0A")
vkid :="264630844"
token:=""
HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
HTTP.Open("GET", proxy "api.vk.com/method/messages.send?user_id=" vk_id "&message=" text "&v=5.131&random_id=0&access_token=" vk_token)
try
HTTP.Send()
return
}
f2::
vk_send(13123)
return

Что тут не правильно, что он не отправляет сообщений ?

 

[Pizduk2277]

global vkid :="264630844"
global vktoken:=""
global proxy := "https://vk-api-proxy.xtrafrancyz.net/_/"
vk_send(text) {
text := RegExReplace(text, "%", "%25") ; first string
text := RegExReplace(text, "\+", "%2B")
text := RegExReplace(text, "#", "%23")
text := RegExReplace(text, "&", "%26")
text := RegExReplace(text, "`n", "%0A")
vkid :="264630844"
token:=""
HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
HTTP.Open("GET", proxy "api.vk.com/method/messages.send?user_id=" vk_id "&message=" text "&v=5.131&random_id=0&access_token=" vk_token)
try
HTTP.Send()
return
}
f2::
vk_send(13123)
return

Что тут не правильно, что он не отправляет сообщений ?

Правильно, если человек молчит - он не знает решения для этой проблемы

 

[Jack Harley]

Правильно, если человек молчит - он не знает решения для этой проблемы

Код не работает, поскольку владелец прокси сервера закрыл доступ из-за военных действий. Ввиду этого, запрос идет в никуда.

 

[Pizduk2277]

Код не работает, поскольку владелец прокси сервера закрыл доступ из-за военных действий. Ввиду этого, запрос идет в никуда.

Так владелец та данной темы, сказал - все работает ) Значит пиздаболит чутка..

 

[Roman Grudov]

Так владелец та данной темы, сказал - все работает ) Значит пиздаболит чутка..

Какой тогда Прокси использовать или есть вариант без него?

 

[Pizduk2277]

Какой тогда Прокси использовать или есть вариант без него?

Прокси рабочий, просто автор темы не знает то, что он сам написал в коде.

 

[degrando]

fixed

global vkid := ""
global token := ""
vk_send(textvk)
{
text := RegExReplace(text, "%", "%25") ; first string
text := RegExReplace(text, "\+", "%2B")
text := RegExReplace(text, "#", "%23")
text := RegExReplace(text, "&", "%26")
text := RegExReplace(text, "`n", "%0A")
HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
HTTP.Open("GET", "http://api.vk.com/method/messages.send?user_id=" vkid "&message=" textvk "&v=5.131&random_id=0&access_token=" token)
bar =    "http://api.vk.com/method/messages.send?user_id=" vkid "&message=" textvk "&v=5.131&random_id=0&access_token=" token
try
HTTP.Send()

return
}
f2::
vk_send("blast.hk")
return

 

[Pizduk2277]

fixed

global vkid := ""
global token := ""
vk_send(textvk)
{
text := RegExReplace(text, "%", "%25") ; first string
text := RegExReplace(text, "\+", "%2B")
text := RegExReplace(text, "#", "%23")
text := RegExReplace(text, "&", "%26")
text := RegExReplace(text, "`n", "%0A")
HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
HTTP.Open("GET", "http://api.vk.com/method/messages.send?user_id=" vkid "&message=" textvk "&v=5.131&random_id=0&access_token=" token)
bar =    "http://api.vk.com/method/messages.send?user_id=" vkid "&message=" textvk "&v=5.131&random_id=0&access_token=" token
try
HTTP.Send()

return
}
f2::
vk_send("blast.hk")
return

Наконец та ты свою тупую башку развить смог

 

[degrando]

Наконец та ты свою тупую башку развить смог

ебало оффни, если бы мне это было на самом деле нужно, я бы давно это починил.

 

[Roman Grudov]

ебало оффни, если бы мне это было на самом деле нужно, я бы давно это починил.

Если ты делишься чем-то интересным с пользователями, то, пожалуйста, поддерживай тему и чини свой код.

 

[Pizduk2277]

Если ты делишься чем-то интересным с пользователями, то, пожалуйста, поддерживай тему и чини свой код.

По факту, только ты пиздабол ебаный, который говорит одно - а на деле другое

 

[marsellex]

fixed

global vkid := ""
global token := ""
vk_send(textvk)
{
text := RegExReplace(text, "%", "%25") ; first string
text := RegExReplace(text, "\+", "%2B")
text := RegExReplace(text, "#", "%23")
text := RegExReplace(text, "&", "%26")
text := RegExReplace(text, "`n", "%0A")
HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
HTTP.Open("GET", "http://api.vk.com/method/messages.send?user_id=" vkid "&message=" textvk "&v=5.131&random_id=0&access_token=" token)
bar =    "http://api.vk.com/method/messages.send?user_id=" vkid "&message=" textvk "&v=5.131&random_id=0&access_token=" token
try
HTTP.Send()

return
}
f2::
vk_send("blast.hk")
return

привет, классный код, мне зашёл) только есть одно но, как сделать, чтобы распознавало русские символы при уведомлении с сообщения от группы в личку VK?
у меня выдаёт непонятные символы какие-то.

 

[Quasper]

привет, классный код, мне зашёл) только есть одно но, как сделать, чтобы распознавало русские символы при уведомлении с сообщения от группы в личку VK?
у меня выдаёт непонятные символы какие-то.

текст переводить в кодировку UTF8 либо же сохранять/компилировать скрипт в UTF8 (но со вторым вариантом накладочка выйдет если скрипт работает с сампом)