Important alert: (current site time 7/16/2013 3:24:59 AM EDT)
 

winzip icon

Andromeda!

Email
Submitted on: 10/22/2000 9:21:01 AM
By: One Light, Inc.  
Level: Advanced
User Rating: By 63 Users
Compatibility: VB 6.0
Views: 73823
(About the author)
 
     Andromeda Remote File System is a complete Client/Server architecture application that includes both the server and client projects. Andromeda uses Winsock to communicate over a TCP/IP connection. The server supports multiple users, and encrypted passwords. Features: Download/Upload file(s) and folder(s) Move file(s) and folder(s) Rename file(s) and folder(s) Delete file(s) and folder(s) Create new folder Spawn/Terminate executables and much more... The client uses a custom class to download and upload multiple files to the server. You may also add more than one Andromeda server to connect to. Supports drag-and-drop between client and server. Server keeps complete logs of login events, file transfers, and will even log server output, if specified in options. This program is similar to CuteFTP, but does not use the File Transfer Protocol. Instead, we implemented our own 'Protocol' for the client and server to communicate. Server can accept multiple connections simultaneously. Demonstrates usage of the Microsoft Winsock ActiveX control, using synchronized data transfer, using arrays of Winsock controls for a multiple connection server, using Collections, opening files for both binary and text reading/writing, etc... YOU MUST SEE THIS! PLEASE VOTE FOR THIS CODE IF YOU LIKE IT!! *Bugs Fixed! October 24th*

 
winzip iconDownload code

Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. Afterdownloading it, you will need a program like Winzip to decompress it.Virus note:All files are scanned once-a-day by Planet Source Code for viruses, but new viruses come out every day, so no prevention program can catch 100% of them. For your own safety, please:
  1. Re-scan downloaded files using your personal virus checker before using it.
  2. NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.
  3. Scan the source code with Minnow's Project Scanner

If you don't have a virus scanner, you can get one at many places on the net including:McAfee.com

 
Terms of Agreement:   
By using this code, you agree to the following terms...   
  1. You may use this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
  2. You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.   
  3. You may link to this code from another website, but ONLY if it is not wrapped in a frame. 
  4. You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.


Other 4 submission(s) by this author

 


Report Bad Submission
Use this form to tell us if this entry should be deleted (i.e contains no code, is a virus, etc.).
This submission should be removed because:

Your Vote

What do you think of this code (in the Advanced category)?
(The code with your highest vote will win this month's coding contest!)
Excellent  Good  Average  Below Average  Poor (See voting log ...)
 

Other User Comments
10/22/2000 11:43:41 AMCovertLoop

Would have been smarter to sell this.
(If this comment was disrespectful, please report it.)

 
10/22/2000 12:11:53 PMThemba Kriger

brilliant programming 5 out of 5 i hope u win code of the month. 1 question: what did u use to make parts of the screen shot transparent?
(If this comment was disrespectful, please report it.)

 
10/23/2000 7:20:53 AMroseta

very excellent , keep going
(If this comment was disrespectful, please report it.)

 
10/23/2000 7:03:53 PMRyan and Drew Lederman

Hey guys, sorry for all the bugs, we obviously rushed the release :/ We checked both projects, and fixed all the bugs, so if you downloaded before October 24, you should re-download the *working* version :) Thanks
(If this comment was disrespectful, please report it.)

 
11/5/2000 1:18:21 PMMartin

The APP.Path Problem can be solved even shorter!

Just write the following:

Dim myPath as String

