 |
Hy Guys Im Another Here for give you tool
It can do :
1.Connect to DB with yoru parameter.
2.Register a New Account !!!!
3.Add Cash (Work only with Maxs Site!).
4.Edit Drop Prob Plus.
5.Edit Your Rate
here is link :
in the same folder there is the source... plis use this for learn tor for copy -.-
2
Bugs List:
1.If you start the application witout LC_Projects_SQL.cfg in the same folder you will meet error but dont worry if you continue you will save the file cfg and the bug is fixed
the code is this :
import library for execute object SQL
Imports MySql.Data.MySqlClient
import system.io
Imports System.IO
Public Class Home
new connection
Dim SQLConnection As MySqlConnection = New MySqlConnection
parameter connection
Dim ServerString As String = "Server=localhost;User ID=root;Password=;Database=newproject_db_auth"
Private Sub Starter_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim reader As New StreamReader((FileSystem.CurDir & "\LC_Projects_SQL.CFG"))
If File.Exists("LC_Projects_SQL.CFG") Then
Dim str As String = reader.ReadLine
Dim str2 As String = reader.ReadLine
Dim str3 As String = reader.ReadLine
Dim str4 As String = reader.ReadLine
Dim str5 As String = reader.ReadLine
Me.TextBox1.Text = str
Me.TextBox2.Text = str2
Me.TextBox3.Text = str3
Me.TextBox4.Text = str4
Me.TextBox9.Text = str5
Else
Interaction.MsgBox("File Does Not Exist", MsgBoxStyle.OkOnly, Nothing)
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
string connection
SQLConnection.ConnectionString = ServerString
Try
if connection closed, opened
If SQLConnection.State = ConnectionState.Closed Then
SQLConnection.Open()
Label5.ForeColor = Color.Green
Label5.Text = "Connected Successfull!"
Else
error
SQLConnection.Close()
Label5.ForeColor = Color.Red
Label5.Text = "Error. Control Connection Parameter"
End If
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
close connection
SQLConnection.Close()
Label5.ForeColor = Color.Red
Label5.Text = "Disconnected Successfull!"
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim path As String = "LC_Projects_SQL.CFG"
Dim strArray As String() = New String() {Me.TextBox1.Text, Me.TextBox2.Text, Me.TextBox3.Text, Me.TextBox4.Text, Me.TextBox9.Text, Me.TextBox10.Text}
Dim writer As New StreamWriter(path)
Dim index As Integer = 0
Do
writer.WriteLine(strArray(index))
index += 1
Loop While (index <= 4)
MsgBox("File .CFG created plis dont delete it if no this programm dont work. Have Fun!")
writer.Close()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If TextBox1.Text = String.Empty Then
MsgBox("Impossible to execute the operation. Check if the camp Nick isnt empty", MsgBoxStyle.Critical)
ElseIf TextBox2.Text = String.Empty Then
MsgBox("Impossible to execute the operation. Check if the camp Password isnt empty", MsgBoxStyle.Critical)
ElseIf TextBox3.Text = String.Empty Then
MsgBox("Impossible to execute the operation. Check if the camp E-Mail isnt empty", MsgBoxStyle.Critical)
ElseIf TextBox4.Text = String.Empty Then
MsgBox("Impossible to execute the operation. Check if the camp Database isnt empty", MsgBoxStyle.Critical)
Else
Dim SQLStatement As String = "INSERT INTO bg_user(`user_code`, `user_id`, `name`, `FamilyName`, `sub_name`, `sub_FamilyName`, `jumin`, `[CeNsOrEd]`, `passwd`, `passwd_hint`, `birth_type`, `email`, `region`, `job`, `wear_item`, `gamvatar_item`, `chk_adult`, `chk_email`, `chk_memo`, `chk_invitation`, `chk_service`, `chk_service_bak`, `chk_SMS`, `chk_parent`, `partner_id`, `site_id`, `create_date`, `update_date`, `login_count`, `chk_tester`, `chk_tester1`, `chk_dup`, `chk_error`, `chk_realname`, `chk_campaign`, `chk_closebeta`) VALUES (, " & TextBox1.Text & ", , , , , 000000-0000000, M, " & TextBox2.Text & ", 00, S, " & TextBox3.Text & ", 00, 00, 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 0 0, 0 0 0 0 0 1 0, N, Y, Y, Y, N, N, Y, N, LC, LC, 0000-00-00 00:00:00, 0000-00-00 00:00:00, 0, N, N, N, N, Y, N, N)"
newplayer(SQLStatement)
End If
End Sub
Public Sub newplayer(ByRef SQLStatement As String)
Dim cmd As MySqlCommand = New MySqlCommand
With cmd
.CommandText = SQLStatement
.CommandType = CommandType.Text
.Connection = SQLConnection
.ExecuteNonQuery()
End With
MsgBox("Player registred Successfull!")
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If TextBox8.Text = String.Empty Then
MsgBox("Impossible to execute the operation. Check if the camp Cash isnt empty", MsgBoxStyle.Critical)
Else
Dim sQLStatement As String = ("UPDATE newproject_site.t_user_cash SET a_cash = (a_cash + " & Me.TextBox8.Text & ")")
Me.addcash(sQLStatement)
End If
End Sub
Private Sub addcash(ByVal SQLStatement As String)
Dim cmd As MySqlCommand = New MySqlCommand
With cmd
.CommandText = SQLStatement
.CommandType = CommandType.Text
.Connection = SQLConnection
.ExecuteNonQuery()
End With
MsgBox("Added Cash Successfull!")
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim connection As New MySqlConnection
Dim dataSet As New DataSet
Dim adapter As New MySqlDataAdapter
connection = New MySqlConnection(String.Concat(New String() {"server=", Me.TextBox1.Text, ";database=", Me.TextBox4.Text, ";User Id=", Me.TextBox2.Text, ";password=", Me.TextBox3.Text, ";Persist Security Info=True;"}))
If TextBox5.Text = String.Empty Then
MsgBox("Impossible to execute the operation. Check if the camp Nick isnt empty", MsgBoxStyle.Critical)
ElseIf TextBox6.Text = String.Empty Then
MsgBox("Impossible to execute the operation. Check if the camp Password isnt empty", MsgBoxStyle.Critical)
ElseIf TextBox7.Text = String.Empty Then
MsgBox("Impossible to execute the operation. Check if the camp E-Mail isnt empty", MsgBoxStyle.Critical)
ElseIf TextBox4.Text = String.Empty Then
MsgBox("Impossible to execute the operation. Check if the camp Database isnt empty", MsgBoxStyle.Critical)
Else
Dim SQLStatement As String = "INSERT INTO newproject_db_auth.bg_user(`user_code`, `user_id`, `name`, `FamilyName`, `sub_name`, `sub_FamilyName`, `jumin`, `[CeNsOrEd]`, `passwd`, `passwd_hint`, `birth_type`, `email`, `region`, `job`, `wear_item`, `gamvatar_item`, `chk_adult`, `chk_email`, `chk_memo`, `chk_invitation`, `chk_service`, `chk_service_bak`, `chk_SMS`, `chk_parent`, `partner_id`, `site_id`, `create_date`, `update_date`, `login_count`, `chk_tester`, `chk_tester1`, `chk_dup`, `chk_error`, `chk_realname`, `chk_campaign`, `chk_closebeta`) VALUES (, " & Me.TextBox5.Text & ", , , , , 000000-0000000, M, " & Me.TextBox6.Text & ", 00, S, " & Me.TextBox7.Text & ", 00, 00, 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 0 0, 0 0 0 0 0 1 0, N, Y, Y, Y, N, N, Y, N, LC, LC, 0000-00-00 00:00:00, 0000-00-00 00:00:00, 0, N, N, N, N, Y, N, N)"
newplayer(SQLStatement)
End If
End Sub
Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If TextBox11.Text = String.Empty Then
MsgBox("Impossible to execute the operation. Check if the camp Max Plus isnt empty", MsgBoxStyle.Critical)
Else
Dim sQLStatement As String = ("UPDATE `newproject_data`.`t_npc` SET `a_maxplus` = " & Me.TextBox11.Text & ";")
Me.addmaxplus(sQLStatement)
End If
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
If TextBox12.Text = String.Empty Then
MsgBox("Impossible to execute the operation. Check if the camp Min Plus isnt empty", MsgBoxStyle.Critical)
Else
Dim sQLStatement As String = ("UPDATE `newproject_data`.`t_npc` SET `a_minplus` = " & Me.TextBox12.Text & ";")
Me.addminplus(sQLStatement)
End If
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
If TextBox13.Text = String.Empty Then
MsgBox("Impossible to execute the operation. Check if the camp Drop Prob isnt empty", MsgBoxStyle.Critical)
Else
Dim sQLStatement As String = ("UPDATE `newproject_data`.`t_npc` SET `a_probplus` = " & Me.TextBox13.Text & ";")
Me.addprobplus(sQLStatement)
End If
End Sub
Private Sub addmaxplus(ByVal sQLStatement As String)
Dim cmd As MySqlCommand = New MySqlCommand
With cmd
.CommandText = sQLStatement
.CommandType = CommandType.Text
.Connection = SQLConnection
.ExecuteNonQuery()
End With
MsgBox("Setted the max plus: " & Me.TextBox11.Text & "", MsgBoxStyle.OkOnly)
End Sub
Private Sub addminplus(ByVal sQLStatement As String)
Dim cmd As MySqlCommand = New MySqlCommand
With cmd
.CommandText = sQLStatement
.CommandType = CommandType.Text
.Connection = SQLConnection
.ExecuteNonQuery()
End With
MsgBox("Setted the min plus: " & Me.TextBox12.Text & "", MsgBoxStyle.OkOnly)
End Sub
Private Sub addprobplus(ByVal sQLStatement As String)
Dim cmd As MySqlCommand = New MySqlCommand
With cmd
.CommandText = sQLStatement
.CommandType = CommandType.Text
.Connection = SQLConnection
.ExecuteNonQuery()
End With
MsgBox("Setted the Prob plus: " & Me.TextBox13.Text & "", MsgBoxStyle.OkOnly)
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
If TextBox14.Text = String.Empty Then
MsgBox("Impossible to execute the operation. Check if the camp Exp isnt empty", MsgBoxStyle.Critical)
Else
Dim sQLStatement As String = ("UPDATE newproject_data.t_npc SET a_exp = a_exp * " & Me.TextBox14.Text & ";")
Me.exp(sQLStatement)
End If
End Sub
Private Sub exp(ByVal sQLStatement As String)
Dim cmd As MySqlCommand = New MySqlCommand
With cmd
.CommandText = sQLStatement
.CommandType = CommandType.Text
.Connection = SQLConnection
.ExecuteNonQuery()
End With
MsgBox("Setted the exp : (X)" & Me.TextBox14.Text & "", MsgBoxStyle.OkOnly)
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
If TextBox15.Text = String.Empty Then
MsgBox("Impossible to execute the operation. Check if the camp Sp isnt empty", MsgBoxStyle.Critical)
Else
Dim sQLStatement As String = ("UPDATE newproject.t_npc SET a_skill_point = a_skill_point * " & Me.TextBox15.Text & ";")
Me.sp(sQLStatement)
End If
End Sub
Private Sub sp(ByVal sQLStatement As String)
Dim cmd As MySqlCommand = New MySqlCommand
With cmd
.CommandText = sQLStatement
.CommandType = CommandType.Text
.Connection = SQLConnection
.ExecuteNonQuery()
End With
MsgBox("Setted the sp : (X)" & Me.TextBox15.Text & "", MsgBoxStyle.OkOnly)
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
If TextBox16.Text = String.Empty Then
MsgBox("Impossible to execute the operation. Check if the camp Drop Prob isnt empty", MsgBoxStyle.Critical)
Else
Dim sQLStatement As String = String.Concat(New String() {"UPDATE newproject_data.t_npc SET a_item_percent_0 = a_item_percent_0 * ", Me.TextBox16.Text, ";UPDATE t_npc SET a_item_percent_1 = a_item_percent_1 * ", Me.TextBox16.Text, ";UPDATE t_npc SET a_item_percent_2 = a_item_percent_2 * ", Me.TextBox16.Text, ";UPDATE t_npc SET a_item_percent_3 = a_item_percent_3 * ", Me.TextBox16.Text, ";UPDATE t_npc SET a_item_percent_4 = a_item_percent_4 * ", Me.TextBox16.Text, ";UPDATE t_npc SET a_item_percent_5 = a_item_percent_5 * ", Me.TextBox16.Text, ";UPDATE t_npc SET a_item_percent_6 = a_item_percent_6 * ", Me.TextBox16.Text, ";UPDATE t_npc SET a_item_percent_7 = a_item_percent_7 * ", Me.TextBox16.Text, ";UPDATE t_npc SET a_item_percent_8 = a_item_percent_8 * ", Me.TextBox16.Text, ";UPDATE t_npc SET a_item_percent_9 = a_item_percent_9 * ", Me.TextBox16.Text, ";UPDATE t_npc SET a_item_percent_10 = a_item_percent_10 * ", Me.TextBox16.Text, ";UPDATE t_npc SET a_item_percent_11 = a_item_percent_11 * ", Me.TextBox16.Text, ";UPDATE t_npc SET a_item_percent_12 = a_item_percent_12 * ", Me.TextBox16.Text, ";UPDATE t_npc SET a_item_percent_13 = a_item_percent_13 * ", Me.TextBox16.Text, ";UPDATE t_npc SET a_item_percent_14 = a_item_percent_14 * ", Me.TextBox16.Text, ";UPDATE t_npc SET a_item_percent_15 = a_item_percent_15 * ", Me.TextBox16.Text, ";UPDATE t_npc SET a_item_percent_16 = a_item_percent_16 * ", Me.TextBox16.Text, ";UPDATE t_npc SET a_item_percent_17 = a_item_percent_17 * ", Me.TextBox16.Text, ";UPDATE t_npc SET a_item_percent_18 = a_item_percent_18 * ", Me.TextBox16.Text, ";UPDATE t_npc SET a_item_percent_19 = a_item_percent_19 * ", Me.TextBox16.Text, ";"})
Me.drop(sQLStatement)
End If
End Sub
Private Sub drop(ByVal sQLStatement As String)
Dim cmd As MySqlCommand = New MySqlCommand
With cmd
.CommandText = sQLStatement
.CommandType = CommandType.Text
.Connection = SQLConnection
.ExecuteNonQuery()
End With
MsgBox("Setted the drop prob : (X)" & Me.TextBox16.Text & "", MsgBoxStyle.OkOnly)
End Sub
End Class
happy? the programm there isnt any virus -.-
|
