原本通过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显示出来:
vbscript-msgbox-hardwardid
但是用户就很难把这个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.GetHardwareIDINPUTBOX是VBSCRIPT内置支持的函数,显示一个文本框,返回用户输入的字符串.第一个参数是提示信息,第二个是标题,第三个是默认值.
vbscript-inputbox-hardwareid
把简单的事情想复杂.同事的一句话省了我不少工作(一天的量).讨论真的很重要,千万不要闭门造车.
英文:https://helloacm.com/useful-inputbox-for-copying-hardwareid-out-in-vbscript/
GD Star Rating
loading...
本文一共 277 个汉字, 你数一下对不对.loading...
上一篇: 致我们那些情绪儿 一些书,一点关于抑郁的
下一篇: 怎么知道你的服务器重启了?(邮件自动提醒)
扫描二维码，分享本文到微信朋友圈
