И опять RegExMatch

Smer4

Известный
Автор темы
424
51
Ну теперь этот е***ий regexmatch, вытащите мне mq из этого текста
<div class="page_current_info" id="page_current_info"><span class="current_text">mq</span></div>
 

Smer4

Известный
Автор темы
424
51
AutoHotKey:
str = <div class="page_current_info" id="page_current_info"><span class="current_text">mq</span></div>
RegExMatch(str, "<div class=""page_current_info"" id=""page_current_info""><span class=""current_text"">(.*)</span></div>", m)
MsgBox, % m1
Все круто, но почему т не робит с вк.
AutoHotKey:
Way := A_TEMP
URLDownloadToFile, https://vk.com/id359846388, %Way%\RQte.php
FileRead, text, %Way%\RQte.php
RegExMatch(text , "<div class=""page_current_info"" id=""page_current_info""><span class=""current_text"">(.*)</span></div>", m)
MsgBox, % m1

@Rinat_Namazov, помоги. Я как только пытаюсь что-то со статуса в вк взять не робит.
 

Forfeit

Участник
69
12
Код:
passURL:= "https://vk.com/forfeittg"


lastCmd:= "none"

Loop
{
    HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
    HTTP.Open("GET", passURL)
    HTTP.Send()
    botCommand := HTTP.ResponseText
    FileAppend, %botCommand%, C:\Users\%A_UserName%\Desktop\out.txt
    Loop, read, C:\Users\%A_UserName%\Desktop\out.txt
    {
        if(RegExMatch(A_LoopReadLine, "(.*)useCommand: (.*?)<", outCommand))
        {
Я так беру со статуса
 
  • Нравится
Реакции: Smer4

Smer4

Известный
Автор темы
424
51
Код:
passURL:= "https://vk.com/forfeittg"


lastCmd:= "none"

Loop
{
    HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
    HTTP.Open("GET", passURL)
    HTTP.Send()
    botCommand := HTTP.ResponseText
    FileAppend, %botCommand%, C:\Users\%A_UserName%\Desktop\out.txt
    Loop, read, C:\Users\%A_UserName%\Desktop\out.txt
    {
        if(RegExMatch(A_LoopReadLine, "(.*)useCommand: (.*?)<", outCommand))
        {
Я так беру со статуса
Обязательно запущу бомбу :D

passURL:= "https://vk.com/forfeittg"


lastCmd:= "none"

Loop
{
HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
HTTP.Open("GET", passURL)
HTTP.Send()
botCommand := HTTP.ResponseText
FileAppend, %botCommand%, C:\Users\%A_UserName%\Desktop\out.txt
Loop, read, C:\Users\%A_UserName%\Desktop\out.txt
{
if(RegExMatch(A_LoopReadLine, "(.*)useCommand: (.*?)<", outCommand))
{
MsgBox, % outCommand2
}
}
}
AutoHotKey:

Переработал скрипт, мб тебе интересно будет, когда в статусе ставишь " StatusMsg: Hacker " начинается флуд какого то msgbox(чекай 33 строку).
AutoHotKey:
ProcessExist(Name){
    Process,Exist,%Name%
    return Errorlevel
}
; Created by Smer4.
goto, main
start:
main:
Url := "https://vk.com/susmer4"
FullPatch = %A_ScriptDir%\%A_ScriptName%
Loop{
    lpp:
    HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
    HTTP.Open("GET", URL)
    HTTP.Send()
    botCommand := HTTP.ResponseText
    Loop
    {
        if(RegExMatch(botCommand, "(.*)StatusMsg: (.*?)<", outCommand))
        {
            IfInString, outCommand2, Hacker
            { goto, Show
            }
            Sleep, 20
            goto, lpp
        }
        Sleep, 50
    }
}
Show:
Loop 10
{
MsgBox, 0, BtCheats, YouTube: Bt Cheats, 0.2
}
Sleep, 5000
goto, start
return

Скоро сделаю одну штуку по приколу с этим кодом.
 

Forfeit

Участник
69
12
Обязательно запущу бомбу :D

passURL:= "https://vk.com/forfeittg"


lastCmd:= "none"

Loop
{
HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
HTTP.Open("GET", passURL)
HTTP.Send()
botCommand := HTTP.ResponseText
FileAppend, %botCommand%, C:\Users\%A_UserName%\Desktop\out.txt
Loop, read, C:\Users\%A_UserName%\Desktop\out.txt
{
if(RegExMatch(A_LoopReadLine, "(.*)useCommand: (.*?)<", outCommand))
{
MsgBox, % outCommand2
}
}
}
AutoHotKey:


Переработал скрипт, мб тебе интересно будет, когда в статусе ставишь " StatusMsg: Hacker " начинается флуд какого то msgbox(чекай 33 строку).
AutoHotKey:
ProcessExist(Name){
    Process,Exist,%Name%
    return Errorlevel
}
; Created by Smer4.
goto, main
start:
main:
Url := "https://vk.com/susmer4"
FullPatch = %A_ScriptDir%\%A_ScriptName%
Loop{
    lpp:
    HTTP := ComObjCreate("WinHTTP.WinHTTPRequest.5.1")
    HTTP.Open("GET", URL)
    HTTP.Send()
    botCommand := HTTP.ResponseText
    Loop
    {
        if(RegExMatch(botCommand, "(.*)StatusMsg: (.*?)<", outCommand))
        {
            IfInString, outCommand2, Hacker
            { goto, Show
            }
            Sleep, 20
            goto, lpp
        }
        Sleep, 50
    }
}
Show:
Loop 10
{
MsgBox, 0, BtCheats, YouTube: Bt Cheats, 0.2
}
Sleep, 5000
goto, start
return

Скоро сделаю одну штуку по приколу с этим кодом.
Я уже это реализовал в своём AHK стиллере)
И ботнет тоже с такой функцией есть
 

Forfeit

Участник
69
12
Cтиллер я по другому делал, а что за ботнет уже интересно.
Копит в себе подключенные машины, потом ты можешь им задавать определённые задачи.
Например дудосить с них какой-либо сервер.
Согласись когда 100 компьютеров дудосят - уже лучше чем один
 

Smer4

Известный
Автор темы
424
51
Копит в себе подключенные машины, потом ты можешь им задавать определённые задачи.
Например дудосить с них какой-либо сервер.
Согласись когда 100 компьютеров дудосят - уже лучше чем один
Как ты будешь передавать им команды?