百独托管7500 紫田网络超高转化播放器收cps[推荐]速盾CDN 免实名免备防屏蔽阿里云 爆款特卖9.9元封顶提升alexa、IP流量7Q5团队
【腾讯云】中小企福利专场【腾讯云】多款产品1折起高防 随时退换 好耶数据小飞国外网赚带你月入万元炎黄网络4H4G10M 99每月
香港带宽CN2/美国站群优惠中客数据中心 服务器租用联盟系统移动广告平台 中易企业专场腾讯云服务器2.5折九九数据 工信部正规资质
腾讯云新用户大礼包代金券高价收cpa注册量高价展示【腾讯云】2核2G/9.93起租服务器找45互联 随时退换阿里云 短信服务 验证秒达

[落伍原创] [原创]网易手机壁纸小偷VBS源码(申请落伍) [复制链接]
查看:9641 | 回复:23

0

主题

53

帖子

63

积分

落伍者(一心一意)

Rank: 1

贡献
5
鲜花
0
注册时间
2005-6-7
发表于 2005-11-18 11:35:38 | |阅读模式 来自 中国广东深圳
以前写的VBS,小鸟可以学习学习,大侠也帮忙指正一下

我已经弄到9千多套图片,并切成15种尺寸
240x320||176x220||176x180||144x176||132x160||128x160||128x146||128x128||128x96||120x160||120x144||120x128||120x101||96x113||80x80

希望能顺利通过落伍申请

