Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Set o = CreateObject("MSXML2.XMLHTTP")
- o.open "GET", "http://www.randominsults.net/", False
- o.send
- 'MsgBox( o.responseText )
- search = "<strong><i>"
- endsearch = "</i></strong>"
- linenum = InStr( o.responseText, search )
- lineend = InStr( o.responseText, endsearch )
- result = Mid( o.responseText, linenum + Len(search), lineend - linenum - Len(search) )
- 'MsgBox( result )
- Set WshShell = CreateObject("WScript.Shell")
- WshShell.SendKeys( result )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement