[Help]Auto Inject[Solved]
[Help]Auto Inject[Solved]
no works auto inject
manual inject fine works
I do not know what is wrong
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
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
[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.
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.
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.this work
i love you
/solved