AutoIt Memtest 1.7版 原始碼公開 記憶體測試神兵

rictirse

很多朋友應該都用過 MemTest 這軟體來測試記憶體的穩定度，維修電腦或是超頻的好工具
但他有一個 很大的缺點，單一個檔案只能吃2GB的記憶體，所以16G的話需要開超多的個MemTest
這邊噹噹撰寫了一個檔案克服了這個問題，原始檔案在這邊：點我進入




這一支程式主要分為三個部份，因為au不支援原生的多線
所以噹噹把程式分為三個exe檔
GUI介面的「RunMemTest Pro v1.7.au3」
　　負責控制下面兩個exe，執行與開啟memtest
執行Memtest所使用的「RunMemTest.au3」
　　負責啟動Memtest的視窗，以及排序以及統計數量
啟動Memtest所使用的「StartMemTest.au3」
　　負責按下燒機那個按鈕

主程式原始碼
RunMemTest Pro v1.7.au3

1. #include <GUIConstantsEx.au3>
   
2. #include <WinAPI.au3>
   
3. #include <ScreenCapture.au3>
   
4. 
   
5. AutoItSetOption ( "TrayIconHide", 1)
   
6. #include <Timers.au3>
   
7. 
   
8. Opt ("GUIResizeMode", $GUI_DOCKALL)
   
   
9. $FileName = @ScriptDir&"memTestPro.exe"
   
10. $Process = "memTestPro.exe"
    
11. 
    
12. Global $X0 = 115
    
13. Global $Y0 = 15
    
14. Global $H  = 20
    
15. Global $W  = 92
    
16. 
    
17. Global $InputX = 23
    
18. Global $InputY = 43
    
19. Global $InputH  = 20
    
20. 
    
21. Global $BTN_X = 20
    
22. Global $BTN_Y = 70
    
23. Global $InputY = 43
    
24. 
    
25. Global  $GUI_W = 400, $GUI_H = 202
    
26. Global  $GUI_W_ReSize = 615, $GUI_H_ReSize = 202
    
27. 
    
28. Global $DISTANCE = 8
    
29. Global $reg = "HKCUSoftwareDangMenTest"
    
30. Global $handle[1]
    
31. Global $CompensateHandle
    
32. Global $TitleName = "Run MemTest Pro Ver 1.7 CRS OC Team"
    
33. RegWrite ( $reg, "TitleName", "REG_SZ", $TitleName)
    
34. Global $Flag = 0,$flag2 = 0, $Updata = 1
    
35. Global $slp= 0,$slp2 = 0
    
36. Global $Solution_Set = 0, $RunMemtest_Set = 0, $StartMemTest_Set = 1, $CloseMemtest_Set = 0
    
37. 
    
38. $GUI = GUICreate ( $TitleName, $GUI_W, $GUI_H)
    
39. 
    
40. GUICtrlCreateLabel ( "(記憶體大小 X 開啟個數) = 總使用量 ; 剩餘記憶體　保留記憶體", $InputX-4, $Y0+2, 367,25)
    
41.   GUICtrlSetColor ( -1, 0x1260FF)
    
42.   GUICtrlSetFont ( -1, 9, 700)
    
43. 
    
44. $Y0 = $Y0 + $H  + $DISTANCE;計算出第二個 Y座標
    
45. $size = GUICtrlCreateInput ( RegRead ( $reg, "MemSize"), $InputX, $InputY, 64,$H)
    
46.   GUICtrlSetColor ( -1, 0xEE7600)
    
47.   GUICtrlSetFont ( -1, 10, 700)
    
48. $cnt = GUICtrlCreateInput ( RegRead ( $reg, "MemCnt"), $InputX+79, $Y0, 51,$H)
    
49.   GUICtrlSetColor ( -1, 0xEE7600)
    
50.   GUICtrlSetFont ( -1, 10, 700)
    
51. If RegRead ( $reg, "retain") = "" Or RegRead ( $reg, "retain") = 0 Then
    
    
52.   $retainVer = 0
    
53. Else
    
54.   $retainVer = RegRead ( $reg, "retain")
    
55. EndIf
    
56. $retain = GUICtrlCreateInput ( $retainVer, $InputX+289,$Y0, 65,$H)
    
57.   GUICtrlSetColor ( -1, 0xEE7600)
    
58.   GUICtrlSetFont ( -1, 10, 700)
    
59. 
    
60. $total = GUICtrlCreateLabel ( "", $InputX+148, $Y0+1, 118,$H)
    
61.   GUICtrlSetFont ( -1, 10, 700)
    
62.   GUICtrlSetColor ( -1, 0xEE7600)
    
63. If GUICtrlRead ($cnt) = "" Or GUICtrlRead ($size) = "" Then
    
64.   _Solution()
    
65. Else
    
66.   $mem = MemGetStats()
    
67.   $TotalVer = ((GUICtrlRead ($size)*GUICtrlRead ($cnt)))
    
68.   $FreeVer =(($mem[2]/2^10)-$TotalVer)
    
69.   GUICtrlSetData ( $total, StringFormat ( "%dMB ; %dMB", $TotalVer, $FreeVer))
    
70. EndIf
    
71. 
    
72. $Auto = GUICtrlCreateButton ( "自動計算", $BTN_X, $BTN_Y,$W,$H+32)
    
73. $run = GUICtrlCreateButton ( "啟動MemTest", $BTN_X+100, $BTN_Y,$W,$H+5)
    
74. $Start = GUICtrlCreateButton ( "開始燒機", $BTN_X+100, $BTN_Y+28,$W,$H+5)
    
75. $close = GUICtrlCreateButton ( "關閉MemTest", $BTN_X+200, $BTN_Y,$W,$H+5)
    
76. $Stop = GUICtrlCreateButton ( "暫停MemTest", $BTN_X+200, $BTN_Y+28,$W,$H+5)
    
77. $Help = GUICtrlCreateButton ( "使用說明", $BTN_X+200, $BTN_Y+28,$W,$H+5)
    
78. 
    
79. $menu = GUICtrlCreateButton ( "→", $BTN_X+320, $BTN_Y+14, 30,$H+5)
    
80. 
    
81. $Win_Pos = GUICtrlCreateButton ( "紀錄位置", 400, 15,$W,$H+5);紀錄位置
    
82. 
    
83. GUICtrlSetState ( $Win_Pos, $GUI_DISABLE)
    
84. GUICtrlSetState ( $Start, $GUI_DISABLE)
    
85. ;~ GUICtrlSetState ( $Stop, $GUI_DISABLE)
    
86. GUICtrlSetState ( $Stop, $GUI_HIDE)
    
87. 
    
88. $Y0 = $Y0 + $H  + $DISTANCE;計算出第二個 Y座標
    
    
89. 
    
90. $Group_X = 405
    
91. $Group_Y = 40
    
92. 
    
93. GUICtrlCreateGroup ( "排列方法", $Group_X, $Group_Y+5, 85, 110)
    
94.   $Radio1 = GUICtrlCreateRadio ( "一般排列", $Group_X+10, $Group_Y+20,$W-25,$H+5)
    
95.   $Radio2 = GUICtrlCreateRadio ( "緊密排列", $Group_X+10, $Group_Y+40,$W-25,$H+5)
    
96.   $Radio3 = GUICtrlCreateRadio ( "堆疊排列", $Group_X+10, $Group_Y+60,$W-25,$H+5)
    
97.   $Radio4 = GUICtrlCreateRadio ( "自定義", $Group_X+10, $Group_Y+80,$W-25,$H+5)
    
98. 
    
99.   $Radio = RegRead ( $reg, "Radio")
    
100.   If $Radio = 2 Then
     
101.     GUICtrlSetState ( $Radio2, $GUI_CHECKED)
     
102.   ElseIf $Radio = 3 Then
     
103.     GUICtrlSetState ( $Radio3, $GUI_CHECKED)
     
104.   ElseIf $Radio = 4 Then
     
105.     GUICtrlSetState ( $Radio4, $GUI_CHECKED)
     
106.   Else;第一個
     
107.     GUICtrlSetState ( $Radio1, $GUI_CHECKED)
     
108.   EndIf
     
109. 
     
110. GUICtrlCreateGroup ( "補償延遲(秒)", 505, 17, 85, 50)
     
111.   $slptime = GUICtrlCreateInput ( "", 515, 37, 64,$H)
     
112.   GUICtrlSetColor ( -1, 0xEE7600)
     
113.   GUICtrlSetFont ( -1, 10, 700)
     
114.   If RegRead ( $reg, "slptime") = "" Then
     
115.     GUICtrlSetData ( $slptime, 0);預設為0 關閉
     
116.   Else
     
117.     GUICtrlSetData ( $slptime, RegRead ( $reg, "slptime"))
     
118.   EndIf
     
119. 
     
120. ;－－－－－－－－－－－－－自動截圖－－－－－－－－－－－－－
     
121. $prt_check = GUICtrlCreateCheckbox ("啟動截圖", 508, 75, 80, 20)
     
122.   If RegRead ( $reg, "ptr_check") = 1 Then
     
     
123.     GUICtrlSetState ( $prt_check, $GUI_CHECKED)
     
124.   EndIf
     
125. $prt_time = GUICtrlCreateInput ( "", 505, 100, 30, $H)
     
126.   If RegRead ( $reg, "prt_time") = "" Then
     
127.     GUICtrlSetData ( $prt_time, "5");預設為5分鐘
     
128.   Else
     
129.     GUICtrlSetData ( $prt_time, RegRead ( $reg, "prt_time"))
     
130.   EndIf
     
131. GUICtrlCreateLabel ( "分鐘/張", 542, 104, 80, 25)
     
132. $prt_rut = GUICtrlCreateButton ( "存檔路徑", 503, 127, 80, 25)
     
133. 
     
134. GUICtrlSetState ( $prt_time, $GUI_DISABLE)
     
135. GUICtrlSetState ( $prt_rut, $GUI_DISABLE)
     
136. ptr_check_set()
     
137. ;－－－－－－－－－－－－－end 自動截圖－－－－－－－－－－－－－
     
138. 
     
139. If GUICtrlRead ($cnt) = "" Or GUICtrlRead ($size) = "" Then
     
140.   $RamVer = ""
     
141. Else
     
142.   $mem = MemGetStats()
     
143.   $RamVer = StringFormat ( "總記憶體為：%d MB；可用記憶體為：%d MB", _
     
144.             ($mem[1]/(2^10)),($mem[2]/(2^10)))
     
145. EndIf
     
146. $RAMSIZE = GUICtrlCreateLabel ( $RamVer, 20, $BTN_Y+70, 371, 60)
     
147.   GUICtrlSetColor ( -1, 0x1260FF)
     
148.   GUICtrlSetFont ( -1, 10, 700)
     
149. 
     
150. WinMove ($TitleName,"",Default,Default,$GUI_W,$GUI_H)
     
151. ;~ WinMove ($TitleName,"",Default,Default,$GUI_W_ReSize,$GUI_H_ReSize)
     
152. WinSetOnTop ($GUI, "", 1)
     
153. GUISetState()
     
154. 
     
155. While 1
     
156.   _Save( $size, "MemSize")
     
157.   _Save( $cnt, "MemCnt")
     
158.   _Save( $retain, "retain")
     
