CODE: [Copy to clipboard]
' 设定你要访问的网址的前一部分
urlHead = "http://www.cn-dos.net/forum/post.php?action=newthread&fid="
Const NAV_OPEN_IN_BACKGROUND_TAB = &H1000
sParam = "®2009 Reproduction <em>qinchun36 | CN-DOS.net</em><p>©2007 Original released at <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
[