script

; Author: http://msgbox.vk.com
    #NoEnv
    #Persistent
    SendMode Input
    #SingleInstance Force
    SetWorkingDir %A_ScriptDir%
    SetBatchLines -1
        IniRead, mail, settings.ini, settings, login
        IniRead, password, settings.ini, settings, password
        IniRead, gid, settings.ini, settings, groupid
        httpAgent:="Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.13) Gecko/20101203 Firefox/3.6.13"
        mail := UtfEncode(mail)
        password := UtfEncode(password)
            httpQueryOps:="storeHeader"
            httpQueryDwFlags := (INTERNET_FLAG_NO_COOKIES:=0x00080000)
            length := httpQuery(data := "",URL := "http://login.vk.com/?act=login&email=" mail "&pass=" password "")
            varSetCapacity(data,-1)
            IfInString, data, <input type='hidden' name='s' value='
            {
            sid:= RegexReplace(data, ".*name='s' value='(.*?)'.*", "$1")
            cookie:= "remixchk=5; remixgroup_closed_tabs=786432; remixpdathumbsize=s; audio_vol=100; remixpdaphotosize=x; wysiwyg=1; remixmid=; remixsid=" sid "; remixgid=; remixemail=; remixpass=; remixfeed=*.*.ps%2Cph%2Cvd%2Cnt.*.*"
            }else{
            msgbox, 64, %mail%, Error Auth!
            ExitApp
            }
            httpQuery(data := "",URL := "http://vkontakte.ru/club" . gid . "?act=blacklist",POSTdata := "",HEADER := "Cookie: " cookie "")
            varSetCapacity(data, -1)
            StringReplace, data, data, `", `', All
            hash := RegexReplace(data, ".*hash: '(.*?)'.*", "$1")
            fileread, list, list.txt
            loop, parse, list, `r`n
            {
            httpQuery(data := "",URL := "http://vkontakte.ru/al_groups.php",POSTdata := "act=bl_user&al=1&gid=" . gid . "&hash=" . hash . "&name=" . a_loopfield . "",HEADER := "Content-Type: application/x-www-form-urlencoded; charset=UTF-8`nX-Requested-With: XMLHttpRequest`nReferer: http://vkontakte.ru/club" . gid . "?act=blacklist`nCookie: " cookie "")
            varSetCapacity(data, -1)
            reply := regexReplace(data, ".*<b>(.*?)</b>.*", "$1")
            traytip, %reply%, %a_loopfield%,0,0,0
            sleep, 1500
            }
        msgbox, 64, Status, Okay
        ExitApp
    #include library.ahk