iWeeKeni

[VB.NET] Tutorial Nº 2 By Weeken : Creacion De Un Login ¿Para Que Sirve Esto? Este Programa Mas Que Nada Sirve Para Tener Alguna Seguridad A Tus Programas, Tambien Puede Utilizarlo Para Guardar Informacion Personal Asi No Podran Obtener La Informacion, Sino Por La Contraseña IMPORTANTE :Las Contraseñas Visual Basic "No Se Pueden Hackear!" Asi Que Eso Nos Brindan Una Muy Buena Proteccion ;) Comenzemos! (: Paso 1 : Creamos un nuevo proyecto en VB.net (Aplicación) Paso 2 : Creamos > 4 TextBox 3 Labels 1 Button 1 Timer Los Acomodamos y Nos Quedaria Algo Asi.. Paso 3 : Click Sobre El TextBox De > "Contraseña" y En Las Propiedades Cambiar Esto: Paso 4 : Hacemos Lo Mismo Con El TextBox Que Esta Al Lado Del Label De "Codigo" Paso 5 : El TextBox Que Esta Apartados De Todos, Le Hacemos Click, Vamos A Las Propiedades Y Cambiamos Esto: Paso 6 : Hacer Lo Mismo Con El Boton Paso 7 : Agamos Un Click Sobre El Reloj (Ya Creado) Paso 8 : Editamos Lo Siguiente En Propiedades Paso 9 : Editamos El Codigo De Timer1 Con Doble Click Sobre El Ponemos Esto : Paso 10 : Editamos El Codigo De Button1 Con Doble Click Sobre El Ponemos Esto : Paso 11 : Vamos a Proyecto > Agregar Windows Form. Paso 11 : Doble Click Sobre Form2.vb y Comenzar A Editar El Contenido Que Quieres Guardar!, Tus Datos Estan A Salvo Haora! ;) Felicidades!, Terminaste El Programa Asi Es Como Me Quedo A Mi : Datos Para Mi Login : Cuenta : weeken Contraseña : contraseña codigo : 4048 PD: TENGAN EN CUENTA LAS MAYUSCULAS Y MINUSCULAS Click Aqui Para Descargar El Programa Creditos : Weeken

I congratulate you ;)

