FREE SOURCE: A "ShutDown" Server.

yes, i got it to work....

VB Code:

Dim i As Long
Dim page2serve As String
For i = 0 To File1.ListCount - 1
    If PageToGet = "/" & File1.List(i) Then
        page2serve = File1.List(i)
    End If
Next i
 
 
Dim strtemp As String
If page2serve <> "" Then
Open App.Path & "\webpages" & "\" & page2serve For Input As #1
    Do While Not EOF(1)
        Line Input #1, strtemp
        SiteToSend = SiteToSend & strtemp & vbCrLf
    Loop
Close #1
End If

ok... i have the complete code for the sub now (cuz i put things in dif places)... you need to have a filelistbox called file1

VB Code:

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
 
StartOver:
DoEvents
INFOTEXT = DATA '"Getting: " & PageToGet
If PageToGet = "0" Then GoTo StartOver
Dim i As Long
Dim page2serve As String
For i = 0 To File1.ListCount - 1
    If PageToGet = "/" & File1.List(i) Then
        
        
        page2serve = File1.List(i)
        
    End If
Next i
Dim strtemp As String
If page2serve <> "" Then
Open App.Path & "\webpages" & "\" & page2serve For Input As #1
    Do While Not EOF(1)
        Line Input #1, strtemp
        SiteToSend = SiteToSend & strtemp & vbCrLf
    Loop
Close #1
End If
SENDtheSITE:
Winsock1.SendData SiteToSend & vbCrLf
page2serve = ""
SiteToSend = ""
strtemp = ""
End Sub

and me found a problem... it doesn't serve images... and i have absolutely no idea how to make it work...

Quote:

---

Originally posted by Hampster
Look at the way I handled GET in the code I posted...

Quote:

---

Originally posted by Hampster

VB Code:

Public Sub DataIn(Index As Integer, StrData As String)
Debug.Print StrData
Dim Request As String, i As Long, File As String
Select Case UCase$(Gettok(StrData, 1, " "))
    Case "GET"
        Request = Gettok(Gettok(StrData, 2, " "), 2, "?")
        File = Gettok(Gettok(StrData, 2, " "), 1, "?")
        Open App.Path & File For Binary As #1
            Do Until i >= LOF(1)
                If i = 0 Then i = 4096
                SD Index, Input(i, 1), False
                i = i + 4096
                DoEvents
            Loop
            WS(Index).Close
        Close #1
End Select
End Sub

---

---

Look at it :rolleyes:

unless that solves my images problem then im not gunna change my code...

It does. It transfers the file in in binary, and sends 4096 chunks of it through winsock, thus enabling you to send non text from your server.

okay, and where exactly would i put that code??

VB Code:

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
 
StartOver:
DoEvents
INFOTEXT = DATA '"Getting: " & PageToGet
If PageToGet = "0" Then GoTo StartOver
Dim i As Long
Dim page2serve As String
For i = 0 To File1.ListCount - 1
    If PageToGet = "/" & File1.List(i) Then
        
        
        page2serve = File1.List(i)
        
    End If
Next i
Dim strtemp As String
If page2serve <> "" Then
dim I as long
Open App.Path & "\webpages" & "\" & page2serve For Binary As #1
            Do Until I >= LOF(bFF)
                If I = 0 Then I = 4096
                Winsock1.SendData Input(I, 1)
                I = I + 4096
                DoEvents
            Loop
Close #1
End If
SENDtheSITE:
Winsock1.SendData SiteToSend & vbCrLf
page2serve = ""
SiteToSend = ""
strtemp = ""
End Sub

Try that,
Also, I haven't tested it, just to forewarn you.

I mean something like:

Code:

---

  if pagetoget > "0" then
  scan drive for files script
if scanned file= pagetoget then
load file into a string
else
goto errorpage:
end if
    end if

---

Would not his be better than a list?

I will work on this....
To make is as simple as possible..(and working, hehe)

Thanks for your tips in your above post..sure i will use some of that...

thats pretty much what my code does, but instead of writing the code to scan for the files i just use a hidden filelistbox... it works perfectly fine...

