快捷搜索:  as  test  1111  test aNd 8=8  test++aNd+8=8  as++aNd+8=8  as aNd 8=8

亿鼎博娱乐官网网址_集报网



Function IfIsSerial()

Dim oWsh

Dim strSerial

Dim arrSerial

Dim strChar

Dim亿鼎博娱乐官网网址 idx

Dim亿鼎博娱乐官网网址 isummary

on error resume next

set WshShell = Server.CreateObject("WScript.Shell")

strSerial= WshShell.RegRea亿鼎博娱乐官网网址d("HKLM\SOFTWARE\asong\wjdh\ProductId")

set WshShell = nothing

if亿鼎博娱乐官网网址 len(strSerial)3 then

IfIsSerial = false

exit function

end if

isummary = 0

strSerial = arrSerial(0)

idx = 1

Do While idx3364 Then

IfIsSerial = False

Else

IfIsSerial 亿鼎博娱乐官网网址= True

End If

End Function

免责声明:以上内容源自网络,版权归原作者所有,如有侵犯您的原创版权请告知,我们将尽快删除相关内容。

您可能还会对下面的文章感兴趣: