发动机灯亮了，经检查是引擎在冷车启动的时候有哑火现象。
网上研究了一下，决定添加Sea Foam试试，说可以非常有效的清除积碳。驾驶时是有改善，但是还是没能解决冷车哑火问题。去Dealer处检测说是进气门积碳，需要打开引擎盖手工清理，报价$1xxx。当然就果断让他去S。出来找了个修理厂说是可能点火线圈和火花塞老化了，要求换。好吧，换！但是…问题依旧！老板没辙，说可以试一试44k，说比Sea Foam好。好吧，试就试吧。结果呢，灯还亮！无言… 网上搜了搜，找了一家比较靠谱的专修德国车的地方，检测以后说可以试一试大众的厂家添加剂G 001 780 M3，说积碳问题大部分车在用了这个以后就可以解决。好吧！加吧～ 但是结果还是一样，灯照常亮！没法，只有打开发动机盖看了。打开的结果:进气门积碳很少，但是燃油喷嘴堵塞严重(图一)。只有更换～ 经这个维修点的经验人士介绍，带T的发动机时间长了基本都有这个问题，BMW的还更严重些。[流汗][流汗][流汗] 折腾啊！
在国内是很难打开Google相关服务的，比如google.com和gmail.com…
其中一个重要原因就是DNS污染太严重。怎么办呢？只能手工指定DNS解析了。
附件是一个hosts文件，你可以用这个文件来替换Windows下的hosts文件来修正DNS污染问题。
这段时间网站服务器都不稳定，不清楚是不是被Compromised了。
查了一下也没有查出来。系统里面也没什么可疑的东西。有时候重启正常，有时候重启了还是不行。
没办法，只有重做系统了。保持最小系统看看到底是什么问题。
强烈怀疑是ISPCONFIG导致，但是又找不到确凿的证据…
不过在重装系统以后终于可以放心的开始更新Blog了。哈哈
现在微软提供Windows10的免费升级了。但是如果需要彻底格式化重装系统的话，没Key怎么办？
哈哈，不多说了。碰到类似情况的话用这么这段代码就可以查看当前Windows的CDKEY了。
Option Explicit
Dim objshell,path,DigitalID, Result
Set objshell = CreateObject("WScript.Shell")
'Set registry key path
Path = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
'Registry key value
DigitalID = objshell.RegRead(Path & "DigitalProductId")
Dim ProductName,ProductID,ProductKey,ProductData
'Get ProductName, ProductID, ProductKey
ProductName = "Product Name: " & objshell.RegRead(Path & "ProductName")
ProductID = "Product ID: " & objshell.RegRead(Path & "ProductID")
ProductKey = "Installed Key: " & ConvertToKey(DigitalID)
ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey
'Show messbox if save to a file
If vbYes = MsgBox(ProductData & vblf & vblf & "Save to a file?", vbYesNo + vbQuestion, "BackUp Windows Key Information") then
Save ProductData
End If
'Convert binary to chars
Function ConvertToKey(Key)
Const KeyOffset = 52
Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert
'Check if OS is Windows 8
isWin8 = (Key(66) \ 6) And 1
Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4)
i = 24
Maps = "BCDFGHJKMPQRTVWXY2346789"
Do
Current= 0
j = 14
Do
Current = Current* 256
Current = Key(j + KeyOffset) + Current
Key(j + KeyOffset) = (Current \ 24)
Current=Current Mod 24
j = j -1
Loop While j >= 0
i = i -1
KeyOutput = Mid(Maps,Current+ 1, 1) & KeyOutput
Last = Current
Loop While i >= 0
keypart1 = Mid(KeyOutput, 2, Last)
insert = "N"
KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
If Last = 0 Then KeyOutput = insert & KeyOutput
ConvertToKey = Mid(KeyOutput, 1, 5) & "-" & Mid(KeyOutput, 6, 5) & "-" & Mid(KeyOutput, 11, 5) & "-" & Mid(KeyOutput, 16, 5) & "-" & Mid(KeyOutput, 21, 5)
End Function
'Save data to a file
Function Save(Data)
Dim fso, fName, txt,objshell,UserName
Set objshell = CreateObject("wscript.shell")
'Get current user name
UserName = objshell.ExpandEnvironmentStrings("%UserName%")
'Create a text file on desktop
fName = "C:\Users\" & UserName & "\Desktop\WindowsKeyInfo.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set txt = fso.CreateTextFile(fName)
txt.Writeline Data
txt.Close
End Function
复制下来以后另存为一个vbs文件，比如”BackupWindowsKey.vbs”。然后双击执行就可以看到序列号了。
Refer: http://winaero.com/blog/how-to-view-your-product-key-in-windows-10-windows-8-and-windows-7/