[Guida] Spammer in VB.NET (by Digger)

[digger]

Ciao a tutti,
ho sostituito completamente la guida precedente, era un po' scarnina e poco funzionale, questa invece dovrebbe essere un po' meglio

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 :




Di seguito il codice sorgente:

    C++ Programming

Imports System.Runtime.InteropServices
 
Public Class frm_main
 
    <DllImport("user32.dll", CharSet:=CharSet.Auto, ExactSpelling:=True)> _
    Public Shared Function GetForegroundWindow() As IntPtr
    End Function
 
    <DllImport("user32.dll", CharSet:=CharSet.Auto, ExactSpelling:=True)> _
    Public Shared Function GetWindowThreadProcessId(ByVal hWnd As IntPtr, ByRef processId As IntPtr) As IntPtr
    End Function
 
    Private interval As Integer = 0
    Private message_array() As String
    Private message_ptr As Integer = 0
    Private our_prc As IntPtr = 0
    Private act_prc As IntPtr = 0
 
    Private Sub frm_main_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        GetWindowThreadProcessId(GetForegroundWindow(), our_prc)
        SetTimer()
    End Sub
 
    Private Sub frm_main_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        If Me.Width < chk_start.Right Then
            Me.Width = chk_start.Right
        End If
    End Sub
 
    Sub SetTimer()
        interval = trk_interval.Value * 100
        tim_interval.Interval = interval
        txt_interval.Text = tim_interval.Interval / 1000
    End Sub
 
 
    Private Sub tim_interval_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tim_interval.Tick
        GetWindowThreadProcessId(GetForegroundWindow, act_prc)
        If act_prc <> our_prc Then
            SendKeys.Send(message_array(message_ptr))
            message_ptr += 1
            If message_ptr > message_array.Length - 1 Then
                message_ptr = 0
            End If
        End If
    End Sub
 
    Private Sub chk_start_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_start.CheckedChanged
        If chk_start.Checked Then
            FillArray()
            SetTimer()
            tim_interval.Enabled = True
        Else
            tim_interval.Enabled = False
        End If
    End Sub
 
    Sub FillArray()
        message_array = txt_spam.Text.Split(vbCr)
        message_ptr = 0
    End Sub
 
    Private Sub trk_interval_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles trk_interval.Scroll
        SetTimer()
    End Sub
 
End Class

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

ciao
Digger

[ZioPaperino]

Cmq sto forum è stupendo anche perchè puoi postare bene i CODE

[digger]

si hai visto? merito di admin, ieri ha inserito un modulo per il syntax highlighting e questo è il risultato, fantastico! grazie ADMIN!!

[ZioPaperino]

Oddio c'è una pubblicità semi-porno O.O
"pornosar russe in matrimonio" O.O

[ZioPaperino]

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: