batman

给一个vbs解决方案：

filmname = InputBox("请输入电影名")
Set ws = CreateObject("wscript.shell")
filmname = escape(filmname)
ws.Run "http://7sousou.cn/search/?wd=TITLE%7C%7C%7C" & filmname, 1, True
Set ws = Nothing
复制代码