把简单的事情想复杂


原本通过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 把简单的事情想复杂 学习笔记 糊说八道 软件资料

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.GetHardwareID

INPUTBOX是VBSCRIPT内置支持的函数,显示一个文本框,返回用户输入的字符串.第一个参数是提示信息,第二个是标题,第三个是默认值.

vbscript-inputbox-hardwareid 把简单的事情想复杂 学习笔记 糊说八道 软件资料

vbscript-inputbox-hardwareid

把简单的事情想复杂.同事的一句话省了我不少工作(一天的量).讨论真的很重要,千万不要闭门造车.

英文:https://helloacm.com/useful-inputbox-for-copying-hardwareid-out-in-vbscript/

GD Star Rating
loading...
本文一共 277 个汉字, 你数一下对不对.
把简单的事情想复杂. (AMP 移动加速版本)
上一篇: 致我们那些情绪儿 一些书,一点关于抑郁的
下一篇: 怎么知道你的服务器重启了?(邮件自动提醒)

扫描二维码,分享本文到微信朋友圈
2dadae5ca2f217f2c970bd5ff40c733c 把简单的事情想复杂 学习笔记 糊说八道 软件资料

评论