159.   _Save( $slptime, "slptime")
     
     
160.   _Save( $prt_time, "prt_time")
     
161. 
     
162.   If $Solution_Set = 0 Then
     
163.     HotKeySet ("{F5}","_Solution");自動計算
     
164.   Else
     
165.     HotKeySet ("{F5}","_nothing")
     
166.   EndIf
     
167.   If $RunMemtest_Set = 0 Then
     
168.     HotKeySet ("{F6}","_RunMemtest");開啟Memtest
     
169.   Else
     
170.     HotKeySet ("{F6}","_nothing")
     
171.   EndIf
     
172.   If $StartMemTest_Set = 0 Then
     
173.     HotKeySet ("{F7}","_StartMemTest");燒機開始
     
174.   ElseIf $StartMemTest_Set = 2 Then
     
175.     HotKeySet ("{F7}","_StopMemTest");暫停MemTest
     
176.   Else
     
177.     HotKeySet ("{F7}","_nothing")
     
178.   EndIf
     
179.   HotKeySet ("{F8}","_CloseMemtest");關閉MemTest
     
180. 
     
181.   $msg = GUIGetMsg()
     
182.   If $msg = $Radio1 And BitAND(GUICtrlRead ($Radio1), $GUI_CHECKED) = $GUI_CHECKED Then
     
183.     RegWrite( $reg, "Radio", "REG_SZ", 1)
     
184.   EndIf
     
185.   If $msg = $Radio2 And BitAND(GUICtrlRead ($Radio2), $GUI_CHECKED) = $GUI_CHECKED Then
     
186.     RegWrite( $reg, "Radio", "REG_SZ", 2)
     
187.   EndIf
     
188.   If $msg = $Radio3 And BitAND(GUICtrlRead ($Radio3), $GUI_CHECKED) = $GUI_CHECKED Then
     
189.     RegWrite( $reg, "Radio", "REG_SZ", 3)
     
190.   EndIf
     
191.   If $msg = $Radio4 And BitAND(GUICtrlRead ($Radio4), $GUI_CHECKED) = $GUI_CHECKED Then
     
192.     If RegRead ( $reg,"MemTestPos_array") = "" Or RegRead ( $reg,"MemTestPos_array") = 0 Then
     
     
193.       GUICtrlSetState ( $Radio1, $GUI_CHECKED)
     
194.       RegWrite ( $reg, "Radio", "REG_SZ", 1)
     
195.       WinSetOnTop ( $GUI, "", 0)
     
196.       MsgBox ( 16, $TitleName, "尚未有自定義座標")
     
197.       WinSetOnTop ( $GUI, "", 1)
     
198.     Else
     
199.       RegWrite ( $reg, "Radio", "REG_SZ", 4)
     
200.     EndIf
     
201.   EndIf
     
202.   If $msg = $prt_check Then
     
203.     ptr_check_set()
     
204.   EndIf
     
205. 
     
206.   $mem = MemGetStats()
     
207.   $RamVer = StringFormat ( "總記憶體為：%d MB；可用記憶體為：%d MB", _
     
208.           ($mem[1]/(2^10)),($mem[2]/(2^10)))
     
209.   If GUICtrlRead ($RAMSIZE) <> $RamVer Then
     
210.     GUICtrlSetData ( $RAMSIZE, $RamVer)
     
211.   EndIf
     
212. 
     
213.   If $Flag = 1 Then
     
214.     If $Updata = 1 Then
     
215.       $Updata = 0
     
216.       _GetyMemTestListPid()
     
217.     EndIf
     
218.     Dim $_cnt = GUICtrlRead ($cnt)
     
219. 
     
220.     For $i = 0 To $_cnt
     
221.      If StringLen (ControlGetText ($handle[$i],"","Edit2")) > 17 Then
     
222. ;~        ToolTip("")
     
223.       _prt_sc()
     
224.       _CloseMemtest()
     
225.       ExitLoop
     
226.      EndIf
     
227.     Next
     
228. ;~     $Str = StringFormat (@CRLF&"　截圖：%f秒　"&@CRLF&"　補償：%f秒　"&@CRLF&"　剩餘記憶體：%dMB"&@CRLF&" ",($slp2/1000/3),($slp/1000/3),($mem[2]/(2^10)))
     
     
229. ;~     ToolTip ($Str)
     
230.      If BitAND (GUICtrlRead ($prt_check), $GUI_CHECKED) = $GUI_CHECKED Then
     
231.       $slp2 += 50
     
232.       If $slp2 > (GUICtrlRead($prt_time)*1000*3*60) Then;自動截圖
     
233. ;~         ToolTip("")
     
234.           _prt_sc()
     
235.         $slp2 = 0
     
236.         If GUICtrlRead($slptime) <> 0 Then
     
237.           Sleep (50)
     
238.         Else
     
239.           Sleep (25)
     
240.         EndIf
     
241.       EndIf
     
242.     EndIf
     
243.     If GUICtrlRead ($slptime) <> 0 Then
     
244.       $slp += 50
     
245.       If $slp > (GUICtrlRead ($slptime)*1000*3) Then;壓榨記憶體模式
     
246.         If GUICtrlRead ($retain) < Int ($mem[2]/(2^10)) Then
     
247.           $slp = 0
     
248.           $i = GUICtrlRead ($cnt)
     
249.           If $flag2 = 0 Then
     
250.             $Memory =Int($mem[2]/(2^10))
     
251.             $flag2 = 1
     
252.             $CompensateHandle = WinGetHandle ("[0 errors] MemTest", "保留記憶體使用")
     
253.           Else
     
254.             $Memory = Int($Memory+($mem[2]/(2^10)))
     
255.             ControlClick ( $CompensateHandle, "", "Button2");按暫停
     
     
256.           EndIf
     
