Benvenuto! Per postare e godere delle funzionalità del forum registrati, occorrono pochi secondi ed è gratis!

[Guida] Spammer in VB.NET (by Digger)
(Questo messaggio è stato modificato l'ultima volta il: 29/03/2011, 12:18 da digger.)

Il criceto mannaro
Messaggi: 3,536
Discussioni: 201
Registrato: 03-2011
Mix: 3,737
Ciao a tutti,
ho sostituito completamente la guida precedente, era un po' scarnina e poco funzionale, questa invece dovrebbe essere un po' meglio Smile

Aprite il vostro visual basic .net (io ho usato il 2008 ma potete usare anche un'altra versione)
Nella form principale mettete questi controlli con questi nomi:

textbox -> txt_spam
textbox -> txt_interval (nelle proprietà impostare "enabled" su false)
trackbar-> trk_interval
checkbox-> chk_start
timer -> tim_interval

le labels con le diciture le potete chiamare come volete tanto non sono usate dal codice.
Nell'immagine di seguito potete vedere come ho disposto i controlli :

[Immagine: spammerlite.png]
[Immagine: spammerlitetimer.png]

Di seguito il codice sorgente:

    C++ Programming
  1. Imports System.Runtime.InteropServices
  2.  
  3. Public Class frm_main
  4.  
  5. <DllImport("user32.dll", CharSet:=CharSet.Auto, ExactSpelling:=True)> _
  6. Public Shared Function GetForegroundWindow() As IntPtr
  7. End Function
  8.  
  9. <DllImport("user32.dll", CharSet:=CharSet.Auto, ExactSpelling:=True)> _
  10. Public Shared Function GetWindowThreadProcessId(ByVal hWnd As IntPtr, ByRef processId As IntPtr) As IntPtr
  11. End Function
  12.  
  13. Private interval As Integer = 0
  14. Private message_array() As String
  15. Private message_ptr As Integer = 0
  16. Private our_prc As IntPtr = 0
  17. Private act_prc As IntPtr = 0
  18.  
  19. Private Sub frm_main_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  20. GetWindowThreadProcessId(GetForegroundWindow(), our_prc)
  21. SetTimer()
  22. End Sub
  23.  
  24. Private Sub frm_main_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
  25. If Me.Width < chk_start.Right Then
  26. Me.Width = chk_start.Right
  27. End If
  28. End Sub
  29.  
  30. Sub SetTimer()
  31. interval = trk_interval.Value * 100
  32. tim_interval.Interval = interval
  33. txt_interval.Text = tim_interval.Interval / 1000
  34. End Sub
  35.  
  36.  
  37. Private Sub tim_interval_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tim_interval.Tick
  38. GetWindowThreadProcessId(GetForegroundWindow, act_prc)
  39. If act_prc <> our_prc Then
  40. SendKeys.Send(message_array(message_ptr))
  41. message_ptr += 1
  42. If message_ptr > message_array.Length - 1 Then
  43. message_ptr = 0
  44. End If
  45. End If
  46. End Sub
  47.  
  48. Private Sub chk_start_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_start.CheckedChanged
  49. If chk_start.Checked Then
  50. FillArray()
  51. SetTimer()
  52. tim_interval.Enabled = True
  53. Else
  54. tim_interval.Enabled = False
  55. End If
  56. End Sub
  57.  
  58. Sub FillArray()
  59. message_array = txt_spam.Text.Split(vbCr)
  60. message_ptr = 0
  61. End Sub
  62.  
  63. Private Sub trk_interval_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles trk_interval.Scroll
  64. SetTimer()
  65. End Sub
  66.  
  67. End Class




Come al solito, quando avrò tempo aggiungerò un po' di commenti di spiegazione, ora sono preso Happywide

ciao
Digger




digger
13/03/2011, 16:29
#1
Cerca


Messaggi in questa discussione
Spammer in VB.NET (by Digger) - da digger - 13/03/2011, 16:29
[Nessun oggetto] - da ZioPaperino - 13/03/2011, 16:42
[Nessun oggetto] - da digger - 13/03/2011, 17:23
[Nessun oggetto] - da ZioPaperino - 13/03/2011, 20:23
[Nessun oggetto] - da ZioPaperino - 27/03/2011, 16:22

Discussioni simili
Discussione Autore Risposte Letto Ultimo messaggio
  Sky, digger e dany Pocciox 6 612 19/09/2012, 0:02
Ultimo messaggio: Pocciox
  Array of bites aiuto digger Pocciox 13 2,550 25/08/2012, 16:57
Ultimo messaggio: Pocciox
  Spammer by stefooo97 :) stefooo97 6 1,024 31/03/2011, 23:04
Ultimo messaggio: Luxor



Utenti che stanno guardando questa discussione: 1 Ospite(i)