I will not do what you tell me, I want to sell this program works and if I buy it or not belive me, not interests me your comments, but without trying not to talk, you also questioned my sql creator armor, I had a virus or was keyloger, like all my other programs ... I think this community need no y no me I do not expended to give me just complaints and accusations. PD: and please close the post. >:(

here are the blank form Public Class Form1 Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub TextBox12_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox2.Text = "" Then MessageBox.Show("", "") Else End If If TextBox4.Text = "" Then MessageBox.Show("") Else End If If TextBox5.Text = "" Then MessageBox.Show("") Else End If If ListBox1.SelectedItem = "g" Then MessageBox.Show("t'", "s") Else End If If ListBox2.SelectedItem = "" Then MessageBox.Show("'", "W") Else End If If ListBox3.SelectedItem = "" Then MessageBox.Show("'", "W") Else End If If CheckBox1.Checked = False And CheckBox2.Checked = False Then MessageBox.Show("") Else End If If CheckBox3.Checked = False And CheckBox4.Checked = False Then MessageBox.Show("") Else End If If CheckBox6.Checked = False And CheckBox5.Checked = False Then MessageBox.Show("H'", "") Else End If If CheckBox8.Checked = False And CheckBox7.Checked = False Then MessageBox.Show("") Else End If If CheckBox10.Checked = False And CheckBox9.Checked = False Then MessageBox.Show("'", "") Else End If If CheckBox11.Checked = False And CheckBox12.Checked = False Then MessageBox.Show("P'", "") Else End If If TextBox9.Text = "" Then MessageBox.Show("") Else End If If TextBox19.Text = "" Then MessageBox.Show("'", "") Else End If If TextBox13.Text = "" Then MessageBox.Show("'", "") Else End If If TextBox14.Text = "" Then MessageBox.Show("'", "") Else End If If TextBox15.Text = "" Then MessageBox.Show("", "") Else End If If TextBox16.Text = "" Then MessageBox.Show("", "") Else End If If TextBox17.Text = "" Then MessageBox.Show("'", "") Else End If If TextBox18.Text = "" Then MessageBox.Show("", "") Else End If If Button1.ForeColor = Color.Lime Then Dim Save As New SaveFileDialog() Dim myStreamWriter As System.IO.StreamWriter Save.Filter = "" Save.CheckPathExists = True Save.Title = "" Save.ShowDialog(Me) Try myStreamWriter = System.IO.File.AppendText(Save.FileName) myStreamWriter.Write(document.Text) myStreamWriter.Flush() Catch Ex As Exception End Try Else End If End Sub Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged CheckBox2.Checked = False End Sub Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged CheckBox1.Checked = False End Sub Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged CheckBox3.Checked = False End Sub Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged CheckBox4.Checked = False End Sub Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged CheckBox5.Checked = False End Sub Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged CheckBox6.Checked = False End Sub Private Sub CheckBox8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox8.CheckedChanged CheckBox7.Checked = False End Sub Private Sub CheckBox7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox7.CheckedChanged CheckBox8.Checked = False End Sub Private Sub CheckBox10_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox10.CheckedChanged CheckBox9.Checked = False End Sub Private Sub CheckBox9_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox9.CheckedChanged CheckBox10.Checked = False End Sub Private Sub CheckBox11_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox11.CheckedChanged CheckBox12.Checked = False End Sub Private Sub CheckBox12_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox12.CheckedChanged CheckBox11.Checked = False End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If ListBox1.SelectedItem = "<3sr" Then TextBox6.Text = "'gs3r'" End If If ListBox1.SelectedItem = "<4sr" Then TextBox6.Text = "'gs4r'" End If If ListBox1.SelectedItem = "<5sr" Then TextBox6.Text = "'gs5gs'" End If If ListBox1.SelectedItem = "w8w8" Then TextBox6.Text = "'x2x8'" End If If ListBox1.SelectedItem = "drah" Then TextBox6.Text = "'sagn'" End If If ListBox1.SelectedItem = "NONE<" Then TextBox6.Text = "'TRING'" End If If ListBox1.SelectedItem = "D1Y2" Then TextBox6.Text = "'AA7'" End If If ListBox1.SelectedItem = "G77Y" Then TextBox6.Text = "'187'" End If If ListBox1.SelectedItem = "A9T" Then TextBox6.Text = "'557'" End If If ListBox1.SelectedItem = "A8T" Then TextBox6.Text = "'rear,lear'" End If If ListBox1.SelectedItem = "A7T" Then TextBox6.Text = "'rfinger,lfinger'" End If If ListBox1.SelectedItem = "DMANIT" Then TextBox6.Text = "'XX5T7'" End If If ListBox1.SelectedItem = "X3D3F8l" Then TextBox6.Text = "'V5R7'" End If If ListBox2.SelectedItem = "Heavy" Then TextBox7.Text = "'S7R8R'" End If If ListBox2.SelectedItem = "LIGHENT" Then TextBox7.Text = "'<4T'" End If If ListBox2.SelectedItem = "HI1GR0E" Then TextBox7.Text = "'57717'" End If If ListBox2.SelectedItem = "DONE" Then TextBox7.Text = "'GREAT5'" End If If ListBox3.SelectedItem = "GSR5R3A" Then TextBox8.Text = "'2287'" End If If ListBox3.SelectedItem = "x3DD58T" Then TextBox8.Text = "'hh3f'" End If If ListBox3.SelectedItem = "hh3f" Then TextBox8.Text = "'hh3f'" End If If ListBox3.SelectedItem = "hh3f" Then TextBox8.Text = "'hh3f'" End If If ListBox3.SelectedItem = "FRY" Then TextBox8.Text = "'SA'" End If If ListBox3.SelectedItem = "None" Then TextBox8.Text = "'none'" End If If CheckBox1.Checked = True Then TextBox11.Text = "'true'" ElseIf CheckBox2.Checked = True Then TextBox11.Text = "'false'" End If If CheckBox4.Checked = True Then TextBox12.Text = "'true'" ElseIf CheckBox3.Checked = True Then TextBox12.Text = "'false'" End If If CheckBox6.Checked = True Then TextBox20.Text = "'true'" ElseIf CheckBox5.Checked = True Then TextBox20.Text = "'false'" End If If CheckBox8.Checked = True Then TextBox21.Text = "'true'" ElseIf CheckBox7.Checked = True Then TextBox21.Text = "'false'" End If If CheckBox10.Checked = True Then TextBox22.Text = "'true'" ElseIf CheckBox9.Checked = True Then TextBox22.Text = "'false'" End If If CheckBox12.Checked = True Then TextBox23.Text = "'true'" ElseIf CheckBox11.Checked = True Then TextBox23.Text = "'false'" End If If Not TextBox2.Text = "" And Not TextBox4.Text = "" And Not TextBox5.Text = "" And Not TextBox9.Text = "" And Not TextBox19.Text = "" And Not TextBox24.Text = "" And Not TextBox13.Text = "" And Not TextBox14.Text = "" And Not TextBox21.Text = "" And Not TextBox16.Text = "" And Not TextBox17.Text = "" And Not TextBox18.Text = "" And Not TextBox23.Text = "" And Not TextBox22.Text = "" And Not TextBox21.Text = "" And Not TextBox20.Text = "" And Not TextBox12.Text = "" And Not TextBox11.Text = "" And Not TextBox6.Text = "" And Not TextBox7.Text = "" And Not TextBox8.Text = "" Then Button1.ForeColor = Color.Lime Else Button1.ForeColor = Color.Red End If document.Text = TextBox1.Text & TextBox2.Text & "," & " " & "'" & TextBox4.Text & "'" & "," & " " & "'" & TextBox5.Text & "'" & "," & " " & TextBox6.Text & "," & " " & TextBox11.Text & "," & " " & TextBox7.Text & "," & " " & TextBox9.Text & "," & " " & TextBox10.Text & "," & " " & TextBox8.Text & "," & " " & TextBox24.Text & "," & " " & TextBox13.Text & "," & " " & TextBox14.Text & "," & " " & TextBox15.Text & "," & " " & TextBox16.Text & "," & " " & TextBox17.Text & "," & " " & TextBox18.Text & "," & " " & TextBox19.Text & "," & " " & TextBox12.Text & "," & " " & TextBox20.Text & "," & " " & TextBox21.Text & "," & " " & TextBox22.Text & "," & " " & TextBox23.Text & "," & " " & TextBox3.Text & "," & " " & TextBox25.Text End Sub Priyate Sub document_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles document.TextChanged End Sub End Class Public Class Form2 Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click Try System.Diagnostics.Process.Start("maxcheaters") Catch 'Code to handle the error. End Try End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If TextBox1.Text = ("Weeken") And TextBox2.Text = ("maxcheaters") Then Button1.Enabled = True Button1.ForeColor = Color.Lime Else Button1.Enabled = False Button1.ForeColor = Color.Red End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MessageBox.Show("") Form1.Show() Me.Hide() End Sub Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub End Class Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick ProgressBar1.Increment(TextBox2.Text) Timer1.Interval = (TextBox3.Text + "000") If CheckBox9.Checked = True Then Timer1.Enabled = True Button1.Enabled = True Label4.ForeColor = Color.Lime Label4.Text = ("En Funcionamiento !") Label5.ForeColor = Color.Lime Label5.Text = ("Red Establecida !") Form2.Show() End If If CheckBox9.Checked = False Then Button1.Enabled = False Timer1.Enabled = False Label4.ForeColor = Color.Black Label4.Text = ("...........") Label5.ForeColor = Color.Black Label5.Text = ("...........") ProgressBar1.Value = 0 Form2.Hide() End If Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged End Sub

tried it already?, please if they are not interested do not even look at my post ;)

