以下是autoit的程式原始碼? 您可以把下面的程式碼複製回去自己長期觀察!
#include <IE.au3>
#include <file.au3>
#include <Array.au3>
;;用日期求出星期幾
#include <date.au3>
;MsgBox(0,””,_DateToDayOfWeekISO(2018,8,24))
$wii1 = 0
$wii2 = 0
$wii3 = 0
$wii4 = 0
$wii5 = 0
Dim $b1
_FileReadToArray(“tw539.csv”, $b1)
FileDelete(‘539日期編碼總計.csv’)
FileDelete(‘539日期編碼頭獎統計.csv’)
Sleep(500)
$file = FileOpen(“539日期編碼頭獎統計.csv”, 1)
FileWriteLine($file,’日期,N1,N2,N3,N4,N5,S1,S2,S3,S4,S5,勝率’)
FileClose($file)
$file = FileOpen(“539日期編碼頭獎統計.csv”, 1)
$i1 = $b1[0]
While $i1 >= 100
$po0 = StringSplit($b1[$i1], “,”) ;答案
$DAYES = StringSplit($po0[1], “/”)
$week = _DateToDayOfWeekISO($DAYES[1],Int($DAYES[2]),Int($DAYES[3]))
$num1 = StringLeft($DAYES[2],1) + StringRight($DAYES[2],1) + StringLeft($DAYES[3],1) + StringRight($DAYES[3],1) ;月+日
$num2 = StringLeft($DAYES[3],1) + StringRight($DAYES[3],1) + $week ;日+星期
$num3 = StringMid($DAYES[1], 1, 1)+StringMid($DAYES[1], 2, 1)+StringMid($DAYES[1], 3, 1) + StringMid($DAYES[1], 4, 1)
$num4 = $num3 + $num1
$num5 = Int($DAYES[2]) + Int($DAYES[3])
$wii = 0
For $i = 3 To 7 Step 1
If $num1 = $po0[$i] Or $num2 = $po0[$i] Or $num3 = $po0[$i] Or $num4 = $po0[$i] Or $num5 = $po0[$i] Then
$wii = $wii + 1
EndIf
Next
If $wii = 1 Then
$wii1 = $wii1 + 1
EndIf
If $wii = 2 Then
$wii2 = $wii2 + 1
EndIf
If $wii = 3 Then
$wii3 = $wii3 + 1
EndIf
If $wii = 4 Then
$wii4 = $wii4 + 1
EndIf
If $wii = 5 Then
$wii5 = $wii5 + 1
EndIf
FileWriteLine($file,$po0[1] & “,” & $po0[3] & “,” & $po0[4] & “,” & $po0[5] & “,” & $po0[6] & “,” & $po0[7] & “,” & $num1 & “,” & $num2 & “,” & $num3 & “,” & $num4 & “,” & $num5 & “,” & $wii )
$i1 = $i1 – 1
WEnd
FileClose($file)
$file = FileOpen(“539日期編碼總計.csv”, 1)
FileWriteLine($file,’2007-2025該方法1~5星次數統計’)
FileWriteLine($file,’出現一星共 ‘ & $wii1 & ” 次”)
FileWriteLine($file,’出現二星共 ‘ & $wii2 & ” 次”)
FileWriteLine($file,’出現三星共 ‘ & $wii3 & ” 次”)
FileWriteLine($file,’出現四星共 ‘ & $wii4 & ” 次”)
FileWriteLine($file,’出現頭獎共 ‘ & $wii5 & ” 次”)
FileClose($file)
