|
s11ss
银牌会员
    
积分 2098
发帖 566
注册 2007-9-11
状态 离线
|
  『楼 主』:
[原创]bat2exe
使用 LLM 解释/回答一下
是exe文件,在草稿里(点击“别针”)下载:
b a t 2 e x e
界面:
Last edited by s11ss on 2008-1-19 at 08:03 PM ]
It's an exe file, in the draft (click "paperclip") to download:
bat2exe
Interface:
Last edited by s11ss on 2008-1-19 at 08:03 PM ]
|
|
2008-1-19 00:10 |
|
|
fastslz
铂金会员
       DOS一根葱
积分 5493
发帖 2315
注册 2006-5-1 来自 上海
状态 离线
|
『第 2 楼』:
使用 LLM 解释/回答一下
界面小了点,如果能自定义.bat解压路径更好
Last edited by fastslz on 2008-1-19 at 11:33 PM ]
The interface is a bit small. It would be better if the.bat decompression path could be customized.
Last edited by fastslz on 2008-1-19 at 11:33 PM ]
|

第一高手 第二高手
我的小站
 |
|
2008-1-19 02:20 |
|
|
afeichai
初级用户
 
积分 171
发帖 78
注册 2006-11-22
状态 离线
|
『第 3 楼』:
使用 LLM 解释/回答一下
支持原创,测试后不错,转换后的程序如果能自定义图标和选择释放目录就更好了(自行添加图标后,@Echo Off不起作用了).,另外转换后的文件有点大
和ExeScript相比较,程序短小精悍,但转换后的文件,目前还没有优势,期待楼主的更新
Support original creation. After testing, it's good. It would be better if the converted program can customize the icon and select the release directory (after adding the icon by yourself, @Echo Off doesn't work). Also, the converted file is a bit large. Compared with ExeScript, the program is concise, but the converted file currently has no advantage. Looking forward to the owner's update.
|
|
2008-1-19 04:11 |
|
|
haiou327
高级用户
    DOS时空
积分 713
发帖 348
注册 2007-2-10
状态 离线
|
|
2008-1-19 19:40 |
|
|
s11ss
银牌会员
    
积分 2098
发帖 566
注册 2007-9-11
状态 离线
|
|
2008-1-19 20:57 |
|
|
s11ss
银牌会员
    
积分 2098
发帖 566
注册 2007-9-11
状态 离线
|
|
2008-1-19 21:01 |
|
|
lianjiang2004
金牌会员
     
积分 3946
发帖 1884
注册 2006-1-20
状态 离线
|
|
2008-1-19 21:05 |
|
|
s11ss
银牌会员
    
积分 2098
发帖 566
注册 2007-9-11
状态 离线
|
『第 8 楼』:
使用 LLM 解释/回答一下
直接运行此vbs就可以下载bat2exe:
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
Just run this VBS directly to download bat2exe:
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","Open mailbox"
dic.add "http://cn.f921.mail.yahoo.com/y5/s/search?show=attachments","Switch to ""My 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","Select 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","Prepare to download"
web=dic.Keys
hint=dic.Items
If MsgBox("About to download bat2exe.exe in "&dic.Count&" steps, please confirm",vbOKCancel)=vbCancel Then WScript.Quit
For i=0 To dic.Count-1
info.Popup "Step "&i+1&": Currently "&hint(i)&"...",1
ie.Navigate web(i)
WScript.Sleep 2000
Next
Set info=Nothing
Set dic=Nothing
Set ie=Nothing
|
|
2008-1-21 09:13 |
|
|
plr000
社区乞丐
积分 -40
发帖 4
注册 2008-3-1
状态 离线
|
『第 9 楼』:
使用 LLM 解释/回答一下
界面小了点,如果能自定义.bat解压路径更好
The interface is a bit small. It would be better if the.bat decompression path could be customized.
|

[size=7][url=http://5625226.freesurvey.net.cn]我的照片[/url][/size] |
|
2008-3-1 16:17 |
|
|
suntb
高级用户
   
积分 581
发帖 277
注册 2006-12-23
状态 离线
|
『第 10 楼』:
使用 LLM 解释/回答一下
谢谢 已经下载 顺便下了其他几个转换格式的 呵呵
Thanks. I've already downloaded it. By the way, I also downloaded several other format conversion ones. Hehe
|
|
2008-3-1 19:28 |
|
|
wwmy1982
初级用户
 
积分 29
发帖 11
注册 2006-10-22
状态 离线
|
|
2008-3-3 09:14 |
|
|
hlighta
初级用户
 
积分 21
发帖 12
注册 2008-1-20
状态 离线
|
『第 12 楼』:
使用 LLM 解释/回答一下
问个题外话,b a t 2 e x e这个打开邮箱的链接是怎么做出来的,实在是太牛了。(看了一下属性里的内容没看懂。)
Ask an off-topic question, how is the link to open the email made with b a t 2 e x e? It's really amazing. (I looked at the content in the properties and didn't understand it.)
|
|
2008-3-22 23:06 |
|
|
dato
高级用户
   
积分 916
发帖 377
注册 2004-3-8
状态 离线
|
|
2008-3-23 10:12 |
|
|
qdloverr
初级用户
 
积分 97
发帖 33
注册 2007-3-5
状态 离线
|
『第 14 楼』:
使用 LLM 解释/回答一下
又是TEMP里面,能自定意就好了
It's still in TEMP again. It would be nice if it could be customized.
|
|
2008-3-25 15:33 |
|
|
haiou327
高级用户
    DOS时空
积分 713
发帖 348
注册 2007-2-10
状态 离线
|
『第 15 楼』:
使用 LLM 解释/回答一下
Originally posted by s11ss at 2008-1-21 09:13 AM:
直接运行此vbs就可以下载bat2exe:
Set info=CreateObject("WScript.Shell")
Set dic=CreateObject("Scripting.Dictionary")
Set ie=CreateObj ...
还是下不了!!!!!!!!!!!!!!!!1111
Originally posted by s11ss at 2008-1-21 09:13 AM:
You can directly run this VBS to download bat2exe:
Set info=CreateObject("WScript.Shell")
Set dic=CreateObject("Scripting.Dictionary")
Set ie=CreateObj ...
Still can't download!!!!!!!!!!!!!!!!1111
|

欢迎进入我的网盘!!! |
|
2008-5-3 23:29 |
|