sure, then upload Thank You

L2 Java Protection By Weeken the program referred to is for the protection of your java server, when you have this software, you have to do is simply save GameServer \ Data and before starting the server to start l2 protection program and selecting all options including . 100% Operational Provides A Total Protection Protected Accounts To Enter The Program Reasonable Price (I Should Clarify That Cost Me Create It) Only Work In L2J Servers How to be sure that you will not get scammed? in the first place I will send you the program, the program contains a Loguin which includes an account, a password and security code I will wait till I get the money In the minute that I get the money I will tell you the account to enter the program. Any one is happy ! How much it costs? • The L2 Adapting Tool Private Will Cost You 30 Euros 15 Euros How can I buy the Java Protection? For now you can buy the Java Protection ony by Paypal. If you are interested you can contact with me for MP & MSN : • http://www.maxcheaters.com/forum/index.php?action=pm;sa=send;u=80382 Or • Weeken@Hotmail.Com.Ar

thanks everyone ;D

bump*Edit : Prices Updated!

Thank You

bump

Thank You

thank you very much, now we change the program and upload it again

Thank You

works on all chronic and data packs, as it only engages with Armors / weaponds that you create custom that has to do with my post?

Thank you

L2 Adapting Tool For All Chronicles By Weeken This is a program to adapt items: Armors and weapon of all chronicles of l2 with extreme easy 100% Operational Tested In All Chronicles Protected Accounts To Enter The Program Reasonable Price (I Should Clarify That Cost Me Create It) Skin Sucks, Not Gonna Lie :D How to be sure that you will not get scammed? in the first place I will send you the program, the program contains a Loguin which includes an account, a password and security code I will wait till I get the money In the minute that I get the money I will tell you the account to enter the program. Any one is happy ! How much it costs? • The L2 Adapting Tool Private Will Cost You 60 Euros 40 Euros How can I buy the Adapting Tool? For now you can buy the Adapting Tool ony by Paypal. If you are interested you can contact with me for MP & MSN : • http://www.maxcheaters.com/forum/index.php?action=pm;sa=send;u=80382 Or • Weeken@Hotmail.Com.Ar Evidence That The Program Works Example : "Draconic Bow" -> Freya To Interlude Click Here For Download The Example. Two Packs Has Been Sold!

