直接发代码,有些麻烦。。。望简化:(一旦度娘更新了页数算法就不能用了)
dim a,b,c,d,e,f
a=inputbox("请粘贴贴吧的网址:","贴吧翻页器-1/4")
e=inputbox("请输入当前页数:","贴吧翻页器-2/4")
b=inputbox("请输入要翻到的页数:","贴吧翻页器-3/4")
c=b*50-50
f=e*50-50
a=replace(a,"pn="&f,"pn="&c)
d=inputbox("请复制下方网址并粘贴到浏览器中:","贴吧翻页器-4/4",a)
if msgbox("是否再次启动程序以便下次使用?",vbyesno+32,"贴吧翻页器-附加选项")=vbyes then
wscript.createobject("wscript.shell").run wscript.scriptname
else
end if
dim a,b,c,d,e,f
a=inputbox("请粘贴贴吧的网址:","贴吧翻页器-1/4")
e=inputbox("请输入当前页数:","贴吧翻页器-2/4")
b=inputbox("请输入要翻到的页数:","贴吧翻页器-3/4")
c=b*50-50
f=e*50-50
a=replace(a,"pn="&f,"pn="&c)
d=inputbox("请复制下方网址并粘贴到浏览器中:","贴吧翻页器-4/4",a)
if msgbox("是否再次启动程序以便下次使用?",vbyesno+32,"贴吧翻页器-附加选项")=vbyes then
wscript.createobject("wscript.shell").run wscript.scriptname
else
end if