[VB6] Desktop Spammer

[Laszloscomputerstuff]

ERROR:

PInvokeStackImbalance was detected

Message: A call to PInvoke function 'Desktop Fun!Desktop_Fun.Form1::GetWind­ow' has unbalanced the stack. This is likely because the managed PInvoke signature does not match the unmanaged target signature. Check that the calling convention and parameters of the PInvoke signature match the target unmanaged signature.

______________________________­____________________________

Please Help

[millerboy321]

you spelled youtube youtbube

[Nicolasroxas]

it works. thx

[HyaxorFD]

To make a stop button, create a command button and paste this code on it: timer1.enabled = false

[BiggestTwoNoobs]

how can u stop this????????

[ultragaming1993]

its not ful in discription ... :(

[Miserego]

thanx

[TheDarkKnight03]

i can't understand..what does this software do ?

[OwnerPizza]

it spams ur desktop with textboxes

[TutorialDude101]

i got a problem, it says spam is not declared any ideas?

[Miserego]

you owned a subscriber thanx man ;)

[finob0y]

cool song whats the name of it

[nicko01s]

grasias por el video

[minikiller23]

every body i will give u the real codes for vb6 spammer or give u mine spammer =)

[antronio]

error 453 tiempo de jecucion

no se puede encontar el punto de entrada dll

getdesktopwindows en user32

i am latin american (chile)good job

[kodman262]

how do i get it so it only spamms the direct center of the screen?

[EarthFlame12]

loll idk

just

i was

bored that day..

so ya =)

[EarthFlame12]

not gay right? o_O

[varcolac1000]

no:

Private Sub Timer1_Timer()

Dim dc As Long

dc = GetWindowDC(GetWindow(GetDeskt opWindow), 1)

Randomize

Spam = Text1.Text

Spam = Len(Spam)

Spam = TextOut(dc, Rnd * 1024, Rnd * 1024, (Text1.Text), Spam)

End Sub

[varcolac1000]

is :

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

[VisualMaster1]

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

[VisualMaster1]

do you have the declarations?

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

[befa123]

whats wrong below??

______________________________­_______________

Private Sub Timer1_Timer()

Dim dc As Long

dc = GetWindowDC(GetWindow(GetDeskt­opWindow), 1)

Randomize

Spam = Text1.Text

Spam = Len(Spam)

Spam = TextOut(dc, Rnd * 1024, Rnd * 1024, (Text1.Text), Spam)

End Sub

[danebat]

Same error :S

[VisualMaster1]

Dont know Works for me sorry :S

[VisualMaster1]

The Fast And The Furious (Tokyo Drift) DJ Shadow ft Mos Def

[EarthFlame12]

dUDE WHAT HAPPENED TO GtA IV tHEMe?

[0skar2]

wazz this song??