同一行/複数行対応のWEB検索スクリプト

str =
(
http://www.google.co.jp/ http://search.yahoo.co.jp/
http://www.bing.com/(リンク切れ)
)

For i, v in StrSplit(str, "`n") {
　if RegExMatch(v, "https?://") {
　　URL := "((?:(?:chrome|iexplore|MicrosoftEdge) |)https?://[\w*!$@~#.,_:;|()/?=&%+-]+(?:\(?リンク切れ\)|))"
　　RegExReplace(v, "https?://", "", cnt)
　　tmp =
　　Loop, % cnt-1
　　　tmp .= ".+" URL
　　URL .= tmp
　　RegExMatch(v, "O)" URL, $)
　　Loop, % cnt {
　　;Loop, % $.Count() {
　　　URL := $.Value(A_Index)
　　　InStr(URL, "(リンク切れ)") ? Case := 1
　　　Switch Case {
　　　　Case 1: Run, % "http://web.archive.org/web/*/"; SubStr(URL, 1, -7)
　　　 Default: Run, %URL%
　　　}
　　　Case =
　　　Sleep, 250
　　}
　}
}