257. ;~           winclose ($CompensateHandle)
     
258.           ControlSetText ($CompensateHandle, "", "Edit1", $Memory)
     
259.           ControlClick ( $CompensateHandle, "", "Button1")
     
260.           If BitAND ( GUICtrlRead ($prt_check), $GUI_CHECKED) = $GUI_CHECKED Then
     
261.             Sleep (50)
     
262.           Else
     
263.             Sleep (25)
     
264.           EndIf
     
265.         EndIf
     
266.       EndIf
     
267.     EndIf
     
268.   EndIf
     
269.   Switch $msg
     
270.     Case $GUI_EVENT_CLOSE
     
271.       Exit
     
272.     Case $Auto
     
273.       _Solution()
     
274.     Case $run
     
275.       _RunMemtest()
     
276.     Case $Start
     
277.       _StartMemTest()
     
278.     Case $close
     
279.       _CloseMemtest()
     
280.     Case $Stop
     
281.       _StopMemTest()
     
282.     Case $Help
     
283.       GUISetState (@SW_HIDE)
     
284.       MsgBox ( 0, $TitleName&" 使用教學", _
     
285.               "1. 自動計算公式為 ( 執行緒數量 / 總記憶體 )"&@CRLF& _
     
286.               "　大於2047MB則多開一個，直到小餘2047MB。"&@CRLF&@CRLF& _
     
287.               "2. 快速鍵："&@CRLF& _
     
288.               "　　F5 → 自動計算"&@CRLF& _
     
289.               "　　F6 → 開啟MemTest"&@CRLF& _
     
290.               "　　F7 → 燒機"&@CRLF& _
     
291.               "　　F8 → 關閉全部MemTest "&@CRLF& _
     
292.               "　　請愛用快速鍵，反應速度比較快。"&@CRLF&@CRLF& _
     
293.               "3. 燒機後 (剩餘記憶體) 大於 (保留記憶體) 會啟動 (自動補償)，"&@CRLF& _
     
294.               "　(自動補償) 會把剩餘記憶體全部放在保留記憶體的Mem內，"&@CRLF& _
     
295.               "　設定時間 0 則不啟動，預設補償時間0秒，不啟動。"&@CRLF&@CRLF& _
     
296.               "4. 截圖預設路徑為桌面。"&@CRLF&@CRLF& _
     
297.               "")
     
298.       GUISetState (@SW_SHOW)
     
299.     Case $Menu
     
300.       _Menu()
     
301.     Case $prt_rut
     
302.       _prt_rut()
     
303.     Case $Win_Pos
     
304.       _Win_Pos()
     
305.   EndSwitch
     
306. WEnd
     
307. 
     
308. Func _Solution()
     
309.   $mem = MemGetStats()
     
     
310.   $MemCnt = _LogicalCore()
     
311.   Do
     
312.     $MemSize = Int ($mem[2]/(2^10)/$MemCnt)
     
313.     If $MemSize > 2047 Then
     
314.       $MemCnt += 1
     
315.     EndIf
     
316.   Until ($MemSize <= 2047)
     
317.   GUICtrlSetData ($size,$MemSize)
     
318.   GUICtrlSetData ($cnt,$MemCnt)
     
319. EndFunc
     
320. 
     
321. Func _RunMemtest()
     
322.   _CloseMemtest()
     
323.   GUICtrlSetState ( $size, $GUI_DISABLE)
     
324.   GUICtrlSetState ( $cnt, $GUI_DISABLE)
     
325.   GUICtrlSetState ( $Auto, $GUI_DISABLE)
     
326.   If $retain <> 0 Then;如果開啟記憶體補償
     
327.     GUICtrlSetState ( $slptime, $GUI_DISABLE)
     
328.   EndIf
     
329.   $Solution_Set = 1
     
330.   $RunMemtest_Set = 1
     
331.   $StartMemTest_Set = 1
     
332. 
     
333.   If GUICtrlRead ($cnt)  = "" Or GUICtrlRead ($size) = "" Or GUICtrlRead ($cnt)  = 0 Or GUICtrlRead ($size) = 0 Or Int (GUICtrlRead ($size)/GUICtrlRead ($cnt)) < 0 Then Return
     
334.   If @error = 1 Then Return
     
335.   Dim $_cnt = GUICtrlRead ($cnt)
     
336.   ReDim $handle[$_cnt+1]
     
337.   If BitAND(GUICtrlRead ($Radio4), $GUI_CHECKED) = $GUI_CHECKED Then;如果勾選自定義
     
338.     If $_cnt > RegRead ( $reg, "MemTestPos_array") Then;如果自訂的arr 小於 開啟量則
     
339.       WinSetOnTop ( $GUI, "", 0)
     
340.       $nMsg = MsgBox ( 36, $TitleName, "Memtest 數量大於自定義的座標量，是否繼續執行?"&@CRLF&@CRLF&"超過的座標皆為0,0")
     
341.       WinSetOnTop ( $GUI, "", 1)
     
342.       If $nMsg = 7 Then Return
     
     
343.     EndIf
     
344.   EndIf
     
345. 
     
346.   Run ("RunMemTest.exe");啟動Memtest
     
347. 
     
348.   GUICtrlSetState ( $Win_Pos, $GUI_ENABLE)
     
349.   GUICtrlSetState ( $Start, $GUI_ENABLE)
     
350.   $StartMemTest_Set = 0
     
351. EndFunc
     
352. 
     
353. Func _Save( $Input, $RegName)
     
354.   If GUICtrlRead ($Input) <> RegRead ( $reg, $RegName) Then
     
355.     RegWrite( $reg, $RegName, "REG_SZ", GUICtrlRead($Input))
     
