海期2021年7月績效3勝5敗

 這個月的當沖賺了快90美，不錯哦，是這個策略這三個月來賺最多的一次。

就穩穩的做吧。

Acrobat PDF Reader 另存新檔時 都一片空白

 有同仁反應如果用Acrobat PDF Reader 開啟PDF檔，想要另存新檔時，都會出現一個空白視窗，裡面什麼都沒有，不管什麼PDF檔都一樣。

這個是因為該電腦之前設定過Adobe Creative Cloud，造成Acrobat PDF Reader 另存時會去檢查線上儲存空間。

這時只要去偏好設定裡的一般，把"儲存檔案時顯示線上儲存空間"勾勾取消就沒問題了。

因為一般電腦沒有設定過Adobe Creative Cloud，所以就算這個設定預設是啟用的，也不會造成無法另存的問題。

開啟PDF檔都會出現 "文件正在準備以供閱讀，請稍候"

 使用者反應最近用Acrobat的程式開啟PDF時，都會出現"文件正在準備以供閱讀，請稍候"的視窗，有時後跑很久還沒當掉。

原來是一個設定造成的，在偏好設定裡的朗讀選項中，選擇"僅閱讀目前可見頁面"就可以解決這個問題了。

ASUS 工作站電腦有過電 無法正常開機

有一台閒置一陣子的ASUS工作站，要拿出來整理發給同仁使用，但按下開機都沒反應。

打開機殼看了一下，主機板上面是有一些指示燈，都有亮，表示POWER是正常有過電的，再繼續看了一下主機板上，蠻神奇的，有個power跟reset的鈕，上面都有亮燈，然後就按看看，電腦依然沒正常開機，搞不太那兩顆鈕有什麼用。

後來把另一台工作站的Power交換，兩台都可以開，這就妙了，仔細研究了一下兩顆Power的差異發現，除了一個400瓦，一個500瓦外，另一個差異就是一個是單路，另一個是雙路的Power。

這時我就以為應該是主機有可能不支援其中一種Power吧。

隔天又在整理這幾台電腦時，本來交換後可以用的，卻又不能用了，但也因此讓我發現正常的原因，原來是我插錯線了。

主機板上有一個8pin的孔要接線，但有的Power有提供多組8孔的線可以接，但這8孔的線，其實有分成兩種，卻剛好都可以接上主機板。

從下圖1跟2可以看到，1個是ATX12V，1個是PCI-E，兩個是不同的，其實主機板上那個接孔旁邊有寫那是ATX，但Power上面的線沒寫，然後兩種線又沒做防呆都可以插上上，就這麼陰錯陽差，接錯還是有通電，但無法開機。

把線插對後，就沒問題了。

至於主機板上的power跟reset鈕，其實就跟電腦正面的power跟reset鈕一樣功能。

台指7月績效~小台2勝4敗

 這個月交易機會變多，但開高走低，一開始先賺，後面開始賠。

最後也是小賺1千6左右而已，今年看來連去年一半的績效都達不到了。

QQQ漲漲漲 未實現損益快10%囉

 4/12 開始慢慢買QQQ，一開始其實沒什麼動，後來還有點往下殺，反正就下殺就多買一點，往上漲就少買一點，都是買很少的零股，到現在3個月了，也才買快2股。

雖然很少，但看到它最近一直漲，目前帳面未實現獲利快10%了，也是蠻爽的，就繼續慢慢買吧，希望它能一直穩定向上。

outlook快速開啟多個pst檔

 outlook如果要開啟pst檔，有點麻煩，因為一次只能開啟一個，但偏偏有的user有超多pst檔，所以在換電腦的時後非常麻煩。

網路上有人有分享用powershell去一次把所有pst做掛載，是可行的，但偏偏就是遇到有一台電腦執行時會失敗，所以就想找找有沒有其他方式。

沒想到還真的有，就是用vba去執行，方法如下:

在outlook的畫面中，按下"alt + f11"，然後就會開啟一個vba的編輯畫面，然後將下列的程式碼碼上，記得在第二個的地方，要把路徑改成你的pst檔案的資料夾路徑，然後執行，就成功了。

Sub BatchOpenMultiplePSTFiles()

Call LoopFolders("E:\")

MsgBox "Open Successfully!", vbExclamation + vbOKOnly, "Open Outlook Data File"

End Sub

Sub LoopFolders(strPath As String)

Dim objFileSystem As Object

Dim objFolder As Object

Dim objFile As Object

Dim objPSTFile As Object

Set objFileSystem = CreateObject("Scripting.FileSystemObject")

Set objFolder = objFileSystem.GetFolder(strPath)

For Each objFile In objFolder.Files

strFileExtension = objFileSystem.GetExtensionName(objFile)

If LCase(strFileExtension) = "pst" Then

Set objPSTFile = objFile

Outlook.Application.Session.AddStore (objPSTFile.Path)

End If

Next

If objFolder.SubFolders.Count > 0 Then

For Each objSubFolder In objFolder.SubFolders

If ((objSubFolder.Attributes And 2) = 0) And ((objSubFolder.Attributes And 4) = 0) Then

LoopFolders (objSubFolder.Path)

End If

Next

End If

End Sub

WIN7藍底白字當機 0xc0000185 There was error with disk hardware

有一台acer win7電腦，三不五時會出現藍底白字的當機。

把c:\windows裡的MEMORY.DMP檔打開來看，有看到一些關鍵字:

ERROR_CODE: (NTSTATUS) 0xc0000185 - I/O    m   i @   I/O    ~ C

DISK_HARDWARE_ERROR: There was error with disk hardware

MODULE_NAME: ataport

IMAGE_NAME:  ataport.SYS

上網查了一下，好像跟硬碟的連線有關，解決方法大概就是說更新驅動程式或chkdsk，所以就來做chkdsk。

看來是硬碟快壞了，檢查超久，而且有顯示windows replaced bad clusters的相關訊息，看來要趕快換硬碟了。

outlook2010 會議邀請內容都是亂碼

 一台新的win10上面有outlook2010，每次收到會議邀請時，內容都很像亂碼，但其實仔細看都是原始碼，不管誰寄來的邀請都是如此，所以判斷是本機的問題。

重設顯示檔，換新的pst，都一樣，最後就直接對office進行修復~好了，就這麼簡單解決掉問題。

小台今天沒賺錢的命啊

 今天九點多做了小台一口空單，進場後就開始往下殺，爽啦!!

未實現獲利來到50點後，後來有把停損點移到進場價。

沒想到在下殺到70多點後就開始往上拉了，最後就打到後來的停損點，賠了手續費出場。

可惜了。