发动机灯亮了,经检查是引擎在冷车启动的时候有哑火现象。

网上研究了一下,决定添加Sea Foam试试,说可以非常有效的清除积碳。驾驶时是有改善,但是还是没能解决冷车哑火问题。去Dealer处检测说是进气门积碳,需要打开引擎盖手工清理,报价$1xxx。当然就果断让他去S。出来找了个修理厂说是可能点火线圈和火花塞老化了,要求换。好吧,换!但是…问题依旧!老板没辙,说可以试一试44k,说比Sea Foam好。好吧,试就试吧。结果呢,灯还亮!无言… 网上搜了搜,找了一家比较靠谱的专修德国车的地方,检测以后说可以试一试大众的厂家添加剂G 001 780 M3,说积碳问题大部分车在用了这个以后就可以解决。好吧!加吧~ 但是结果还是一样,灯照常亮!没法,只有打开发动机盖看了。打开的结果:进气门积碳很少,但是燃油喷嘴堵塞严重(图一)。只有更换~ 经这个维修点的经验人士介绍,带T的发动机时间长了基本都有这个问题,BMW的还更严重些。[流汗][流汗][流汗] 折腾啊!
image

image

image

image

这段时间网站服务器都不稳定,不清楚是不是被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/

下载: backupwindowskey.zip