Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Set o = CreateObject("MSXML2.XMLHTTP")
- o.open "GET", "http://www.insultgenerator.org", False
- o.send
- 'MsgBox( o.responseText )
- search = "<TR align=center><TD>"
- endsearch = "</TD></TR>"
- 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