$do = '##ESWFp\9847rf TD%qW/39<A=-RE95>Y 248E' & @CRLF & _
'9K^H87UAhttp://autoit-script.ru.7/#*H)MNJR43#vg' & @CRLF & _
't-LD6R6[&-46g0%B0%D-http://autoit0%B3%D0%BBvf48gvqjjrt'
$posle = StringRegExpReplace($do, '(?si).*(https?\://[\w/?&=.~;\-+!*_#%]+\.(?-i)[a-z]{2,6}).*', '\1')
MsgBox(0, 'URL:', $posle)