序列号

Question

有的程序安装时需要序列号，如何用自己的程序把文件中的序列号直接输入到要输入的地方呢？省得一段一段的复制！就像安装Windows或者Office时要输入一大堆的序列号，烦死了！

Answer 1

WINDOWS和OFFICE都有免输入序列号的版本，你找找吧。

Answer 2

Option ExplicitPrivate Sub Command1_Click()
Dim sn As String, a() As String, i As Longsn = "12345-abcde-67890-00000"
a = Split(sn, "-") '自己写延时代码
For i = 0 To UBound(a)
SendKeys a(i)
Next
End Sub