myPath = App.Path & IIf(Right(App.Path) = "\", "filename.ext","\filename.ext")
(If this comment was disrespectful, please report it.)

 
11/5/2000 5:04:20 PMJared

CovertLoops is right =(
Nice Code tho
(If this comment was disrespectful, please report it.)

 
11/7/2000 10:43:32 AMMike Schmidt

Your folder delete would not run on my NT, plus I figure since you use FSO, why not make the delete folder routine FSO...much cleaner and forces folder removal, so I placed this code where you had RmDir(fileName):

dObj.DeleteFolder fileName, True

Also, an overflow error everytime I run, occuring where you call FindChildByClass, so I commented it out, haven't pinpointed why, but hey, it's NT...

Also, file attributes in NT cause an error when you list files (dir command). As soon as it encounters an error, the remaining file list isn't listed, so I added
(If this comment was disrespectful, please report it.)

 
11/7/2000 10:45:41 AMMike Schmidt

(continued)Also, file attributes in NT cause an error when you list files (dir command). As soon as it encounters an error, the remaining file list isn't listed, so I added "resume next" to the error routine and now all files are listed. (Bad coding, but I haven't pinpointed the codes, I know one is 75...)

Wonderful coding! Excellent job, keep up the good work. Nice to see your file transfer keeps filesizes the same...I would add dynamic buffer sizes though, and make all data transfer correspond to the buffer/packet size set.
(If this comment was disrespectful, please report it.)

 
11/13/2000 5:34:38 PMChris

Nice code, but you've got to learn how to trap errors. You need to set it up so that the program doesn't crash when something happens that it didn't expect. Nice job though. Keep up the good work.
(If this comment was disrespectful, please report it.)

 
11/17/2000 3:31:22 AMPlasma

Hey, this is one awsome app! Cheers to the dev team of this! Its awsome! 5 Stars!
(If this comment was disrespectful, please report it.)

 
11/17/2000 3:43:24 AMPlasma

There is one major security glitch with this that I have found... Where it allows you to type in a path name on the remote server, say I have C:\Games shared, if I type, C:\games\..\ it will give me root access, the dots mean go back a directory....
(If this comment was disrespectful, please report it.)

 
11/17/2000 9:20:23 PMAlpha

Excellent code. 5 globes from me.
Another thing, how did you make the screen shot transparent?
(If this comment was disrespectful, please report it.)

 
11/27/2000 3:40:53 PMSteven Briggs

hmm... very nice! you guys did a nice job! im looking forward for updats :) this has helped me alot with my network :) thanx for sumiting such good code!
(If this comment was disrespectful, please report it.)

 
12/21/2000 8:49:48 PMJBInvert

Why does my VB give me an error- it can't find the class
(If this comment was disrespectful, please report it.)

 
3/6/2001 7:21:11 PMZappatilias

Is there anyway for the server to download stuff from the client, or browse the clients files
(If this comment was disrespectful, please report it.)

 
3/11/2001 8:39:34 AMTWilliam

Hi,

I dont know if i am being too intrusive here...but I like your work done.

I am thinking about letting users download some files from my website. But I dont know how to...Could you show me a few pointers how ?

If its not too much, could you show me how to display the file Download Dialog when a User clicks on a file he wants to download from a Web-Page. I think its a standard File Download Dialog box that most sites use. After specifying a folder to download to, the progress bar shows and the Download Complete Dialog Box Shows after Downloading is completed. How do you do all that ?

Any advice and tips are greatly appreciated. Thank You
(If this comment was disrespectful, please report it.)

 
3/11/2001 12:51:04 PMScythe

How come the download/upload windows don't close?!?!
(If this comment was disrespectful, please report it.)

 
5/14/2001 10:18:10 PMStickman373

I was wondering if the login script is okay because my friends can't seem to login it always says invailid password and none of my users show up in the list but the files are there?
(If this comment was disrespectful, please report it.)

 
7/13/2001 8:48:57 AMAnt

Really nice code, i've been waiting for an example like this for a long time for a project I started a while ago.
(If this comment was disrespectful, please report it.)

 
11/20/2001 7:26:00 PMApocalypse

Great code, I too have been looking for and example of a good ftp type progie. just a few suggestions are to fix the error trapping, add a media player for mp3's etc.. and Sell this! over all excellent!!
(If this comment was disrespectful, please report it.)

 
12/27/2001 1:27:45 PMJonte

Hi, i have discoverd some bugs that i need some help with!

Here it goes:
On the server:
When i create a new user and press the
(If this comment was disrespectful, please report it.)

 
12/27/2001 1:28:20 PMJonte

