修改OutlookExpress壓縮計數值
網路方法一：
Dim $i = 1, $v = '\Software\Microsoft\Outlook Express\5.0'
While 1
$var = RegEnumKey("HKEY_CURRENT_USER\Identities", $i)
If $var = '' Then ExitLoop
$a = RegRead("HKCU\Identities\" & $var & $v, "Compact Check Count")
If $a <> '' Then
RegWrite("HKCU\Identities\" & $var & $v, "Compact Check Count", 'REG_DWORD', 0)
ExitLoop
EndIf
$i += 1
WEnd網路方法二：
$a = RegRead('HKCU\Identities', 'Default User ID')
RegWrite('HKCU\Identities\' & $a & '\Software\Microsoft\Outlook Express\5.0', "Compact Check Count", 'REG_DWORD', 0)方法三 (自己的寫法)：
參考來源：
