Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim htmlmy As String
- htmlmy = (bg.DownloadString("https://www.instagram.com/graphql/query/?query_id=17888483320059182&variables=%7B%22id%22:%22" & eb(0) & "%22,%22first%22:50,%22after%22:null%7D"))
- Try
- Dim findtext2 As String = "(?<=" & """" & "shortcode" & """" & ":" & """" & ")(.*?)(?=" & """" & ")"
- Dim myregex2 As String = (htmlmy) 'Your HTML code
- Dim doregex2 As MatchCollection = Regex.Matches(myregex2, findtext2)
- Dim matches2 As String = ""
- Dim sor As String = ""
- For Each match2 As Match In doregex2
- sor = match2.ToString
- If Not TextBox1.Text.Contains(sor) Then
- scode.Items.Add(match2)
- matches2 = matches2 + match2.ToString + Environment.NewLine
- End If
- Next
- TextBox1.AppendText(matches2)
- Label1.Text = scode.Items.Count
- Catch ex As Exception
- 'MsgBox("Something is wrong, Mabey this account is Private!")
- End Try
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement