Гайд AHK + API VK

Pizduk2277

Активный
292
33
UPDATE
Обновленная функция vk_send()
AutoHotKey:
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
}


выше
AutoHotKey:
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

Активный
292
33
AutoHotKey:
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

Активный
292
33
Код не работает, поскольку владелец прокси сервера закрыл доступ из-за военных действий. Ввиду этого, запрос идет в никуда.
Так владелец та данной темы, сказал - все работает ) Значит пиздаболит чутка..
 

Вложения

  • 7825DD5E-A077-46BA-98E2-A42B72F4570D.png
    7825DD5E-A077-46BA-98E2-A42B72F4570D.png
    1.1 MB · Просмотры: 38

degrando

Известный
Автор темы
362
127
fixed
AutoHotKey:
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

Активный
292
33
fixed
AutoHotKey:
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
Наконец та ты свою тупую башку развить смог
 
  • Влюблен
Реакции: Roman Grudov

marsellex

Новичок
1
0
fixed
AutoHotKey:
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

Известный
834
354
привет, классный код, мне зашёл) только есть одно но, как сделать, чтобы распознавало русские символы при уведомлении с сообщения от группы в личку VK?
у меня выдаёт непонятные символы какие-то.
текст переводить в кодировку UTF8 либо же сохранять/компилировать скрипт в UTF8 (но со вторым вариантом накладочка выйдет если скрипт работает с сампом)
 
  • Нравится
Реакции: degrando