356.     If GUICtrlRead ($size) > 2048 Then
     
357.       GUICtrlSetData ( $size, 2048)
     
358.       WinSetOnTop ($GUI,"",0)
     
359.       MsgBox (16,"ERROR","不得大於2048", 1)
     
360.       WinSetOnTop ($GUI,"",1)
     
361.     EndIf
     
362.     If GUICtrlRead ($Input) <> "" Then
     
363.       $mem = MemGetStats()
     
364.       $TotalVer = ((GUICtrlRead ($size)*GUICtrlRead ($cnt)))
     
365.       $FreeVer =(($mem[2]/2^10)-$TotalVer)
     
366.       $Var = StringFormat ( "%dMB ; %dMB", $TotalVer, $FreeVer)
     
367.       GUICtrlSetData ( $Total, $Var)
     
368.     EndIf
     
369.   EndIf
     
370. EndFunc
     
371. 
     
372. Func _Win_Pos()
     
373.   Dim $_cnt = GUICtrlRead ($cnt)
     
374.   If GUICtrlRead ($slptime) <> 0 Then;確定開啟的數量 如果不開啟補償 少開一個
     
375.     $_cnt += 1
     
376.   EndIf
     
377.   _GetyMemTestListPid()
     
378.   For $i = 0 To ($_cnt-1)
     
379.     $Pos = WinGetPos ($handle[$i])
     
380.     RegWrite ( $reg, "MemTestPos_array", "REG_SZ", $_cnt)
     
     
381.     RegWrite ( $reg, "MemTestPos["&$i&"]_X", "REG_SZ", $Pos[0])
     
382.     RegWrite ( $reg, "MemTestPos["&$i&"]_Y", "REG_SZ", $Pos[1])
     
383.   Next
     
384.   GUISetState (@SW_HIDE)
     
385.   MsgBox  ( 0, $TitleName, "紀錄完成，共"&$_cnt&"組", 1)
     
386.   GUISetState (@SW_SHOW)
     
387. EndFunc
     
388. 
     
389. Func _StartMemTest()
     
390.   $Solution_Set = 1
     
391.   $RunMemtest_Set = 1
     
392.   $StartMemTest_Set = 1
     
393.   If ProcessExists ($Process) = 0 Then Return
     
394.   GUICtrlSetState ( $Auto, $GUI_DISABLE)
     
395.   GUICtrlSetState ( $run, $GUI_DISABLE)
     
396.   GUICtrlSetState ( $Win_Pos, $GUI_DISABLE)
     
397.   GUICtrlSetState ( $Start, $GUI_DISABLE)
     
398.   GUICtrlSetState ( $Stop, $GUI_ENABLE)
     
399.   Run ("StartMemTest.exe")
     
400.   $Flag = 1
     
401.   $StartMemTest_Set = 2
     
402. EndFunc
     
403. 
     
404. Func _StopMemTest()
     
405.   $slp= 0
     
406.   $slp2 = 0
     
407.   If ProcessExists ($Process) = 0 Then Return
     
408.   $StartMemTest_Set = 1
     
409.   $Updata = 1
     
410. ;~   Run ("StopMemTest.exe")
     
411.   $Flag = 0
     
412.   GUICtrlSetState ( $Start, $GUI_ENABLE)
     
413.   $Solution_Set = 1
     
414.   $RunMemtest_Set = 1
     
415.   $StartMemTest_Set = 0
     
416. EndFunc
     
417. 
     
418. Func _CloseMemtest()
     
419.   ToolTip (@CRLF&"　結束MemTest　"&@CRLF&" ")
     
420.   $slp= 0
     
421.   $slp2 = 0
     
422.   GUICtrlSetState ( $Win_Pos, $GUI_DISABLE)
     
     
423.   GUICtrlSetState ( $Start, $GUI_DISABLE)
     
424.   Do
     
425.     ProcessClose ("RunMemTest.exe")
     
426.   Until ProcessExists ("RunMemTest.exe") = 0
     
427.   Do
     
428.     ProcessClose ("StartMemTest.exe")
     
429.   Until ProcessExists ("StartMemTest.exe") = 0
     
430. ;~   Do
     
431. ;~     ProcessClose ("StopMemTest.exe")
     
432. ;~   Until ProcessExists ("StopMemTest.exe") = 0
     
433.   Do
     
434.     ProcessClose ($Process)
     
435.   Until ProcessExists ($Process) = 0
     
436.   If $retain <> 0 Then;如果開啟記憶體補償
     
437.     GUICtrlSetState ( $slptime, $GUI_ENABLE)
     
438.   EndIf
     
439. 
     
440.   $Flag = 0
     
441.   $flag2 = 0
     
442.   $Updata = 0
     
443.   $Solution_Set = 0
     
444.   $RunMemtest_Set = 0
     
445.   $StartMemTest_Set = 1
     
446. 
     
447.   GUICtrlSetState ( $Auto, $GUI_ENABLE)
     
448.   GUICtrlSetState ( $run, $GUI_ENABLE)
     
449.   GUICtrlSetState ( $Stop, $GUI_DISABLE)
     
450.   GUICtrlSetState ( $size, $GUI_ENABLE)
     
451.   GUICtrlSetState ( $cnt, $GUI_ENABLE)
     
452.   ToolTip ("")
     
453. EndFunc
     
454. 
     
455. Func _Menu()
     
456.   If GUICtrlRead ($Menu) = "←" Then
     
457.     GUICtrlSetData ( $Menu, "→")
     
458.     WinMove ($TitleName,"",Default,Default,$GUI_W,$GUI_H)
     
459.   Else
     
460.     GUICtrlSetData ( $Menu, "←")
     
