Jump to content
MaxCheaters Official Group on Discord
-> Place your ad text here <-
LINEAGE2.GOLD INTERLUDE SERVER ON ESSENCE CLIENT

Auto Talker/Spammer | VB

Sponz

By Sponz
in Guides & Tutorials

 Share

Recommended Posts

Sponz Newbie

Sponz

Posted
Posted

This will be a pain in the ass to post so I'll just provide pictures to compare.

I created this GUI when I was bored, it's just an example of how it could be.

gui.png

This is the GUI that matches the snippet:

clean.png

 

Credits: [glow=red,2,300]Virtual Insanity[/glow]

Sponz Newbie

Sponz

Posted
  • Author
Posted 
Public Class Form1
   Dim multiplyfactor As Integer = 1000
   Private Sub stopfunction()
       GroupBox8.Enabled = True
       Button2.Enabled = False
       Button2.ForeColor = Color.Black
       Button3.Enabled = True
       Button4.Enabled = True
       Button5.Enabled = True
       Button6.Enabled = True
       Button7.Enabled = True
       NumericUpDown1.Enabled = True
       NumericUpDown2.Enabled = True
       NumericUpDown3.Enabled = True
       NumericUpDown4.Enabled = True
       Button2.Enabled = True
       GroupBox1.Enabled = True
       CheckBox6.Enabled = True
       Button1.Enabled = True
       CheckBox5.Enabled = True
       Label5.Enabled = True
       Label7.Text = "0"
       Label8.Text = "0"
       Label9.Text = "0"
       Label10.Text = "0"
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Button2.Enabled = True
       Button2.ForeColor = Color.Red
       GroupBox1.Enabled = False
       CheckBox6.Enabled = False
       Button1.Enabled = False
       CheckBox5.Enabled = False
       Label5.Enabled = False
       Button3.Enabled = False
       Button4.Enabled = False
       Button5.Enabled = False
       Button6.Enabled = False
       Button7.Enabled = False
       NumericUpDown1.Enabled = False
       NumericUpDown2.Enabled = False
       NumericUpDown3.Enabled = False
       NumericUpDown4.Enabled = False
       Dim startafter As Integer = Convert.ToDecimal(TextBox2.Text) * 1000
       If CheckBox5.Checked = True Then
           Threading.Thread.Sleep(startafter)

       End If
       If CheckBox3.Checked = True Then
           Timer1.Interval = Convert.ToDecimal(TextBox3.Text) * multiplyfactor
           Timer1.Start()
       End If
       If CheckBox1.Checked = True Then
           Timer2.Interval = Convert.ToDecimal(TextBox5.Text) * multiplyfactor
           Timer2.Start()
       End If
       If CheckBox2.Checked = True Then
           Timer3.Interval = Convert.ToDecimal(TextBox6.Text) * multiplyfactor
           Timer3.Start()
       End If
       If CheckBox4.Checked = True Then
           Timer4.Interval = Convert.ToDecimal(TextBox8.Text) * multiplyfactor
           Timer4.Start()
       End If
   End Sub

   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       If CheckBox10.Checked = True And CheckBox10.Enabled = True Then
           Label7.Text = Label7.Text + 1
           If Label7.Text >= Convert.ToDecimal(TextBox10.Text) And CheckBox10.Enabled = True Then
               Timer1.Stop()
               Label7.Text = "0"
               If Timer1.Enabled = False And Timer2.Enabled = False And Timer3.Enabled = False And Timer4.Enabled = False Then
                   stopfunction()
               End If
           End If
       End If
       If CheckBox14.Checked = True And CheckBox14.Enabled = True Then
           Label14.Text = Label14.Text + 1
           If Label14.Text > 30 Then
               Label14.ForeColor = Color.Orange
           End If
           If Label14.Text > 50 Then
               Label14.ForeColor = Color.Red
           End If
       End If
       If CheckBox16.Enabled = True Then
           Label15.Text = Label15.Text + 1
       End If
       If Label15.Text > 200 Then
           Label15.ForeColor = Color.Orange
       End If
       If Label15.Text > 500 Then
           Label15.ForeColor = Color.Red
       End If
       SendKeys.Send(TextBox1.Text & "{ENTER}")
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       stopfunction()
       Timer1.Stop()
       Timer2.Stop()
       Timer3.Stop()
       Timer4.Stop()
       Button2.Enabled = False
   End Sub

   Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
       If CheckBox9.Checked = True And CheckBox9.Enabled = True Then
           Label8.Text = Label8.Text + 1
           If Label8.Text >= Convert.ToDecimal(TextBox11.Text) And CheckBox9.Enabled = True Then
               Timer2.Stop()
               Label8.Text = "0"
               If Timer1.Enabled = False And Timer2.Enabled = False And Timer3.Enabled = False And Timer4.Enabled = False Then
                   stopfunction()
               End If
           End If
       End If
       If CheckBox13.Checked = True And CheckBox13.Enabled = True Then
           Label13.Text = Label13.Text + 1
           If Label13.Text > 30 Then
               Label13.ForeColor = Color.Orange
           End If
           If Label13.Text > 50 Then
               Label13.ForeColor = Color.Red
           End If
       End If
       If CheckBox16.Enabled = True Then
           Label15.Text = Label15.Text + 1
       End If
       If Label15.Text > 200 Then
           Label15.ForeColor = Color.Orange
       End If
       If Label15.Text > 500 Then
           Label15.ForeColor = Color.Red
       End If
       SendKeys.Send(TextBox4.Text & "{ENTER}")
   End Sub

   Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
       If CheckBox11.Checked = True And CheckBox11.Enabled = True Then
           Label9.Text = Label9.Text + 1
           If Label9.Text >= Convert.ToDecimal(TextBox12.Text) And CheckBox11.Enabled = True Then
               Timer3.Stop()
               Label9.Text = "0"
               If Timer1.Enabled = False And Timer2.Enabled = False And Timer3.Enabled = False And Timer4.Enabled = False Then
                   stopfunction()
               End If
           End If
       End If
       If CheckBox15.Checked = True And CheckBox15.Enabled = True Then
           Label12.Text = Label12.Text + 1
           If Label12.Text > 30 Then
               Label12.ForeColor = Color.Orange
           End If
           If Label12.Text > 50 Then
               Label12.ForeColor = Color.Red
           End If
       End If
       If CheckBox16.Enabled = True Then
           Label15.Text = Label15.Text + 1
       End If
       If Label15.Text > 200 Then
           Label15.ForeColor = Color.Orange
       End If
       If Label15.Text > 500 Then
           Label15.ForeColor = Color.Red
       End If
       SendKeys.Send(TextBox7.Text & "{ENTER}")
   End Sub

   Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
       If CheckBox8.Checked = True And CheckBox8.Enabled = True Then
           Label10.Text = Label10.Text + 1
           If Label10.Text >= Convert.ToDecimal(TextBox13.Text) And CheckBox8.Enabled = True Then
               Timer4.Stop()
               Label10.Text = "0"
               If Timer1.Enabled = False And Timer2.Enabled = False And Timer3.Enabled = False And Timer4.Enabled = False Then
                   stopfunction()
               End If
           End If
       End If
       If CheckBox12.Checked = True And CheckBox12.Enabled = True Then
           Label11.Text = Label11.Text + 1
           If Label11.Text > 30 Then
               Label11.ForeColor = Color.Orange
           End If
           If Label11.Text > 50 Then
               Label11.ForeColor = Color.Red
           End If
       End If
       If CheckBox16.Enabled = True Then
           Label15.Text = Label15.Text + 1
       End If
       If Label15.Text > 200 Then
           Label15.ForeColor = Color.Orange
       End If
       If Label15.Text > 500 Then
           Label15.ForeColor = Color.Red
       End If
       SendKeys.Send(TextBox9.Text & "{ENTER}")
   End Sub

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       Dim num_characters As Integer
       Dim i As Integer
       Dim txt1 As String
       Dim ch As Integer
       Randomize()
       num_characters = Convert.ToDecimal(NumericUpDown1.Text)
       For i = 1 To num_characters
           ch = Int((26 + 26 + 10) * Rnd())
           If ch < 26 Then
               txt1 = txt1 & Chr(ch + Asc("A"))
           ElseIf ch < 2 * 26 Then
               ch = ch - 26
               txt1 = txt1 & Chr(ch + Asc("a"))
           Else
               ch = ch - 26 - 26
               txt1 = txt1 & Chr(ch + Asc("0"))
           End If
       Next i
       TextBox1.Text = txt1
   End Sub

   Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
       Dim num_characters As Integer
       Dim i As Integer
       Dim txt1 As String
       Dim ch As Integer
       Randomize()
       num_characters = Convert.ToDecimal(NumericUpDown2.Text)
       For i = 1 To num_characters
           ch = Int((26 + 26 + 10) * Rnd())
           If ch < 26 Then
               txt1 = txt1 & Chr(ch + Asc("A"))
           ElseIf ch < 2 * 26 Then
               ch = ch - 26
               txt1 = txt1 & Chr(ch + Asc("a"))
           Else
               ch = ch - 26 - 26
               txt1 = txt1 & Chr(ch + Asc("0"))
           End If
       Next i
       TextBox4.Text = txt1
   End Sub

   Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
       Dim num_characters As Integer
       Dim i As Integer
       Dim txt1 As String
       Dim ch As Integer
       Randomize()
       num_characters = Convert.ToDecimal(NumericUpDown3.Text)
       For i = 1 To num_characters
           ch = Int((26 + 26 + 10) * Rnd())
           If ch < 26 Then
               txt1 = txt1 & Chr(ch + Asc("A"))
           ElseIf ch < 2 * 26 Then
               ch = ch - 26
               txt1 = txt1 & Chr(ch + Asc("a"))
           Else
               ch = ch - 26 - 26
               txt1 = txt1 & Chr(ch + Asc("0"))
           End If
       Next i
       TextBox7.Text = txt1
   End Sub

   Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
       Dim num_characters As Integer
       Dim i As Integer
       Dim txt1 As String
       Dim ch As Integer
       Randomize()
       num_characters = Convert.ToDecimal(NumericUpDown4.Text)
       For i = 1 To num_characters
           ch = Int((26 + 26 + 10) * Rnd())
           If ch < 26 Then
               txt1 = txt1 & Chr(ch + Asc("A"))
           ElseIf ch < 2 * 26 Then
               ch = ch - 26
               txt1 = txt1 & Chr(ch + Asc("a"))
           Else
               ch = ch - 26 - 26
               txt1 = txt1 & Chr(ch + Asc("0"))
           End If
       Next i
       TextBox9.Text = txt1
   End Sub

   Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
       Dim num_characters As Integer
       Dim i As Integer
       Dim txt1 As String
       Dim ch As Integer
       Randomize()
       num_characters = Convert.ToDecimal(NumericUpDown1.Text)
       For i = 1 To num_characters
           ch = Int((26 + 26 + 10) * Rnd())
           If ch < 26 Then
               txt1 = txt1 & Chr(ch + Asc("A"))
           ElseIf ch < 2 * 26 Then
               ch = ch - 26
               txt1 = txt1 & Chr(ch + Asc("a"))
           Else
               ch = ch - 26 - 26
               txt1 = txt1 & Chr(ch + Asc("0"))
           End If
       Next i
       TextBox1.Text = txt1

       Dim txt2 As String
       num_characters = Convert.ToDecimal(NumericUpDown2.Text)
       For i = 1 To num_characters
           ch = Int((26 + 26 + 10) * Rnd())
           If ch < 26 Then
               txt2 = txt2 & Chr(ch + Asc("A"))
           ElseIf ch < 2 * 26 Then
               ch = ch - 26
               txt2 = txt2 & Chr(ch + Asc("a"))
           Else
               ch = ch - 26 - 26
               txt2 = txt2 & Chr(ch + Asc("0"))
           End If
       Next i
       TextBox4.Text = txt2

       Dim txt3 As String
       num_characters = Convert.ToDecimal(NumericUpDown3.Text)
       For i = 1 To num_characters
           ch = Int((26 + 26 + 10) * Rnd())
           If ch < 26 Then
               txt3 = txt3 & Chr(ch + Asc("A"))
           ElseIf ch < 2 * 26 Then
               ch = ch - 26
               txt3 = txt3 & Chr(ch + Asc("a"))
           Else
               ch = ch - 26 - 26
               txt3 = txt3 & Chr(ch + Asc("0"))
           End If
       Next i
       TextBox7.Text = txt3

       Dim txt4 As String
       num_characters = Convert.ToDecimal(NumericUpDown4.Text)
       For i = 1 To num_characters
           ch = Int((26 + 26 + 10) * Rnd())
           If ch < 26 Then
               txt4 = txt4 & Chr(ch + Asc("A"))
           ElseIf ch < 2 * 26 Then
               ch = ch - 26
               txt4 = txt4 & Chr(ch + Asc("a"))
           Else
               ch = ch - 26 - 26
               txt4 = txt4 & Chr(ch + Asc("0"))
           End If
       Next i
       TextBox9.Text = txt4
   End Sub

   Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
       If CheckBox5.Checked = True Then
           TextBox2.Enabled = True
           Label5.Enabled = True
       Else
           TextBox2.Enabled = False
           Label5.Enabled = False
       End If
   End Sub

   Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged
       If CheckBox6.Checked = True Then
           TopMost = True
       Else
           TopMost = False
       End If
   End Sub

   Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
       Dim site As String = "http://www.hackforums.net/member.php?action=profile&uid=647993"
       Process.Start(site)
   End Sub

   Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
       If RadioButton2.Checked = True Then
           multiplyfactor = 1
       End If
   End Sub

   Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
       If RadioButton4.Checked = True Then
           multiplyfactor = 1
       End If
   End Sub

   Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged
       If RadioButton6.Checked = True Then
           multiplyfactor = 1
       End If
   End Sub

   Private Sub RadioButton8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton8.CheckedChanged
       If RadioButton8.Checked = True Then
           multiplyfactor = 1
       End If
   End Sub

   Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
       If RadioButton1.Checked = True Then
           multiplyfactor = 1000
       End If
   End Sub

   Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
       If RadioButton3.Checked = True Then
           multiplyfactor = 1000
       End If
   End Sub

   Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
       If RadioButton5.Checked = True Then
           multiplyfactor = 1000
       End If
   End Sub

   Private Sub RadioButton7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton7.CheckedChanged
       If RadioButton7.Checked = True Then
           multiplyfactor = 1000
       End If
   End Sub

   Private Sub CheckBox7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox7.CheckedChanged
       If CheckBox7.Checked = True Then
           CheckBox8.Enabled = True
           CheckBox9.Enabled = True
           CheckBox10.Enabled = True
           CheckBox11.Enabled = True
           If CheckBox8.Checked = True Then
               TextBox13.Enabled = True
               Label6.Enabled = True
           End If
           If CheckBox9.Checked = True Then
               TextBox11.Enabled = True
               Label3.Enabled = True
           End If
           If CheckBox10.Checked = True Then
               TextBox10.Enabled = True
               Label2.Enabled = True
           End If
           If CheckBox11.Checked = True Then
               TextBox12.Enabled = True
               Label4.Enabled = True
           End If
       Else
           CheckBox8.Enabled = False
           CheckBox9.Enabled = False
           CheckBox10.Enabled = False
           CheckBox11.Enabled = False
           TextBox10.Enabled = False
           TextBox11.Enabled = False
           TextBox12.Enabled = False
           TextBox13.Enabled = False
           Label2.Enabled = False
           Label3.Enabled = False
           Label4.Enabled = False
           Label6.Enabled = False
       End If
   End Sub

   Private Sub CheckBox10_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox10.CheckedChanged
       If CheckBox10.Checked = True Then
           TextBox10.Enabled = True
           Label2.Enabled = True
       Else
           TextBox10.Enabled = False
           Label2.Enabled = False
       End If
   End Sub

   Private Sub CheckBox9_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox9.CheckedChanged
       If CheckBox9.Checked = True Then
           TextBox11.Enabled = True
           Label3.Enabled = True
       Else
           TextBox11.Enabled = False
           Label3.Enabled = False
       End If
   End Sub

   Private Sub CheckBox11_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox11.CheckedChanged
       If CheckBox11.Checked = True Then
           TextBox12.Enabled = True
           Label4.Enabled = True
       Else
           TextBox12.Enabled = False
           Label4.Enabled = False
       End If
   End Sub

   Private Sub CheckBox8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox8.CheckedChanged
       If CheckBox8.Checked = True Then
           TextBox13.Enabled = True
           Label6.Enabled = True
       Else
           TextBox13.Enabled = False
           Label6.Enabled = False
       End If
   End Sub

   Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
       If CheckBox3.Checked = True Then
           TextBox1.Enabled = True
           TextBox3.Enabled = True
           GroupBox4.Enabled = True
       Else
           TextBox1.Enabled = False
           TextBox3.Enabled = False
           GroupBox4.Enabled = False
       End If
   End Sub

   Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
       If CheckBox1.Checked = True Then
           TextBox4.Enabled = True
           TextBox5.Enabled = True
           GroupBox5.Enabled = True
       Else
           TextBox4.Enabled = False
           TextBox5.Enabled = False
           GroupBox5.Enabled = False
       End If
   End Sub

   Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
       If CheckBox2.Checked = True Then
           TextBox6.Enabled = True
           TextBox7.Enabled = True
           GroupBox6.Enabled = True
       Else
           TextBox6.Enabled = False
           TextBox7.Enabled = False
           GroupBox6.Enabled = False
       End If
   End Sub

   Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
       If CheckBox4.Checked = True Then
           TextBox8.Enabled = True
           TextBox9.Enabled = True
           GroupBox7.Enabled = True
       Else
           TextBox8.Enabled = False
           TextBox9.Enabled = False
           GroupBox7.Enabled = False
       End If
   End Sub

   Private Sub CheckBox16_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox16.CheckedChanged
       If CheckBox16.Checked = True Then
           Label15.Visible = True
           CheckBox12.Enabled = True
           CheckBox13.Enabled = True
           CheckBox14.Enabled = True
           CheckBox15.Enabled = True
           If CheckBox14.Checked = True Then
               Label14.Enabled = True
               Button9.Enabled = True
           End If
           If CheckBox13.Checked = True Then
               Label13.Enabled = True
               Button10.Enabled = True
           End If
           If CheckBox15.Checked = True Then
               Label12.Enabled = True
               Button11.Enabled = True
           End If
           If CheckBox12.Checked = True Then
               Label11.Enabled = True
               Button12.Enabled = True
           End If
       Else
           Label15.Visible = False
           CheckBox12.Enabled = False
           CheckBox13.Enabled = False
           CheckBox14.Enabled = False
           CheckBox15.Enabled = False
           Label11.Enabled = False
           Label12.Enabled = False
           Label13.Enabled = False
           Label14.Enabled = False
           Button9.Enabled = False
           Button10.Enabled = False
           Button11.Enabled = False
           Button12.Enabled = False
       End If
   End Sub

   Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
       Label14.Text = "0"
       Label14.ForeColor = Color.White
   End Sub

   Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
       Label13.Text = "0"
       Label13.ForeColor = Color.White
   End Sub

   Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
       Label12.Text = "0"
       Label12.ForeColor = Color.White
   End Sub

   Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
       Label11.Text = "0"
       Label11.ForeColor = Color.White
   End Sub

   Private Sub CheckBox14_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox14.CheckedChanged
       If CheckBox14.Checked = True Then
           Label14.Enabled = True
           Button9.Enabled = True
       Else
           Label14.Enabled = False
           Button9.Enabled = False
       End If
   End Sub

   Private Sub CheckBox13_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox13.CheckedChanged
       If CheckBox13.Checked = True Then
           Label13.Enabled = True
           Button10.Enabled = True
       Else
           Label13.Enabled = False
           Button10.Enabled = False
       End If
   End Sub

   Private Sub CheckBox15_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox15.CheckedChanged
       If CheckBox15.Checked = True Then
           Label12.Enabled = True
           Button11.Enabled = True
       Else
           Label12.Enabled = False
           Button11.Enabled = False
       End If
   End Sub

   Private Sub CheckBox12_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox12.CheckedChanged
       If CheckBox12.Checked = True Then
           Label11.Enabled = True
           Button12.Enabled = True
       Else
           Label11.Enabled = False
           Button12.Enabled = False
       End If
   End Sub

   Private Sub Label15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label15.Click

   End Sub

   Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
       Label11.Text = "0"
       Label12.Text = "0"
       Label13.Text = "0"
       Label14.Text = "0"
       Label15.Text = "0"
       Label11.ForeColor = Color.Black
       Label12.ForeColor = Color.Black
       Label13.ForeColor = Color.Black
       Label14.ForeColor = Color.Black
       Label15.ForeColor = Color.Black
   End Sub

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing


  • Posts

    • Splicho
      [L2J] L2Relic

      By Splicho · Posted

      wtf is your website lol ai slop
    • wongerlt
      L2OFF API for NodeJS

      By wongerlt · Posted

      who have this files? or info about cached packets?
    • Banshee Garnet
      Fun L2PTS server

      By Banshee Garnet · Posted

      Hi maxcheaters, i am trying to bring back an old server ( L2Revenge) but with my own ideas, i only liked how it was and made the gameplay based on that just putting my own ideas.   So practicly is a PTS C6 with an extender that i work lately    Exp / SP is x45 adena is x200 and drops x5  so safe is +3 , max is unlimited and rate is 65% for both mage and fighter weapons I created a system that you can get on the levels the gear you need based on farm but for S grade theres a little farm to get some armor Tokens to unseal them. As you remember L2Revenge had olympiad / Tournament gear. So people abused them and had S grades that way just couldnt enchant them. So i made to be wearable only if u are nobless. That way i cancel this "exploit".  The server gives opportunity to solo and clans , epic gear ( epic weapons) or armors can be bought with raid tokens and you can craft them or get them with various ways Regarding Buffs: 24 buff slots no changes asked. Cov/Pony/Cat , siren - renewal - champion out of buffer , if u make the char as main roll u can use them or use the offline buffer system to sell them and get adenas. their time is 20 mins so that way we see again the " 1kk for rene/siren" or rec = song  Regarding armors: they are dropped ( parts ) from 3 only raids , rest lvl 76+ raids drop recipes , so crafting takes place (so if u are solo u can craft them )  there are 3 armors each armor have its purpose: Revenge Armors - Example for light ( its a glass cannon , high damage , less atk speed and less pdef ) - they mostly modify your base stats, so useable on sieges or off tank chars Titanium Armors - A little bit of balanced of all  Epic Armor - Daggers/Enchanters/Healers mostly but u can always combine your build    Regarding weapons: can be dropped from Monastery of Silence monsters or get them from NPC with Raid Tokens its like a 5% better than S grades and the S/A Activates at +4  Regarding retail gear: you need to unseal only S grades for a great amount of armor tokens all weapons on any grade need Soul crystals that are sold for adenas  stage 13 crystals are expensive or dropped from raids Regarding fun: There is a squash event a Fortress vs Fortress pvp event an RB Event at weekends and from Monday - Wednesday Tournament ( Olympiad is closed monday/tuesday/wednesday)  at tournament you can practice 1vs1 like olympiad but pots/ss allowed , gear allowed is only olympiad or tournament , each win of match gives u 5 glits at 100 glits u can be hero till restart Olympiad works the same way regarding gear allowance but works only thursday to friday and you win monthly hero Auction with Raid Tokens is activated Event medals from events can be exchanged for various items i try to make the oldschool with a little bit of new school systems Not planing to open it anytime soon as i still develop and make corrections to extender , looking forward to meet people that actually played this and are hyped to help on testing / development   P.S is c5 into interlude ( theres no akamanah / nor PI aswell , no lifestones) forgot to mention
    • xRelic
      [L2J] L2Relic

      By xRelic · Posted

      Announcement – L2 Relic Server Opening Soon! We’re excited to share some great news! Our team has been working hard behind the scenes, and we’re nearly ready to launch our brand-new Lineage server this winter. The journey is just about to begin – so prepare yourselves! Gather your friends, sharpen your skills, and get ready to experience an epic adventure. Stay tuned for more details, updates, and the official beta-opening date. This winter, history will be written once again… are you ready?   Developed by https://dailyhost.eu/
    • Morrison2102
      Morison Store Cheap Torrent Trackers/NZB Indexers

      By Morrison2102 · Posted

      General Trackers :   IPTorrents invite IPTorrents account 1 tb TorrentLeech invite Torrentleech account 1 tb buffer  InTheShaDow ( ITS ) account Acid-lounge invite Torrentday invite Crnaberza account Abn.Lol account Limit-of-eden account Norbits account Xspeeds account Xspeeds invite Bemaniso invite Wigornot account Bithumen invite Filelist account Funfile invite AvistaZ invite Potuk.net invite ResurrectThe.Net invite GrabThe.Info invite Greek-Team invite LinkoManija invite Fano.in account TreZzoR account Speed.cd invite Arab-torrents.net account Arabscene.me account Scenetime account 4thd.xyz invite Btarg.com.ar account Dedbit invite Estone.cc account Speedapp invite Finvip invite Fluxzone account GigaTorrents account Gimmepeers account Haidan.video invite Mojblink account Mycarpathians invite Newinsane.info account Oscarworld.xyz account Peers.FM invite Pt.msg.vg account Ransackedcrew account Redemption invite Scene-rush account Seedfile.io invite Teracod invite Torrent.ai account Torrentmasters invite Ttsweb invite X-files invite X-ite invite Ncore account TorrentHR account Rptorrents account BwTorrents account Superbits invite Krazyzone account Immortalseed account Tntracker invite Pt.eastgame.org account Bitturk account Rstorrent account Tracker.btnext invite Torrent-turk.de account BeiTai.PT account Pt.keepfrds account 52pt.site account Pthome account Torrentseeds account Aystorrent account Blues-brothers.biz invite Divteam account Thesceneplace invite CinemaMovies.pl account Brasiltracker account Patiodebutacas account Newheaven.nl account  Swarmazon.club invite Bc-reloaded account Crazyspirits account Silentground invite Omg.wtftrackr invite Milkie.cc invite Breathetheword invite Madsrevolution account Chilebt account Yubraca account Uniongang.tv account Frboard account Exvagos account Diablotorrent account Microbit account Carp-hunter.hu account Majomparade.eu account Theshinning.me account Youiv.info account Dragonworld-reloaded account Sharewood.tv account Partis.si account Digitalcore.club invite Fuzer.me account R3vuk.wtf invite Ztracker account 1 tb buffer 3changtrai account Best-core.info account Bitsite.us account Eliteunitedcrew invite Exitorrent.org account Tophos invite Torrent.lt account Sktorrent.eu account Oshen account Blackhattorrent account Pirata.digital account Esharenet account Ohmenarikgi.la Pirate-share account Immortuos account Kiesbits account Cliente.amigos-share.club account Broadcity invite Ilovetorzz account Torrentbytes account Polishsource account Portugas invite Shareisland account ArabaFenice account Hudbt.hust.edu.cn account Audiences account Nanyangpt account Pt.sjtu.edu.cn account Pt.zhixing.bjtu.edu.cn account Byr.pt invite Ptfiles invite Red-bits account Pt.hdpost.top account Irrenhaus.dyndns.dk (NewPropaganda) account Mnvv2.info (MaxNewVision V2) account 1ptba.com account Spidertk.top account Film-paleis account Generation-free account Aftershock-tracker account Twilightsdreams account Back-ups.me invite Sor-next.tk ( Spirit Of Revolution ) account Tfa.tf ( The Falling Angels ) account Hdmayi account S-f-p.dyndns.dk ( Share Friends Projekt ) account Unlimitz.biz account Pttime account St-tracker.eu account New-retro.eu account Zbbit account Tigers-dl.net account Jptvts.us account Lat-team account Club.hares.top account Falkonvision-team account Concen account Drugari account T.ceskeforum account Peeratiko.org account Zamunda.se account Central-torrent.eu account h-o-d.org account Torrentleech.pl account Demonoid invite Lst.gg account Fakedoor.store account LaidBackManor account Vrbsharezone.co.uk invite Torrenteros account Arenaelite account Datascene account Tracker.0day.community Tapochek.net invite Ptchina invite Lesaloon account Exyusubs account Therebels.tv account Ubits.club invite Zmpt.cc account Turktorrent.us account Dasunerwarte account Hawke.uno account Monikadesign account Fearnopeer account Alpharatio account Wukongwendao.top account Chinapyg account Azusa.wiki account Yggtorrent.top account Torrentdd account Cyanbug.net invite Hhanclub.top account Wintersakura.net account Xthor account Tctg.pm account Finelite invite Agsvpt.com account Pt.0ff.cc invite Qingwapt.com account Xingtan.one account Movies Trackers :   Anthelion account Pixelhd account Cinemageddon account DVDSeed account Cinemageddon account Cinemaz account Retroflix account Classix-unlimited - invite Movie-Torrentz (m2g.link) invite Punck-tracker.net account Tmghub account Tb-asian account Cathode-ray.tube account Greatposterwall account Telly account Arabicsource.net account Upload.cx account Crabpt.vip invite   HD Trackers :   Hdf.world account Torrentland.li account HdSky account Hdchina account Chdbits account Totheglory account Hdroute account Hdhome account TorrentCCF aka et8.org account 3DTorrents invite HD-Torrents account Bit-HDTV account HDME.eu invite Hdarea.co account Asiancinema.me account JoyHD invite HDSpace invite CrazyHD invite Bluebird-hd invite Htpt.cc account Hdtime invite Ourbits.club account Hd4fans account Siambit account Privatehd account Springsunday account Tjupt account Hdcity.leniter invite Ccfbits account Discfan account Pt.btschool.club account Ptsbao.club invite Hdzone.me invite Danishbytes account Zonaq.pw account Tracker.tekno3d account Arabp2p account Hd-united account Reelflix.xyz account Hdatmos.club account Anasch.cc invite Tigris-t account Nethd.org account Hd.ai invite Hitpt.com account Hdmonkey account Dragonhd.xyz account Hdclub.eu account Forum.bluraycd.com account Carpt account Hdfun.me invite Pt.hdupt invite Puntotorrent account Ultrahd account Rousi.zip account Bearbit account Hdturk.club account Asiandvdclub account   Music Trackers :   Dicmusic account Music-Vid account Open.cd account LzTr account ProAudioTorrents invite Jpopsuki invite TranceTraffic invite Audionews invite Kraytracker invite Libble.me invite Losslessclub invite Indietorrents.com invite Dimeadozen account Funkytorrents invite Karaokedl account zombtracker.the-zomb account Concertos invite Sugoimusic account Satclubbing.club invite Metal.iplay invite Psyreactor invite Panda.cd account Adamsfile account Freehardmusic account Tracker.hqmusic.vn accouunt Twilightzoom account 3 tb buffer Hiresmusic account Metalguru account   E-Learning Trackers :   BitSpyder invite Brsociety account Learnbits invite Myanonamouse account Libranet account 420Project account Learnflakes account Pt.soulvoice.club account P2pelite account Aaaaarg.fail invite Ebooks-shares.org account Abtorrents account Pt.tu88.men invite   TV-Trackers :   Skipthecommericals Cryptichaven account TV-Vault invite Shazbat.TV account Myspleen account Tasmanit.es invite Tvstore.me account Tvchaosuk account Jptv.club account Tvroad.info   XXX - Porn Trackers :   FemdomCult account Pornbay account Pussytorrents account Adult-cinema-network account Bootytape account 1 Tb buffer Exoticaz account Bitporn account Kufirc account Gaytorrent.ru invite Nicept account Gay-torrents.org invite Ourgtn account Pt.hdbd.us account BitSexy account Happyfappy.org account Kamept.com account   Gaming Trackers :   Mteam.fr account BitGamer invite Retrowithin invite Gamegamept account   Cartoon/Anime/Comic Trackers :   Animeworld account Oldtoons.world account U2.dmhy account CartoonChaos invite Animetorrents account Mononoke account Totallykids.tv account Bakabt.me invite Revanime account Ansktracker account Tracker.shakaw.com.br invite Bt.mdan.org account Skyey2.com account Animetracker.cc Adbt.it.cx invite Sports Trackers :   MMA-Tracker invite T3nnis.tv invite AcrossTheTasman account RacingForMe invite Sportscult invite Ultimatewrestlingtorrents account Worldboxingvideoarchive invite CyclingTorrents account Xtremewrestlingtorrents account Tc-boxing invite Mma-torrents account Aussierul invite Xwt-classics account Racing4everyone account Talk.tenyardtracker account Stalker.societyglitch invite Extremebits invite   Software/Apps Trackers :   Brokenstones account Appzuniverse invite Teamos.xyz account Graphics Trackers: Forum.Cgpersia account Gfxpeers account Forum.gfxdomain account Documentary Trackers: Forums.mvgroup account   Others   Fora.snahp.eu account Board4all.biz account Filewarez.tv account Makingoff.org/forum account Xrel.to account Undergunz.su account Corebay account Endoftheinter.net ( EOTI ) account Thismight.be invite Skull.facefromouter.space account Avxhm.se (AvaxHome) account Ssdforum account Notfake.vip account Intotheinter.net account Tildes.net invite Thetoonz account Usinavirtual account Hdclasico invite HispaShare account Valentine.wtf account Adit-hd account Forum-andr.net account Warezforums account Justanothermusic.site account Forbiddenlibrary.moe account Senturion.to account Movieparadise account Militaryzone account Dcdnet.ru account Sftdevils.net account Heavy-r.com account New-team.org account   NZB :   Drunkenslug account Drunkenslug invite Usenet-4all account Brothers-of-Usenet account Dognzb.cr invite Kleverig account Nzb.cat account Nzbplanet.net invite Ng4you.com account Nzbsa.co.za account Bd25.eu account NZB.to account Samuraiplace account Tabula-rasa.pw account   Prices start from 3 $ to 100 $   Payment methods: Crypto, Neteller, Webmoney, Revolut   If you want to buy something send me a pm or contact me on:   Email: morrison2102@gmail.com   Discord: LFC4LIFE#4173   Telegram: https://t.me/LFC4LIFE4173   Skype: morrison2102@hotmail.com

  • Topics

×
×
  • Create New...

AdBlock Extension Detected!

Our website is made possible by displaying online advertisements to our members.

Please disable AdBlock browser extension first, to be able to use our community.

I've Disabled AdBlock