API tools faq
paste
BloodSnake

Bloodsnake's spammer (for RFEUTools)

BloodSnake
Oct 16th, 2012
91
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 13.97 KB | None | 0 0
raw download clone embed print report
  1. Public Class Form1
  2.  
  3.     Private Sub XtremeIncCheckbox1_CheckedChanged(sender As System.Object) Handles XtremeIncCheckbox1.CheckedChanged
  4.         If XtremeIncCheckbox1.Checked = True Then
  5.             KogXtremeIncTextBox2.Enabled = True
  6.             KogXtremeIncTextBox1.Enabled = True
  7.         Else
  8.             KogXtremeIncTextBox2.Enabled = False
  9.             KogXtremeIncTextBox1.Enabled = False
  10.             XtremeIncCheckbox1.Checked = False
  11.         End If
  12.     End Sub
  13.  
  14.     Private Sub XtremeIncCheckbox2_CheckedChanged(sender As System.Object) Handles XtremeIncCheckbox2.CheckedChanged
  15.         If XtremeIncCheckbox2.Checked = True Then
  16.             XtremeIncCheckbox1.Checked = True
  17.             KogXtremeIncTextBox3.Enabled = True
  18.             KogXtremeIncTextBox2.Enabled = True
  19.             KogXtremeIncTextBox1.Enabled = True
  20.         Else
  21.             KogXtremeIncTextBox3.Enabled = False
  22.             KogXtremeIncTextBox2.Enabled = False
  23.             KogXtremeIncTextBox1.Enabled = False
  24.             XtremeIncCheckbox2.Checked = False
  25.             XtremeIncCheckbox1.Checked = False
  26.         End If
  27.     End Sub
  28.  
  29.     Private Sub XtremeIncCheckbox3_CheckedChanged(sender As System.Object) Handles XtremeIncCheckbox3.CheckedChanged
  30.         If XtremeIncCheckbox3.Checked = True Then
  31.             XtremeIncCheckbox2.Checked = True
  32.             XtremeIncCheckbox1.Checked = True
  33.             KogXtremeIncTextBox4.Enabled = True
  34.             KogXtremeIncTextBox3.Enabled = True
  35.             KogXtremeIncTextBox2.Enabled = True
  36.             KogXtremeIncTextBox1.Enabled = True
  37.         Else
  38.             KogXtremeIncTextBox4.Enabled = False
  39.             KogXtremeIncTextBox3.Enabled = False
  40.             KogXtremeIncTextBox2.Enabled = False
  41.             KogXtremeIncTextBox1.Enabled = False
  42.             XtremeIncCheckbox3.Checked = False
  43.             XtremeIncCheckbox2.Checked = False
  44.             XtremeIncCheckbox1.Checked = False
  45.         End If
  46.     End Sub
  47.  
  48.     Private Sub XtremeIncCheckbox4_CheckedChanged(sender As System.Object) Handles XtremeIncCheckbox4.CheckedChanged
  49.         If XtremeIncCheckbox4.Checked = True Then
  50.             XtremeIncCheckbox3.Checked = True
  51.             XtremeIncCheckbox2.Checked = True
  52.             XtremeIncCheckbox1.Checked = True
  53.             KogXtremeIncTextBox5.Enabled = True
  54.             KogXtremeIncTextBox4.Enabled = True
  55.             KogXtremeIncTextBox3.Enabled = True
  56.             KogXtremeIncTextBox2.Enabled = True
  57.             KogXtremeIncTextBox1.Enabled = True
  58.         Else
  59.             KogXtremeIncTextBox5.Enabled = False
  60.             KogXtremeIncTextBox4.Enabled = False
  61.             KogXtremeIncTextBox3.Enabled = False
  62.             KogXtremeIncTextBox2.Enabled = False
  63.             KogXtremeIncTextBox1.Enabled = False
  64.             XtremeIncCheckbox4.Checked = False
  65.             XtremeIncCheckbox3.Checked = False
  66.             XtremeIncCheckbox2.Checked = False
  67.             XtremeIncCheckbox1.Checked = False
  68.         End If
  69.     End Sub
  70.  
  71.     Private Sub XtremeIncCheckbox5_CheckedChanged(sender As System.Object) Handles XtremeIncCheckbox5.CheckedChanged
  72.         If XtremeIncCheckbox5.Checked = True Then
  73.             XtremeIncCheckbox5.Checked = True
  74.             XtremeIncCheckbox4.Checked = True
  75.             XtremeIncCheckbox3.Checked = True
  76.             XtremeIncCheckbox2.Checked = True
  77.             XtremeIncCheckbox1.Checked = True
  78.             KogXtremeIncTextBox6.Enabled = True
  79.             KogXtremeIncTextBox5.Enabled = True
  80.             KogXtremeIncTextBox4.Enabled = True
  81.             KogXtremeIncTextBox3.Enabled = True
  82.             KogXtremeIncTextBox2.Enabled = True
  83.             KogXtremeIncTextBox1.Enabled = True
  84.         Else
  85.             KogXtremeIncTextBox6.Enabled = False
  86.             KogXtremeIncTextBox5.Enabled = False
  87.             KogXtremeIncTextBox4.Enabled = False
  88.             KogXtremeIncTextBox3.Enabled = False
  89.             KogXtremeIncTextBox2.Enabled = False
  90.             KogXtremeIncTextBox1.Enabled = False
  91.             XtremeIncCheckbox5.Checked = False
  92.             XtremeIncCheckbox4.Checked = False
  93.             XtremeIncCheckbox3.Checked = False
  94.             XtremeIncCheckbox2.Checked = False
  95.             XtremeIncCheckbox1.Checked = False
  96.         End If
  97.     End Sub
  98.  
  99.     Private Sub XtremeIncCheckbox6_CheckedChanged(sender As System.Object) Handles XtremeIncCheckbox6.CheckedChanged
  100.         If XtremeIncCheckbox6.Checked = True Then
  101.             XtremeIncCheckbox6.Checked = True
  102.             XtremeIncCheckbox5.Checked = True
  103.             XtremeIncCheckbox4.Checked = True
  104.             XtremeIncCheckbox3.Checked = True
  105.             XtremeIncCheckbox2.Checked = True
  106.             XtremeIncCheckbox1.Checked = True
  107.             KogXtremeIncTextBox7.Enabled = True
  108.             KogXtremeIncTextBox6.Enabled = True
  109.             KogXtremeIncTextBox5.Enabled = True
  110.             KogXtremeIncTextBox4.Enabled = True
  111.             KogXtremeIncTextBox3.Enabled = True
  112.             KogXtremeIncTextBox2.Enabled = True
  113.             KogXtremeIncTextBox1.Enabled = True
  114.         Else
  115.             KogXtremeIncTextBox7.Enabled = False
  116.             KogXtremeIncTextBox6.Enabled = False
  117.             KogXtremeIncTextBox5.Enabled = False
  118.             KogXtremeIncTextBox4.Enabled = False
  119.             KogXtremeIncTextBox3.Enabled = False
  120.             KogXtremeIncTextBox2.Enabled = False
  121.             KogXtremeIncTextBox1.Enabled = False
  122.             XtremeIncCheckbox6.Checked = False
  123.             XtremeIncCheckbox5.Checked = False
  124.             XtremeIncCheckbox4.Checked = False
  125.             XtremeIncCheckbox3.Checked = False
  126.             XtremeIncCheckbox2.Checked = False
  127.             XtremeIncCheckbox1.Checked = False
  128.         End If
  129.     End Sub
  130.  
  131.     Private Sub XtremeIncCheckbox7_CheckedChanged(sender As System.Object) Handles XtremeIncCheckbox7.CheckedChanged
  132.         If XtremeIncCheckbox7.Checked = True Then
  133.             XtremeIncCheckbox6.Checked = True
  134.             XtremeIncCheckbox5.Checked = True
  135.             XtremeIncCheckbox4.Checked = True
  136.             XtremeIncCheckbox3.Checked = True
  137.             XtremeIncCheckbox2.Checked = True
  138.             XtremeIncCheckbox1.Checked = True
  139.             KogXtremeIncTextBox8.Enabled = True
  140.             KogXtremeIncTextBox7.Enabled = True
  141.             KogXtremeIncTextBox6.Enabled = True
  142.             KogXtremeIncTextBox5.Enabled = True
  143.             KogXtremeIncTextBox4.Enabled = True
  144.             KogXtremeIncTextBox3.Enabled = True
  145.             KogXtremeIncTextBox2.Enabled = True
  146.             KogXtremeIncTextBox1.Enabled = True
  147.  
  148.         Else
  149.             KogXtremeIncTextBox8.Enabled = False
  150.             KogXtremeIncTextBox7.Enabled = False
  151.             KogXtremeIncTextBox6.Enabled = False
  152.             KogXtremeIncTextBox5.Enabled = False
  153.             KogXtremeIncTextBox4.Enabled = False
  154.             KogXtremeIncTextBox3.Enabled = False
  155.             KogXtremeIncTextBox2.Enabled = False
  156.             KogXtremeIncTextBox1.Enabled = False
  157.             XtremeIncCheckbox6.Checked = False
  158.             XtremeIncCheckbox5.Checked = False
  159.             XtremeIncCheckbox4.Checked = False
  160.             XtremeIncCheckbox3.Checked = False
  161.             XtremeIncCheckbox2.Checked = False
  162.             XtremeIncCheckbox1.Checked = False
  163.         End If
  164.     End Sub
  165.  
  166.     Private Sub XtremeIncButton3_Click(sender As System.Object, e As System.EventArgs) Handles XtremeIncButton3.Click
  167.         Timer1.Interval = KogXtremeIncTextBox9.Text
  168.     End Sub
  169.  
  170.     Private Sub XtremeIncButton1_Click(sender As System.Object, e As System.EventArgs)
  171.         Timer1.Enabled = True
  172.         Timer1.Start()
  173.  
  174.     End Sub
  175.  
  176.     Private Sub XtremeIncButton2_Click(sender As System.Object, e As System.EventArgs) Handles XtremeIncButton2.Click
  177.         Timer1.Enabled = False
  178.         Timer1.Stop()
  179.  
  180.     End Sub
  181.  
  182.     Private Sub XtremeIncButton4_Click(sender As System.Object, e As System.EventArgs) Handles XtremeIncButton4.Click
  183.         Me.Close()
  184.     End Sub
  185.  
  186.     Private Sub XtremeIncCheckbox8_CheckedChanged(sender As System.Object)
  187.  
  188.     End Sub
  189.  
  190.     Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Integer) As Integer
  191.     Private Sub Timer2_Tick(sender As System.Object, e As System.EventArgs) Handles Timer2.Tick
  192.         Dim hotkey1 As Boolean
  193.         hotkey1 = GetAsyncKeyState(Keys.K)
  194.         If hotkey1 = True Then
  195.             Timer1.Start()
  196.         End If
  197.     End Sub
  198.  
  199.     Private Sub Timer3_Tick(sender As System.Object, e As System.EventArgs) Handles Timer3.Tick
  200.         Dim hotkey1 As Boolean
  201.         hotkey1 = GetAsyncKeyState(Keys.L)
  202.         If hotkey1 = True Then
  203.             Timer1.Stop()
  204.         End If
  205.     End Sub
  206.  
  207.     Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
  208.         If XtremeIncCheckbox1.Checked = False Then
  209.             SendKeys.Send("{enter}")
  210.             SendKeys.Send(KogXtremeIncTextBox1.Text)
  211.             SendKeys.Send("{enter}")
  212.             SendKeys.Send("{enter}")
  213.         End If
  214.         If XtremeIncCheckbox1.Checked = True Then
  215.             SendKeys.Send("{enter}")
  216.             SendKeys.Send(KogXtremeIncTextBox1.Text)
  217.             SendKeys.Send("{enter}")
  218.             SendKeys.Send("{enter}")
  219.             SendKeys.Send(KogXtremeIncTextBox2.Text)
  220.             SendKeys.Send("{enter}")
  221.         End If
  222.         If XtremeIncCheckbox2.Checked = True Then
  223.             SendKeys.Send("{enter}")
  224.             SendKeys.Send(KogXtremeIncTextBox1.Text)
  225.             SendKeys.Send("{enter}")
  226.             SendKeys.Send("{enter}")
  227.             SendKeys.Send(KogXtremeIncTextBox2.Text)
  228.             SendKeys.Send("{enter}")
  229.             SendKeys.Send("{enter}")
  230.             SendKeys.Send(KogXtremeIncTextBox3.Text)
  231.             SendKeys.Send("{enter}")
  232.         End If
  233.         If XtremeIncCheckbox3.Checked = True Then
  234.             SendKeys.Send("{enter}")
  235.             SendKeys.Send(KogXtremeIncTextBox1.Text)
  236.             SendKeys.Send("{enter}")
  237.             SendKeys.Send("{enter}")
  238.             SendKeys.Send(KogXtremeIncTextBox2.Text)
  239.             SendKeys.Send("{enter}")
  240.             SendKeys.Send("{enter}")
  241.             SendKeys.Send(KogXtremeIncTextBox3.Text)
  242.             SendKeys.Send("{enter}")
  243.             SendKeys.Send("{enter}")
  244.             SendKeys.Send(KogXtremeIncTextBox4.Text)
  245.             SendKeys.Send("{enter}")
  246.         End If
  247.         If XtremeIncCheckbox4.Checked = True Then
  248.             SendKeys.Send("{enter}")
  249.             SendKeys.Send(KogXtremeIncTextBox1.Text)
  250.             SendKeys.Send("{enter}")
  251.             SendKeys.Send("{enter}")
  252.             SendKeys.Send(KogXtremeIncTextBox2.Text)
  253.             SendKeys.Send("{enter}")
  254.             SendKeys.Send("{enter}")
  255.             SendKeys.Send(KogXtremeIncTextBox3.Text)
  256.             SendKeys.Send("{enter}")
  257.             SendKeys.Send("{enter}")
  258.             SendKeys.Send(KogXtremeIncTextBox4.Text)
  259.             SendKeys.Send("{enter}")
  260.             SendKeys.Send("{enter}")
  261.             SendKeys.Send(KogXtremeIncTextBox5.Text)
  262.             SendKeys.Send("{enter}")
  263.         End If
  264.         If XtremeIncCheckbox5.Checked = True Then
  265.             SendKeys.Send("{enter}")
  266.             SendKeys.Send(KogXtremeIncTextBox1.Text)
  267.             SendKeys.Send("{enter}")
  268.             SendKeys.Send("{enter}")
  269.             SendKeys.Send(KogXtremeIncTextBox2.Text)
  270.             SendKeys.Send("{enter}")
  271.             SendKeys.Send("{enter}")
  272.             SendKeys.Send(KogXtremeIncTextBox3.Text)
  273.             SendKeys.Send("{enter}")
  274.             SendKeys.Send("{enter}")
  275.             SendKeys.Send(KogXtremeIncTextBox4.Text)
  276.             SendKeys.Send("{enter}")
  277.             SendKeys.Send("{enter}")
  278.             SendKeys.Send(KogXtremeIncTextBox5.Text)
  279.             SendKeys.Send("{enter}")
  280.             SendKeys.Send("{enter}")
  281.             SendKeys.Send(KogXtremeIncTextBox6.Text)
  282.             SendKeys.Send("{enter}")
  283.         End If
  284.         If XtremeIncCheckbox6.Checked = True Then
  285.             SendKeys.Send("{enter}")
  286.             SendKeys.Send(KogXtremeIncTextBox1.Text)
  287.             SendKeys.Send("{enter}")
  288.             SendKeys.Send("{enter}")
  289.             SendKeys.Send(KogXtremeIncTextBox2.Text)
  290.             SendKeys.Send("{enter}")
  291.             SendKeys.Send("{enter}")
  292.             SendKeys.Send(KogXtremeIncTextBox3.Text)
  293.             SendKeys.Send("{enter}")
  294.             SendKeys.Send("{enter}")
  295.             SendKeys.Send(KogXtremeIncTextBox4.Text)
  296.             SendKeys.Send("{enter}")
  297.             SendKeys.Send("{enter}")
  298.             SendKeys.Send(KogXtremeIncTextBox5.Text)
  299.             SendKeys.Send("{enter}")
  300.             SendKeys.Send("{enter}")
  301.             SendKeys.Send(KogXtremeIncTextBox6.Text)
  302.             SendKeys.Send("{enter}")
  303.             SendKeys.Send("{enter}")
  304.             SendKeys.Send(KogXtremeIncTextBox7.Text)
  305.             SendKeys.Send("{enter}")
  306.         End If
  307.         If XtremeIncCheckbox7.Checked = True Then
  308.             SendKeys.Send("{enter}")
  309.             SendKeys.Send(KogXtremeIncTextBox1.Text)
  310.             SendKeys.Send("{enter}")
  311.             SendKeys.Send("{enter}")
  312.             SendKeys.Send(KogXtremeIncTextBox2.Text)
  313.             SendKeys.Send("{enter}")
  314.             SendKeys.Send("{enter}")
  315.             SendKeys.Send(KogXtremeIncTextBox3.Text)
  316.             SendKeys.Send("{enter}")
  317.             SendKeys.Send("{enter}")
  318.             SendKeys.Send(KogXtremeIncTextBox4.Text)
  319.             SendKeys.Send("{enter}")
  320.             SendKeys.Send("{enter}")
  321.             SendKeys.Send(KogXtremeIncTextBox5.Text)
  322.             SendKeys.Send("{enter}")
  323.             SendKeys.Send("{enter}")
  324.             SendKeys.Send(KogXtremeIncTextBox6.Text)
  325.             SendKeys.Send("{enter}")
  326.             SendKeys.Send("{enter}")
  327.             SendKeys.Send(KogXtremeIncTextBox7.Text)
  328.             SendKeys.Send("{enter}")
  329.             SendKeys.Send("{enter}")
  330.             SendKeys.Send(KogXtremeIncTextBox8.Text)
  331.             SendKeys.Send("{enter}")
  332.         End If
  333.     End Sub
  334.  
  335.     Private Sub XtremeIncButton1_Click_1(sender As System.Object, e As System.EventArgs) Handles XtremeIncButton1.Click
  336.         Timer1.Start()
  337.  
  338.     End Sub
  339. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!