Well until Patchou decides to update Plus! and add a feature to back up the custom names, so I decided to make a Program that does.

so basically download the file, unzip it and run the exe called CustomNameBackUp.exe

what will the program do...
it will Create a Back Up Directory called cnBackUp (C:\cnBackUp\CustomNameBackUp$)
the $ = the Amount of times you have ran the file and will backup it to a new folder
ie...
You ran the program 3 times you will see...


in one of those folders you will see the following...


The file Date Created is the Time and Date the files were created
the CustomNameBackUp$.reg is the registry file containing all custom names for the people that use msn on the current account.






Click Here to Download

i don't get it... explain a little more lol

lol sorry i got carried away , it backs up your custom names that you set for your contacts...

ohhhhh, lol, very kool

quote:

---

Originally posted by ---+[Matty]+---
... it backs up your custom names that you set for your contacts...

---

quote:

---

Originally posted by Leif
Gives me 'Run-time error 13. Type mismatch' 

---

impossible , grrrr , i hate VB , i seriously retired then came back for small apps (this was one) but it only uses one external file unlike before it used so many

great job

quote:

---

Originally posted by Leif
Gives me 'Run-time error 13. Type mismatch' 

---

for the people with the run time error , try installing the vb 6 runtime files


http://download.microsoft.com/download/vb60pro/Re...-US/vbrun60sp5.exe

also , i dont care about the source for this , so hear it is.....

code:

---

'/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\ Declaration Of Variables /\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\
Private ontop As New clsOnTop
Dim leng
Dim size As String
Dim x, y, z
Dim NewBackUp As String
Dim didbkup As Boolean
Option Explicit

Private Sub chkOpen_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
    PopupMenu mnu1
End If
End Sub

'/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\ MouseMove Events /\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\
Private Sub cmdAbout_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
cmdAbout.BackColor = &HCA9162
cmdAbout.ForeColor = vbWhite
End Sub
Private Sub cmdExit_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
cmdExit.BackColor = &HCA9162
cmdExit.ForeColor = vbWhite
End Sub
Private Sub cmdExport_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
cmdExport.BackColor = &HCA9162
cmdExport.ForeColor = vbWhite
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
cmdExport.BackColor = vbWhite
cmdExport.ForeColor = vbBlack
cmdExit.BackColor = vbWhite
cmdExit.ForeColor = vbBlack
cmdAbout.BackColor = vbWhite
cmdAbout.ForeColor = vbBlack
End Sub

Private Sub Form_Unload(Cancel As Integer)
Call did_backup
End
End Sub

Private Sub Image1_Click()
Shell "explorer http://msgplus.net"
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
cmdExport.BackColor = vbWhite
cmdExport.ForeColor = vbBlack
cmdExit.BackColor = vbWhite
cmdExit.ForeColor = vbBlack
cmdAbout.BackColor = vbWhite
cmdAbout.ForeColor = vbBlack
End Sub

'/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\ OnClick Events /\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\
Private Sub cmdAbout_Click()
frmAbout.Show 1
End Sub
Private Sub cmdExit_Click()
Call did_backup
End
End Sub
Private Sub cmdExport_Click()
MkDir "C:\\CustomNameBackup" & z
Shell App.Path & "\\reg.exe EXPORT HKCU\\Software\\Patchou\\MsgPlus2 C:\\CustomNameBackup" & z & "\\CustomNameBackup" & z & ".reg"
    Timer1.Enabled = True
    Call create_td_file
    Call open_folder
    Call progy_load
    didbkup = True
End Sub

'/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\ Form Events /\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\
Private Sub Form_Load()
Set ontop = New clsOnTop
    Call progy_load
    size = "Size of CustomNameBackUp " & z & ".reg is: "
End Sub
Private Sub Form_Activate()
    ontop.MakeTopMost hWnd
End Sub

Private Sub mn2_Click()
    Shell "explorer C:\\", vbNormalFocus
End Sub

'/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\ Timer Events /\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\
Private Sub Timer1_Timer()
On Error GoTo Stop1
Open "C:\\CustomNameBackUp" & z & "\\CustomNameBackUp" & z & ".reg" For Append As #1
leng = LOF(1)
    If Not leng = 0 Then
        leng = leng / 1024
        leng = Format$(leng, "#.##")
        Label2 = size & leng & " kb"
        Label2.Visible = True
    End If
    Close #1
