这段时间网站服务器都不稳定,不清楚是不是被Compromised了。
查了一下也没有查出来。系统里面也没什么可疑的东西。有时候重启正常,有时候重启了还是不行。
没办法,只有重做系统了。保持最小系统看看到底是什么问题。
强烈怀疑是ISPCONFIG导致,但是又找不到确凿的证据…
不过在重装系统以后终于可以放心的开始更新Blog了。哈哈
这段时间网站服务器都不稳定,不清楚是不是被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/
一些时候需要机器启动时能自动登录Windows。但是又不想把用户密码设置为空。
运行 – netplwiz
然后取消“用户必须输入密码登录”的选项,然后输入用户密码。
Duang~ Done!
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):
Another solution is as follows:
%APPDATA%\Skype
There you will find your config.xml file.
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),
现在网上下载软件风险越来越大了,时不时你的浏览器就被劫持了,时不时弹出各种广告窗口。
咋办?试试下面几个软件吧:
如果还是解决不了…. 你就只有重装了 😀