我只发在落伍,转载的同志请保持完整哈



  1. '网易手机壁纸小偷程序
  2. '该版本将下载最大尺寸图片,按照不同尺寸分目录保存
  3. 'Blue Art Studio - Gavin Kuo
  4. '创建日期 2005-8-10
  5. '最后修改 2005年10月28日 15:25:55

  6. Sub Main

  7. '彩图        http://mms.163.com/new_web/cm_lv2.jsp?type=0
  8. picAllName = "灌篮高手||绝色美女||姿态撩人||手绘美女||制服诱惑||封面女郎||卡通美媚||真人美女秀||港台偶像||韩日红人馆||国内大腕||欧美明星||Q版明星||男欢女爱||两小无猜||爱情祝福||整蛊专家||搞怪BB||动物也疯狂||Q版卡通||手绘卡通||小美小美||家有贱狗||乱马1/2||火影忍者||圣斗士||暴暴牛||思思狗||绿豆蛙||水果部落||猪朋狗友||刀刀的世界||日本漫画系列||香港漫画系列||真情问候||生日祝福||春节||圣诞节||情人节||中秋节||元宵节||万圣节||劳动节||母亲节||端午节||绝色风光||四季花语||海底世界||手绘之美||校园风光||可爱宠物||奇趣动物||极品靓车||极速摩托||绿茵盛事||篮球风云||精彩瞬间||体坛明星||梦幻西游||大话西游||游戏精选||星球大战||偶像剧场||影视海报||广告精选||星座生肖||秀色可餐||时尚精品||水墨彩绘||纸醉金迷||怀旧情怀||地下铁||月亮忘记了||布瓜的世界||你们我们他们||听几米唱歌||我只能为你画一张小卡片||幸运儿||森林唱游||美食天堂||时尚精品||精品家居||另类一族||纸醉金迷||休闲生活||艺术名画||国画精粹||怀旧情怀||主题世界||枪林弹雨||武装天地||绚彩图片"
  9. picAllUrl = "http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=217||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=34||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=201||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=33||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=35||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=36||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=37||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=198||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=39||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=104||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=40||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=43||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=222||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=119||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=120||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=60||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=94||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=93||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=110||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=112||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=152||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=62||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=63||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=111||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=181||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=182||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=202||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=221||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=151||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=240||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=121||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=179||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=65||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=166||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=175||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=59||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=50||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=58||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=52||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=57||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=51||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=54||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=183||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=189||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=195||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=90||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=91||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=89||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=200||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=92||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=87||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=88||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=97||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=108||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=99||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=100||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=102||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=246||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=75||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=76||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=78||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=85||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=149||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=84||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=86||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=146||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=248||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=249||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=251||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=250||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=252||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=107||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=160||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=161||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=170||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=171||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=172||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=173||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=190||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=44||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=45||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=46||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=48||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=136||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=150||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=80||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=81||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=82||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=83||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=95||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=96||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=0&catID=123"


  10. '动画        http://mms.163.com/new_web/cm_lv2.jsp?type=1
  11. 'picAllName = "美女工场||美女表情||刀刀专栏||港台明星||日韩明星||欧美明星||鬼马明星秀||日常祝福||生日祝福||新婚喜庆||财源滚滚||春节||元宵节||情人节||妇女节||愚人节||母亲节||五一节||六一节||万圣节||中秋节||国庆节||圣诞节||七月十四||七夕节||父亲节||元旦||3.15消费权益保护日||搞怪语音贺卡||端午节||七一建党节||浓情蜜意||真情告白||美丽心情||小美系列||恋爱物语||灌篮高手||火影忍者||新世纪福音战士EVA||乱马二分之一||冒泡的天然画板||哆啦A梦||相聚一刻||家有贱狗||水果部落||暴暴牛||猪高乐翻天||韩国漫画精选||手机月历||来电显示||关机画面||文字秀||屏幕保护||星座生肖||开机画面||童话世界||文传漫画系列||功夫秘诀||KAK方块猪||友情万岁||约会娱乐||晚安道别||动感汽车||动感车徽||超炫体育||体坛明星||幽默男女||搞笑泡泡系列||搞怪宝贝||街头搞笑文化||爆笑SHOW||海底世界||恋恋风景||花花世界||时尚美女||古典美女||清纯可人||大话西游||梦幻西游||可爱宠物||宠物情缘||奇趣动物||猫言狗语||动画世界||你们我们他们||地下铁||向左走向右走||布瓜的世界||我只能为你画一张小卡片||我的心中每天开一朵花||月亮忘记了||森林唱游||森林里的秘密||照相本子||几米圣诞||几米新年||黑白异境||履历表||微笑的鱼||幸运儿||遗失了一只猫||123木头人||星球大战||韩日作品||掌上mtv||绿豆蛙LEON||星座物语||3D美女||嘟嘟与乐乐"
  12. 'picAllUrl = "http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=14||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=122||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=83||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=18||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=19||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=118||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=152||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=20||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=21||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=22||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=87||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=23||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=24||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=25||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=26||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=27||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=28||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=29||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=30||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=31||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=32||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=33||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=34||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=78||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=79||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=84||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=117||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=86||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=120||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=137||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=138||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=35||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=36||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=37||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=38||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=115||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=40||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=133||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=141||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=43||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=147||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=74||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=103||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=114||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=151||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=153||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=156||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=157||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=44||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=45||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=46||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=48||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=49||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=47||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=88||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=106||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=111||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=121||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=123||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=50||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=51||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=52||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=54||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=55||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=57||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=75||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=59||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=60||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=61||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=131||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=132||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=67||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=112||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=130||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=127||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=128||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=129||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=139||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=140||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=69||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=107||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=71||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=80||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=72||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=93||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=94||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=95||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=96||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=97||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=98||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=99||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=100||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=101||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=102||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=116||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=119||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=142||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=143||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=144||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=145||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=146||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=148||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=125||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=126||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=134||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=136||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=150||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=154||http://mms.163.com/new_web/cm_lv2_pic.jsp?type=1&catID=155"

  13. picAllNameArr = split(picAllName,"||")
  14. picAllUrlArr = split(picAllUrl,"||")

  15. msgBox("爬行开始!")
  16. Dim Url

  17. for i = 0 to ubound(picAllNameArr)
  18.         getPageCount picAllUrlArr(i),picAllNameArr(i)
  19. next


  20. msgBox("开始下载!")
  21. savePath = "E:\切图\163_pic"        '保存路径<<<<<<<<<<<<<<<<<<<<<<<<<<<
  22. down_head = "http://mmsimg.163.com/new_web/loaditem.jsp/type=0/path="        '彩图<<<<<<<<<<<<<<<<<<<<<<<<<<<
  23. 'down_head = "http://mmsimg.163.com/new_web/loaditem.jsp/type=1/path="        '动画<<<<<<<<<<<<<<<<<<<<<<<<<<<
  24. imageSize = "240x320||176x220||176x180||144x176||132x160||128x160||128x146||128x128||128x96||120x160||120x144||120x128||120x101||96x113||80x80"
  25. imageSiezArr = split(imageSize ,"||")
