2009年1月7日 星期三

CleanIECacheData清除IE內部暫存資料

下面文字,複製並貼上於Notepad後,另存成VBS檔案格式
Option Explicit
Dim WshShell, RegIEv1 ,ShellCmd
Set WshShell = WScript.CreateObject("WScript.Shell")
RegIEv1 = "HKLM\Software\Microsoft\Internet Explorer\"
Const TIMEOUT = 5

'Check the version of IE & Clean all cache data
If Left(WshShell.RegRead(RegIEv1 & "Version"),1) >= 7 Then
' WshShell.Run("rundll32.exe InetCpl.cpl,ClearMyTracksByProcess 1")
' WshShell.Run("rundll32.exe InetCpl.cpl,,ClearMyTracksByProcess 2")
' WshShell.Run("rundll32.exe InetCpl.cpl,ClearMyTracksByProcess 8")
' WshShell.Run("rundll32.exe InetCpl.cpl,ClearMyTracksByProcess 16")
' WshShell.Run("rundll32.exe InetCpl.cpl,ClearMyTracksByProcess 32")
WshShell.Run("rundll32.exe InetCpl.cpl,ClearMyTracksByProcess 255")

'launch IE
WshShell.Run """C:\Program Files\Internet Explorer\iEXPLORE.EXE""",1,true
else

WshShell.Run "cmd /K c: & \DelIE6Cache.bat",2,true
WshShell.Run """C:\Program Files\Internet Explorer\iEXPLORE.EXE""",1,true


'Try to delete via manual
'因上面功能僅支援IE7以上,故IE6需手動刪除
'WshShell.Popup ("Only support IE7 or above !"),TIMEOUT, WScript.ScriptName, vbInformation
'@FOR /D %%A IN ("C:\Documents and Settings\*.*") DO DEL /S/Q/F "%%A\Cookies\*.*"
'@FOR /D %%A IN ("C:\Documents and Settings\*.*") DO DEL /S/Q/F "%%A\Local Settings\Temp\*.*"
'@FOR /D %%A IN ("C:\Documents and Settings\*.*") DO DEL /S/Q/F "%%A\Local Settings\History\*.*"
'@FOR /D %%A IN ("C:\Documents and Settings\*.*") DO DEL /S/Q/F "%%A\Local Settings\Temporary Internet Files\*.*"

End If

WScript.quit
set WshShell = nothing

參考資料來源

相關參考資訊

相關工具:
(開放源碼)BleachBit,可清除IE之Cookies,History,Temporary files

Win32 Exception Message軟體執行出現例外錯誤訊息

使用Notepad++檢視檔案(CSS格式)時,跳出例外訊息An Exception occured Notepad++ cannot recover and must be shutdown The exception details are as follows:
code:0xC0000005
Type:Access violation
Exception Address:0x1004CEEC

出問題原因: 以WordPad可正常檢視該檔案,但部份字體顯示為亂碼文字化け(實際為字型編碼關係造成顯示為亂碼),以Firefox檢視其亂碼,實際為雙位元日文或中文碼

解決辦法:
以Firefox可正常顯示原來有問題之CSS檔,並將正常顯示之文字,全部複製(Ctrl+A & Ctrl+C)起來
開啟Notepad,貼在(Ctrl+V)新未命名文件,並下拉編碼(E)改為Unicode格式,覆蓋回原來之無法正常檢視之檔案,即可正常顯示

Quick Launch Desktop快速啟動工具列上之顯示桌面圖示不見了

步驟1:開啟Notepad記事本
步驟2:下面指令,複製並貼在記事本上
[Shell]
Command=2
IconFile=explorer.exe,3
[Taskbar]
Command=ToggleDesktop
步驟3:
另存新檔至
%userprofile%\Application Data\Microsoft\Internet Explorer\Quick Launch

檔名為:顯示桌面.scf (記得將記事本存檔預設為.TXT移除)



Windows7快速鍵資料夾位置:
"C:\Users\administrator\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar"

