Local $asStr[4] = ['http://vk.com/fawfwfawfs?qe=t31g4g2gv2d1', 'http://vk.com/fawfwfawfs=', 'http://vk.com/abcdefjh1234567890#qe=t31g4g2gv2d1', _
'http://vk.com/abcdefjh1234567890=12345']
For $i = 0 To UBound($asStr) - 1
ConsoleWrite(StringRegExpReplace($asStr[$i], '.*vk\.com/([[:alnum:]]+).*', '$1') & @TAB & @extended & @LF)
Next