Absolutely incredible!  Nice code, 
simple interface and - what a nice 
feature - IT WORKS!
Keep up the 
awesome work :)

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Why thank you :)  I hope you understood 
it.  At a point when i get a chance, 
i'll probably code some other things i 
haven't seen on here with winsock 
:)
Please rate my work if you like 
it, it makes me feel *special*, lol :)

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Please Keep It Up!!!

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Great Code Dude..
Keep It UP.

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Good work,
Why are you using the 
timeout 0.4
Is there a more elegant 
way to do this?

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

You have to pause after sending the 
data, then close the connection.  i've 
found that .4 seconds works best :) 
yes, there is a more elegant way to do 
this though.  You'd need to code 
something into the 
sckWS_TransferFinished sub. :)  i was 
thinking about doing it.

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Great Code man....

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

"clap" , "clap" , "clap", "cLAP"

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

I get run time erro 10048.
Address in 
use.
What does it mean.  How can I 
resolve it.
Thanks

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Pat I dont know if you will read this 
first before you check your email but 
if you do then check your email right 
now for my question please

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Very nice example.

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

This code doesnt work in VB 5.0 Because 
VB 5 does allow the Replace 
command.
Also VB 5 needs the 
"Retained" key removed... 

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Hey Ahmad Hosseini the solosion(Don't 
know how to spell) to the error 10048 
is reinstall the adapter that the app 
is running off that has TCP/IP.

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Excellent code! This is the first web 
server I've seen in VB that works so 
well. 

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

well done pat. i used some of your 
ideas and the basic layout of your form 
to create a server more adapted to my 
needs. i added command line switches 
for easy startup/minimization upon 
loading... as well as a tray icon and 
animated tray 
minimization.
screenshot - 
http://24.48.73.8/

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Thanks for that bug fix Pat

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Nice! And well put together.

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Really cool,really cool!!!
The best 
code I have seen here...
Keep on the 
great work...

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

When there are pictures on the pages, 
they do not load.  Does that require 
extra coding?

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Rob is right, the pictures dos'nt load, 
please fix it. Thanks.

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Every get loads a new winsock, even 
when the others are not in use.  This 
eats about 4k per get that is never 
released.
To use images replace 
text_read with:
Public Function 
text_read(filename)
Dim intFileNum 
As Integer
Dim strFile As String
Dim 
lngLength As Integer
  On Error 
Resume Next
  intFileNum = FreeFile
strFile = ""
  If FileExists(filename) 
Then
    If Len(filename) Then
Open filename For Binary As #intFileNum 
  ' Open file.
      strFile = 
Space(FileLen(filename))
      Get #1, 
, strFile
      Close #intFileNum
End If
  End If
  text_read = 
strFile
End Function

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

any idea on how to run cgi scripts with 
this one

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

if you want a webserver which support 
images. download this one:
<a 
href="http://www.planet-source-code.com/
vb/scripts/ShowCode.asp?txtCodeId=5193">
webserver

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Great Code but could have some better 
error handling. Also going to 
http://<ip>/../ will freeze the server. 
Anyway to fix this? And also, is there 
any way to list the files, as in FTP? 
Thanks :) [webmaster@mitch.zzn.com]

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

I have just started my own webserver 
project and this answers quite a few of 
my question. Lemme know if you need a 
VB5 coder.

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Hey, good Idea Wizdum.. you wanna see 
his mad skillz at work? Goto 
www.theblackhand.net and download this 
work of art

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

I've a question, when I typ http://(My 
I.P.)/Index.html the server says that 
someone is connected but in internet 
explorer ther is no page vissible. The 
server and the html files are in the 
same directory, does anyone know what 
I'm doing wrong?

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Is this for VB 6 only, I have VB 5.0 
and can not open the project. I recive 
a "Retained" invalid key error?
Help 
Please!

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

I think I know what the problem is 
know... the reference lines in the 
project file are pointing to files in 
the ..\..\..\WINDOWS\SYSTEM directory 
which of course will cause the errors I 
am getting becuase I use NT and there 
for do not have a windows directory 
per-say... I changed that, and it seems 
to function ;)

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Great work! Thank you.
I needed a 
working example of a Winsock Listener 
to modify into something completely 
different than a webserver...
Luckily 
for me I built on THIS fine piece of 
work! Couldn't have done it without ya, 
buddy... Thankx again!!

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Hey Brian, If you got a "retained" key 
when opening in VB5, try this:
1) Open 
up notepad  
2) Open up the .vbp of 
this code
3) Delete the line near the 
bottom that says "retained=..."
4) 
Save it and open the project in VB and 
your fixed up.

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

great example code, just one question 
though, your example always lists my ip 
as: http://4.0.0.3, for some reason, it 
will work fine if I go to my actual ip 
addy but links won't work because it 
thinks my ip is the one above is this 
because I am on a proxy server? and is 
there anyway to fix it?

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

I love your code but is there any way 
to make it more stable? It is so easy 
to lockup the program. All you need to 
do is type something wierd into the 
browser and the web server program 
freezes. i.e. type 
http://127.0.0.1//
or
http://127.0.0.1
/..
Would you need to filter out 
every possible bad command or is it 
possible to just check if it is valid?

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Just one thing, the way you said to 
change the 404 error so that it loads a 
html 404 error page for me does not 
work, it just makes a page with the 
directory of the html page is there a 
way to fix this? does this happen for 
anyone else or just me?

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Fred you need to change part of the 
sckWS_ConnectionRequest sub as well, 
the part I am reffering to should look 
like this:
 requestedPage$ = 
html_404$
      htmldata$ = 
text_read(htmlPageDir & "\" & 
"404.html") 'This reads the file and 
stores it's contents in htmldata$
 htmldata$ = ReplaceStr(htmldata$, 
"$ip", sckWS(0).LocalIP) 'Oops, i 
didn't use the replace function right.  
Now it's fixed at replaces $ip with 
your IP.
sckWS(ttlConnections).SendData 
htmldata$ & vbCrLf
instead of 
this(this is off the top of my head so 
may be wrong):
requestedPage$ = 
"/a"
sckWS(ttlConnections).SendData html_404$

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

man.. this is great...what else can i 
say

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Very good one, 5 globes from me. Are 
you planning to enhance your program to 
handle HTTP POST?

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason: