Menu
▾
▴
cbm-cvs
You can subscribe to this list here.
| 2004 |
Jan
|
Feb
(88) |
Mar
(9) |
Apr
|
May
(1) |
Jun
(11) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2006 |
Jan
|
Feb
|
Mar
|
Apr
|
May
(2) |
Jun
(1) |
Jul
|
Aug
|
Sep
(7) |
Oct
(27) |
Nov
(25) |
Dec
(32) |
| 2007 |
Jan
(9) |
Feb
(16) |
Mar
(6) |
Apr
(2) |
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
|
From: W. B. / F. N. <wi...@fa...> - 2004-02-18 02:44:09
|
Thats right; you're typing directly in the loader.. You shouldn't as =
it's "finished"...
You should put your code in the CodeBlue class module in CMIMAPI in the =
sub StartUp :
(What the loader code does)
Set ctlCBAPI =3D CreateObject("CBIMApi.CodeBlue") ' Creates a =
reference to CBIMAPI
ctlCBAPI.StartUp ' Starts the public SUB StartUp() in =
the class CodeBlue in CBIMAPI
Set ctlCBAPI =3D Nothing ' Removes the reference (terminates =
the module)
(not completely as it really is, but look at it like this)
----- Original Message -----=20
From: Louis Varca=20
To: cb...@li...=20
Sent: Wednesday, February 18, 2004 6:31 AM
Subject: [Cbm-cvs] Err....
Lol this whole .dll setup is still confusing me because when I tell it =
to perfom an action to frmlogin (which is in cbimapi project) the loader =
projects module doesn't respond to it in other words the module wont =
interface into the module to for me.........!
-----------------------
'--[ Start CodeBlue Messenger =
]-----------------------------------------------
Dim ctlCBAPI
Set ctlCBAPI =3D CreateObject("CBIMApi.CodeBlue")
frmSplash.Hide
ctlCBAPI.StartUp
Set ctlCBAPI =3D Nothing
=20
'TEST CODE
frmlogin.Show 'Display frmLogin
=20
' Wait until form explicitly
'says it wants to shut down
While frmlogin.Tag <> "Code Blue"
frmlogin.Show
Wend
'TEST CODE
AND IT DOESN'T WORK!
-Louis
|
|
From: Louis V. <xda...@ms...> - 2004-02-18 02:34:43
|
Lol this whole .dll setup is still confusing me because when I tell it =
to perfom an action to frmlogin (which is in cbimapi project) the loader =
projects module doesn't respond to it in other words the module wont =
interface into the module to for me.........!
-----------------------
'--[ Start CodeBlue Messenger =
]-----------------------------------------------
Dim ctlCBAPI
Set ctlCBAPI =3D CreateObject("CBIMApi.CodeBlue")
frmSplash.Hide
ctlCBAPI.StartUp
Set ctlCBAPI =3D Nothing
=20
'TEST CODE
frmlogin.Show 'Display frmLogin
=20
' Wait until form explicitly
'says it wants to shut down
While frmlogin.Tag <> "Code Blue"
frmlogin.Show
Wend
'TEST CODE
AND IT DOESN'T WORK!
-Louis
|
|
From: Louis V. <xda...@ms...> - 2004-02-18 02:14:54
|
Sadly I don't think anyone is online so as far as I can see alpha 2 = will again be delayed until tomorrow unless I magically get the loader = to load frmlogin and display it from the .dll which just no! -Admin |
|
From: Louis V. <xda...@ms...> - 2004-02-17 23:09:42
|
Currently at www.sourceforge.net/projects/cbm in the current files under = source code is 2.0 that's the latest it needs 2 things before it can be = release as alpha 2 so please look, and do what you can and then send to = this mailing list so I can look over it!!!!!!!!!!!!!!!!!!!!!!!!! 1.. It needs to have frmlogin.show in the loaders executable so it = displays the login window simple but I forgot to add it lol .... 2. It needs to ping(contact) the three CBM servers and determine = that fastest and than set the cmd_connect and the create buttons on the = main form frmlogin to connect to that server which has been determined = as the fastest! The Addresses for the three servers can be found on the following page: CBM SERVERS or if thr above link doesn't work... http://sourceforge.net/mailarchive/forum.php?thread_id=3D3906176&forum_id= =3D37804 -Admin, Thanks! |
|
From: W. B. / F. N. <wi...@fa...> - 2004-02-17 17:17:05
|
Louis, Using a frmLogin.show should be enough to show the form; however the class might exit right after that, causing the loader to unload the module(!!) have you made sure it waits until the user explicitly wants to exit the IM ? Wimz ----- Original Message ----- From: "Louis Varca" <xda...@ms...> To: <cb...@li...> Sent: Tuesday, February 17, 2004 5:17 PM Subject: [Cbm-cvs] Okay... > Okay i am currently at school so i will make this breif but I looked over > the new code that wimz has sent me and it looks very nice and somewhat > simple... Basically the old cmim(cbm) is a .dll now (active x) and the new > loader (which is the executable) now loads the .dll however i am having > problems actually getting the loader to get the frmlogin to appear so now it > does nothing lol but i will talk to wimz actually i am now lol.... SO > people come on the source is out i will package and redistribute and we can > start coding in the Features and stuff.... Alpha 2 release will hopefull be > out by later today here it's 11am so i dunno i am hoping so..... > > Any Thoughts? > > > -Louis > > _________________________________________________________________ > Dream of owning a home? Find out how in the First-time Home Buying Guide. > http://special.msn.com/home/firsthome.armx > > > > ------------------------------------------------------- > SF.Net is sponsored by: Speed Start Your Linux Apps Now. > Build and deploy apps & Web services for Linux with > a free DVD software kit from IBM. Click Now! > http://ads.osdn.com/?ad_id=1356&alloc_id=3438&op=click > _______________________________________________ > Cbm-cvs mailing list > Cb...@li... > https://lists.sourceforge.net/lists/listinfo/cbm-cvs > |
|
From: Louis V. <xda...@ms...> - 2004-02-17 16:22:24
|
Okay i am currently at school so i will make this breif but I looked over the new code that wimz has sent me and it looks very nice and somewhat simple... Basically the old cmim(cbm) is a .dll now (active x) and the new loader (which is the executable) now loads the .dll however i am having problems actually getting the loader to get the frmlogin to appear so now it does nothing lol but i will talk to wimz actually i am now lol.... SO people come on the source is out i will package and redistribute and we can start coding in the Features and stuff.... Alpha 2 release will hopefull be out by later today here it's 11am so i dunno i am hoping so..... Any Thoughts? -Louis _________________________________________________________________ Dream of owning a home? Find out how in the First-time Home Buying Guide. http://special.msn.com/home/firsthome.armx |
|
From: Darko K. <da...@ho...> - 2004-02-17 10:39:29
|
Hello all... where do I get the latest code so i can see what is going = on? =E2=98=BA Darko |
|
From: Louis V. <xda...@ms...> - 2004-02-17 04:04:58
|
it still wont work cant I just make a new .dll and add all the cbm = modules to it and then also add a new one called code blue and make an = empt Public Sub Startup() in it and then make it a .dll? |
|
From: W. B. / F. N. <wi...@fa...> - 2004-02-17 03:47:12
|
Set the class property Instancing to 5 (MultiUse), I guess that should = do the trick :-) ----- Original Message -----=20 From: Louis Varca=20 To: cb...@li...=20 Sent: Tuesday, February 17, 2004 7:42 AM Subject: [Cbm-cvs] Problem!~? It says and I quote "No Creatable Public Component Dectected" |
|
From: Louis V. <xda...@ms...> - 2004-02-17 03:44:36
|
It says and I quote "No Creatable Public Component Dectected" |
|
From: W. B. / F. N. <wi...@fa...> - 2004-02-17 03:33:02
|
It's pretty simple; you add an empty class to the project, call it = CodeBlue and create a public sub in it called StartUp(). Rename the = project to CBIMApi and in the project properties, change the Project = Type to ActiveX .DLL; that's it! The loader loads the DLL after the update module (you can temporarily = comment out the update part so you can use the loader already) and the = loader calls the StartUp() sub in the CodeBlue class. The StartUp() sub = should *NEVER* exit, unless you want to exit the messenger. Thats it :-) You'll have a .DLL output from the compiler which works = with the loader! Wimz ----- Original Message -----=20 From: Louis Varca=20 To: cb...@li...=20 Sent: Tuesday, February 17, 2004 7:24 AM Subject: Re: [Cbm-cvs] yo! Okay currently me and ankita and double toker all know how to code all = the stuff in but are clueless as to how you want this done lol we know = hwot make DLL but turning this into a dll is oblivious to us lol we have = no idea what you mean.... I cant speak for Manavo he probably can but is not on being he live in = greece and time is different lol. -Louis |
|
From: Louis V. <xda...@ms...> - 2004-02-17 03:26:58
|
Okay currently me and ankita and double toker all know how to code all = the stuff in but are clueless as to how you want this done lol we know = hwot make DLL but turning this into a dll is oblivious to us lol we have = no idea what you mean.... I cant speak for Manavo he probably can but is not on being he live in = greece and time is different lol. -Louis |
|
From: W. B. / F. N. <wi...@fa...> - 2004-02-17 03:11:02
|
The loader loads the IM as an Active/X .DLL; therefore the IM needs to = be converted to an ActiveX .DLL which can be done by simply adding a = class to the original code (which gets exported by the compiler and = called by the loader) and changing it's compilation type in the project = properties of the old IM. That way the old IM becomes a module which can be dynamically loaded = (and unloaded) so it allows updating at any time and reloading on = crashes when someone loads a third-party plugin which is screwed up; in = the next beta we can add new protocol features like compression and = encryption, hub modes and stuff like that. The CrLf and the pipe are for the perl scripts; on the three servers the = script will run at; only on one it accepts inputs without a CrLf and for = some reason I just can't find out why, so as a quick solution to it, you = could add a pipe and a crlf to each message/command send to the server = so we can start using them instead.. Though it's not required as the = Windows server does work okay already, however we currently don't have a = 24h server to use and test with, by changing the code a bit, we will :-) = Or you must have the solution for the scripts for me, in that case we = can leave the code as it is for the server communications at the moment. Wimz ----- Original Message -----=20 From: Louis Varca=20 To: cb...@li...=20 Sent: Tuesday, February 17, 2004 6:57 AM Subject: Re: [Cbm-cvs] yo! You lost me you wanna convert it to a Class why we need the old I\M = client to compile to an execuatble and 2nd adding a pipe and an end of = line (CrLf) to each command/message send to the server is not something = I am familiar with but I can set another team meber on it.... asap... -Louis |
|
From: Louis V. <xda...@ms...> - 2004-02-17 03:00:03
|
You lost me you wanna convert it to a Class why we need the old I\M = client to compile to an execuatble and 2nd adding a pipe and an end of = line (CrLf) to each command/message send to the server is not something = I am familiar with but I can set another team meber on it.... asap... -Louis |
|
From: W. B. / F. N. <wi...@fa...> - 2004-02-17 02:57:43
|
The "old" IM should be converted to a class instead of a stand alone = executable and it's server communication code should be updated; adding = a pipe and an end of line (CrLf) to each command/message send to the = server; when that's done its already fully compatible with the perl = scripts so the servers can be used and everything is set to run already = I guess.. ----- Original Message -----=20 From: Louis Varca=20 To: cb...@li...=20 Sent: Tuesday, February 17, 2004 6:28 AM Subject: [Cbm-cvs] yo! Well wimz what needs to be done before the next alpha can be = release!~?!~?!~?! |
|
From: Louis V. <xda...@ms...> - 2004-02-17 02:31:12
|
Well wimz what needs to be done before the next alpha can be = release!~?!~?!~?! |
|
From: Louis V. <xda...@ms...> - 2004-02-17 00:04:59
|
Yea obviously optimizing and stuff comes later since it is merly alpha = releases we're not even in beta yet let alone pre or final release lol = although I feel once we hit a certain point (after the basics) it will = accell at a fast rate and okay I will see if someone wants to for on the = server code lol they should be checking there mail and seeing this but = if not I can work on it and like yea I will Bug Spot if you want....=20 I am hoping there is a chance of the next alpha today!!!!!!! -Louis P.S. Never did hear anything did you get the servers up??? |
|
From: W. B. / F. N. <wi...@fa...> - 2004-02-16 23:39:45
|
As I don't want to hold up the project, I'll might post a simplified =
version of the update module later on; at the moment the rest can =
already start to convert the current IM to a module by adding a class =
and converting it to an Active/X DLL; the update module source will show =
how it works.
I am almost finished with it though but it's indeed a bit busy at the =
moment here, so I can't give the project my full attention :'-( Though =
don't worry about it.
It would be a good thing to setup some draft documentation of the =
current protocol and to add pipes at the end of the current =
communications and a CrLf (as perl sometimes tends not to pass incoming =
information if there isn't a Cr at the end)
Wimz
----- Original Message -----=20
From: Louis Varca=20
To: cb...@li...=20
Sent: Tuesday, February 17, 2004 3:27 AM
Subject: [Cbm-cvs] Delay....
I was hoping we could get another Alpha out maybe today but like I =
forgout to realize that Wimz has a life and he has to sleep and do other =
things sometimes lol so we will wait and when he finishes his base code =
now with the module loaders, etc which is more than amazing we will =
begin coding in features off that such as in the I\M conversations =
abaility to change font color,style,size etc and then eventually =
emoticons and sound and a newer interface (Double Toker is thinking up =
some designs for that as well as probably other people I know I am lol) =
and then we can add a chat system, streaming audio system (Which I think =
is hard but people said it is easy), file transfer, voice chat, buddy =
icons, profiles etc =20
That's all once we get the protocol etc moving which wimz is =
helping with in a large part....=20
-Louis
P.S. ANYONE GOT ANY COMMENTS, IDEAS, STATUS REPORTS?
|
|
From: Louis V. <xda...@ms...> - 2004-02-16 23:30:05
|
I was hoping we could get another Alpha out maybe today but like I =
forgout to realize that Wimz has a life and he has to sleep and do other =
things sometimes lol so we will wait and when he finishes his base code =
now with the module loaders, etc which is more than amazing we will =
begin coding in features off that such as in the I\M conversations =
abaility to change font color,style,size etc and then eventually =
emoticons and sound and a newer interface (Double Toker is thinking up =
some designs for that as well as probably other people I know I am lol) =
and then we can add a chat system, streaming audio system (Which I think =
is hard but people said it is easy), file transfer, voice chat, buddy =
icons, profiles etc =20
That's all once we get the protocol etc moving which wimz is helping =
with in a large part....=20
-Louis
P.S. ANYONE GOT ANY COMMENTS, IDEAS, STATUS REPORTS?
|
|
From: W. B. / F. N. <wi...@fa...> - 2004-02-16 18:18:12
|
Currently there are 3 codeblue servers which will come online within the = next 24h (or as soon as I'm done with my protocol update in the server = script). These servers are : msgsvr1.us.cbim.biz ( MAE-EAST) msgsvr2.us.cbim.biz ( MAE-WEST) msgsvr1.nl.cbim.biz ( AMS-IX / GN-IX) Apart from these hosts, we have : www.cbim.biz New webspace for codeblue (apart from sourceforge) updates.cbim.biz Will provide early updates apart from SourceForge to = increase distribution. while developing, you might want to include some speed checks so a = client can connect to the fastest server available for him. The servers = are already reachable by IPv6 too, however I haven't assigned = hostnames/aliasses to the IPv6 IPs as we're still writing for IPv4 only = at the moment. Wim |
|
From: W. B. / F. N. <wi...@fa...> - 2004-02-16 17:01:18
|
Looks okay to me :-)
Though I think we should take out the object =3D Nothing code too, as =
Windows will handle it for us when terminating the program; it saves =
some speed too, although it will require a bit more memory to run (just =
some pointer space, nothing big).
If you really want to make the string comparisions fast, you'd better =
check the size of the string from memory as the only things that are =
beeing checked at the moment are if a string contains something. Just =
peek the size of the string, directly before the string in memory.
Wimz
----- Original Message -----=20
From: Darko Kenda=20
To: cb...@li...=20
Sent: Monday, February 16, 2004 4:29 PM
Subject: RE: [Cbm-cvs] Preview-Source : modLoader.BAS [CodeBlue/IM =
Loader]
Hello all... I made some minor modifications to loader code..
=20
Darko
=20
=20
=20
=
'------------------------------------------------------------------------=
-------------
' CodeBlue/IM Modular Loader v1.0
'
' Date Coder Description
' =3D=3D=3D=3D=3D=3D=3D=3D=3D =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D =
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
' 02-14-04 Wimz Initial Creation
' 02-16-04 Darko Some performance tweaks
'
'
'
' Modular loader for CodeBlue/IM
'
' Checks for updates of the CodeBlue/IM components at startup, =
downloads and installs
' updates if available and launches the program afterwards. Using =
modular code, we
' can save loads of time and effort telling everyone there's a new =
update to be
' downloaded, especially while still in heavy development.
'
=
'------------------------------------------------------------------------=
-------------
=20
Option Explicit 'We have to declare every variable
Option Compare Text 'Default compare option is now text (not case =
sensitive) instead of binary
=20
Private Sub Main()
'--[ Variable declaration =
]---------------------------------------------------
Dim szErrMissingMSG As String
Dim szErrMissingTtl As String
=20
'--[ Display the form =
]-------------------------------------------------------
frmSplash.Show
=20
'--[ Setup basic error handeling =
]--------------------------------------------
On Error Resume Next
=20
'--[ Load Localised Messages =
]------------------------------------------------
szErrMissingMSG =3D VB.LoadResString(1900)
szErrMissingTtl =3D VB.LoadResString(1901)
=20
'--[ Catch Localisation Errors =
]----------------------------------------------
If LenB(szErrMissingMSG) =3D 0 Then 'Note that LenB() is =
faster for checking if variable is empty
szErrMissingTtl =3D "CodeBlue/IM - Critical Error"
szErrMissingMSG =3D "Core components could not be found; =
please re-install" + vbNewLine + _
" CodeBlue/IM. CodeBlue/IM will now be =
terminated."
End If
=20
'--[ Check if components exist =
]----------------------------------------------
If LenB(FileSystem.Dir(App.Path & "\" & "cbupwiz.dll")) =3D 0 =
Or _
LenB(FileSystem.Dir(App.Path & "\" & "cbimapi.dll")) =3D 0 =
Then
' --[ Display error & Exit =
]------------------------------------------
MsgBox szErrMissingMSG, vbCritical, szErrMissingTtl
End
End If
=20
'--[ Check for updates =
]------------------------------------------------------
Dim ctlCBWUD As Object
Set ctlCBWUD =3D CreateObject("CBUpWiz.modUpdate")
If ctlCBWUD.StartUpdate =3D True Then
End
End If
Set ctlCBWUD =3D Nothing
=20
'--[ Start CodeBlue Messenger =
]-----------------------------------------------
Dim ctlCBAPI As Object
Set ctlCBAPI =3D CreateObject("CBIMApi.CodeBlue")
frmSplash.Hide
ctlCBAPI.StartUp
Set ctlCBAPI =3D Nothing
=20
'--[ Exit to Windows =
]--------------------------------------------------------
End
End Sub
|
|
From: Darko K. <da...@ho...> - 2004-02-16 15:32:56
|
Hello all... I made some minor modifications to loader code..
Darko
'---------------------------------------------------------------------------
----------
' CodeBlue/IM Modular Loader v1.0
'
' Date Coder Description
' ========= ===========
==============================================================
' 02-14-04 Wimz Initial Creation
' 02-16-04 Darko Some performance tweaks
'
'
'
' Modular loader for CodeBlue/IM
'
' Checks for updates of the CodeBlue/IM components at startup, downloads and
installs
' updates if available and launches the program afterwards. Using modular
code, we
' can save loads of time and effort telling everyone there's a new update to
be
' downloaded, especially while still in heavy development.
'
'---------------------------------------------------------------------------
----------
Option Explicit 'We have to declare every variable
Option Compare Text 'Default compare option is now text (not case sensitive)
instead of binary
Private Sub Main()
'--[ Variable declaration
]---------------------------------------------------
Dim szErrMissingMSG As String
Dim szErrMissingTtl As String
'--[ Display the form
]-------------------------------------------------------
frmSplash.Show
'--[ Setup basic error handeling
]--------------------------------------------
On Error Resume Next
'--[ Load Localised Messages
]------------------------------------------------
szErrMissingMSG = VB.LoadResString(1900)
szErrMissingTtl = VB.LoadResString(1901)
'--[ Catch Localisation Errors
]----------------------------------------------
If LenB(szErrMissingMSG) = 0 Then 'Note that LenB() is faster for
checking if variable is empty
szErrMissingTtl = "CodeBlue/IM - Critical Error"
szErrMissingMSG = "Core components could not be found; please
re-install" + vbNewLine + _
" CodeBlue/IM. CodeBlue/IM will now be
terminated."
End If
'--[ Check if components exist
]----------------------------------------------
If LenB(FileSystem.Dir(App.Path & "\" & "cbupwiz.dll")) = 0 Or _
LenB(FileSystem.Dir(App.Path & "\" & "cbimapi.dll")) = 0 Then
' --[ Display error & Exit
]------------------------------------------
MsgBox szErrMissingMSG, vbCritical, szErrMissingTtl
End
End If
'--[ Check for updates
]------------------------------------------------------
Dim ctlCBWUD As Object
Set ctlCBWUD = CreateObject("CBUpWiz.modUpdate")
If ctlCBWUD.StartUpdate = True Then
End
End If
Set ctlCBWUD = Nothing
'--[ Start CodeBlue Messenger
]-----------------------------------------------
Dim ctlCBAPI As Object
Set ctlCBAPI = CreateObject("CBIMApi.CodeBlue")
frmSplash.Hide
ctlCBAPI.StartUp
Set ctlCBAPI = Nothing
'--[ Exit to Windows
]--------------------------------------------------------
End
End Sub
|
|
From: Louis V. <xda...@ms...> - 2004-02-16 01:10:58
|
Wimz this code is very nice the splash looks fine to me I mean it's not = all fancy but very nice for now and it is very straight forward and is = very fast also, and you have a unique and nice way of commenting the = code very easy to read lol makes my code look bad haha. -Louis P.S. If all your work is this good than code blue will end up being the = best messenger ever lol. |
|
From: Louis V. <xda...@ms...> - 2004-02-16 00:20:45
|
Currently I have Added You Wim to the devlopers page=20 Also am working on adding: Double Toker Darkolord If you wanna be added and are not above send a messange to the mailing = list..=20 -Louis |
|
From: W. B. / F. N. <wi...@fa...> - 2004-02-15 22:45:47
|
As I haven't changed anything today to this code, I guess there isn't =
really anything to change to it :-) It's the initial loader with as less =
code as possible (because we want to handle as much as possible in =
dynamically updatable, loadable and unloadable modules)
The module shows a splashscreen at start, checks for the existence of =
the core API and the update module; runs the update module, exits =
afterwards if beeing told or else loads the core API. I've localised it =
too so it shows up a readable errormessage in other languages too (if =
localisation data is available, else it shows the hard-coded default =
message on error).
---[ Module : modLoader.BAS =
]-------------------------------------------------------------
'------------------------------------------------------------------------=
-------------
' CodeBlue/IM Modular Loader v1.0
'
' Date Coder Description
' =3D=3D=3D=3D=3D=3D=3D=3D=3D =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D =
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
' 02-14-04 Wimz Initial Creation
'
'
'
' Modular loader for CodeBlue/IM
'
' Checks for updates of the CodeBlue/IM components at startup, downloads =
and installs
' updates if available and launches the program afterwards. Using =
modular code, we
' can save loads of time and effort telling everyone there's a new =
update to be
' downloaded, especially while still in heavy development.
'
'------------------------------------------------------------------------=
-------------
Private Sub Main()
'--[ Display the form =
]-------------------------------------------------------
frmSplash.Show
=20
'--[ Setup basic error handeling =
]--------------------------------------------
On Error Resume Next
=20
DoEvents
'--[ Load Localised Messages =
]------------------------------------------------
szErrMissingMSG =3D VB.LoadResString(1900)
szErrMissingTtl =3D VB.LoadResString(1901)
'--[ Catch Localisation Errors =
]----------------------------------------------
If szErrMissingMSG =3D "" Then
szErrMissingTtl =3D "CodeBlue/IM - Critical Error"
szErrMissingMSG =3D "Core components could not be found; =
please re-install" + vbCrLf + _
" CodeBlue/IM. CodeBlue/IM will now be =
terminated."
End If
=20
'--[ Check if components exist =
]----------------------------------------------
If FileSystem.Dir(App.Path & "\" & "cbupwiz.dll") =3D "" Or _
FileSystem.Dir(App.Path & "\" & "cbimapi.dll") =3D "" Then
' --[ Display error & Exit =
]------------------------------------------
MsgBox szErrMissingMSG, vbCritical, szErrMissingTtl
End
End If
=20
'--[ Check for updates =
]------------------------------------------------------
Dim ctlCBWUD
Set ctlCBWUD =3D CreateObject("CBUpWiz.modUpdate")
If ctlCBWUD.StartUpdate =3D True Then
End
End If
Set ctlCBWUD =3D Nothing
=20
'--[ Start CodeBlue Messenger =
]-----------------------------------------------
Dim ctlCBAPI
Set ctlCBAPI =3D CreateObject("CBIMApi.CodeBlue")
frmSplash.Hide
ctlCBAPI.StartUp
Set ctlCBAPI =3D Nothing
=20
'--[ Exit to Windows =
]--------------------------------------------------------
End
End Sub
|
125 messages has been excluded from this view by a project administrator.