thank you all

clarify to everyone: this was a post to show what ive created so says [Preview] in the title ... you asked me when ive to finish that alert, and that alone ise ... 50 euros is the price but the finished program to adapt all the chronicles of l2. and for those interested in what today post them in the aforementioned section

guys want to comment that since the end of the Adapting tool and has to adapt all Chronicles : Freya To Interlude, Freya To Epiloge, Freya To C4 And Freya To Hellbound and upside down it turns the Lineage II Marketplace section and price the sale will be 50 euros ... but so they are better informed enter that section and look for the post. ;)

Hello everyone, I want to present my latest project, the program works to create sql files Armors for now, is in test mode and works 100% tested ... I hope you like it and leave your comments .. aa yes and give me karma :D here a picture the code generated here to start the program will ask for an account, the data include: Account : Weeken Password : maxcheaters Click Here For Download SQL Creator

I'm working on it and two more projects, SQL Creator and Data Base Conecction .. more previews here : And ... soon will finish the three projects ... We will keep ;)

-1 of karma is that one link I put in a post ... hahaha my god and you come to ablate my work when you doing this?, not to mention that you edited a picture to try to incriminate ... my god

haha i scam you? :S, paint? LoL for the next use better paint that you cut pedaso note of what you put yourself.

I Have The Vote System Reward And I Sell It Only For 8 Euros. PM Me / Or See It