原本通过VBSCRIPT调用一个COM组件来获取机器硬件ID码(也就是CPU,内存,硬盘,网络适配器等信息的组合)通过VMPROTECT的API,大概是这样:
1 2 3 4 | Dim Obj Set Obj = CreateObject("HelloACM.Application") Msgbox Obj.GetHardwareID |
Dim Obj Set Obj = CreateObject("HelloACM.Application") Msgbox Obj.GetHardwareID
通过 VBSCRIPT 的 MSGBOX函数能把ID显示出来:
但是用户就很难把这个ID拷出来发给我.于是我就在想, 是不是得把这字符串写成文件然后通过调用NOTEPAD记事本打开?或者发邮件,或者复制到粘贴板,或者创建一个IE窗口显示在文本框里,总之,得写一些代码.
后来, 同事说,为什么不用VBSCRIPT里的INPUTBOX,提示用户输入字符串,并把需要的字符串设置成默认的输入.用户就可以复制(CTRL+C)了.简单,好用.
1 2 3 4 | Dim Obj Set Obj = CreateObject("HelloACM.Application") InputBox "HardwareID", "HardWareID", Obj.GetHardwareID |
Dim Obj Set Obj = CreateObject("HelloACM.Application") InputBox "HardwareID", "HardWareID", Obj.GetHardwareID
INPUTBOX是VBSCRIPT内置支持的函数,显示一个文本框,返回用户输入的字符串.第一个参数是提示信息,第二个是标题,第三个是默认值.
把简单的事情想复杂.同事的一句话省了我不少工作(一天的量).讨论真的很重要,千万不要闭门造车.
英文:https://helloacm.com/useful-inputbox-for-copying-hardwareid-out-in-vbscript/
强烈推荐
- 英国代购-畅购英伦
- TopCashBack 返现 (英国购物必备, 积少成多, 我2年来一共得了3000多英镑)
- Quidco 返现 (也是很不错的英国返现网站, 返现率高)
- 注册就送10美元, 免费使用2个月的 DigitalOcean 云主机(性价比超高, 每月只需5美元)
- 注册就送10美元, 免费使用4个月的 Vultr 云主机(性价比超高, 每月只需2.5美元)
- 注册就送10美元, 免费使用2个月的 阿里 云主机(性价比超高, 每月只需4.5美元)
- 注册就送20美元, 免费使用4个月的 Linode 云主机(性价比超高, 每月只需5美元) (折扣码: PodCastInit2022)
- PlusNet 英国光纤(超快, 超划算! 用户名 doctorlai)
- 刷了美国运通信用卡一年得到的积分 换了 485英镑
- 注册就送50英镑 – 英国最便宜最划算的电气提供商
- 能把比特币莱特币变现的银行卡! 不需要手续费就可以把虚拟货币法币兑换
微信公众号: 小赖子的英国生活和资讯 JustYYUK