Post: NGU Desktop Spammer
03-13-2010, 12:17 AM #1
Fionn
Banned
(adsbygoogle = window.adsbygoogle || []).push({}); While i've been working on some Visual Basic 6 hacks/programs for Facebook. I decided to write a code for something smaller.
This is just a simple Desktop Spammer , I can post the Source Code/Project.vbs so people will know it's a Keylogger/Virus.

You must login or register to view this content.

You must login or register to view this content.

Please Feedback Happy
(adsbygoogle = window.adsbygoogle || []).push({});
03-13-2010, 12:18 AM #2
Originally posted by i
While i've been working on some Visual Basic 6 hacks/programs for Facebook. I decided to write a code for something smaller.
This is just a simple Desktop Spammer , I can post the Source Code/Project.vbs so people will know it's a Keylogger/Virus.

You must login or register to view this content.

You must login or register to view this content.

Please Feedback Happy


what does it do?
03-13-2010, 12:19 AM #3
Fionn
Banned
Originally posted by gS
what does it do?


Haha , It's just a fun program.
Try it and see Happy
To get the words off your screen , drag the program around it.
03-13-2010, 01:06 AM #4
///M
GTghost
4/42 :: Care to explain?
You must login or register to view this content.
03-13-2010, 01:10 AM #5
Fionn
Banned
Originally posted by GTghost View Post
4/42 :: Care to explain?
You must login or register to view this content.


Some anti-viruses detect spammers.
Source:
    Private Declare Function GetDesktopWindow Lib "user32" () As Long

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long

Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long


Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Dim dc As Long
dc = GetWindowDC(GetDesktopWindow)
Randomize
Spam = Text1.Text
Spam = Len(Spam)
Spam = TextOut(dc, Rnd * 1024, Rnd * 1024, (Text1.Text), Spam)
End Sub


I made it from my own code.
1 Timer , 1 Command Button and 1 Text Box

Inspect the code and you will find nothing.
03-13-2010, 01:11 AM #6
Originally posted by i
Some anti-viruses detect spammers.
Source:
    Private Declare Function GetDesktopWindow Lib "user32" () As Long

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long

Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long


Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Dim dc As Long
dc = GetWindowDC(GetDesktopWindow)
Randomize
Spam = Text1.Text
Spam = Len(Spam)
Spam = TextOut(dc, Rnd * 1024, Rnd * 1024, (Text1.Text), Spam)
End Sub


I made it from my own code.
1 Timer , 1 Command Button and 1 Text Box

Inspect the code and you will find nothing.


It doesn't matter it's still a virus!

You must login or register to view this content. Explain that too.
03-13-2010, 01:13 AM #7
Fionn
Banned
Originally posted by Ravage
It doesn't matter it's still a virus!

You must login or register to view this content. Explain that too.


It won't do anything!
I just said some anti-viruses detect spammers!
How come i've coded it any nothing has happened to my laptop?
03-13-2010, 01:15 AM #8
Originally posted by i
It won't do anything!
I just said some anti-viruses detect spammers!
How come i've coded it any nothing has happened to my laptop?


It doesn't matter you could have forgot too code something and give people TROJANS! And if it does give someone TROJANS your screwed!
03-13-2010, 01:18 AM #9
Fionn
Banned
Originally posted by Ravage
It doesn't matter you could have forgot too code something and give people TROJANS! And if it does give someone TROJANS your screwed!


See there are 5 Declarations in this ,
One is used for the interval of the timer.
That is considered spamming your computer , but this is an unharmful spam which is fun.
That's why anti-viruses detect it.
03-13-2010, 01:21 AM #10
Originally posted by i
See there are 5 Declarations in this ,
One is used for the interval of the timer.
That is considered spamming your computer , but this is an unharmful spam which is fun.
That's why anti-viruses detect it.


If a program detects it, it means there's virus's in there you couldn't of coded it too remove the TROJANS and other virus's?

Copyright © 2026, NextGenUpdate.
All Rights Reserved.

Gray NextGenUpdate Logo