My annoying Visual Basic "Virus"

Just fooling around with VB.. you might wanna watch in HD if you want the source code :D.. this virus does not spread, dammage, or infect (yet).. it is simple a one time run. I ran it in a sandbox so i could stop it :D

SOURCE:

Private Sub form_load()
Randomize
img = (Rand(1, 14)) - 1
Image1(img).Visible = True
Me.Height = Image1(img).Height + 480
Me.Width = Image1(img).Width + 90
Me.WindowState = Normal
Me.Top = Rand(1, Screen.Height - Me.Height)
Me.Left = Rand(1, Screen.Width - Me.Width)
End Sub
Private Sub Form_Unload(Cancel As Integer)
Cancel = 0
Shell (App.Path + "\" + App.EXEName + ".exe")
Shell (App.Path + "\" + App.EXEName + ".exe")
End Sub

Public Function Rand(ByVal Low As Long, ByVal High As Long) As Long
Rand = Int((High - Low + 1) * Rnd) + Low
End Function

Category:

Howto & Style

Tags:

• annoying
• visual
• basic
• virus
• pop
• up
• spam
• advertisement
• vb6
• vb

[ZaCkOX900]

alt ctrl delete, close program, simple to stop. This is not close to a good virus.

[0teh0killah]

@ZaCkOX900 I never claimed that it was a good virus, and when you try to end this in task manager, you have to end each of its processes, which is equal to the number of pop ups open. A quick glance at the code would tell a programmer this. Meaning that you aren't close to a good programmer.

[ZaCkOX900]

@0teh0killah Ha, that's what you think. I could burrow you. And yes you can stop processes a lot easier than this. A tip for a novice programmer. Stop using "+" and start using "&" when combining string type data. Shelling the program will open more processes yes, but you can freeze the program, close and done with it. Don't talk to me like I'm a noob because clearly your the one a lot noober than me. Writing "+" to combine is the noobest thing of all. You are writing future errors!

[0teh0killah]

@ZaCkOX900 With the small size of my program there really is no need to use one over the other. Both data types are going to be string anyways so it doesn't matter. Of course you can stop processes easier than this, I did it by running it in a sandbox. Freezing each program also takes time. This was meant as a joke / prank, so I don't care if it can be stopped easy.

[MagnusRulerHardt]

@0teh0killah

Well, ZaCkOX900 was right, this sucks. I am tired of these fun and sparkly "pranks" of noobs all over YouTube.

[0teh0killah]

@MagnusRulerHardt

I uploaded this mostly as a proof of concept when VB videos were just starting to get popular. Sure the nature of the program is appealing to script kiddies that just want to fool around, but I had no intention of attracting assholes like you who have nothing better to do than comment on very old videos. If you don't like these types of videos, don't watch them. Simple enough?

[Hifterbuk]

How did the popunders?

[TheIvomendonca]

some many "hackers" .net has a property named "showintaskbar" "on" "off"

lol

[MagnusRulerHardt]

@0teh0killah

Oh, so your "virus" is balls and you are aware of this? That's when you delete your shitty, sparkly video.

[pengumore]

How did you maked this NICE thing??? Thumbs up so he can see this comment!!!

[4Antonis]

@0teh0killah just type showintaskbar = false and add when form_closing e.cancel = true ...this way you disable both ctrl alt delete and alt + f4 .. those are just some examples... oh and you can also add as form border style : none this way it hides the x button too... however i dont know if u used a timer to open the windows or if you used the form closing property ...im just saying cuz the formborderstyle thingy aint gonna work if this program works with form closing.. thank you for your time.

[xXCoDwGoDXx]

Advertising on a higher stage!

[tousisat1]

just hold the enter key. more easier

[MetalAnonym0us]

... I remember when the internet was like this.