461.     WinMove ($TitleName,"",Default,Default,$GUI_W_ReSize,$GUI_H_ReSize)
     
462.   EndIf
     
463. EndFunc
     
464. 
     
465. Func _prt_rut()
     
466.   WinSetOnTop ($GUI, "", 0)
     
467.   $rut = FileSelectFolder ( "請選擇存檔目錄", @DesktopDir, 3)
     
468.   RegWrite( $reg, "prt_rut", "REG_SZ", $rut)
     
469.   WinSetOnTop ($GUI, "", 1)
     
470. EndFunc
     
471. 
     
472. Func ptr_check_set()
     
473.   If BitAND(GUICtrlRead ($prt_check), $GUI_CHECKED) = $GUI_CHECKED Then
     
474.     GUICtrlSetState ( $prt_time, $GUI_ENABLE)
     
475.     GUICtrlSetState ( $prt_rut, $GUI_ENABLE)
     
476.     RegWrite( $reg, "ptr_check", "REG_SZ", 1)
     
477.   Else
     
478.     GUICtrlSetState ( $prt_time, $GUI_DISABLE)
     
479.     GUICtrlSetState ( $prt_rut, $GUI_DISABLE)
     
480.     RegWrite( $reg, "ptr_check", "REG_SZ", 0)
     
481.   EndIf
     
482. EndFunc
     
483. 
     
484. Func _WinWaitClick ( $Title, $TextName, $controlID)
     
485.   If Not WinActivate ( $Title, $TextName) Then
     
486.     WinActivate ( $Title, $TextName)
     
487.     WinWaitActive ( $Title, $TextName)
     
488.   EndIf
     
489.   ControlClick  ( $Title, $TextName, $controlID)
     
490. EndFunc
     
491. 
     
492. Func _CPU_Utilization()
     
493.   $wbemServices = ObjGet("winmgmts:\.rootcimv2")
     
494.   $wbemObjectSet= $wbemServices.ExecQuery("Select * from Win32_Processor")
     
495.   For $wbemObject In $wbemObjectSet
     
496.     $dd=$wbemObject.LoadPercentage
     
497.   Next
     
498.   Return $dd
     
499. EndFunc
     
500. 
     
501. Func _LogicalCore()
     
502.   $aSysInfo = _WinAPI_GetSystemInfo()
     
503.   $PROCESS_ALL_ACCESS = 0x1F0FFF
     
504.   $hProc = _WinAPI_OpenProcess($PROCESS_ALL_ACCESS, False, @AutoItPID)
     
     
505.   $aRet = _WinAPI_GetProcessAffinityMask($hProc)
     
506.   Return (Log($aRet[2] + 1) / Log(2))
     
507. EndFunc
     
508. 
     
509. Func _WinAPI_GetSystemInfo($iInformation=-1)
     
510.     If $iInformation<>-1 And ($iInformation<1 Or $iInformation>10) Then Return SetError(1,0,-1)
     
511.     Local $aRet,$stSystemInfo=DllStructCreate("ushort;short;dword;ptr;ptr;dword;dword;dword;dword;short;short")
     
512. 
     
513.     $aRet=DllCall("kernel32.dll","none","GetSystemInfo","ptr",DllStructGetPtr($stSystemInfo))
     
514. 
     
515.     If @error Or Not IsArray($aRet) Then Return SetError(2,0,-1)
     
516. 
     
517.     If $iInformation<>-1 Then
     
518.         If $iInformation==1 Then Return DllStructGetData($stSystemInfo,1)
     
519.         Return DllStructGetData($stSystemInfo,$iInformation+1)
     
520.     EndIf
     
521.     Local $aSysInfo[10]
     
522.     $aSysInfo[0]=DllStructGetData($stSystemInfo,1)
     
523.     For $i=1 To 9
     
524.         $aSysInfo[$i]=DllStructGetData($stSystemInfo,$i+2)
     
525.     Next
     
526.     Return $aSysInfo
     
527. EndFunc
     
528. 
     
529. Func _prt_sc()
     
530.   If RegRead ( $reg, "prt_rut") = "" Then
     
531.     $rut = @DesktopDir
     
532.   Else
     
533.     $rut = RegRead ( $reg, "prt_rut")
     
534.   EndIf
     
535.   If Not FileExists ($rut) Then
     
536.     $rut = @DesktopDir
     
537.   EndIf
     
538.   GUISetState(@SW_HIDE)
     
539.   Sleep (1000)
     
540.   _ScreenCapture_Capture($rut&""&@YEAR&"_"&@MON&"_"&@MDAY&"_"&@HOUR&"_"&@MIN&"_"&@SEC&".png")
     
     
541.   GUISetState(@SW_SHOW)
     
542. EndFunc
     
543. 
     
544. 
     
545. Func _GetyMemTestListPid()
     
546.   $var = WinList()
     
547.   Local $_cnt = GUICtrlRead ($cnt)
     
548. 
     
549.   If GUICtrlRead ($slptime) <> 0 Then;確定開啟的數量 如果不開啟補償 少開一個
     
550.     $_cnt += 1
     
551.   EndIf
     
552.   Local $j = 0
     
553. 
     
554.   ReDim $handle[$_cnt]
     
555. 
     
556.   For $i = 1 To $var[0][0]
     
557.     If StringCompare ( $var[$i][0], "[0 errors] MemTest  ", 1) =  0 Or StringCompare ( $var[$i][0], "[0 errors] MemTest", 1) =  0 Then
     
558.       $find = True
     
559.     Else
     
560.       $find = False
     
561.     EndIf
     
562. 
     
563.     If $find = True Then
     
564.       $handle[$j] =$var[$i][1]
     
565.       $j += 1
     
566.       $find = False
     
567.     EndIf
     
