Expanding on @OriginalGriff solution ....
Once you have the url, you need to clean/decode and then parse the QueryString part of the URL.
1. Decode
Dim rawUrl = "https://scontent.xx.fbcdn.net/v/t39.25447-2/10000000_6431054706943551_3203837429521491984_n.mp4?_nc_cat=1&vs=9a2c9c3d6622741&_nc_vs=HBksFQAYJEdJQ1dtQUEtcGxhYkF0a1dBQkNvdXVBcVVYWXNibWRqQUFBRhUAAsgBABUAGCRHSk0xaGhWa3V4VWN1UFlBQUdvcWY0b2U4NEZ6YnY0R0FBQUYVAgLIAQBLB4gScHJvZ3Jlc3NpdmVfcmVjaXBlATENc3Vic2FtcGxlX2ZwcwAQdm1hZl9lbmFibGVfbnN1YgAgbWVhc3VyZV9vcmlnaW5hbF9yZXNvbHV0aW9uX3NzaW0AKGNvbXB1dGVfc3NpbV9vbmx5X2F0X29yaWdpbmFsX3Jlc29sdXRpb24AHXVzZV9sYW5jem9zX2Zvcl92cW1fdXBzY2FsaW5nABFkaXNhYmxlX3Bvc3RfcHZxcwAVACUAHIwXQAAAAAAAAAAREQAAACa8zIPgkNx0FQIoAkMzGAt2dHNfcHJldmlldxwXQILu5WBBiTcYIGRhc2hfdjRfNXNlY2dvcF9ocTJfZnJhZ18yX3ZpZGVvEgAYGHZpZGVvcy52dHMuY2FsbGJhY2sucHJvZDgSVklERU9fVklFV19SRVFVRVNUGwqIFW9lbV90YXJnZXRfZW5jb2RlX3RhZwZvZXBfaGQTb2VtX3JlcXVlc3RfdGltZV9tcwEwDG9lbV9jZmdfcnVsZQd1bm11dGVkE29lbV9yb2lfcmVhY2hfY291bnQGMTkwNTE0EW9lbV9pc19leHBlcmltZW50AAxvZW1fdmlkZW9faWQQMjc5MzEyOTkwNDE2MTk2OBJvZW1fdmlkZW9fYXNzZXRfaWQPMTA2MDM0OTkyNTczNzYzFW9lbV92aWRlb19yZXNvdXJjZV9pZA8yNTY2Njk0OTM3ODUzNzQcb2VtX3NvdXJjZV92aWRlb19lbmNvZGluZ19pZA8zMDkxMTk2NDgxNDU2ODQOdnRzX3JlcXVlc3RfaWQAJQIcACXEARsHiAFzBDgxODMCY2QKMjAyMy0wNy0yMANyY2IGMTkwNTAwA2FwcAVWaWRlbwJjdBlDT05UQUlORURfUE9TVF9BVFRBQ0hNRU5UE29yaWdpbmFsX2R1cmF0aW9uX3MHNjA1Ljg4OAJ0cxVwcm9ncmVzc2l2ZV9lbmNvZGluZ3MA&ccb=1-7&_nc_sid=f97d39&efg=eyJ2ZW5jb2RlX3RhZyI6Im9lcF9oZCJ9&_nc_eui2=AeGdgPDzwjLaSGTONQoxW_5viTB_e75YaNCJMH97vlho0Mj4EgsT0Pr_E4RSt7Q3odM&_nc_ohc=S1DrBydfcBcAX8ZoN97&_nc_ht=scontent.fpnh10-1.fna&oh=00_AfB6TOrRCm9tACMC2Bxrx7H57ItjPcZgbJSjFL9yhIELSQ&oe=64BF38C8&_nc_rid=289298631140853"
Dim decodedUrl As String = WebUtility.HtmlDecode(rawUrl)
I have manually pulled the url so we have something to work with.
2.Next is to get the QueryString
Dim uri = New Uri(decodedUrl)
Dim queryString = HttpUtility.ParseQueryString(uri.Query)
3. Now that we have the QueryString we can easily access the key/value pairs
For Each key As String In queryString.Keys
Console.WriteLine($"{key} = {queryString.Item(key)}")
Next
And here is the output:
_nc_cat = 1
vs = 9a2c9c3d6622741
_nc_vs = HBksFQAYJEdJQ1dtQUEtcGxhYkF0a1dBQkNvdXVBcVVYWXNibWRqQUFBRhUAAsgBABUAGCRHSk0xaGhWa3V4VWN1UFlBQUdvcWY0b2U4NEZ6YnY0R0FBQUYVAgLIAQBLB4gScHJvZ3Jlc3NpdmVfcmVjaXBlATENc3Vic2FtcGxlX2ZwcwAQdm1hZl9lbmFibGVfbnN1YgAgbWVhc3VyZV9vcmlnaW5hbF9yZXNvbHV0aW9uX3NzaW0AKGNvbXB1dGVfc3NpbV9vbmx5X2F0X29yaWdpbmFsX3Jlc29sdXRpb24AHXVzZV9sYW5jem9zX2Zvcl92cW1fdXBzY2FsaW5nABFkaXNhYmxlX3Bvc3RfcHZxcwAVACUAHIwXQAAAAAAAAAAREQAAACa8zIPgkNx0FQIoAkMzGAt2dHNfcHJldmlldxwXQILu5WBBiTcYIGRhc2hfdjRfNXNlY2dvcF9ocTJfZnJhZ18yX3ZpZGVvEgAYGHZpZGVvcy52dHMuY2FsbGJhY2sucHJvZDgSVklERU9fVklFV19SRVFVRVNUGwqIFW9lbV90YXJnZXRfZW5jb2RlX3RhZwZvZXBfaGQTb2VtX3JlcXVlc3RfdGltZV9tcwEwDG9lbV9jZmdfcnVsZQd1bm11dGVkE29lbV9yb2lfcmVhY2hfY291bnQGMTkwNTE0EW9lbV9pc19leHBlcmltZW50AAxvZW1fdmlkZW9faWQQMjc5MzEyOTkwNDE2MTk2OBJvZW1fdmlkZW9fYXNzZXRfaWQPMTA2MDM0OTkyNTczNzYzFW9lbV92aWRlb19yZXNvdXJjZV9pZA8yNTY2Njk0OTM3ODUzNzQcb2VtX3NvdXJjZV92aWRlb19lbmNvZGluZ19pZA8zMDkxMTk2NDgxNDU2ODQOdnRzX3JlcXVlc3RfaWQAJQIcACXEARsHiAFzBDgxODMCY2QKMjAyMy0wNy0yMANyY2IGMTkwNTAwA2FwcAVWaWRlbwJjdBlDT05UQUlORURfUE9TVF9BVFRBQ0hNRU5UE29yaWdpbmFsX2R1cmF0aW9uX3MHNjA1Ljg4OAJ0cxVwcm9ncmVzc2l2ZV9lbmNvZGluZ3MA
ccb = 1-7
_nc_sid = f97d39
efg = eyJ2ZW5jb2RlX3RhZyI6Im9lcF9oZCJ9
_nc_eui2 = AeGdgPDzwjLaSGTONQoxW_5viTB_e75YaNCJMH97vlho0Mj4EgsT0Pr_E4RSt7Q3odM
_nc_ohc = S1DrBydfcBcAX8ZoN97
_nc_ht = scontent.fpnh10-1.fna
oh = 00_AfB6TOrRCm9tACMC2Bxrx7H57ItjPcZgbJSjFL9yhIELSQ
oe = 64BF38C8
_nc_rid = 289298631140853
Note: I created a .NetFramework 4.7.1 console app and added the
NuGet Gallery | NETStandard.Library 2.0.3[
^] library for the
HttpUtility.ParseQueryString
[
^].
Here is the complete code:
Imports System.Net
Imports System.Web
Module Module1
Sub Main()
Dim rawUrl = "https://scontent.xx.fbcdn.net/v/t39.25447-2/10000000_6431054706943551_3203837429521491984_n.mp4?_nc_cat=1&vs=9a2c9c3d6622741&_nc_vs=HBksFQAYJEdJQ1dtQUEtcGxhYkF0a1dBQkNvdXVBcVVYWXNibWRqQUFBRhUAAsgBABUAGCRHSk0xaGhWa3V4VWN1UFlBQUdvcWY0b2U4NEZ6YnY0R0FBQUYVAgLIAQBLB4gScHJvZ3Jlc3NpdmVfcmVjaXBlATENc3Vic2FtcGxlX2ZwcwAQdm1hZl9lbmFibGVfbnN1YgAgbWVhc3VyZV9vcmlnaW5hbF9yZXNvbHV0aW9uX3NzaW0AKGNvbXB1dGVfc3NpbV9vbmx5X2F0X29yaWdpbmFsX3Jlc29sdXRpb24AHXVzZV9sYW5jem9zX2Zvcl92cW1fdXBzY2FsaW5nABFkaXNhYmxlX3Bvc3RfcHZxcwAVACUAHIwXQAAAAAAAAAAREQAAACa8zIPgkNx0FQIoAkMzGAt2dHNfcHJldmlldxwXQILu5WBBiTcYIGRhc2hfdjRfNXNlY2dvcF9ocTJfZnJhZ18yX3ZpZGVvEgAYGHZpZGVvcy52dHMuY2FsbGJhY2sucHJvZDgSVklERU9fVklFV19SRVFVRVNUGwqIFW9lbV90YXJnZXRfZW5jb2RlX3RhZwZvZXBfaGQTb2VtX3JlcXVlc3RfdGltZV9tcwEwDG9lbV9jZmdfcnVsZQd1bm11dGVkE29lbV9yb2lfcmVhY2hfY291bnQGMTkwNTE0EW9lbV9pc19leHBlcmltZW50AAxvZW1fdmlkZW9faWQQMjc5MzEyOTkwNDE2MTk2OBJvZW1fdmlkZW9fYXNzZXRfaWQPMTA2MDM0OTkyNTczNzYzFW9lbV92aWRlb19yZXNvdXJjZV9pZA8yNTY2Njk0OTM3ODUzNzQcb2VtX3NvdXJjZV92aWRlb19lbmNvZGluZ19pZA8zMDkxMTk2NDgxNDU2ODQOdnRzX3JlcXVlc3RfaWQAJQIcACXEARsHiAFzBDgxODMCY2QKMjAyMy0wNy0yMANyY2IGMTkwNTAwA2FwcAVWaWRlbwJjdBlDT05UQUlORURfUE9TVF9BVFRBQ0hNRU5UE29yaWdpbmFsX2R1cmF0aW9uX3MHNjA1Ljg4OAJ0cxVwcm9ncmVzc2l2ZV9lbmNvZGluZ3MA&ccb=1-7&_nc_sid=f97d39&efg=eyJ2ZW5jb2RlX3RhZyI6Im9lcF9oZCJ9&_nc_eui2=AeGdgPDzwjLaSGTONQoxW_5viTB_e75YaNCJMH97vlho0Mj4EgsT0Pr_E4RSt7Q3odM&_nc_ohc=S1DrBydfcBcAX8ZoN97&_nc_ht=scontent.fpnh10-1.fna&oh=00_AfB6TOrRCm9tACMC2Bxrx7H57ItjPcZgbJSjFL9yhIELSQ&oe=64BF38C8&_nc_rid=289298631140853"
Dim decodedUrl As String = WebUtility.HtmlDecode(rawUrl)
Dim uri = New Uri(decodedUrl)
Dim queryString = HttpUtility.ParseQueryString(uri.Query)
For Each key As String In queryString.Keys
Console.WriteLine($"{key} = {queryString.Item(key)}")
Next
End Sub
End Module