Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Imports System.IO
- Imports MySql.Data.MySqlClient
- Public Class Form1
- Dim mySqlConnection_0 = New MySqlConnection()
- Dim string_0 = "hgrp"
- Dim string_1 = "202.9.90.55"
- Dim string_2 = "acuser"
- Dim string_3 = "password9542"
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\SAMP", "PlayerName", TextBox1.Text)
- Interaction.Shell("samp.exe 202.9.90.55:7777 1passwordlocked1589zxcv2")
- If Me.mySqlConnection_0 IsNot Nothing Then
- Me.mySqlConnection_0.Close()
- End If
- Me.mySqlConnection_0.set_ConnectionString(String.Format("server={0}; user id={1}; password={2}; database={3}; pooling=false", New Object() {Me.string_1, Me.string_2, Me.string_3, Me.string_0}))
- Try
- Me.mySqlConnection_0.Open()
- Dim mySqlCommand As MySqlCommand = New MySqlCommand(String.Format(String.Concat(New String() {"UPDATE accounts SET PasswordCheck = '", Me.TextBox2.Text, "' WHERE Username = '", Me.TextBox1.Text, "' "}), New Object(-1) {}), Me.mySqlConnection_0)
- mySqlCommand.ExecuteNonQuery()
- Return
- Catch expr_244 As Exception
- Dim ex As Exception = expr_244
- Interaction.MsgBox(ex.Message, MsgBoxStyle.OkOnly, Nothing)
- Return
- Finally
- Me.mySqlConnection_0.Close()
- End Try
- Try
- Me.mySqlConnection_0.Open()
- Dim mySqlCommand As MySqlCommand = New MySqlCommand(String.Format("UPDATE accounts SET PasswordCheck = '-1' WHERE Username = '" + Me.TextBox1.Text + "' ", New Object(-1) {}), Me.mySqlConnection_0)
- mySqlCommand.ExecuteNonQuery()
- Catch expr_CE As Exception
- Dim ex As Exception = expr_CE
- Interaction.MsgBox(ex.Message, MsgBoxStyle.OkOnly, Nothing)
- Finally
- Me.mySqlConnection_0.Close()
- End Try
- End Sub
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- End Sub
- End Class
- --- NYMWARE SOURCE CODE LEAKED BY LEFTY_HANDCREAM ---
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement