MyPS3Console.exe : By BaSs_HaXoR

' #SetCID #SetConsoleID #SetPS3ConsoleID #setCIDTool #BaSs_HaXoR #BaSs #HaXoR
' Download: http://adf.ly/rt4hk
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Threading.Tasks
Imports System.Windows.Forms
Imports PS3Lib
Public Class Form1
    Dim ps3treyIp As String = MyPS3Console.My.Settings.PS3IP
    Dim CID As String = MyPS3Console.My.Settings.CID
    Dim PSID As String = MyPS3Console.My.Settings.PSID
        Dim PS3 As PS3API = New PS3Lib.PS3API(PS3Lib.SelectAPI.ControlConsole)
    Private Sub setcidbtn_Click(sender As Object, e As EventArgs) Handles setcidbtn.Click
        My.Settings.CID = cidtxt.Text
        My.Settings.Save()
        PS3.CCAPI.SetConsoleID(cidtxt.Text)
        PS3.CCAPI.Notify(CCAPI.NotifyIcon.FRIEND, "CID changed!")
    End Sub
    Private Sub cidtext_TextChanged(sender As Object, e As EventArgs) Handles cidtxt.TextChanged

    End Sub
    Private Sub RButton2_Click(sender As Object, e As EventArgs) Handles PSIDbtn.Click
        My.Settings.PSID = PSIDtxt.Text
        ' PS3.CCAPI.SetPSID()
        '   PS3.CCAPI.Notify(CCAPI.NotifyIcon.FRIEND, "PSID changed!")
    End Sub
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles PSIDtxt.TextChanged

    End Sub

    Private Sub RSeperator3_Click(sender As Object, e As EventArgs) Handles RSeperator3.Click

    End Sub

    Private Sub form_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ps3ip.Text = My.Settings.PS3IP
        cidtxt.Text = My.Settings.CID
        PSIDtxt.Text = My.Settings.PSID
    End Sub

    Private Sub connectbtn_Click(sender As Object, e As EventArgs) Handles connectbtn.Click
        ps3treyIp = MyPS3Console.My.Settings.PS3IP
        PS3.CCAPI.ConnectTarget(ps3treyIp)
        PS3.CCAPI.Notify(CCAPI.NotifyIcon.FRIEND, "Connected to: " + ps3ip.Text)
        PS3.CCAPI.AttachProcess()
        PS3.CCAPI.Notify(CCAPI.NotifyIcon.FRIEND, "Attached!")
        PS3.CCAPI.RingBuzzer(CCAPI.BuzzerMode.Single)
    End Sub

    Private Sub RSeperator2_Click(sender As Object, e As EventArgs) Handles RSeperator2.Click

    End Sub

    Private Sub RButton2_Click_1(sender As Object, e As EventArgs) Handles RButton2.Click
        FormIP.Show()
    End Sub

    Private Sub RButton1_Click(sender As Object, e As EventArgs) Handles RButton1.Click
        Me.Close()
        FormIP.Close()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        ps3ip.Text = MyPS3Console.My.Settings.PS3IP
        My.Settings.Save()
        '    Dim CID As String = MyPS3Console.My.Settings.CID
        '   Dim PSID As String = MyPS3Console.My.Settings.PSID
        Timer1.Start()
    End Sub
End Class