[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
回复 6# codegay


    好
#&cls&@powershell "Invoke-Expression ([Io.File]::ReadAllText('%~0',[Text.Encoding]::UTF8))" &pause&exit

TOP

回复 5# ivor


    说明要加python3.
去学去写去用才有进步。安装python3代码存为xx.py 双击运行或右键用IDLE打开按F5运行

TOP

本帖最后由 ivor 于 2017-11-24 21:40 编辑

回复 1# wzf1024


Python3.5
下载地址保存为list.txt,复制到迅雷批量下载
  1. # coding:utf-8
  2. import bs4
  3. import urllib.request as url
  4. web_site = 'http://pmmp.cnki.net/OperatingDiscipline/Details.aspx?id=%s'
  5. with open('list.txt','w') as wfile:
  6.     for num in range(10001,16715):
  7.         try:
  8.             req = url.urlopen(web_site % str(num)[1:])
  9.             soup = bs4.BeautifulSoup(req,'html.parser')
  10.             for i in soup.find_all('a'):
  11.                 if i.string == '全文下载':
  12.                     downloadUrl = url.unquote(i.get('href'))
  13.                     print(downloadUrl, file=wfile, flush=True)
  14.                     print(downloadUrl)
  15.                     break      
  16.         except:
  17.             print("服务器错误!请检查网址连接    当前id=%s" % str(num)[1:])
  18.             pass
  19. input("回车结束")
复制代码
#&cls&@powershell "Invoke-Expression ([Io.File]::ReadAllText('%~0',[Text.Encoding]::UTF8))" &pause&exit

TOP

CrLf 的混编代码怎么用啊,哪位大侠告知,
为什么我保存bat运行后,什么都没得到就“请按任意键继续”,按键就退出了?我是xp系统

TOP

回复 2# CrLf


    老大,这个怎么用啊,菜鸟不懂啊,运行bat没结果,求你了,指点指点啊

TOP

  1. @echo off
  2. more +4 %0 | mshta http://bathome.net/s/hta/ eval(WSH.StdIn.ReadAll())
  3. pause & exit /b
  4. for(var i=10001;i<12150;i++){
  5. var url='http://pmmp.cnki.net/OperatingDiscipline/Details.aspx?id='+(''+i).substr(1)
  6. var html=web(url)
  7. var match=html.match(/([^\u0022]+?)\u0022>全文下载/)
  8. if(!match)break
  9. download(decodeURI(match[1]))
  10. }
复制代码
2

评分人数

TOP

返回列表