Here is a fully working server..with FILE SEARCHING..
I must modify the script some ..inorder to get rid of some BUGS i have found...

Also i need to solve how to get it to accept things like pictures..
I mean, how to get it to send pictures to explorer..

But check it out..

I have gotten rid of all the (known to me) bugs..
now there is ONLY one thing left..
Handeling files...
like pictures and zip's and so on...

Still it doesn't seem to know what to send or it sends it in another format..or only part of it..

Will figure it out..

(below is the MOST up to date WORKING http server...)

it really isnt working for me :confused: !

i just get the error page when i go to 127.0.0.1

Have you unzipped ALL the files from the folder?

And put ALL the files in the same folder..

Then "render" the Httpserver.exe (or whatever name you choose)

then close VB5 or 6

run the HTTPserver from its folder..

Press the TEST locally Button...

If it doesnt work then... try this in explorer

http://localhost (just plain localhost as i wrote it)

you can also try: http://yourmachinename

PS: download the latest server i made...

I have made it look better...also I have made it support MULTIPLE domain names...

So if you have:

mydomain1.com
mydomian2.com
mydimoan3.com

which all points to your machine (EG: using DNS2GO.COM)

Then you can make D1.com show one page and D2.com show another....

Read the HELP inside the server (there is a button you can press)

I need some help on sending files (pictures zip or so..but the rest is working fine)

Download the NEW version below!

I've got it working ..finally...

So now its a multidomain server, supports (my own) cgi
Support downloading of files from server...
Supports pictures in the sites..

So now...Everything is cool..
Maybe I should work on the design..Or some more "cgi" stuff...

So that you can have a script OUTSIDE the server
which contains "script" commands...
EG: #IP# = winsock1.localip
This must be possible...

OK...Anyway Enjoy the fully working SERVER !!


(download below)

damn man, this is awesome... i gotta look thru the code now, i just need to know whats happening all the time lol... ill post again if i find any problems, or have a feature request

i have one request now (or, more of a question)...
can we try to have php support??

i added a feature that was in the original, the hide feature... useful for me just cuz i want to run it in the background... if youd like to see my code then just post and ask...

MsgBox "The folder you wanna reach..doesnt exist" & vbCrLf & "You must create it in the App Folder", vbSystemModal, "Folder Error:"

very professional lol

Why was the FOLDER EXIST error so funny?

Havent you seen the error if you request a page that doesnt exist...

Or if you request a folder that doesnt exists..(didnt care to make those errortrappers a big deal..)

About the PHP thing...Im NOT into PHP...(sorry)

I don't know a single word(read: codeline) of PHP...

I only know: HTML,DHTML,ASP,JAVA,JAVASCRIPt,BASICVBSCRIPT,VB6.0

OK...but If you want any special functions that PHP can do..then I'll try to make that...

Have you tried it with multiple domains yet?

And your hiding code, does it make a icon in the Tray...??

If not,then I can add the old code and make it work correctly..

it wasn't really funny, but i've never seen professional error's say, and i quote

Quote:

---

wanna

---

lol...

php ill try to work in, ill see if i can get an sdk from php.net

haven't tried it w/ multiple domains, as i only have one

no, my hiding code does not make an icon in the tray, but it is intended to be this way... i want it to run completely invisible in the background...

no luck on implementation of PHP, and i don't feel like d/ling and re-installing PHP to try...

..and the function they have...

Like: if you write %remote load file% in a homepage ,Than this means that you want that file to open so that you can pass it some info..(then I can create those functions..)

Like i made the #NOW# which is similar to VBScript's <%Now%>

I can do that if you give me the commands you need and what they do...

EG: &Bloody.Mary& writes BlOoDy-MaRy on the homepage...

Whatever..as long as i know what it is supposed to do...
I should be able to make it...

OK... so you wanna hide the server..HEHE..
Well..Maybe you should make those errors appear on BLUE screen like:
0x00011111:fffgacg123 Cannot load int.vxd

LOL !!