复制代码

[ 本帖最后由 梦游的猫 于 2005-11-18 11:40 编辑 ]

评分

参与人数 1积分 +20 收起 理由
阻击者 + 20 精品文章

查看全部评分

0

主题

53

帖子

63

积分

落伍者(一心一意)

Rank: 1

贡献
5
鲜花
0
注册时间
2005-6-7
 楼主| 发表于 2005-11-18 11:37:06 | 来自 中国广东深圳

晕,太长发不完整,继续发


  1. '建立数据库连接
  2. Set conn = CreateObject("ADODB.Connection")
  3. DSNtemp = "DRIVER={SQL Server};SERVER=127.0.0.1;UID=sa;PWD=123456;DATABASE=datebase"
  4. conn.open DSNtemp
  5. sql = "select * from pic where fromSite='网易' and localPath is null order by id"
  6. set rs = CreateObject("Adodb.recordset")
  7. rs.open sql,conn,1,3
  8. do while not rs.eof
  9.         url = rs("url")
  10.         if left(url,1) = "/" then url = right(url,len(url)-1)
  11.         urlArr = split(url,"/")
  12.         urlPathNum = ubound(urlArr) - 1        '有几级目录
  13.         localPath = ""

  14.         '第一种文件名命名方法,适用于一套图片放一个目录
  15.         for i = 0 to urlPathNum
  16.                 localPath = localPath & "" & urlArr(i)
  17.         next
  18.         fileName = urlArr(urlPathNum + 1)        '文件名
  19.         'filePath = savePath & localPath        '新路径
  20.         'fileExcArr = split(urlArr(urlPathNum + 1),".")        'fileExcArr(ubound(fileExcArr))=扩展名

  21.         '第二种文件名命名方法,适用于多套图片放同一目录,如a_01 a_02 b_01 b_02
  22.         'for i = 0 to urlPathNum - 1
  23.         '        localPath = localPath & "" & urlArr(i)
  24.         'next
  25.         'fileExcArr = split(urlArr(urlPathNum + 1),".")
  26.         'fileName = urlArr(urlPathNum) & "." & fileExcArr(1)        '新文件名
  27.         'filePath = savePath & localPath        '新路径

  28.         'msgbox("Path: " & filePath & chr(13) & "Name: " & fileName & "")
  29.         'msgbox("url: " & down_head & url_old & chr(13) & "local: " & filePath & "" & fileName & "")

  30.         down = False
  31.         downSizeStatus = ""

  32.         for s = 0 to Ubound(imageSiezArr)
  33.                 downUrl = down_head & "/" & replace(url,"128x128",imageSiezArr(s))
  34.                 fileStream = GetBody(downUrl)

  35.                 if len(fileStream) > 0 then
  36.                         fileNameTemp = split(fileName,".")
  37.                         fileName = imageSiezArr(s) & "." & fileNameTemp(ubound(fileNameTemp))
  38.                         if not down then
  39.                                 localSavePath =  savePath & "" & imageSiezArr(s) & localPath
  40.                                 CreateDIR localSavePath
  41.                                 down = SaveToFile(fileStream , localSavePath & "" & fileName)        '返回True则下载成功
  42.                                 imageMaxSize = imageSiezArr(s)
  43.                         end if
  44.                         downSizeStatus = downSizeStatus & "1,"
  45.                 else
  46.                         downSizeStatus = downSizeStatus & "0,"
  47.                 end if
  48.         next

  49.         if down then
  50.                 imageMaxSizeTemp = split(imageMaxSize , "x")
  51.                 imageWidth = imageMaxSizeTemp (0)
  52.                 imageHeight = imageMaxSizeTemp (1)

  53.                 rs("localPath") = localPath
  54.                 rs("localName") = fileName
  55.                 rs("maxWidth") = imageWidth
  56.                 rs("maxHeight") = imageHeight
  57.                 rs("downSizeStatus") = left(downSizeStatus , len(downSizeStatus)-1)
  58.                 rs("downtime") = now()
  59.                 rs.update
  60.         end if
  61.         rs.movenext
  62. loop
  63. rs.close
  64. set rs = Nothing
  65. msgBox("下载完成!")
  66. End Sub