568.   Next
     
569. EndFunc
     
570. 
     
571. Func _nothing()
     
572. 
     
573. EndFunc

複製代碼

rictirse

這邊是執行MemTest所使用的原始碼
RunMemTest.au3

1. AutoItSetOption ( "TrayIconHide", 1)
   
2. Global $reg = "HKCU\Software\Dang\MenTest"
   
3. Global $TitleName = RegRead ( $reg, "TitleName")
   
4. 
   
5. $FileName = @ScriptDir&"\memTestPro.exe"
   
6. $Process = "memTestPro.exe"
   
7. 
   
8. Global $MemCnt = RegRead ( $reg, "MemCnt")
   
9. Global $MemSize = RegRead ( $reg, "MemSize")
   
10. Global $slptime = RegRead ( $reg, "slptime")
    
11. If $slptime = 0 Then;確定開啟的數量 如果不開啟補償 少開一個
    
12.   $MemCnt -= 1
    
13. EndIf
    
14. Global $handle[1]
    
15. 
    
16. For $i = 0 To $MemCnt
    
17.   If Run ($FileName) = 0 Then
    
18.     WinSetOnTop ( $TitleName, "", 0)
    
19.     MsgBox ( 16, $TitleName,"找不到 "&$FileName)
    
20.     WinSetOnTop ( $TitleName, "", 1)
    
21.     Exit
    
22.   EndIf
    
23. Next
    
24. 
    
25. _GetyMemTestListPid()
    
26. $Radio = RegRead ( $reg, "Radio")
    
27. 
    
28. For $i = 0 To $MemCnt
    
29.   $pos = WinGetPos ($handle[$i])
    
30.   If  $Radio = 2 Then
    
31.       If $i = 0 Then
    
32.         Dim $X = 0,$Y = 0
    
33.         WinMove ($handle[$i],"", $X, $Y)
    
34.         $X = $X+$pos[2]-110
    
35.       Else
    
36.         WinMove ($handle[$i],"", $X, $Y)
    
37.         $X = $X+$pos[2]-110
    
38.         If @DesktopWidth < $X+$pos[2]+10 Then
    
39.           $X = 0
    
40.           $Y = $Y+$pos[3]-148
    
41.         EndIf
    
42.       EndIf
    
43.   ElseIf $Radio = 3 Then
    
44.       If $i = 0 Then
    
45.         Dim $X = 0,$Y = 0,$Z = 0
    
46.         WinMove ($handle[$i],"", $X, $Y)
    
47.         $X = $X+$pos[2]-110
    
48.         $Y = $Y+$pos[3]-148
    
49.       Else
    
50.         WinMove ($handle[$i],"", $X, $Y)
    
51.         If $Z = 1 Then
    
52.           $X = $X-$pos[2]+110
    
53.           $Y = $Y+$pos[3]-148
    
54.         ElseIf $Z = 2 Then
    
55.           $X = $X+$pos[2]-110
    
56.           $Y = $Y-$pos[3]+148
    
57.         ElseIf $Z = 3 Then
    
58.           $X = $X-$pos[2]+110
    
59.           $Y = $Y-$pos[3]+148
    
60.         Else
    
61.           $X = $X+$pos[2]-110
    
62.           $Y = $Y+$pos[3]-148
    
63.         EndIf
    
64.         If $Y > (@DesktopHeight-$pos[3]) Then
    
65.           If $Z = 0 Then
    
66.             $X = @DesktopWidth-$pos[2]
    
67.             $Y = 0
    
68.             $Z = 1
    
69.           Else
    
70.             $X = 0
    
71.             $Y = @DesktopHeight-$pos[3]-40
    
72.             $Z = 2
    
73.           EndIf
    
74.         ElseIf $Y < 0 Then
    
75.           $X = @DesktopWidth-$pos[2]
    
76.           $Y = @DesktopHeight-$pos[3]-40
    
77.           $Z = 3
    
78.         EndIf
    
79.       EndIf
    
80.   ElseIf $Radio = 4 Then
    
81.       If $i < RegRead ( $reg, "MemTestPos_array") Then
    
82.         $Pos_X = RegRead ( $reg, "MemTestPos["&$i&"]_X")
    
83.         $Pos_Y = RegRead ( $reg, "MemTestPos["&$i&"]_Y")
    
84.         WinMove ($handle[$i],"", $Pos_X, $Pos_Y)
    
85.       Else
    
86.         WinMove ($handle[$i],"", 0, 0)
    
87.       EndIf
    
88.   Else;一般
    
89.       If $i = 0 Then
    
90.         Dim $X = 10,$Y = 10
    
91.         WinMove ($handle[$i],"", $X, $Y)
    
92.         $X = $X+$pos[2]+8
    
93.       Else
    
94.         WinMove ($handle[$i],"", $X, $Y)
    
95.         $X = $X+$pos[2]+8
    
96.         If @DesktopWidth < $X+$pos[2] Then
    
97.           $X = 10
    
98.           $Y = $Y+$pos[3]
    
99.         EndIf
    
100.       EndIf
     
101.   EndIf
     
102. Next
     
103. 
     
104. Func _GetyMemTestListPid()
     
105.   $var = WinList()
     
106.   Local $j = 0
     
107.   Do
     
108.     $cnt = 0
     
109.     $var = WinList()
     
110.     For $i = 1 To $var[0][0]
     
111.     If StringCompare ( $var[$i][0], "[0 errors] MemTest  ", 1) =  0 Then
     
112.         $cnt += 1
     
113.         sleep (50)
     
114.       EndIf
     
115.     Next
     
116. ;~     ToolTip ($cnt)
     
117.   Until $cnt > $MemCnt
     
118. 
     
119.   ReDim $handle[$cnt]
     
