Check message

#SingleInstance Force
#NoTrayIcon
#Persistent
SetBatchLines -1
Menu, Tray, NoStandard
Menu, Tray, Add, Exit?, GuiClose

    Pass := "mypassw0rd" ; Password
    Login := "[email protected]" ; Login
    NeedleText := "this is a test message" ; Text

    httpQueryOps:="storeHeader"
    httpAgent :="Opera/9.80 (Windows NT 6.1; U; ru) Presto/2.8.131 Version/11.10"
    httpQueryDwFlags:=
    (Join LTrim
    INTERNET_FLAG_NO_COOKIES:=0x00080000|
    INTERNET_FLAG_NO_AUTO_REDIRECT:=0x00200000
    )
    URL:="http://login.vk.com/?act=login&email=" Login "&pass=" Pass ""
    length:=httpQuery(data:="",URL)
    varSetCapacity(data,-1)
    RegExMatch(HttpQueryHeader,"hash=(.*?)&",hash)
    URL:="http://vk.com/login.php?act=slogin&fast=1&hash=" hash1 "&redirect=1&s=1"
    httpQuery(data:="",URL)
    varSetCapacity(data,-1)
    if HttpQueryHeader contains deleted
    {
    MsgBox, 64, %a_space%, Auth failed!
    ExitApp
    }else{
    SID := RegexReplace(HttpQueryHeader, ".*remixsid=(.*?); .*", "$1")
    Cookie:= "Cookie: remixsid=" SID ";"
    httpQueryDwFlags:=(INTERNET_FLAG_NO_COOKIES:=0x00080000)
    }
    SetTimer, check_wall, 15000
    return

check_wall:
    httpQuery(data:="", "http://vk.com/wall.php", POSTdata, HEADERS:=Cookie)
    VarsetCapacity(data, -1)
    Loop
    {
    Msg := RegexReplace(data, ".*<div class=""wall_post_text"">(.*?)</div></div>.*", "$1")
    if (Msg==NeedleText){
      msgbox, 64, %Msg%, Yes!
      Exitapp
      }
    StringReplace, data, data, <div class=`"wall_post_text`">%Msg%</div></div>,, All
    if data not contains <div class=`"wall_post_text`">
    break
    }
return






































GuiClose:
ExitApp

UtfDecode( str )  {
  RawLen := StrLen(str)
  Charset := 0
  BufSize := (RawLen + 1) * 2
  VarSetCapacity(Buf, BufSize, 0)
  DllCall("MultiByteToWideChar", "uint", 65001, "int", 0, "str", str
  , "int", -1, "uint", &Buf, "uint", RawLen + 1)
  DllCall("WideCharToMultiByte", "uint", Charset, "int", 0, "uint", &Buf, "int", -1
  , "str", str, "uint", RawLen + 1
  , "int", 0, "int", 0)
Return str
}

MimeType(ByRef Binary) {
MimeTypes:="424d image/bmp|4749463 image/gif|ffd8ffe image/jpg|89504e4 image/png|4657530"
   . " application/x-shockwave-flash|49492a0 image/tiff"
   @:="0123456789abcdef"
   Loop,8
   hex .= substr(@,(*(a:=&Binary-1+a_index)>>4)+1,1) substr(@,((*a)&15)+1,1)
   Loop,Parse,MimeTypes,|
   if ((substr(hex,1,strlen(n:=RegExReplace(A_Loopfield,"\s.*"))))=n)
   Mime := RegExReplace(A_LoopField,".*?\s")
Return (Mime!="") ? Mime : "application/octet-stream"
}


URLEncode( p_data,p_reserved=true,p_encode=true)  {
   old_FormatInteger := A_FormatInteger
   SetFormat, Integer, hex
    unsafe := "25000102030405060708090A0B0C0D0E"
    . "0F101112131415161718191A1B1C1D1E1F20222"
    . "33C3E5B5C5D5E607B7C7D7F808182838485868"
    . "788898A8B8C8D8E8F909192939495969798999A"
    . "9B9C9D9E9FA0A1A2A3A4A5A6A7A8A9AAABAC"
    . "ADAEAFB0B1B2B3B4B5B6B7B8B9BABBBCBDB"
    . "EBFC0C1C2C3C4C5C6C7C8C9CACBCCCDCEC"
    . "FD0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF7"
    . "EE0E1E2E3E4E5E6E7E8E9EAEBECEDEEEFF0"
    . "F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF"
   if (p_reserved)
      unsafe = %unsafe%24262B2C2F3A3B3D3F40
   if ( p_encode )
    loop, % StrLen(unsafe)//2
    {
    StringMid, token, unsafe, A_Index*2-1, 2
    StringReplace, p_data, p_data, % Chr( "0x" token ), `%%token%, all
    }else
    loop, % StrLen(unsafe)//2
    {
    StringMid, token, unsafe, A_Index*2-1, 2
    StringReplace, p_data, p_data, `%%token%, % Chr("0x"token), all
    }
   SetFormat, Integer, %old_FormatInteger%
return, p_data
}