Hi, i have discoverd some bugs that i need some help with!

Here it goes:
On the server:
When i create a new user and press the "Create User" key, i will get a
"Run-time error '5'
Invalid procedure call or argument"
and when i debug the code.. here is the code that it's complaining aboute
"firsthtml = Dir" line 1192 col 9 in the ServerMod
-------------------
And when i want to change i password it gives me a
"Run-time error '424':
Object required"
and it complains aboute the code at
line 15 col 1 in frmModifyUser
"If optNormalUser.Value = True Then"
----------------------------
And the client:
Well.. when i wan't to download a file, it download the file like it should, but then it starts to upload filed from my directory...

If you could help me with this it would be great!
My email: Jonte@2cool4u.nu
or icq: 52720342
Thanx for a great code!
(Excuse my English)
(If this comment was disrespectful, please report it.)

 
1/25/2002 4:33:18 AMZhu JinYong

If you refine the code and improve GDI,this appliaction will be a really something.When do we get your updated version?I think many people are interesting this "PC Anywhere"!
(If this comment was disrespectful, please report it.)

 
5/19/2002 7:55:11 AMNiall Mooney

Very very good, I'm very interested to see how you have got multiple winsockets to work in a VB application (i hope simply). 5 Globes from me, keep up the excellent coding.
(If this comment was disrespectful, please report it.)

 
6/19/2002 7:08:02 PMxXx_Spectator_xXx

Excellant Code. To many bugs tho. Nice job !!!!
(If this comment was disrespectful, please report it.)

 
8/28/2002 7:51:16 AMZap The Dingbat

have i missed somthing or is this not just a re-invention of FTP?
(If this comment was disrespectful, please report it.)

 
9/6/2002 5:44:57 AM

why I am getting error that missing file sl.dll? where can I get it?
(If this comment was disrespectful, please report it.)

 
12/14/2002 9:17:35 PM

why I am getting error that missing
file sl.dll? where can I get it?

(If this comment was disrespectful, please report it.)

 
1/6/2003 3:49:26 AMJody Jacoby

havent downloaded yet but it looks good besides a few bugs (you must expect) nothing i cant iron out im sure, great feedback from everybody.
thank you for being so kind as to share your wunderfull code
(If this comment was disrespectful, please report it.)

 
2/3/2003 5:48:03 PM

I'm missing that 'sd.dll' file too.
(If this comment was disrespectful, please report it.)

 
2/8/2003 1:47:52 PMRichard Sullivan

yup, im missing the sd.dll file aswell..i think the aliens stole it.

(If this comment was disrespectful, please report it.)

 
2/13/2003 11:45:53 PMOne Light, Inc.

Sorry about sd.dll guys, it's not really a DLL file at all, in fact it's just a text file that stores some data and it has been so long I forget what it is. Fortunately I do remember that you can just create an empty text file in Notepad or whatever and name it sd.dll, stick it in the folder with Andromeda and you should be ready to go!
(If this comment was disrespectful, please report it.)

 
4/7/2003 4:33:14 PM

Nice, but i can't connect to ftp ? What is the bug from ?
(If this comment was disrespectful, please report it.)

 
6/22/2003 1:14:50 AMFrancis M. Marasigan

Nice job. But does your program support simultaneous download for different user? I notice that when one user is currently downloading, the other user cannot download.
(If this comment was disrespectful, please report it.)

 
8/13/2003 2:44:23 PM

No esta completo y no funciona bien
(If this comment was disrespectful, please report it.)

 
9/13/2003 4:56:41 AMninja243

TRULLY GREAT CODE MATE, REEESPECT!!!
(If this comment was disrespectful, please report it.)

 
1/20/2004 11:25:13 AMLJ

this is awesome work. really, it is.
(If this comment was disrespectful, please report it.)

 
3/30/2004 10:52:14 AM

Hi! Hoe can i get sd.dll?
(If this comment was disrespectful, please report it.)

 
4/6/2004 1:12:59 AM

