Automatiser la saisie de clées cd en récuperant le nom du process

Télécharger le projet
Commenter

Description

petit code qui une fois ouvert vérifie tout les processus,
puis qui verifie si un des processus nécéssite une clée cd si oui ( a vous de les configurer avec vos clée cd)
qui tape la clée et pour ma configuration appuis sur entrer.

Source / Exemple : 


Imports System.Diagnostics.Process
Imports System.Text
Public Class Form1

    '' Application
    '' sims3
    Sub sims3ambitions()
        AppActivate("Les Sims™ 3 Ambitions")
        My.Computer.Keyboard.SendKeys("XXXXXXXXXXXXX" & "{ENTER}")
    End Sub
    Sub sims3()
        AppActivate("Les Sims™ 3")
        My.Computer.Keyboard.SendKeys("XXXXXXXXXXXXX" & "{ENTER}")
    End Sub
    Sub sims3vip()
        AppActivate("Les Sims™ 3 Accès VIP")
        My.Computer.Keyboard.SendKeys("XXXXXXXXXXXXX" & "{ENTER}")
    End Sub
    ''CNC 3
    Sub cnc3tw()
        My.Computer.Keyboard.SendKeys("XXXXXXXXXXXXX" & "{ENTER}")
    End Sub
    Sub cnc3kw()
        My.Computer.Keyboard.SendKeys("XXXXXXXXXXXXX" & "{ENTER}")
    End Sub
    ''Crysis
    Sub crysis()
        My.Computer.Keyboard.SendKeys("XXXXXXXXXXXXX" & "{ENTER}")
    End Sub

    '' Création de la liste des processuc
    Sub CreerListeProcess()

        '' définition des variables
        Dim ProcessList As System.Diagnostics.Process()
        Dim Proc As System.Diagnostics.Process

        '' Récuperation des processus
        ProcessList = System.Diagnostics.Process.GetProcesses()

        '' lister les processus dans une richtextbox & ajouter une ligne apres chaque processus
        For Each Proc In ProcessList
            RichTextBox1.AppendText(Proc.ProcessName & vbNewLine)
        Next

    End Sub

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

        Me.NotifyIcon1.Icon = Me.Icon
        With NotifyIcon1
            .BalloonTipIcon = ToolTipIcon.Info
            .BalloonTipTitle = "MegaGenKay Notify"
            .BalloonTipText = "MegaGenKay est bien lancer"

        End With
        Me.NotifyIcon1.ShowBalloonTip(0)
        Timer2.Start()
        '' lancement du timer . vous pouvez changer ici l'interval entre chaque recherchede processus
        Timer1.Interval = 1000 '' pour ma part 1 seconde entre chaque recherche
        Timer1.Start()

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Stop() '' on arrete le timer afin d'eviter les double touches
        RichTextBox1.Text = "" '' on remet la liste a zero afin d'eviter d'avoir 100 fois le process qui apparait
        CreerListeProcess() '' <-- il suffit de lire lol . on appel la création de la liste
        For Each a In RichTextBox1.Lines '' boucle qui lit la richtextbox ligne par ligne
            If a = "The Sims 3 Ambitions_code" Then '' recherche du processus
                sims3ambitions() '' lancement de la chose a faire pour ma part j'est automatiser l'ecriture du serial du jeu les sims 3
            ElseIf a = "The Sims 3_code" Then '' je pense que vous connaissez deja le else if :)
                sims3()
            ElseIf a = "The Sims 3 Late Night_code" Then
                sims3vip()
            ElseIf a = "Command and Conquer 3_code" Then
                cnc3tw()
            ElseIf a = "Command and Conquer 3 Kanes Wrath_code" Then
                cnc3kw()
            ElseIf a = "Crysis_code" Then
                crysis()
            End If
        Next
        Timer1.Start() '' on relance le timer afin d'actualiser la liste des process

    End Sub

    Private Sub AfficherToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AfficherToolStripMenuItem.Click
        Me.Show()
    End Sub

    Private Sub QuitterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitterToolStripMenuItem.Click
        Application.Exit()
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Me.Hide()
        Timer2.Stop()
    End Sub

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

Conclusion :


petit code source bien pratique qui montre comment recuperer un processus externe et travailler dessus
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.