Ok, today me, daCOOKIEkiller and kanadian halo make this: http://i363.photobucket.com/albums/oo71/Roguemodder/72027113-Full.jpg http://i363.photobucket.com/albums/oo71/Roguemodder/72027380-Full.jpg http://i363.photobucket.com/albums/oo71/Roguemodder/72027473-Full.jpg http://i363.photobucket.com/albums/oo71/Roguemodder/72027592-Full.jpg http://i363.photobucket.com/albums/oo71/Roguemodder/72027681-Full.jpg http://i363.photobucket.com/albums/oo71/Roguemodder/72028174-Full.jpg http://i363.photobucket.com/albums/oo71/Roguemodder/72027681-Full.jpg File Set with Map, Video and Screenshots Youtube Video Coming Soon.
Yh. Slip Bought is so ALL the rights are his legally END OF! U don't need to learn how to resign/rehash files for pro programming unless u work for microsoft. Good luck on release slip , looking forward.
urm no, this is my source ***. Also want to see the source? without the shell extensions source, (Im not allowed to post), here it is: Imports System
Imports System.IO
Imports DevComponents.DotNetBar
Imports DevComponents.DotNetBar.Office2007RibbonForm
Imports System.Text
Public Class Form1
Inherits DevComponents.DotNetBar.Office2007RibbonForm
#Region "Hex Offsets & BinaryReader"
Public Sub OpenCON(ByVal FileName As String)
Dim fs As New FileStream(FileName, FileMode.Open)
Dim br As New BinaryReader(fs)
Dim length As Long = fs.Length
br.BaseStream.Position = &H412
Dim Name As Byte() = br.ReadBytes(57)
TextBoxX1.Text = UnicodeEncoding.Unicode.GetString(Name)
br.BaseStream.Position = &H1692
Dim game As Byte() = br.ReadBytes(12)
TextBoxX2.Text = UnicodeEncoding.Unicode.GetString(game)
br.BaseStream.Position = &H171A
Dim img As MemoryStream = New MemoryStream(br.ReadBytes(16000))
PictureBox1.Image = Image.FromStream(img)
br.BaseStream.Position = &HE068
Dim Disc As Byte() = br.ReadBytes(116)
TextBox1.Text = ASCIIEncoding.ASCII.GetString(Disc)
br.BaseStream.Position = &H360
Dim TitleID As Byte() = br.ReadBytes(4)
TextBoxX3.Text = BitConverter.ToString(TitleID).Replace("-", "")
br.BaseStream.Position = &H371
Dim ProfileID As Byte() = br.ReadBytes(8)
TextBoxX4.Text = BitConverter.ToString(ProfileID).Replace("-", "")
br.BaseStream.Position = &H3FD
Dim DeviceID As Byte() = br.ReadBytes(20)
TextBoxX5.Text = BitConverter.ToString(DeviceID).Replace("-", "")
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ofd As New OpenFileDialog()
If ofd.ShowDialog() = DialogResult.OK Then
OpenCON(ofd.FileName)
End If
End Sub
#End Region
#Region "Styles"
Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click
RibbonControl1.Office2007ColorTable = eOffice2007ColorScheme.Black
End Sub
Private Sub ButtonX2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX2.Click
RibbonControl1.Office2007ColorTable = eOffice2007ColorScheme.Blue
End Sub
Private Sub ButtonX3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX3.Click
RibbonControl1.Office2007ColorTable = eOffice2007ColorScheme.Silver
End Sub
Private Sub ButtonX4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX4.Click
RibbonControl1.Office2007ColorTable = eOffice2007ColorScheme.VistaGlass
End Sub
#End Region
End Class Now tell me, does that look like the resigner source, whats that. No!
Can you people download this: http://www.megaupload.com/?d=E9XKNFY0 then pass the URL to 15 people to dl and they pass it to 15 people to dl, ect. I need points on my account, as im in $1200 of dept and any help will help me. I will thank you if u dl and pass to 15 people. Thanks, Rogue Modder