[Help]Auto Inject[Solved]

no works auto inject
manual inject fine works
I do not know what is wrong

Code:

Private Sub Autoinject_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Autoinject.CheckedChanged
        If Autoinject.Checked = True Then

            Try
                Dim processRunning As Boolean = IsProcessOpen(TextBoxProcess.Text)

                If processRunning Then
                    Call inject()
                End If


            Catch ex As Exception

            End Try

        End If

Take a look at the event you're putting the code in.

I would assume the same as Blubb, However , seeing more of the code may help us know what's causing it.

Otherwise we can only assume

try this code it for auto

Code:

 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If auto_manual = 1 Then
            Call Inject()
            Me.ListBox.Text = ("MANUAL Injecting....")
        End If
    End Sub

Originally Posted by Cediquer

try this code it for auto

Code:

 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If auto_manual = 1 Then
            Call Inject()
            Me.ListBox.Text = ("MANUAL Injecting....")
        End If
    End Sub

this not is

[php] Private Sub TextBoxProcess_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxProcess.TextChanged
If Autoinject.Checked AndAlso tmrAutoInject.Enabled = False Then
tmrAutoInject.Start()
End If
End Sub

Private Sub Autoinject_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Autoinject.CheckedChanged
If Autoinject.Checked Then
tmrAutoInject.Enabled = True
tmrAutoInject.Interval = 100
tmrAutoInject.Start()
Else
tmrAutoInject.Stop()
tmrAutoInject.Enabled = False
End If
End Sub

Private Sub tmrAutoInject_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrAutoInject.Tick
Try
TextBoxProcess.Text = TextBoxProcess.Text.Replace(".exe", "")
Dim validProc As Boolean = Process.GetProcessesByName(TextBoxProcess.Text).Ge tUpperBound(0) + 1
If validProc Then
tmrAutoInject.Stop()
Call inject()
tmrAutoInject.Enabled = False
End If
Catch ex As Exception
MsgBox("An unknown error has occured", MsgBoxStyle.Exclamation, "Warning!")
End Try
End Sub[/php]

You need a timer called tmrAutoInject.

Originally Posted by master131

[php] Private Sub TextBoxProcess_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxProcess.TextChanged
If Autoinject.Checked AndAlso tmrAutoInject.Enabled = False Then
tmrAutoInject.Start()
End If
End Sub

Private Sub Autoinject_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Autoinject.CheckedChanged
If Autoinject.Checked Then
tmrAutoInject.Enabled = True
tmrAutoInject.Interval = 100
tmrAutoInject.Start()
Else
tmrAutoInject.Stop()
tmrAutoInject.Enabled = False
End If
End Sub

Private Sub tmrAutoInject_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrAutoInject.Tick
Try
TextBoxProcess.Text = TextBoxProcess.Text.Replace(".exe", "")
Dim validProc As Boolean = Process.GetProcessesByName(TextBoxProcess.Text).Ge tUpperBound(0) + 1
If validProc Then
tmrAutoInject.Stop()
Call inject()
tmrAutoInject.Enabled = False
End If
Catch ex As Exception
MsgBox("An unknown error has occured", MsgBoxStyle.Exclamation, "Warning!")
End Try
End Sub[/php]

You need a timer called tmrAutoInject.

thanks
this work
i love you
/solved

[Help]Auto Inject[Solved]

Tags for this Thread