[VB 2010] Help

[DercLx]

Hey i have a Problem with my little tool
I want to create a Anti- AFK Tool 4 World of Warcraft
but i have a little Problem with the If sentence.

        If AppActivate("World of Warcraft") Then
            SendKeys.Send("W")
            SendKeys.Send("W")
            SendKeys.Send("W")
            SendKeys.Send("Space")
        Else
            MsgBox("Es wurde kein World of Warcraft gefunden", MsgBoxStyle.Critical)
        End If

~cLx

[Deathbringer123]

What problem do you have ? Would be alot easier to answer if you added what the error log gave you

EDIT: AppActivate isnt used in a If statement in VB 2010 Express it says "Activates an Application already running"
I take it you want the program to check if the program is running then send the keys ?
if so then you need to do this

Add this above the function in which you check if the process is running

Public Function ProcessesRunning(ByVal ProcessName As String) As Integer
'
Try
Return Process.GetProcessesByName(ProcessName).GetUpperBound(0) + 1
Catch
Return 0
End Try

End Function

then use this instead of your code

If ProcessesRunning("Wow") = 1 Then
SendKeys.Send("W")
SendKeys.Send("W")
SendKeys.Send("W")
SendKeys.Send("Space")
Else
MsgBox("Es wurde kein World of Warcraft gefunden", MsgBoxStyle.Critical)
End If

That should work to Check if World of Warcraft is running and if it is then send the keys 'W' 3 times then send 'Space'
but if you want to activate the app then send the keys do this instead

If ProcessesRunning("Wow") = 1 Then
AppActivate("World of Warcraft")
SendKeys.Send("W")
SendKeys.Send("W")
SendKeys.Send("W")
SendKeys.Send("Space")
Else
MsgBox("Es wurde kein World of Warcraft gefunden", MsgBoxStyle.Critical)
End If

Hope this helps !