You can use this wikitext:
\procedure store-response()
<$action-setfield $tiddler="$:/temp/response" status=<<status>> data=<<data>>/>
\end
\function tiddlyhost.url()
[[https://tiddlyhost.com/explore?k=tw&s=r&cache_buster=]addsuffix<now TIMESTAMP>]
\end
\function fetch.url()
[<tiddlyhost.url>encodeuricomponent[]addprefix[https://api.allorigins.win/raw?url=]]
\end
\procedure fetch()
<$action-sendmessage
$message="tm-http-request"
url=<<fetch.url>>
bind-status="$:/temp/response/status"
oncompletion=<<store-response>>
/>
\end
\function tiddlyhost.link()
[{$:/temp/response!!data}split[.tiddlyhost.com]nth[2]split[href="]last[]addsuffix[.tiddlyhost.com]]
\end
<$button actions=<<fetch>> >Fetch Random Wiki</$button>
Status: {{$:/temp/response/status}}
<a href=<<tiddlyhost.link>> ><<tiddlyhost.link>></a>