[أبو نوره]

اخي ابو روضه

جرب كده

PHP كود :

Dim wc As New WebClient
Dim sourceString As String = wc.DownloadString("https://pastebin.com/raw/fK79BjW7")

Dim s As String = Regex.Match(sourceString, "(?<=""access_token"":"").+?(?="")").Value

MsgBox(s)