2008年6月19日

效能監視器計數器登錄值的 System Configuration Check 失敗

Sql Server 2005 Express 沒有單獨的 Service Pack,如果要升級需要重新安裝。重新安裝,安裝過程中出現 效能監視器計數器登錄值的 System Configuration Check 失敗 的error messag。按照error message 因為在程式計數器登錄值機碼出問題。網路上尋找資料,記錄自己排除此問題的方法。

用 regedit 在
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Perflib]
機碼下的:

Last Counter=dword:00000ed4 (5276)
Last Help=dword:00000ed5 (5277)

Last Counter 必需與
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Perflib\004\] Counter最後一個值相等。

如何得知[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Perflib\004\] Counter 的值。

以滑鼠右鍵Double Click 右窗格中的 [Counter] ,會彈出一個視窗,用滑鼠拖曳垂直棒到最後底下會有一個數字,將 Last Counter 的值改成與此數字的值。

另外 Last Help 必需與
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Perflib\004\] Help 最後一個值相等。如何得知 [Help] 的值,同上述。

Last Counter Last Help 的值因電腦而異。中文版需要合乎[Perflib\004] 下Counter 與 Help 的值,英文版需要合乎[Perflib\009] 下Counter 與 Help 的值。



參考文章
http://msdn.microsoft.com/en-us/library/ms143215.aspx

2008年6月2日

Virus Packed.Generic.61

今天防毒軟體偵測到一隻木馬,防毒軟體一直警告不停,防毒軟體又無法殺掉,只好上網爬文手動處理。此木馬藏在 c:\windows\help\B41346EFA848.dll。

處理步驟方式 :
  1. 上網 download EFIX
  2. 備份重要資料。
  3. 程式執行前將所有的應用程式與防毒軟體關掉。
  4. 執行 EFIX。
  5. 在安全模式下,執行防毒軟體完整掃瞄。

目前看似正常,還需要觀察。

2008年6月1日

Software PSPad -- Text and Code Editor

PSPad 是一個 freeware 的程式碼編輯器,但它的功能一點也不輸給 UltraEdit,雖然官方網站把它定位在程式設計師使用的工具,但很適合一般人作為文字編輯器使用。也可以作為取代 Windows 筆記本的替代品。

它主要的功能:
  • 支援 Unicode
  • 支援多國語言介面
  • 程式語法亮度顯示
  • 自訂熱鍵
  • 內含FTP Client
  • 檔案比對
  • 支援外部 Compiler
  • 支援 HEX 編輯
  • 支援巨集
  • 支援 HTML 語法驗證與排版
  • 內建顏色選擇器
  • 支援Extension,可擴充軟體功能

官方網站 http://www.pspad.com/en/

2008年5月22日

在Excel 資料複製 by 程式

在Excel中用程式的方法複製資料的語法。

只複製儲存格的 Value
Worksheets("目的").Range("B2").Value=WorkSheets("來源").Range("A2").Value

Worksheets(2).Range("a1").Copy
Worksheets(1).Range("a1").PasteSpecial xlPasteValues

複製選擇的區塊
Worksheets("來源").Range("$B$3:$E$3").Copy _
Destination:=Worksheets("目的").Range("$A$3")

製儲存格的 Value 與格式
Worksheets("來源").Range("B2").Copy WorkSheets("目的").Range("A2")

製儲存格的 Value 與欄寬
Worksheets("來源").Range("A1").Copy
Worksheets("目的").Range("A1").PasteSpecial xlPasteColumnWidths
Worksheets("目的").Range("A1").PasteSpecial xlPasteValues