HashMgr.AddHashToHistory(hash.Trim, False)
AddNewTabForSearch(hash)
Exit Sub
- ElseIf e.Url.AbsoluteUri.StartsWith("http://twitter.com/") Then
- Me.AddNewTabForUserTimeline(e.Url.AbsoluteUri.Remove(0, "http://twitter.com/".Length))
- ElseIf e.Url.AbsoluteUri.StartsWith("https://twitter.com/") Then
- Me.AddNewTabForUserTimeline(e.Url.AbsoluteUri.Remove(0, "https://twitter.com/".Length))
Else
- OpenUriAsync(e.Url.OriginalString)
+ Dim m As Match = Regex.Match(e.Url.AbsoluteUri, "^https?://twitter.com/(#!/)?(?<name>[a-zA-Z0-9_]+)$")
+ If m.Success AndAlso IsTwitterId(m.Result("${name}")) Then
+ Me.AddNewTabForUserTimeline(m.Result("${name}"))
+ Else
+ OpenUriAsync(e.Url.OriginalString)
+ End If
End If
End If
End Sub