資料來源:
http://support.microsoft.com/?scid=kb%3Bzh-tw%3B190355

TurnOff Speaker如何將電腦之聲音全部關閉

步驟1:(BEEP音の止め方)
DOS模式執行services.msc ,或點選  控制台之 服務
將 Windows Audio服務,予以關閉

步驟2:
將內建喇叭built-in Speaker關閉 ,將Beep機碼值改為NO ,並重新開機才會生效
HKEY_CURRENT_USER\Control Panel\Sound
Beep = "No" (Enabled = "Yes")

相關查詢:
喇叭沒聲音,

VBS檔無法正常執行

Registry註冊樹之HKCR\.VBS被刪除後,導致無法正常執行VBS腳本程式,出現 VBS沒有對應的Script引擎 (There is no script engine for file extension ".vbs") 訊息

解決做法:
找相同電腦同作業系統,點選 HKEY_CLASS_ROOT之 .VBS ,選擇檔案(F) | 匯出(E) ,將VBS之機碼匯出
將別台電腦所匯出之VBS.REG檔,匯入至會出現錯誤之電腦內
檢查 (預設值) REG_SZ 其資料是否為 VBSFile ,而非 FT00001

再安裝一次微軟Script相關元件

shutdownguard禁止自動重新開機

shutdownguard,雖已檢視電腦是否有異常裝置或系統日誌亦無異常資訊,但有時仍無故重新開機,如不想重新安裝電腦,可嘗試安裝本軟體測試,記得如欲重新開機要由視窗右下方之SysTray圖示來關閉電腦

Word Formula公式計算

年度....項次........訓練名稱........上課時數.....參訓人數......訓練經費...備註
93.........1........工程研討會................6...............200..................0
93.........2........內部訓練宣導............3...............100..........1,000
93.........3........軟體操作訓練............2...............100..................0
合計.....4項.......................................11小時......400人.......1,000元
94........1......工程研討會...................6...............200..........0
94........2......專題講座.......................3...............200..........3,000
94........3......一般文書訓練...............3...............100..........100
94........4......專業技術研討會...........3...............100..........2,000
合計....8項........................................15小時.......600人......5,100元


1.如何依年度重新編號

格式(O) | 項目符號及編號 | 選擇特定之「編號樣式」|「編號」頁面 ,即可將表格依年度來重新編號

2.如何透過內建公式,直接將Word文件數據加總,並依自訂格式(如會計單位千元自動設一個逗點)顯示

例如:加總93年訓練經費

在93年合計的那一列,將游標停在元的左方後, 選擇 表格(A) | 公式(O)

公式(F) 使用預設顯示為 =SUM(ABOVE)

數字格式(N) 下拉為 #,##0


注意事項:
1.假設93及94年度沒有合計列,在計算94年公式會自動加到93年
2.記得在處理完成表格資料後,選擇所有表格並按 F9 ,重新依公式計算,資料才不容易錯

參考資訊:
http://support.microsoft.com/?scid=kb%3Bzh-tw%3B188407

Excel Count Data Record計算資料筆數

Excel Count Data Record計算資料筆數
原本撰寫Excel VBA使用此函數,但處理資料筆數有些會有問題
ActiveSheet.UsedRange.Rows.Count

可改用下列不同函數去計算資料筆數,其中Columns(1),表示計算第1欄之資料筆數
WorksheetFunction.CountA(Columns(1))

相關查詢:
LastCell,
Countif

 詢問GEMINI GOOGLE相關EXCEL VBA使用範例👀

Word顯示會出現多條非必要之橫線

原先以Word2003製作之檔案,以細條實線(即輸入-----後直接按Enter鍵,可自動產生)可正常顯示,但以Word2000開啟該檔案時,發現細條實線無法像Word2003正常顯示位置

解決辦法:
步驟1:點選Word之 格式-> 框線及網底
步驟2:選擇欲清除之橫線,於「框線(B)」頁面,,之左上方「設定:」區塊,選擇「無(N)」