So? Das passt sogar in eine Zeile :D.
Spoiler anzeigen
[autoit]
If StringInStr(BinaryToString(InetRead(InputBox("URL", "Geben sie die URL der zu durchsuchenden Seite ein", "http://")), 4), InputBox("Suchen", "Geben sie den Suchtext ein")) Then MsgBox(64, "Info", "String wurde gefunden")
[/autoit]