首页 › 环评软件工具 › AERSCREEN汉化

lyzpkxx 发表于 2018-12-25 14:26

AERSCREEN汉化

本帖最后由 lyzpkxx 于 2021-12-28 15:11 编辑

之前我发过一个帖子，因为软件不太稳定后来把帖子删了，最近发现还是很多人有需求，决定再挂出来
1、首先运行开始.exe （杀毒软件可能会报毒，请忽略）。
2、没有激活码的联系我的邮箱lyzpkxx@126.com。
3、预测的时候按照要求输入参数（最好别用鼠标点确定，敲回车默认为确定，这样可以减少软件出错）。
4、运行完成后在AERSCREEN.OUT或max_conc_distance.txt里面查看预测结果。
5、切记软件运行的时候不要对电脑进行其他操作。
6、预测结果和EIAProA2018里面的估算模式对照过，基本是一致的(本来就是同一个东西)。
7、写写报告表的话，基本够用了（除了1级评价）。




补充内容 (2019-1-11 09:58):
最近有点忙，激活码于2019年1月11日做年底内最后一次更新（我的邮箱里）

咱们有缘再见~~

补充内容 (2019-2-15 11:03):
没有激活码的同学可以直接加我微信问我要，回复邮件每次都要输入验证码，太麻烦了，我的微信：ipzpkxx
小程序公布源代码如下：
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run("AERSCREEN.exe")   '<运行同文件夹下的AERSCREEN.exe>
WScript.Sleep 50'<等待50毫秒>
WshShell.SendKeys "{ENTER}"'<输入回车键>
WScript.Sleep 50
WshShell.SendKeys "xm"
WScript.Sleep 80
WshShell.SendKeys "{ENTER}"
WScript.Sleep 80
WshShell.SendKeys "M"
WScript.Sleep 80
WshShell.SendKeys "{ENTER}"
WScript.Sleep 80
WshShell.SendKeys "{ENTER}"
WScript.Sleep 50
WshShell.SendKeys "A"
WScript.Sleep 50
WshShell.SendKeys "{ENTER}"
WScript.Sleep 50
WshShell.SendKeys "{ENTER}"
WScript.Sleep 50
WshShell.SendKeys a'<输入排放速率（g/s），应替换为具体的数值如“0.01”，下文小写b、c...等同理>
WScript.Sleep 50
WshShell.SendKeys "{ENTER}"
WScript.Sleep 50
WshShell.SendKeys b'<面源高度（m）>
WScript.Sleep 50
WshShell.SendKeys "{ENTER}"
WScript.Sleep 50
WshShell.SendKeys c   '<面源长度（m）>
WScript.Sleep 50
WshShell.SendKeys "{ENTER}"
WScript.Sleep 50
WshShell.SendKeys d'<面源宽度（m）>
WScript.Sleep 50
WshShell.SendKeys "{ENTER}"
WScript.Sleep 50
WshShell.SendKeys e'<初始垂直维度（m）>
WScript.Sleep 50
WshShell.SendKeys "{ENTER}"
WScript.Sleep 50
WshShell.SendKeys "R"
WScript.Sleep 50
WshShell.SendKeys "{ENTER}"
WScript.Sleep 50
WshShell.SendKeys "{ENTER}"
WScript.Sleep 50
WshShell.SendKeys "{ENTER}"
WScript.Sleep 50
WshShell.SendKeys "1"
WScript.Sleep 50
WshShell.SendKeys "{ENTER}"
WScript.Sleep 50
WshShell.SendKeys f   '<评价范围>
WScript.Sleep 50
WshShell.SendKeys "{ENTER}"
WScript.Sleep 50
WshShell.SendKeys "n"
WScript.Sleep 50
WshShell.SendKeys "{ENTER}"
WScript.Sleep 50
WshShell.SendKeys "{ENTER}"
WScript.Sleep 50
WshShell.SendKeys "n"
WScript.Sleep 50
WshShell.SendKeys "{ENTER}"
WScript.Sleep 50
WshShell.SendKeys "{ENTER}"
WScript.Sleep 50
WshShell.SendKeys "{ENTER}"
WScript.Sleep 50
WshShell.SendKeys g   '<历史最低温度>
WScript.Sleep 50
WshShell.SendKeys "{ENTER}"
WScript.Sleep 50
WshShell.SendKeys h   '<历史最高温度>
WScript.Sleep 50
WshShell.SendKeys "{ENTER}"
WScript.Sleep 50
WshShell.SendKeys "0.5"
WScript.Sleep 50
WshShell.SendKeys "{ENTER}"
WScript.Sleep 50
WshShell.SendKeys "10"
WScript.Sleep 50
WshShell.SendKeys "{ENTER}"
WScript.Sleep 50
WshShell.SendKeys "2"
WScript.Sleep 50
WshShell.SendKeys "{ENTER}"
WScript.Sleep 50
WshShell.SendKeys "7"
WScript.Sleep 50
WshShell.SendKeys "{ENTER}"
WScript.Sleep 50
WshShell.SendKeys "2"
WScript.Sleep 50
WshShell.SendKeys "{ENTER}"
WScript.Sleep 50
WshShell.SendKeys "N"
WScript.Sleep 50
WshShell.SendKeys "{ENTER}"
WScript.Sleep 50
WshShell.SendKeys "{ENTER}"
WScript.Sleep 50
WshShell.SendKeys "N"
WScript.Sleep 50
WshShell.SendKeys "{ENTER}"
WScript.Sleep 50
WshShell.SendKeys "{ENTER}"
WScript.Sleep 50
WshShell.SendKeys "N"
WScript.Sleep 50
WshShell.SendKeys "{ENTER}"
WScript.Sleep 50
WshShell.SendKeys "{ENTER}"
WScript.Sleep 50
WshShell.SendKeys "{ENTER}"
WScript.Sleep 50
WshShell.SendKeys "{ENTER}"
WScript.Sleep 50
WshShell.SendKeys "{ENTER}"
WScript.Sleep 50
end sub

pinyi1987 发表于 2018-12-25 15:36

谢谢分享，拯救我们这些英语半桶水的人

wxj_7573 发表于 2018-12-25 17:13

好用吗这个？

刘晓颖 发表于 2018-12-25 17:35

不管怎么说，先谢谢了。

sdjsgggs 发表于 2018-12-25 20:00

盼望激活码:handshake

Thegift 发表于 2018-12-26 09:08

先收藏，肯定有用

s106906801 发表于 2018-12-26 09:26

用的是环保部网站下载的EIAPROA2018安装包，里面包含了AERSCREEN程序，需要注册才能做AERSCREEN预测

下坡的驴 发表于 2018-12-26 09:29

坐等激活码，谢谢分享

mansongdou 发表于 2018-12-26 10:00

为什么下载下来后显示有木马呢？

leyanbai 发表于 2018-12-26 10:11

激活码怎么弄呀？联系邮箱了！

hailang319 发表于 2018-12-26 10:17

路过 刷刷金币

琉璃的沙漏 发表于 2018-12-26 10:48

谢谢分享   

zxc1108 发表于 2018-12-26 10:56

谢谢分享，求激活码

rengezijue 发表于 2018-12-26 11:01

谢谢分享。

冰泪人儿 发表于 2018-12-26 11:08

谢谢分享:victory::victory:

查看完整版本: AERSCREEN汉化