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

How to fix the error about outdated version of Skype and continue to use older versions

We notified you earlier that Microsoft was planning to prevent old versions of Skype from working. Since yesterday, all versions of Skype below Skype 6.13 for Windows and Skype 6.14 for OS X are blocked and do not allow you to sign in. If you are not happy with the latest bloated version with obtrusive ads, here is a temporary workaround which will allow you to bypass the version check and run Skype 5.

Here are step-by-step instructions, please follow them carefully.
Update: our reader “Raven Killer” has suggested the following solution (and I can confirm that it works):

  1. Backup your old Skype 5.x executable file. In my case, I had Skype.exe v5.2.60.113.
  2. Install the latest version of Skype and sign in using your Skype credentials. Check the automatic sign in/save password option.
  3. Exit Skype 6.x
  4. Replace the Skype.exe file in the Program Files\Skype folder (use Program Files (x86)\Skype folder in case if you have a 64-bit OS).
  5. Run it. The old version of Skype will use the saved credentials from the newer version and will work without issues.

Another solution is as follows:

  1. Find Skype 3.8 on the web and install it. It is a good idea to start your search from here: Old versions of Skype.
  2. Login as usual. Check “Auto sign-in when starting Skype” (i.e. Save password option).
  3. Restart Skype 3.8 again. Now, in your config.xml profile, there will be a “Credentials2” section with your Skype-signed public key.
    You can check it manually.
    Press Win + R shortcut keys together on your keyboard to open the Run dialog. Please see the ultimate list of all Windows keyboard shortcuts with Win keys). Type the following in the Run box:

    %APPDATA%\Skype

    There you will find your config.xml file.

  4. Now, run Skype v5.5. It will login automatically, and will not complain about outdated version. It will also not sign out. If this trick expires in 30 days, repeat these steps.

So, you need to have two binaries on your PC – one for Skype 3.8 to generate the required config section, and another for regular use. This is not handy, but Windows users have no other solution at the moment, unlike Linux users of Skype where Skype is still usable and does not have ads. (viaskypeopensource),

历经了不知多少艰难险阻,经过了不知多少磨难!

终于S550可以拿出来航拍一组了。但是还是没有调试好!看人家的Phantom3飞得多嗨,我的S550还在磨难中!

忍不住拿出去航拍了一组,结果还因为WIFI频段和遥控频段冲突导致失控!悲了个催的啊!

不说了,上几张航拍图自我安慰一下….

snapshot20150621230122 snapshot201506202329192015-06-14 19.22.54_