120. 
     
121.   For $i = 1 To $var[0][0]
     
122.     If StringCompare ( $var[$i][0], "[0 errors] MemTest  ",1) =  0 Then
     
123.       $find = True
     
124.     Else
     
125.       $find = False
     
126.     EndIf
     
127. 
     
128.     If $find = True Then
     
129.       $handle[$j] =$var[$i][1]
     
130.       $j += 1
     
131.     EndIf
     
132.   Next
     
133. 
     
134.   For $i = 0 To $j-1
     
135.     If $slptime <> 0 And  $i = ($j - 1)Then;確定開啟的數量 如果不開啟補償 少開一個
     
136.       WinSetTitle ( $handle[$i], "", "[0 errors] MemTest")
     
137.       ControlSetText  ( $handle[$i], "", "Button5", "保留記憶體使用")
     
138.     Else
     
139.       ControlSetText  ( $handle[$i], "", "Button5", $i)
     
140.     EndIf
     
141.     ControlMove ( $handle[$i], "", "Button5", 9999, 9999)
     
142.     ControlSetText  ( $handle[$i], "", "Edit1", $MemSize)
     
143.   Next
     
144. EndFunc

複製代碼

rictirse

這邊是執行MemTest 所用的原始碼
StartMemTest.au3

1. #include <Array.au3>
   
2. AutoItSetOption ( "TrayIconHide", 1)
   
3. 
   
4. Global $reg = "HKCU\Software\Dang\MenTest"
   
5. Global $MemCnt =RegRead ( $reg, "MemCnt")
   
6. Global $slptime = RegRead ( $reg, "slptime")
   
7. Global $handle[1], $BTNText[1]
   
8. 
   
9. _GetyMemTestListPid()
   
10. 
    
11. Func _GetyMemTestListPid()
    
12.   $var = WinList()
    
13.   Local $j = 0
    
14.   Local $Pos
    
15. 
    
16.   Do
    
17.     $cnt = 0
    
18.     $var = WinList()
    
19.     For $i = 1 To $var[0][0]
    
20.     If StringCompare ( $var[$i][0], "[0 errors] MemTest  ",1) =  0 Then
    
21.         $cnt += 1
    
22.         sleep (50)
    
23.       EndIf
    
24.     Next
    
25. ;~     ToolTip ($cnt)
    
26.   Until $cnt >= $MemCnt
    
27.   ReDim $handle[$cnt]
    
28.   ReDim $BTNText[$cnt]
    
29. 
    
30.   For $i = 1 To $var[0][0]
    
31.     If StringCompare ( $var[$i][0], "[0 errors] MemTest  ",1) =  0 Then
    
32.       $find = True
    
33.     Else
    
34.       $find = False
    
35.     EndIf
    
36. 
    
37.     If $find = True Then
    
38.       $handle[$j] =$var[$i][1];hwnd
    
39.       $BTNText[$j]=ControlGetText ( $handle[$j], "", "Button5");get num
    
40.       $j += 1
    
41.     EndIf
    
42.   Next
    
43. ;~   MsgBox (0,"", "")
    
44.   For $i=0 to UBound($BTNText)-2
    
45.     $Pos = FindMinIndex ($BTNText, $i)
    
46.     Swap($BTNText[$i], $BTNText[$pos])
    
47.     Swap($handle[$i], $handle[$pos])
    
48.   Next
    
49. 
    
50. ;~   Display ($BTNText)
    
51. 
    
52.   For $i = 0 To ($j-1)
    
53. ;~     WinKill ($handle[$i])
    
54.     ControlClick ( $handle[$i], "", "Button1")
    
55.   Next
    
56. 
    
57. ;~   If $slptime = 0 Then;確定開啟的數量 如果不開啟補償 少開一個
    
58. ;~     For $i = 0 To ($j-1)
    
59. ;~       ControlClick ( $handle[$i], "", "Button1")
    
60. ;~     Next
    
61. ;~   Else
    
62. ;~     For $i = 0 To ($j-1)
    
63. ;~       If $i <> ($j-1)Then
    
64. ;~         ControlClick ( $handle[$i], "", "Button1")
    
65. ;~       EndIf
    
66. ;~     Next
    
67. ;~   EndIf
    
68. 
    
69. EndFunc
    
70. 
    
71. Func Swap( ByRef $a, ByRef $b)
    
72.   Local $Tmp = $a
    
73.   $a = $b
    
74.   $b = $Tmp
    
75. EndFunc
    
76. 
    
77. Func FindMaxIndex(const $arr, const $Start_Pos)
    
78.   Local $Pos = $Start_Pos
    
79.   For $i=$Pos+1 to UBound($arr)-1
    
80.     If($arr[$i] > $arr[$Pos]) Then
    
81.       $Pos=$i
    
82.     EndIf
    
83.   Next
    
84.   return $Pos
    
85. EndFunc
    
86. 
    
87. Func FindMinIndex(const $arr, const $Start_Pos)
    
88.   Local $Pos = $Start_Pos
    
89.   For $i=$Pos+1 to UBound($arr)-1
    
90.     If($arr[$i] < $arr[$Pos]) Then
    
91.       $Pos=$i
    
92.     EndIf
    
93.   Next
    
94.   return $Pos
    
95. EndFunc
    
96. 
    
97. Func Display(const $data)
    
98.   Local $Msg=""
    
99.   For $i=0 to UBound($data)-1
    
100.     $Msg = $Msg & StringFormat("data[%d] = %d\n", $i, $data[$i])
     
101.   Next
     
102.   MsgBox(0, "Display data[10]", $Msg)
     
103. EndFunc
     

複製代碼

img099

最近電腦一直藍屏,馬上來用用看是不是記憶體故障