My First Ever Multi Tool! has Some ERRORS..

Posts 1–15 of 17 · Page 1 of 2
My First Ever Multi Tool! has Some ERRORS..
This is my first ever multi tool sorry about the colours guys (looks Irish). !!!STILL WORKING ON IT THOUGH!!!

SS':






VIRUS SCAN1:
VirusTotal - Free Online Virus, Malware and URL Scanner

VIRUS SCAN2:
Puree123's First Multi Tool.rar - Jotti's malware scan


EDIT-
VIRUS SCAN3 (Valkyrie Injector by Faith)- http://www.virustotal.com/file-scan/...acf-1301784646

Valkyrie is a false positive so delete if u want but Yeah..

Enjoy





ATTACHMENT BELOW
Puree123's First Multi Tool.rarattachment deleted · 42 downloads before removal
Valkrie.rarattachment deleted · 33 downloads before removal
Thanks dude.
Good job. /message to short
gj braw :P
Good job.
approved.
Look cool , not over made like most of multi tools are
good jobb!!!
Thanks Guys

EDIT: I will Fix the Injector.
If you want some help tell me.Want Auto clicker source code?Here it is.Thanks + Rep me
Code:
Public Class Form1
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
    Private Declare Sub mouse_event Lib "user32" (ByVal dwflags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, ByVal dwExtraInfo As Long)
    Private Const mouseclickup = 4
    Private Const mouseclickdown = 2
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hotkeys.Tick
        Dim Hotkey1 As Boolean
        Hotkey1 = GetAsyncKeyState(Keys.F5)
        If Hotkey1 = True Then
            Clicks.Start()

        End If
        Dim Hotkey2 As Boolean
        Hotkey2 = GetAsyncKeyState(Keys.F6)
        If Hotkey2 = True Then
            Clicks.Stop()

        End If
    End Sub

    Private Sub Click_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Clicks.Tick
        Clicks.Interval = TextBox1.Text
        mouse_event(mouseclickdown, 0, 0, 0, 0)
        mouse_event(mouseclickup, 0, 0, 0, 0)
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub
    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

    End Sub
End Class
Try to figure what you need to add by your self.
man looks aight...
nice i guess...
Nice one
Looks great
gj i cant do better cuz ive forget all i learned about coding :P
Posts 1–15 of 17 · Page 1 of 2

Post a Reply

Tags

None

Talk with us