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

ZioPaperino VIP
Messaggi: 2,350
Discussioni: 667
Registrato: 03-2011
Mix: 0
Cmq sto forum è stupendo anche perchè puoi postare bene i CODE

13/03/2011, 16:42
#2
Cerca

Il criceto mannaro
Messaggi: 3,536
Discussioni: 201
Registrato: 03-2011
Mix: 3,737
si hai visto? merito di admin, ieri ha inserito un modulo per il syntax highlighting e questo è il risultato, fantastico! grazie ADMIN!! Happywide


digger
13/03/2011, 17:23
#3
Cerca

ZioPaperino VIP
Messaggi: 2,350
Discussioni: 667
Registrato: 03-2011
Mix: 0
Oddio c'è una pubblicità semi-porno O.O
"pornosar russe in matrimonio" O.O

13/03/2011, 20:23
#4
Cerca

ZioPaperino VIP
Messaggi: 2,350
Discussioni: 667
Registrato: 03-2011
Mix: 0
Errore:

System.InvalidCastException was unhandled
Message="Cast non valido dalla stringa "" al tipo 'Double'."
Source="Microsoft.VisualBasic"
StackTrace:
in Microsoft.VisualBasic.CompilerServices.Conversions.ToDouble(String Value, NumberFormatInfo NumberFormat) in Microsoft.VisualBasic.CompilerServices.Conversions.ToDouble(String Value) in Spammer.Form1.Button1_Click(Object sender, EventArgs e) in C:\Documents and Settings\DjDukio\Impostazioni locali\Dati applicazioni\Temporary Projects\Spammer\Form1.vb:riga 10 in System.Windows.Forms.Control.OnClick(EventArgs e) in System.Windows.Forms.Button.OnClick(EventArgs e) in System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent) in System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks) in System.Windows.Forms.Control.WndProc(Message& m) in System.Windows.Forms.ButtonBase.WndProc(Message& m) in System.Windows.Forms.Button.WndProc(Message& m) in System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m) in System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m) in System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam) in System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg) in System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData) in System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context) in System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context) in System.Windows.Forms.Application.Run(ApplicationContext context) in Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun() in Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel() in Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine) in Spammer.My.MyApplication.Main(String[] Args) in 17d14f5c-a337-4978-8281-53493378c1071.vb:riga 81 in System.AppDomain._nExecuteAssembly(Assembly assembly, String[] args) in System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args) in Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly() in System.Threading.ThreadHelper.ThreadStart_Context(Object state) in System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state) in System.Threading.ThreadHelper.ThreadStart()
InnerException: System.FormatException
Message="Formato della stringa di input non corretto."
Source="Microsoft.VisualBasic"
StackTrace:
in Microsoft.VisualBasic.CompilerServices.Conversions.ParseDouble(String Value, NumberFormatInfo NumberFormat) in Microsoft.VisualBasic.CompilerServices.Conversions.ToDouble(String Value, NumberFormatInfo NumberFormat)
InnerException:


27/03/2011, 16:22
#5
Cerca


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



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