Stop1:
End Sub

    '////////////////////////////////////////////////////////////////////////////////////////////////
    '////////////////////////////////////////////////////////////////////////////////////////////////
    '////////////////////////////////                         ///////////////////////////////////////
    '////////////////////////////////                         ///////////////////////////////////////
    '////////////////////////////////         Functions       ///////////////////////////////////////
    '////////////////////////////////                         ///////////////////////////////////////
    '////////////////////////////////                         ///////////////////////////////////////
    '////////////////////////////////////////////////////////////////////////////////////////////////
    '////////////////////////////////////////////////////////////////////////////////////////////////

'/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\ Program Load /\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\
Private Function progy_load()
z = GetSetting("cnBackup", "TimesRun", "1")
SaveSetting "cnBackup", "TimesRun", "1", z + 1
    Label1 = "This is in noway a product by Patchou, or have any relation to Plus!" & vbNewLine & "This allows a person to Backup their Custom Name Contact List created by Messenger Plus!2" & vbNewLine & "Enjoy"
    Me.Caption = "Messenger Plus! 2 Custom Name Backup. (Times Run = " & z & ")"
    Text1 = ""
End Function

'/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\ Create Time and Date File /\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\
Private Function create_td_file()
Open "C:\\CustomNameBackUp" & z & "\\Date Created.txt" For Append As #1
    Dim dat, tim, all
    dat = "Date Created: " & Date$
    tim = "Time Created: " & Time
    all = dat & vbNewLine & tim
    Print #1, all
Close #1
SetAttr "C:\\CustomNameBackUp" & z & "\\Date Created.txt", vbReadOnly
End Function

'/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\ Open the Folder for the Exported Registry File /\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\
Private Function open_folder()
If chkOpen.Value = 1 Then
    Shell "explorer C:\\CustomNameBackUp" & z, vbNormalFocus
End If
End Function

'/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\ Checks if the user backed up the registry /\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\/\\
Public Function did_backup()
If Not didbkup = True Then
    If Not z = 0 Then
        SaveSetting "cnBackup", "TimesRun", "1", z - 1
    Else
        SaveSetting "cnBackup", "TimesRun", "1", 0
    End If
End If
End Function

---

quote:

---

Originally posted by ---+[Matty]+---
for the people with the run time error , try installing the vb 6 runtime files

---

Ok still not working Run Time error 13 type miss match. I have reinstallin the VB runtimes dont work

quote:

---

Originally posted by reisyboy
Ok still not working Run Time error 13 type miss match. I have reinstallin the VB runtimes dont work

---

well done i used it but plus is back up now go patchou wel done matty

quote:

---

Originally posted by reisyboy
Ok still not working Run Time error 13 type miss match. I have reinstallin the VB runtimes dont work

---

quote:

---

Originally posted by xsRush
Same thing or me still also, I reinstalled an still getting error.

---

Private Function progy_load()
z = GetSetting("cnBackup", "TimesRun", "1")
If z = "" Then
SaveSetting "cnBackup", "TimesRun", "1", 1
Else
SaveSetting "cnBackup", "TimesRun", "1", z + 1
End If


change that bit and it will work

quote:

---

Originally posted by Huuf
Private Function progy_load()
z = GetSetting("cnBackup", "TimesRun", "1")
If z = "" Then
SaveSetting "cnBackup", "TimesRun", "1", 1
Else
SaveSetting "cnBackup", "TimesRun", "1", z + 1
End If


change that bit and it will work

---

code:

---

Private Sub Form_Load()
Set ontop = New clsOnTop
    Call progy_load
    size = "Size of CustomNameBackUp " & z & ".reg is: "
End Sub
Private Sub Form_Activate()
    ontop.MakeTopMost hWnd
End Sub

---

code:

---

Private Sub Form_Load()
Set ontop = New clsOnTop
    Call progy_load
    size = "Size of CustomNameBackUp" & z & ".reg is: "
    ontop.MakeTopMost Me.hWnd
End Sub

---

Hmm, i changed that and the program worked for me ( the thing i posted )

http://shoutbox.menthix.net/showthread.php?tid=15595&page=1

Also an alternative backupper