URLDecode( p_data )  {
return, URLEncode( p_data, true, false )
}

httpQuery(byref Result, lpszUrl, POSTDATA="", HEADERS="")  {
   global httpQueryOps, httpAgent, httpProxy, httpProxyByPass, httpQueryReferer, httpQueryAcceptType
       , httpQueryDwFlags
   defaultOps =
   (LTrim Join|
      httpAgent=script|httpProxy=0|httpProxyByPass=0|INTERNET_FLAG_SECURE=0x00800000
      SECURITY_FLAG_IGNORE_UNKNOWN_CA=0x00000100|SECURITY_FLAG_IGNORE_CERT_CN_INVALID=0x00001000
      SECURITY_FLAG_IGNORE_CERT_DATE_INVALID=0x00002000|SECURITY_FLAG_IGNORE_CERT_WRONG_USAGE=0x00000200
      INTERNET_OPEN_TYPE_PROXY=3|INTERNET_OPEN_TYPE_DIRECT=1|INTERNET_SERVICE_HTTP=3
   )
   Loop,Parse,defaultOps,|
   {
      RegExMatch(A_LoopField,"(?P<Option>[^=]+)=(?P<Default>.*)",http)
      if StrLen(%httpOption%)=0
         %httpOption% := httpDefault
   }

   hModule := DllCall("LoadLibrary", "Str", "WinINet.Dll")

   offset_name_length:= "4-lpszScheme-255|16-lpszHostName-1024|28-lpszUserName-1024|"
                  . "36-lpszPassword-1024|44-lpszUrlPath-1024|52-lpszExtrainfo-1024"
   VarSetCapacity(URL_COMPONENTS,60,0)
   NumPut(60,URL_COMPONENTS,0), NumPut(255,URL_COMPONENTS,12), NumPut(0xffff,URL_COMPONENTS,24)

   Loop,Parse,offset_name_length,|
   {
      RegExMatch(A_LoopField,"(?P<Offset>\d+)-(?P<Name>[a-zA-Z]+)-(?P<Size>\d+)",iCU_)
      VarSetCapacity(%iCU_Name%,iCU_Size,0)
      NumPut(&%iCU_Name%,URL_COMPONENTS,iCU_Offset)
      NumPut(iCU_Size,URL_COMPONENTS,iCU_Offset+4)
   }

   DllCall("WinINet\InternetCrackUrlA","Str",lpszUrl,"uInt",StrLen(lpszUrl),"uInt",0,"uInt",&URL_COMPONENTS)

   Loop,Parse,offset_name_length,|
   {
      RegExMatch(A_LoopField,"-(?P<Name>[a-zA-Z]+)-",iCU_)
      VarSetCapacity(%iCU_Name%,-1)
   }
   nPort:=NumGet(URL_COMPONENTS,24,"uInt")

   dwFlags := httpQueryDwFlags
   if (lpszScheme = "https")
      dwFlags |= (INTERNET_FLAG_SECURE|SECURITY_FLAG_IGNORE_CERT_CN_INVALID
               |SECURITY_FLAG_IGNORE_CERT_WRONG_USAGE)

   if (lpszScheme="unknown") {
      Result := "ERR: No Valid URL supplied."
      Return StrLen(Result)
   }

   hInternet := DllCall("WinINet\InternetOpenA"
                  ,"Str",httpAgent,"UInt"
                  ,(httpProxy != 0 ?  INTERNET_OPEN_TYPE_PROXY : INTERNET_OPEN_TYPE_DIRECT )
                  ,"Str",httpProxy,"Str",httpProxyBypass,"Uint",0)

   hConnect := DllCall("WinINet\InternetConnectA"
                  ,"uInt",hInternet,"Str",lpszHostname, "Int",nPort
                  ,"Str",lpszUserName, "Str",lpszPassword,"uInt",INTERNET_SERVICE_HTTP
                  ,"uInt",0,"uInt*",0)

   if (Strlen(POSTDATA)>0) {
      HTTPVerb:="POST"
      if StrLen(Headers)=0
         Headers:="Content-Type: application/x-www-form-urlencoded"
   } else
      HTTPVerb:="GET"

   hRequest := DllCall("WinINet\HttpOpenRequestA"
                  ,"uInt",hConnect,"Str",HTTPVerb,"Str",lpszUrlPath . lpszExtrainfo
                  ,"Str",ProVer := "HTTP/1.1", "Str",httpQueryReferer,"Str",httpQueryAcceptTypes
                  ,"uInt",dwFlags,"uInt",Context:=0 )

   sRequest := DllCall("WinINet\HttpSendRequestA"
                  , "uInt",hRequest,"Str",Headers, "uInt",Strlen(Headers)
                  , "Str",POSTData,"uInt",Strlen(POSTData))

   VarSetCapacity(header, 2048, 0)
   VarSetCapacity(header_len, 4, 0)

   Loop, 5
     if ((headerRequest:=DllCall("WinINet\HttpQueryInfoA","uint",hRequest
      ,"uint",21,"uint",&header,"uint",&header_len,"uint",0))=1)
      break

   If (headerRequest=1) {
      VarSetCapacity(res,headerLength:=NumGet(header_len),32)
      DllCall("RtlMoveMemory","uInt",&res,"uInt",&header,"uInt",headerLength)
      Loop,% headerLength
         if (*(&res-1+a_index)=0)
            NumPut(Asc("`n"),res,a_index-1,"uChar")
      VarSetCapacity(res,-1)
   } else
      res := "timeout"

   Loop,Parse,res,`n,`r
   {
      RetValue := A_LoopField
      break
   }

   If (RetValue="timeout") {
      html := "Error: timeout"
      return -1
   }
   RetValue := RegExReplace(RetValue,"HTTP/1\.[01]\s+")

   RetValue := SubStr(RetValue,1,3)

   if strlen(HTTPQueryOps)>0 {
      if (instr(HTTPQueryOps,"showHeader"))
         MsgBox % res
      if (instr(HTTPQueryOps,"storeHeader"))
         global HttpQueryHeader := res
      if (instr(HTTPQueryOps,"updateSize")) {
         Loop,Parse,res,`n
            If RegExMatch(A_LoopField,"Content-Length:\s+?(?P<Size>\d+)",full) {
               global HttpQueryFullSize := fullSize
               break
            }
         if (fullSize+0=0)
            HttpQueryFullSize := "size unavailable"
      }
   }

   if !(InStr("100 200 201 202 302",RetValue)) {
      Result := RetValue " " RetMsg
      return StrLen(Result)
   }

   VarSetCapacity(BytesRead,4,0)
   fsize := 0
   Loop
   {  bc := A_Index
      VarSetCapacity(buffer%bc%,1024,0)
      ReadFile := DllCall("wininet\InternetReadFile"
                  ,"uInt",hRequest,"uInt",&buffer%bc%,"uInt",1024,"uInt",&BytesRead)
      ReadBytes := NumGet(BytesRead)
      If ((ReadFile!=0)&&(!ReadBytes))
         break
      Else {
         fsize += ReadBytes
         sizeArray .= ReadBytes "|"
      }
      if (instr(HTTPQueryOps,"updateSize"))
         Global HttpQueryCurrentSize := fsize
   }
   sizeArray := SubStr(sizeArray,1,-1)

   VarSetCapacity(result,fSize+1,0)
   Dest := &result
   Loop,Parse,SizeArray,|
      DllCall("RtlMoveMemory","uInt",Dest,"uInt",&buffer%A_Index%,"uInt",A_LoopField)
      , Dest += A_LoopField

   DllCall("WinINet\InternetCloseHandle", "uInt", hRequest)
   DllCall("WinINet\InternetCloseHandle", "uInt", hInternet)
   DllCall("WinINet\InternetCloseHandle", "uInt", hConnect)
   DllCall("FreeLibrary", "UInt", hModule)
   return fSize
}