#include #include #include #include #include #include #include Local $CoFPath = @WorkingDir & "\Settings.cfg" Local $CoFile = Fileopen($CoFPath, $FO_READ) Local $Config = FileRead($CoFile) FileClose($CoFile) Local $CoFString = StringSplit($CoFile,"|") If $CoFString[1] = "Correct" Then Local $XOffset = $CoFString[2] Local $YOffset = $CoFString[3] Else Local $XOffset = 1920 Local $YOffset = 1080 EndIf Local $Cont = 0 Local $CFPath = @WorkingDir & "\Chat.log" Local $Run = InputBox("Username","Please enter your username","Guest","",500,125,$XOffset-495,$YOffset-160) Local $Cancel = @error If $Cancel <> 1 Then Local $STime = _Date_Time_GetSystemTime() Local $CFile = Fileopen($CFPath, $FO_READ) Local $CLog = FileRead($CFile) FileClose($CFile) Local $CFile = Fileopen($CFPath,$FO_OVERWRITE) FileWrite($CFile, _Date_Time_SystemTimeToDateTimeStr($STime) & "|" & $Run & "|Logon" & @CRLF & $CLog) FileClose($CFile) Run(@WorkingDir & "\ChatReader.exe") WinWaitActive("Chat Log") While $Cont <> 1 Local $CFile = Fileopen($CFPath, $FO_READ) Local $CLog = FileRead($CFile) FileClose($CFile) Local $CLTop = StringSplit($CLog, @CRLF) ;Local $CLAdd = InputBox("Chat", $CLTop[1] & $CLTop[2] & $CLTop[3] & $CLTop[4] & $CLTop[5]) ;Local $CLAdd = InputBox("Chat", $CLog) Local $CLAdd = InputBox("Chat",$Run,"","",500,125,$XOffset-495,$YOffset-160) Local $Cont = @error If $Cont <> 1 Then ;MsgBox(0,"@error", @error) ;MsgBox(0,"$CLAdd",$CLAdd) Local $STime = _Date_Time_GetSystemTime() Local $CFile = Fileopen($CFPath,$FO_OVERWRITE) FileWrite($CFile, _Date_Time_SystemTimeToDateTimeStr($STime) & "|" & $Run & "|" & $CLAdd & @CRLF & $CLog) FileClose($CFile) ;MsgBox(0,"@error",@error) Else Local $STime = _Date_Time_GetSystemTime() Local $CFile = Fileopen($CFPath,$FO_OVERWRITE) FileWrite($CFile, _Date_Time_SystemTimeToDateTimeStr($STime) & "|" & $Run & "|Logoff" & @CRLF & $CLog) FileClose($CFile) EndIf WEnd WinClose("Chat Log") EndIf