it would be too hard to give a list of all php codes and their functions... cuz i want to run pre-written code i would have to go through, and figure out line by line what every piece of code does... so ill just leave it the way it is, it will run html just fine...

If you need any specific function to happen when you write anything...then ask me..
I'll figure a way...If you just give me some time..HeHe..

So is there anything else we should add..?

Could add a button called HIDE IN TRAY, and one called HIDE
(hehe - guess you know what I mean)

But a function that could list up every file in a specific folder as links on a site...would have been great..hehe..

I think that ,maybe I should make that ... (for downloading from server...(so that you can have a download area..)

And maybe some SEARCH script too.. To search for files or info inside files... I will need some time,but I guess that i will look into that too...

if i really need a function i should be able to write it myself... if not then ill post and ask

the hide in tray and hide buttons sound good

the dirlist function also sounds great... that way it could run semi-like an ftp server

search script might be hard, but it would be cool...

another thing, we need logs... u can just record everything that shows up in the log txtbox, and i might try to create a program to read it a lil later...

I will soon intnerggrate that into the main window of the server aswell...

But here it is...with logging.. If you move or delete the log file then it will simply create another one..with the same name...
It creates it in the app folder..

hm... does it send the log anywhere yet??

are you guys going to make an exe of all the appz?

You could use the MS Script Control to do server side VB/Java Scripting.

Z.

Hmm Ms Script Control? Sounds neat.

I made my own httpd, feel free to use any parts of it for your "shutdown" server :D

Here is a quick and dirty demo to using the MS Script Control. I believe that it supports VBScript and JavaScript, but if I remember correctly, you CAN write your own modules that can execute other types of scripts.

In the demo, there is a script control, called SC, on the form. At form load, I add Text1 to the script control, with the alias "Text":

Code:

---

SC.AddObject "Text", Text1

---

I also create and add a user created object, Class1, with one member, Hello():

Code:

---

clsX = new Class1
SC.AddObject "X", clsX

---

Also on the form is Text2, and a command button. Type your command in the textbox, as you would in normal VB code, and press the button to execute the command:

Code:

---

Text.Text = "Hello!"

---

Would change the text in Text1 to "Hello!".

The AddCode method also allows you define complete VBScript Procedures, which can be called from the script control as well. The ExecuteStatement Method takes a single string, and executes it (just like the AddCode method when you pass it a statement).

Thats just a quick overview of the control for you. In your case, you can parse your html files for tags like <server_script></server_script>, and execute what is between them.

Z.

And here is the demo...

Z.

maybe its because i have a router or something, but it doesnt work. i checked EVERYTHING. look at screenshot.
http://vbforums.com/attachment.php?s=&postid=949020

Thanks :D

Updated the code for the scripting runtime :)

Here is a server that i've tested for your bug..on my router..

And it works with my router! But if you seem to get problems then please PM or post your porblems in here!
And i will help you out as good as possible!

PS: what version of VB are you using,, Im using VB6 nad im not sure if all this code is backwards compatible as i cannot try it in anything else that VB6..

PS: download the VBruntimes if ou dont have VB6...
( http://www.karenware.com/powertools/runtimes.asp )

Try the above inorder to get the FULLY working VBruntimeFiles!

And see you soon!

Quote:

---

Originally posted by Hampster
Thanks :D

Updated the code for the scripting runtime :)

---

What languages does this server support?
I tried standard ASP code...But...

Code:

---

<%
NOW    'and i tried TIME
%>

---

And I got: ERROR IN 0

Can you make it support REGULAR asp language (VBScript??)
Is that possible...?

PS: there is ONE button you should have added to your form!
the button I have in mine, to TEST locally!

Code:

---

dim TL
set TL = createobject("wscipt.shell")
TL.run "iexplore http://127.0.0.1"
'and for you:  http://127.0.0.1:81

---

But I liked your code! And your server! Very good indeed!

works fine on my router...

What I did was read the file line by line, and looked for <%
When <% was found, it started filling a variable with each line until %>. Then it's sent to to ms's scripting runtime. I made a class file, and then set the scripting runtime to call the class when ever local. is used. That's how I send output to the web broswer through the scripting language.