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
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.