BASILHSK7 (01-13-2010)
Hello,
Here is a ca tool i made in vb
it isnt that big but i hope its a bit usefull
Screen:
Virustotal
Virscan
Enjoy it
Last edited by jetse123; 01-14-2010 at 01:57 AM.
BASILHSK7 (01-13-2010)
Need another scan from VirScan.org and you're done. And most of it is leeched. At least improve it if you're gonna leech.
[MPGH]KING (01-13-2010)
you only need to scan the .rar file you have attached.. scanning the .exe isn't necessary.
VirSCAN.org - Free Multi-Engine Online Virus Scanner v1.02, Supports 37 AntiVirus Engines!
if you'd upload your .rar file to that site and post us the link of the results we would be able to test and approve this file
ITs all leeched stuff from the VB section
You didnt even add anything to it
:\
Wont approve adversing there
Sorry guys for leeching the codes but im not good enough to code it by myself
btw i just uploaded another virusscan
Well you have to keep practising it's not the hardest programming language to learn .. I thought it was easier then HTML which is easy as.
i can code for this program but:
For me its hard to make a code from nothing
and i know how to edit but the tutorial (gui's?) are mostly nice XD
But i will think about it to change it
BTw got tutorial for Crosshair?
i found one than i got a DOT
but i whant an kinda +
Please help :P
This is code i use:
Code:Dim MiddleX As Integer = (Me.Width / 2) - 4 Dim MiddleY As Integer = (Me.Height / 2) - 4 Dim TheKillDot As Graphics = Me.CreateGraphics Dim MyPen As Pen = New Pen(Color.Red) Dim MyBrush As SolidBrush = New SolidBrush(Color.Red) TheKillDot.SmoothingMode = SmoothingMode.HighQuality If Activated = True Then TheKillDot.FillEllipse(MyBrush, MiddleX, MiddleY, 8, 8) ElseIf Activated = False Then Me.Refresh() End If
jetse123 (01-14-2010)
Im sorry for double post but does anyone know how to make a CROSSHAIR?
i now use: (a dot)
Code:Dim MiddleX As Integer = (Me.Width / 2) - 4 Dim MiddleY As Integer = (Me.Height / 2) - 4 Dim TheKillDot As Graphics = Me.CreateGraphics Dim MyPen As Pen = New Pen(Color.Red) Dim MyBrush As SolidBrush = New SolidBrush(Color.Red) TheKillDot.SmoothingMode = SmoothingMode.HighQuality If Activated = True Then TheKillDot.FillEllipse(MyBrush, MiddleX, MiddleY, 8, 8) ElseIf Activated = False Then Me.Refresh() End If