Help With Injector!!!!

conndrst · 2010-01-27T18:55:31.000Z

I have the injector built but i want to make it close when done injecting but i do not know how to do that so plz help!!!!:eek:

Originally Posted by conndrst

Well i altered this code with a litle bit of help from google so it is mine and
read my sig it is very accurate and thanks XGelite and NextGen1 for helping me out the other a-holes just need to stfu

Code:

Imports System.Drawing

Imports System.Drawing.Drawing2D

Public Class Form2

    Public eventString As String

    Public pw As Integer

    'Public j As Integer

    'Public p As Integer

    'Public q As Integer

    Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown

        ' i = e.X

        ' j = e.Y

        ' p = e.X

        'q = e.Y

        pw = 4 ' you can use numeric updown for selecting pen-width

        Select Case e.Button

            Case MouseButtons.Left

                eventString = "L"

            Case MouseButtons.Right

                eventString = "R"

            Case MouseButtons.Middle

                eventString = "M"

            Case MouseButtons.XButton1

                eventString = "X1"

            Case MouseButtons.XButton2

                eventString = "X2"

            Case MouseButtons.None

                eventString = Nothing

        End Select

    End Sub

    Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove

        Dim yourArray As Point() = {New Point(e.X - pw, e.Y - pw), New Point(e.X, e.Y)}

        Dim cle As Graphics

        Dim myPath As New GraphicsPath

        Dim mykolor As Color

        cle = PictureBox1.CreateGraphics

        If eventString = "L" Then

            mykolor = Color.Blue 'here you can select color using colordialogbox

            myPath.StartFigure()

            myPath.AddLines(yourArray)

            myPath.CloseFigure()

            cle.DrawPath(New Pen(mykolor, pw), myPath)

        End If

        If eventString = Nothing Then

            myPath.Reset()

            cle.Flush()

        End If

    End Sub

    Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp

        eventString = Nothing

    End Sub

End Class

^^See that's my code because I found this one on google:

Code:

Imports System.Drawing

Imports System.Drawing.Drawing2D

Public Class Form1

    Public eventString As String

    Public pw As Integer

    'Public j As Integer

    'Public p As Integer

    'Public q As Integer

    Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown

        ' i = e.X

        ' j = e.Y

        ' p = e.X

        'q = e.Y

        pw = 4 ' you can use numeric updown for selecting pen-width

        Select Case e.Button

            Case MouseButtons.Left

                eventString = "L"

            Case MouseButtons.Right

                eventString = "R"

            Case MouseButtons.Middle

                eventString = "M"

            Case MouseButtons.XButton1

                eventString = "X1"

            Case MouseButtons.XButton2

                eventString = "X2"

            Case MouseButtons.None

                eventString = Nothing

        End Select

    End Sub

    Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove

        Dim yourArray As Point() = {New Point(e.X - pw, e.Y - pw), New Point(e.X, e.Y)}

        Dim cle As Graphics

        Dim myPath As New GraphicsPath

        Dim mykolor As Color

        cle = PictureBox1.CreateGraphics

        If eventString = "L" Then

            mykolor = Color.Blue 'here you can select color using colordialogbox

            myPath.StartFigure()

            myPath.AddLines(yourArray)

            myPath.CloseFigure()

            cle.DrawPath(New Pen(mykolor, pw), myPath)

        End If

        If eventString = Nothing Then

            myPath.Reset()

            cle.Flush()

        End If

    End Sub

    Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp

        eventString = Nothing

    End Sub

End Class

But you can easily notice that on my code it says FORM2 instead of form1 because I found a tutorial on how to change the "Public Class Form1" to "Public Class Form2", so that means the code is all mine.

Help With Injector!!!!

Post a Reply

Similar Threads

Tags for this Thread