微星Win10 家庭版预装的产品密钥怎么看到,这产品密钥怎么看着那么少?who is winning 为什么要加ing呢who is win哪不对啊
本文目录
微星Win10 家庭版预装的产品密钥怎么看到,这产品密钥怎么看着那么少
Set WshShell = CreateObject("WScript.Shell")
regKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
DigitalProductId = WshShell.RegRead(regKey & "DigitalProductId")
WinProductName = "Windows 产品名称: " & WshShell.RegRead(regKey & "ProductName") & vbNewLine
WinProductID = "Windows 产品 ID: " & WshShell.RegRead(regKey & "ProductID") & vbNewLine
WinProductKey = ConvertToKey(DigitalProductId)
strProductKey = "Windows 产品密钥: " & WinProductKey
WinProductID = WinProductName & WinProductID & strProductKey
’MsgBox(WinProductKey)
MsgBox(WinProductID)
Function ConvertToKey(regKey)
Const KeyOffset = 52
isWin = (regKey(66) \ 6) And 1
regKey(66) = (regKey(66) And &HF7) Or ((isWin And 2) * 4)
j = 24
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
y = 14
Do
Cur = Cur * 256
Cur = regKey(y + KeyOffset) + Cur
regKey(y + KeyOffset) = (Cur \ 24)
Cur = Cur Mod 24
y = y -1
Loop While y 》= 0
j = j -1
winKeyOutput = Mid(Chars, Cur + 1, 1) & winKeyOutput
Last = Cur
Loop While j 》= 0
If (isWin = 1) Then
keypart1 = Mid(winKeyOutput, 2, Last)
insert = "N"
winKeyOutput = Replace(winKeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
If Last = 0 Then winKeyOutput = insert & winKeyOutput
End If
a = Mid(winKeyOutput, 1, 5)
b = Mid(winKeyOutput, 6, 5)
c = Mid(winKeyOutput, 11, 5)
d = Mid(winKeyOutput, 16, 5)
e = Mid(winKeyOutput, 21, 5)
ConvertToKey = a & "-" & b & "-" & c & "-" & d & "-" & e
End Function
把上面的内容写进一个空的文本文件里面,然后另存为后缀名为vbs的文件,之后双击运行这个vbs文件,即可获取的当前系统中的密钥。
如下图运行后的效果:
who is winning 为什么要加ing呢who is win哪不对啊
is 是be 动词,win 是动词。be动词后面的动词不能用原形。像这种现在进行时动词改成ing形式。后面你们学习被动语态又是另外的形式了。防止你搞混我现在不说另外种形式。先记住这种吧
这里加ing表示一种将来式,与who is going to win一个意思。即此句应翻译为谁要赢了?而lz之后提到的who is win从语法上说是有错误的,is是be动词,win也是动词,一句里出现两个谓语显然是不正确的。
youiswin是什么意思
you is win你赢了正确表达 you are winwin 英 vt. (在…中) 获胜,赢; 战胜(对手); vt. (通过努力等) 赢得; 说服; 达到(目的、要求等); 获得…; n. (体育比赛中) 胜利,赢; 赢得物; 收益; 镜像; 视频; 成; He does not have any realistic chance of winning the election.他没有一点儿赢得选举的现实机会。 第三人称单数:wins 现在分词:winning 过去式:won 过去分词:won
本文相关文章:
![2007 microsoft office 密钥(你好,能给我一个microsoft office2007中文简化版的密钥吗)](/static/images/nopic/22.jpg)
2007 microsoft office 密钥(你好,能给我一个microsoft office2007中文简化版的密钥吗)
2024年2月27日 15:10
更多文章:
![华硕t102h(asus t101ha和t102ha的区别)](/static/images/nopic/9.jpg)
华硕t102h(asus t101ha和t102ha的区别)
2024年2月5日 13:15
![魅族pro7充电器(魅族PRO7(M792Q-L)标准版电源及USB接口是什么类型)](/static/images/nopic/25.jpg)
魅族pro7充电器(魅族PRO7(M792Q-L)标准版电源及USB接口是什么类型)
2023年10月29日 07:45
![hd4600能玩英雄联盟吗(hd4600玩dnf cf lol有问题吗)](/static/images/nopic/28.jpg)
hd4600能玩英雄联盟吗(hd4600玩dnf cf lol有问题吗)
2024年5月19日 22:31
![有n卡驱动但是没有n卡控制面板(笔记本装了N卡驱动后没有N卡控制面板也没有英特尔显卡控制面板)](/static/images/nopic/27.jpg)
有n卡驱动但是没有n卡控制面板(笔记本装了N卡驱动后没有N卡控制面板也没有英特尔显卡控制面板)
2023年2月17日 14:15
![华为g700t(在千元机中华为G700T这款手机怎么样再请各位说一下这部手机的优越点,究竟值不值得购买)](/static/images/nopic/4.jpg)
华为g700t(在千元机中华为G700T这款手机怎么样再请各位说一下这部手机的优越点,究竟值不值得购买)
2023年2月20日 01:45
![小米平板最新价格表(小米平板4价格多少钱 小米平板4配置怎么样)](/static/images/nopic/28.jpg)
小米平板最新价格表(小米平板4价格多少钱 小米平板4配置怎么样)
2024年4月8日 20:30
![三星失去中国市场反而更强(三星离开中国销量依然世界第一,对此你有何看法)](/static/images/nopic/30.jpg)
三星失去中国市场反而更强(三星离开中国销量依然世界第一,对此你有何看法)
2024年1月2日 06:15
![电脑如何进入bios设置(电脑如何进入BIOS进行设置 电脑进入BIOS进行设置的方法)](/static/images/nopic/25.jpg)
电脑如何进入bios设置(电脑如何进入BIOS进行设置 电脑进入BIOS进行设置的方法)
2024年5月20日 11:45
![iphone6s充电没反应开不了机(iphone6s开不开机 充电也没反应有什么解决办法)](/static/images/nopic/13.jpg)
iphone6s充电没反应开不了机(iphone6s开不开机 充电也没反应有什么解决办法)
2024年4月10日 11:55