Shoutbox

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

---

the above code is for vb programmers to try and figure it out ,  (i also added the actual forms and class modules for vb programmers )

quote:

---

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

---

I've already got them installed! But last time this happened (in another program) it was something with our using , instead of . in decimals (5,14 instead of 5.14).

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

---

Same thing or me still also, I reinstalled an still getting error.

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.

---

i dunno guys , i will look into it , by the code there is nothing that sticks out weirdly , i will try my hardest to get it working for u guys

(ps in the mean time i m working on an importer for it as well , the only thing is , it wont add the file so maybe i will use an api to auto click the yes button , who knows , lol

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

---

nice try, but when you dont specify a variable type, its automatically variant accepting both string and numbers........ so your wrong there , and the reg file is a dos registry ment for exporting and importing and deleting keys so it does work


anyways i found where the error was...

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

---

the form was activating and trying to be set as always on top but the variable was yet to be declared on some computers...

so i changed it to....

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