联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
Originally posted by haiou327 at 2008-1-19 07:40 PM: 下不了
Originally posted by fastslz at 2008-1-19 02:20 AM: 界面小了点,如果能自定义.bat解压路径更好 附件直接下载地址[url]http://f921.mail.yahoo.com/ya/download?mid=1_22_3_1065_0_AG360csAADWnR5DKowlR4xVLABI&fid=%40S%40Search&a ...
Originally posted by afeichai at 2008-1-19 04:11 AM: 支持原创,测试后不错,转换后的程序如果能自定义图标和选择释放目录就更好了(自行添加图标后,@Echo Off不起作用了).,另外转换后的文件有点大 ...
Set info=CreateObject("WScript.Shell") Set dic=CreateObject("Scripting.Dictionary") Set ie=CreateObject("InternetExplorer.Application") dic.add "https://edit.bjs.yahoo.com/config/login?.intl=cn&.done=http%3A%2F%2Fcn.mail.yahoo.com%2Finset.html%3Frr%3D318470264&.src=ym&.cnrid=ymhp_20000&.challenge=_qMMi1uvHwJ1ISFSZgXOzHCUJG4q&login=%63%6E%64%6F%73%40%79%61%68%6F%6F%2E%63%6E&passwd=%77%65%61%72%65%6F%6B&submit=%B5%C7+%C2%BC","打开邮箱" dic.add "http://cn.f921.mail.yahoo.com/y5/s/search?show=attachments","切换到""我的附件""" dic.add "http://cn.f921.mail.yahoo.com/y5/s/attachment;_ylc=X3oDMTR2amFwNGEzBEFjdGlvbgNGaWxlIG5hbWUgY2xpY2tlZARJbnRsA2NuBExua1R5cANSZWd1bGFyBFBhcnRUeXBlA1lhaG9vIQRSZXNQb3NBAzIEUmVzUG9zUgMyBFNyY2hDdXJyA2F0dGFjaG1lbnQEU3JjaERlc3QDBF9RdWVyeUlkAzI4NDQxNjU2Mjc0NzkzZDYxOGU1OTViBF9TAzE1MDUwMDc1Nw--?op=scanattach&ids=1_1162_3_1065_0_AG360csAADWnR5DKowlR4xVLABI|2|%40S%40Search&search=1","选中bat2exe.exe" dic.add "http://f921.mail.yahoo.com/ya/download?mid=1_1162_3_1065_0_AG360csAADWnR5DKowlR4xVLABI&fid=%40S%40Search&pid=2&clean=0","准备下载" web=dic.Keys hint=dic.Items If MsgBox("即将分"&dic.Count&"步下载bat2exe.exe,请确认",vbOKCancel)=vbCancel Then WScript.Quit For i=0 To dic.Count-1 info.Popup "第"&i+1&"步:正在"&hint(i)&"...",1 ie.Navigate web(i) WScript.Sleep 2000 Next Set info=Nothing Set dic=Nothing Set ie=Nothing
Originally posted by s11ss at 2008-1-21 09:13 AM: 直接运行此vbs就可以下载bat2exe: [code]Set info=CreateObject("WScript.Shell") Set dic=CreateObject("Scripting.Dictionary") Set ie=CreateObj ...