_StringBetween работает только для одной переменной (не знаю, как объяснить)

#include <String.au3>
#include <Array.au3>
#include <File.au3>
#include <IE.au3>
#include <Array.au3>

HotKeySet("{ESC}", "Close")

Global $File = @ScriptDir & "\Messages.txt"
If Not FileExists($File) Then _FileCreate($File)
GLobal $FileOpen = FileOpen($File)

Global $Token = 'Токен'
Global $Shell = "https://api.vk.com/method/messages.get?count=200&access_token=" & $Token & "&v=5.53"

   $oHTTP = ObjCreate('WinHttp.WinHttpRequest.5.1')
   $oHTTP.Open('GET', $Shell)
   $oHTTP.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.3; WOW64; rv:48.0) Gecko/20100101 Firefox/48.0")
   $oHTTP.Send('')
   $oHTTP.WaitForResponse
   $res = $oHTTP.ResponseText

   ConsoleWrite($res & @CRLF)

   $Domain = _StringBetween($res, 'read_state":', ',')                                  <===========================================
   $Text = _StringBetween($res, 'body":"', '"')
   ConsoleWrite(@CRLF & $Domain)
   Global $Count = UBound($Text)

   Global $FullMessages[250]       ; Вообще, максимум сообщений за раз - 200. Но в массиве у меня было 209, поэтому я перестраховался
   $b = 0

   For $i In $Text
	  FileWrite($File, $i & @LF & $Domain & @CRLF)
	  $FullMessages[$b] = $i
	  $b = $b + 1
   Next




Func Close()
   Exit
EndFunc

Global $FullMessages[0]      
   $b = 0

   For $i In $Text
      FileWrite($File, $i & @LF & $Domain & @CRLF)
	  ReDim $FullMessages[$b+1]
      $FullMessages[$b] = $i
      $b += 1
   Next

$oResp = _JsonLoad($res) ; <==

Func _JsonLoad($sJson)
    Local $oRes, $oSC = ObjCreate('ScriptControl')
    If Not IsObj($oSC) Then _
        Return SetError(1, 0, 0)
    ; *
    $oSC.Language = 'JavaScript'
    ; ---
    $sJson = StringRegExpReplace($sJson, '[\r\n]+', ' ')
    $sJson = StringReplace($sJson, "'", "\'")
    $oRes = $oSC.Eval('(' & $sJson & ')')
    If Not IsObj($oRes) Then  _
        Return SetError(2, 0, 0)
    ; ---
    Return $oRes
EndFunc

$iCount = _JsonGet_s($oResp, 'response.count', 0)
If $iCount Then
	For $oItem In $oResp.response.items
		ConsoleWrite('id=' & $oItem.id & ' read_state=' & $oItem.read_state & @CRLF)
	Next
EndIf

Func _JsonGet_s(ByRef Const $Obj, $Key, $vDefault = '')
	Local $vRet
	; ---
	$vRet = Execute('$Obj.' & $Key)
	; ---
	Return (@error) ? $vDefault : $vRet
EndFunc

Func _JsonLoad_vk($sJson)
    Local $oRes, $oSC = ObjCreate('ScriptControl')
    If Not IsObj($oSC) Then _
        Return SetError(1, 0, 0)
    ; *
    $oSC.Language = 'JavaScript'
    ; ---
    $sJson = StringRegExpReplace($sJson, '[\r\n]+', ' ')
	$sJson = StringRegExpReplace($sJson, "[^\\]'", '"')
	$sJson = StringStripWS($sJson, 3)
	If StringLeft($sJson, 1) <> '{' Then _
		$sJson = '{' & $sJson & '}'
	; *
    $oRes = $oSC.Eval('(' & $sJson & ')')
    If Not IsObj($oRes) Then  _
        Return SetError(2, 0, 0)
    ; ---
    Return $oRes
EndFunc