HOLA HE ARREGLADO TODOS LOS BUGS QUE HABIAN Y LE HE CAMBIADO LA APARIENCIA, ADEMAS LE AGREGUE COMO APAGAR EL ORDENADOR REMOTAMENTE, LE AGREGUE UN CHAT Y MUCHAS COSAS MAS COMOM MIRAR UNA PANTALLA REMOTA MOVER EL MOUSE, ECTTT TODO EN ESPAÑOL

VEAN AQUI http://www.geocities.com/abarbosa_98/Dibujo.JPG

barbosaa2001@hotmail.com


(If this comment was disrespectful, please report it.)

 
9/25/2004 7:43:29 PM

the sd.dll is just a text file containing the "shared directories" list. A fix is to check if thefile exists via

If dir(app.path & "\sd.dll") = "" Then
' create an empty file
Dim hFreeFile as Long
hFreeFile = freefile()
open app.path & "\sd.dll" for Append as hFreeFile
close #hFreeFile
End if

(If this comment was disrespectful, please report it.)

 
9/25/2004 7:47:42 PM

Ugh, i just realized this code has some really annoying problems with variable data types and the lack of option explicit. There are some functions which return a long and the code is trying to accept the returns with an integer type. Easy to fix, but annoying. Makes the whole code rather suspect really.

The problem Francis M. Marasigan described above sounds like the server is not doing any sort of "round robbin" time slicing to give all users equal time on the server. Another solution would be to use multithreading... perhaps integrating the MThreadVB project from pscode.com with this would make a more complete solution.
(If this comment was disrespectful, please report it.)

 
5/3/2005 10:13:41 AMchuck

I can't download this, it's a problem with planet source code. IE says the site is unavailable and Firefox downloads a corrupt ZIP. What's up?
(If this comment was disrespectful, please report it.)

 
8/29/2005 1:00:23 AMMegaSoft InfoCare India.

Why is it that Im asked for sd.dll file, what should I do and where do i find the file
(If this comment was disrespectful, please report it.)

 
11/18/2005 2:00:04 PMwinxp4444

good work
i want aske if the server is over or after router how i can connect with him if you have informatin about (NAT) - like the msn can copy from computer to other while they have virtchiwal ip and p2p pleas send me winxp4444@yahoo.com
winxp4444@hotmail.com
i need it i was make network monitors programmes and need this fiches thanks
(If this comment was disrespectful, please report it.)

 
7/1/2006 9:59:17 AMX

excelent, just what i was searching for, great job
(If this comment was disrespectful, please report it.)

 
7/11/2006 11:00:56 AM

excellent program! need advice on how i can make a client/server database program for a hospital..
(If this comment was disrespectful, please report it.)

 
9/28/2006 8:54:54 AMLouie

So brilliant. I love it
(If this comment was disrespectful, please report it.)

 
1/9/2008 3:29:38 PMKroki

it has a lot of bugs at me :(
(If this comment was disrespectful, please report it.)

 
8/7/2008 6:00:29 PMDan

Quite a few bugs. Client's connect settings should be disabled if no servers setup. Some use of integers instead of longs causing issues such as MDI() function and "c%" in FindChildByClass() (would have worked in win9x though). Need to check if files exists before using them.

The performance is slow 40KB/sec and CPU utilization high (100% both cores on Core2 duo @2.66ghz for first ~20 sec then 40-70%) on client.

Canceling a file transfer does not work correctly... Server either keeps sending or client thinks it is still recieving. You have to close connection and reconnect to transfer again. If you do reconnect and transfer a file it brings up another window from previous terminated transfer.

At the time this code was shared it was likely a great example project. I would rate this mediocre if this was submitted recently and would have likely rated it great back in 2000, so I don't think I can rate this at all.
(If this comment was disrespectful, please report it.)

 

Add Your Feedback
Your feedback will be posted below and an email sent to the author. Please remember that the author was kind enough to share this with you, so any criticisms must be stated politely, or they will be deleted. (For feedback not related to this particular code, please click here instead.)
 

To post feedback, first please login.