|
| Autor |
Nachricht |
DFJ_
Poster
Anmeldedatum: 15.10.2007
Beiträge: 156
|
Desktop Spammer
Verfasst am: 05.01.2008, 13:22 |
|
|
Hallo, ich habe mal ein English Tutorial ein gedeutsch , viel spaß damit , ist ne coole funktion z.b für trojaner oder scherz programme
mfg
DFJ
2x Textboxen = Standardname
2xbutton = Standardname
1xtimer = standardname = false = interval 100
| Zitat: |
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(GetWindow(GetDesktopWindow(), 1))
Randomize
a = TextOut(dc, Rnd * 600, Rnd * 400, (Text1.Text), Text2.Text)
' text1 ist der text der erscheinen soll im label könnte man sagen dazu
' text2 ist dafür da wie viel buch staben angezeigt werden sollen
'man kannn natürlich auch noch verbessern 
End Sub
|
So sieht das dann aus
Spam bot |
|
| |
|
 |
Blue!Sky!_
Coder
Anmeldedatum: 06.10.2007
Beiträge: 227
|
Verfasst am: 05.01.2008, 13:54 |
|
|
naja ich steh eigentlich nich auf nuker etc... aber thx für den source xD
Zuletzt bearbeitet von Blue!Sky!_ am 05.01.2008, 23:40, insgesamt einmal bearbeitet |
|
| |
|
|
DFJ_
Poster
Anmeldedatum: 15.10.2007
Beiträge: 156
|
Verfasst am: 05.01.2008, 23:26 |
|
|
| Blue!Sky! hat Folgendes geschrieben: | | naja ich steh eigentlich nich auf nuker etc... aber thx für das tut |
was für tut das ist source code XD
ich weiß manche sachen auch nicht mal was genau die aufrufen das war einfach kopie past mit bischen ändern !
XD
Spam bot |
|
| |
|
|
boterfreak_
Coder
Anmeldedatum: 19.01.2008
Beiträge: 75
|
Verfasst am: 20.01.2008, 12:37 |
|
|
| Bei mir kommt typen unverträglich oder so warum das |
|
| |
|
|
tr4st_
« Moderator »
Anmeldedatum: 17.12.2007
Beiträge: 315
Wohnort: Private Class _ Villa()
|
Verfasst am: 20.01.2008, 13:01 |
|
|
Schreibst du in .NET oder 6 ?
Avoid Suspicion, Manipulate your friends, Eliminate your enemies. |
|
| |
|
|
boterfreak_
Coder
Anmeldedatum: 19.01.2008
Beiträge: 75
|
Verfasst am: 20.01.2008, 13:04 |
|
|
| Ich habe vb5 und vb6 Drauf ich nehme dafür vb6 Neues Projekt Dan Standart Exe es klappt nicht |
|
| |
|
|
chrissivolli_
Newbie
Anmeldedatum: 05.07.2007
Beiträge: 16
|
Verfasst am: 05.02.2008, 17:00 |
|
|
a = TextOut(dc, Rnd * 600, Rnd * 400, (Text1.Text), Text2.Text)
jau, die zeile spinnt.
denke weil das a nicht definiert ist. |
|
| |
|
|
Torn_
Newbie
Anmeldedatum: 24.02.2008
Beiträge: 8
|
Verfasst am: 29.02.2008, 23:01 |
|
|
Wie muss man sie definieren? String, Long, Integer funktioniert nicht.
 |
|
| |
|
|
ZiG_
Überflieger
Anmeldedatum: 07.03.2007
Beiträge: 1248
|
Verfasst am: 29.02.2008, 23:10 |
|
|
Api:
| Zitat: |
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
|
Das sagt eigentlich alles.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde) |
|
| |
|
|
|
|
Registrieren
Login