复制代码

0

主题

53

帖子

63

积分

落伍者(一心一意)

Rank: 1

贡献
5
鲜花
0
注册时间
2005-6-7
 楼主| 发表于 2005-11-18 11:38:48 | 来自 中国广东深圳
发完了,脚本可以下载静态壁纸和动画GIF,在头部的地址那里修改(很长那个变量),然后在后面的 <<<<<<<<<<<<< 标志那里再做相应修改即可

喜欢的顶一下,我想落伍啊
头像被屏蔽

0

主题

281

帖子

226

积分

落伍者(一心一意)

我为流量而来

Rank: 1

贡献
0
鲜花
0
注册时间
2005-11-18
发表于 2005-11-18 11:40:18 | 来自 中国四川成都
希望先给个 演示地址
签名被屏蔽

0

主题

53

帖子

63

积分

落伍者(一心一意)

Rank: 1

贡献
5
鲜花
0
注册时间
2005-6-7
 楼主| 发表于 2005-11-18 11:43:38 | 来自 中国广东深圳
原帖由 专占广告位 于 2005-11-18 11:40 发表
希望先给个 演示地址



VBS,Windows系统都可以运行,保存为文本,扩展名vbs就可以,自己建数据库

id,name,url,type,click,downtime,picType,maxWidth,maxHeight,localPath,localName,fromSite,downSizeStatus
头像被屏蔽

390

主题

4691

帖子

6144

积分

落伍者(三羊开泰)

VIP会员

Rank: 3Rank: 3

贡献
1419
鲜花
18
注册时间
2005-8-29

QQ绑定

发表于 2005-11-18 11:54:18 | 来自 中国广东东莞
怎么搞?我不懂,楼主不干脆发一个好的出来就行了啊
签名被屏蔽

0

主题

53

帖子

63

积分

落伍者(一心一意)

Rank: 1

贡献
5
鲜花
0
注册时间
2005-6-7
 楼主| 发表于 2005-11-18 12:08:32 | 来自 中国广东深圳
原帖由 红鹰 于 2005-11-18 11:54 发表
怎么搞?我不懂,楼主不干脆发一个好的出来就行了啊



打开记事本,复制源码,保存,把扩展名改为vbs(dos命令是 ren text.txt text.vbs),双击运行,收工

vbs还有什么所谓好的,我可以编译成exe给你啊,可是那样有什么用

顺便做下广告:数据库加图片(15种尺寸)大概6G,需要可联系我,刻2张DVD,100元包快递

PS:拜托不要问这种低级问题好不好,不懂就先去了解下什么是VBS
头像被屏蔽

1

主题

1743

帖子

1659

积分

落伍者(两全齐美)

Rank: 2

贡献
6
鲜花
0
注册时间
2005-9-23
发表于 2005-11-18 14:32:46 | 来自 中国北京
...........
签名被屏蔽
头像被屏蔽

0

主题

756

帖子

5322

积分

落伍者(三羊开泰)

Rank: 3Rank: 3

贡献
4564
鲜花
0
注册时间
2004-12-7
发表于 2005-11-18 15:32:49 | 来自 中国广东梅州
有没完整的
签名被屏蔽

123

主题

2万

帖子

1万

积分

落伍者(四季发财)

张耀扬

Rank: 4

贡献
983
鲜花
138
注册时间
2005-5-21
发表于 2005-11-18 16:42:39 | 来自 中国山西忻州
两个字,NB.
论坛客服/商务合作/投诉举报:2171544 (QQ)
落伍者创建于2001/03/14,本站内容均为会员发表,并不代表落伍立场!
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论!
落伍官方微信:2030286 邮箱:(djfsys@gmail.com|tech@im286.com)
© 2001-2014

浙公网安备 33060302000191号

浙ICP备11034705号 BBS专项电子公告通信管[2010]226号

  落伍法律顾问: ITlaw-庄毅雄

手机版|找回帐号|不能发帖?|Archiver|落伍者

GMT+8, 2024-3-29 21:51 , Processed in 0.141375 second(s), 41 queries , Gzip On.

返回顶部