愚无尽 当前离线
六级士官
set /p dymc=输入电影名称: if /i "%dymc%"=="q" exit start http://movie.fjbm.cn/So.asp?%dymc% ping /n 2 127.1 >nul start http://www.dianyingsousuo.com/search.asp?searchword=%dymc% ping /n 2 127.1 >nul start http://7sousou.cn/search/?wd=TITLE%7C%7C%7C%dymc% ping /n 2 127.1 >nul pause复制代码
set /p dymc=输入电影名称: if /i "%dymc%"=="q" exit start http://movie.fjbm.cn/So.asp?%dymc% ping /n 2 127.1 >nul start http://www.dianyingsousuo.com/search.asp?searchword=%dymc% ping /n 2 127.1 > ... 愚无尽 发表于 2011-6-17 21:56
TOP
batman 当前离线
考官
荣誉版主
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复制代码
tmplinshi 当前离线
版主
start "" "http://7sousou.cn/search/?wd=TITLE%%7C%%7C%%7C%dymc%"复制代码
start "" "http://7sousou.cn/search/?wd=TITLE|||%dymc%"复制代码
start http://www.baidu.com/s?wd=site:7sousou.cn+%dymc%复制代码
start "" "http://7sousou.cn/search/?wd=TITLE%%7C%%7C%%7C%dymc%"或者start "" "http://7sousou.cn/search/?wd=TITLE|||%dymc%"Opera 会自动转码,IE 不会。 tmplinshi 发表于 2011-6-17 22:26