HTML Code

            If CheckBox14.Checked = True Then
                text = text.ToLower
            End If
            Dim keyValue As Object
            keyValue = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\NopWorks\ECW", "Name", Nothing)
            If CheckBox8.Checked = True Then
                If RadioButton1.Checked = True Then
                    If text.Contains("Has Joinned " & IRC_CHANNEL) Then
                        colorize(stamp & text, join_part_color)
                    ElseIf text.Contains("Has Left " & IRC_CHANNEL) Then
                        colorize(stamp & text, join_part_color)
                    ElseIf wordquest(" ", text, 0) = keyValue & ":" Then
                        colorize(stamp & text, user_chat_color)
                    ElseIf wordquest(" ", text, 0) = My.Computer.Name & ":" Then
                        colorize(stamp & text, user_chat_color)
                    ElseIf text.Contains("PVT:") Then
                        colorize(stamp & text, user_chat_color)
                    Else
                        colorize(stamp & text, standard_chat_color)
                    End If
                Else
                    If text.Contains("Has Joinned " & IRC_CHANNEL) Then
                        colorize(stamp & text, join_part_color)
                    ElseIf text.Contains("Has Left " & IRC_CHANNEL) Then
                        colorize(stamp & text, join_part_color)
                    ElseIf wordquest(" ", text, 0) = keyValue & ":" Then
                        colorize(stamp & text, user_chat_color)
                    ElseIf wordquest(" ", text, 0) = My.Computer.Name & ":" Then
                        colorize(stamp & text, user_chat_color)
                    ElseIf text.Contains("PVT:") Then
                        colorize(stamp & text, user_chat_color)
                    Else
                        colorize(stamp & text, standard_chat_color)
                    End If
                End If
            Else
                If text.Contains("Has Joinned " & IRC_CHANNEL) Then
                    colorize(text, join_part_color)
                ElseIf text.Contains("Has Left " & IRC_CHANNEL) Then
                    colorize(text, join_part_color)
                ElseIf wordquest(" ", text, 0) = keyValue & ":" Then
                    colorize(text, user_chat_color)
                ElseIf wordquest(" ", text, 0) = My.Computer.Name & ":" Then
                    colorize(stamp & text, user_chat_color)
                ElseIf text.Contains("PVT:") Then
                    colorize(text, user_chat_color)
                Else
                    colorize(text, standard_chat_color)
                End If
            End If
            If CheckBox6.Checked = True Then
                Dim file = "Chatlog_" & Date.Today.Month & "-" & Date.Today.Day & "-" & Date.Today.Year & ".html"
                Dim fileExists As Boolean
                fileExists = My.Computer.FileSystem.FileExists("Logs\" & file)
                If fileExists Then
                    If text.Contains("Has Joinned " & IRC_CHANNEL) Then
                        My.Computer.FileSystem.WriteAllText("Logs\" & file, "<font class=""j"">" & stamp & text & "</font></br>" & vbNewLine, True)
                    ElseIf text.Contains("Has Left " & IRC_CHANNEL) Then
                        My.Computer.FileSystem.WriteAllText("Logs\" & file, "<font class=""j"">" & stamp & text & "</font></br>" & vbNewLine, True)
                    ElseIf wordquest(" ", text, 0) = keyValue & ":" Then
                        My.Computer.FileSystem.WriteAllText("Logs\" & file, "<font class=""u"">" & stamp & text & "</font></br>" & vbNewLine, True)
                    ElseIf wordquest(" ", text, 0) = My.Computer.Name & ":" Then
                        My.Computer.FileSystem.WriteAllText("Logs\" & file, "<font class=""u"">" & stamp & text & "</font></br>" & vbNewLine, True)
                    ElseIf text.Contains("PVT:") Then
                        My.Computer.FileSystem.WriteAllText("Logs\" & file, "<font class=""u"">" & stamp & text & "</font></br>" & vbNewLine, True)
                    Else
                        My.Computer.FileSystem.WriteAllText("Logs\" & file, "<font class=""s"">" & stamp & text & "</font></br>" & vbNewLine, True)
                    End If
                Else
                    My.Computer.FileSystem.WriteAllText("Logs\" & file, "<html>" & vbNewLine, False)
                    My.Computer.FileSystem.WriteAllText("Logs\" & file, "<head>" & vbNewLine, True)
                    My.Computer.FileSystem.WriteAllText("Logs\" & file, "<title>ECW CHAT - " & Date.Today.Month & "/" & Date.Today.Day & "/" & Date.Today.Year & " " & stamp.Replace("[", Nothing).Replace("]", Nothing) & "</title>" & vbNewLine, True)
                    My.Computer.FileSystem.WriteAllText("Logs\" & file, "<style>" & vbNewLine, True)
                    My.Computer.FileSystem.WriteAllText("Logs\" & file, "<!--" & vbNewLine, True)
                    My.Computer.FileSystem.WriteAllText("Logs\" & file, "body {font-family: """ & ComboBox6.Text & """; font-size: " & NumericUpDown2.Value & "pt; color: #CE9C31}" & vbNewLine, True)
                    My.Computer.FileSystem.WriteAllText("Logs\" & file, ".j {color: #32CD32}" & vbNewLine, True)
                    My.Computer.FileSystem.WriteAllText("Logs\" & file, ".s {color: #F4A460}" & vbNewLine, True)
                    My.Computer.FileSystem.WriteAllText("Logs\" & file, ".u {color: #89CFF0}" & vbNewLine, True)
                    My.Computer.FileSystem.WriteAllText("Logs\" & file, ".s2 {color: #F0FFFF}" & vbNewLine, True)
                    My.Computer.FileSystem.WriteAllText("Logs\" & file, "-->" & vbNewLine, True)
                    My.Computer.FileSystem.WriteAllText("Logs\" & file, "</style>" & vbNewLine, True)
                    My.Computer.FileSystem.WriteAllText("Logs\" & file, "</head>" & vbNewLine, True)
                    My.Computer.FileSystem.WriteAllText("Logs\" & file, "<body bgcolor=""#404040"">" & vbNewLine, True)
                    My.Computer.FileSystem.WriteAllText("Logs\" & file, "<p class=""y"">ECW Chat - " & Date.Today.Month & "/" & Date.Today.Day & "/" & Date.Today.Year & " " & stamp.Replace("[", Nothing).Replace("]", Nothing) & "</p>" & vbNewLine, True)
                    If text.Contains("Has Joinned " & IRC_CHANNEL) Then
                        My.Computer.FileSystem.WriteAllText("Logs\" & file, "<font class=""j"">" & stamp & text & "</font></br>" & vbNewLine, True)
                    ElseIf text.Contains("Has Left " & IRC_CHANNEL) Then
                        My.Computer.FileSystem.WriteAllText("Logs\" & file, "<font class=""j"">" & stamp & text & "</font></br>" & vbNewLine, True)
                    ElseIf wordquest(" ", text, 0) = keyValue & ":" Then
                        My.Computer.FileSystem.WriteAllText("Logs\" & file, "<font class=""u"">" & stamp & text & "</font></br>" & vbNewLine, True)
                    ElseIf wordquest(" ", text, 0) = My.Computer.Name & ":" Then
                        My.Computer.FileSystem.WriteAllText("Logs\" & file, "<font class=""u"">" & stamp & text & "</font></br>" & vbNewLine, True)
                    ElseIf text.Contains("PVT:") Then
                        My.Computer.FileSystem.WriteAllText("Logs\" & file, "<font class=""u"">" & stamp & text & "</font></br>" & vbNewLine, True)
                    Else
                        My.Computer.FileSystem.WriteAllText("Logs\" & file, "<font class=""s"">" & stamp & text & "</font></br>" & vbNewLine, True)
                    End If
                End If
            End If
        End If