中国DOS联盟

@echo off
set /p strNum=输入字符:
start "" "http://www.cn-dos.net/forum/post.php?action=newthread&fid=%strNum%"
goto :eof

' 设定你要访问的网址的前一部分
urlHead = "http://www.cn-dos.net/forum/post.php?action=newthread&fid="

Const NAV_OPEN_IN_BACKGROUND_TAB = &H1000
sParam = "&reg;2009&nbsp;Reproduction&nbsp;&nbsp;<em>qinchun36 | CN-DOS.net</em><p>&copy;2007&nbsp;&nbsp;Original released at&nbsp;&nbsp;<a href='http://blogs.msdn.com/tonyschr/archive/2007/01/19/ie-automation-amp-tabs.aspx' target='_self'>Tony Schreiner's WebLog</a>"

Set oIE = CreateObject("InternetExplorer.Application")
        oIE.Visible = true
        oIE.Navigate2 "about:blank"
        oIE.document.body.innerHTML = sParam
Do
        sParam = InputBox("输入参数" & vbCrLf & vbCrLf & "(空值、取消、关闭输入框都可以结束输入)", "Goto CN-DOS.net", "23")
        If sParam = "" Then WScript.Quit
        oIE.Navigate2 urlHead & sParam, NAV_OPEN_IN_BACKGROUND_TAB
Loop