What happened to the Messenger Plus! forums on msghelp.net?
Shoutbox » MsgHelp Archive » Skype & Technology » Skype & Live Messenger » Custom Name Back Up (Made a progy)

Pages: (2): « First « 1 [ 2 ] Last »
Custom Name Back Up (Made a progy)
Author: Message:
matty
Scripting Guru
*****


Posts: 8336
Reputation: 109
39 / Male / Flag
Joined: Dec 2002
Status: Away
O.P. RE: Custom Name Back Up (Made a progy)
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 :))

.zip File Attachment: custom_names(source).zip (33.75 KB)
This file has been downloaded 287 time(s).

This post was edited on 09-12-2003 at 06:52 PM by matty.
09-12-2003 06:03 PM
Profile E-Mail PM Find Quote Report
Leif
Full Member
***

Avatar

Posts: 483
Reputation: 4
80 / Male / –
Joined: Apr 2002
RE: RE: Custom Name Back Up (Made a progy)
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). 8-)
09-12-2003 06:28 PM
Profile E-Mail PM Find Quote Report
reisyboy
Elite Member
*****

Avatar
Messenger Oldie ;-)

Posts: 2107
Reputation: 10
35 / Male / –
Joined: May 2002
RE: Custom Name Back Up (Made a progy)
Ok still not working Run Time error 13 type miss match. I have reinstallin the VB runtimes dont work :s
09-12-2003 08:32 PM
Profile E-Mail PM Web Find Quote Report
xsRush
Full Member
***

Avatar
Australian Member

Posts: 141
Reputation: 1
45 / Male / –
Joined: Aug 2003
RE: Custom Name Back Up (Made a progy)
quote:
Originally posted by reisyboy
Ok still not working Run Time error 13 type miss match. I have reinstallin the VB runtimes dont work :s
Same thing or me still also, I reinstalled an still getting error.
09-13-2003 03:56 AM
Profile PM Find Quote Report
Pipish
Senior Member
****

Avatar
not really active anymore.

Posts: 916
Reputation: 21
31 / Male / Flag
Joined: Apr 2003
RE: Custom Name Back Up (Made a progy)
well done i used it but plus is back up now go patchou wel done matty :P
[Image: fcliverpoolfan2xo.gif]
[Image: roosters4yg.jpg]
09-13-2003 04:52 AM
Profile E-Mail PM Find Quote Report
matty
Scripting Guru
*****


Posts: 8336
Reputation: 109
39 / Male / Flag
Joined: Dec 2002
Status: Away
O.P. RE: Custom Name Back Up (Made a progy)
quote:
Originally posted by reisyboy
Ok still not working Run Time error 13 type miss match. I have reinstallin the VB runtimes dont work :s
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 :S so maybe i will use an api to auto click the yes button , who knows , lol

This post was edited on 09-13-2003 at 04:58 AM by matty.
09-13-2003 04:56 AM
Profile E-Mail PM Find Quote Report
Huuf
Full Member
***



Posts: 482
44 / Male / –
Joined: May 2003
RE: Custom Name Back Up (Made a progy)
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
09-17-2003 04:55 PM
Profile PM Web Find Quote Report
matty
Scripting Guru
*****


Posts: 8336
Reputation: 109
39 / Male / Flag
Joined: Dec 2002
Status: Away
O.P. RE: RE: Custom Name Back Up (Made a progy)
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


This post was edited on 09-17-2003 at 05:42 PM by matty.
09-17-2003 05:33 PM
Profile E-Mail PM Find Quote Report
Huuf
Full Member
***



Posts: 482
44 / Male / –
Joined: May 2003
RE: Custom Name Back Up (Made a progy)
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
09-17-2003 06:32 PM
Profile PM Web Find Quote Report
Pages: (2): « First « 1 [ 2 ] Last »
« Next Oldest Return to Top Next Newest »


Threaded Mode | Linear Mode
View a Printable Version
Send this Thread to a Friend
Subscribe | Add to Favorites
Rate This Thread:

Forum Jump:

Forum Rules:
You cannot post new threads
You cannot post replies
You cannot post attachments
You can edit your posts
HTML is Off
myCode is On
Smilies are On
[img] Code is On