external vdsinet.dll,Public Freeware Key|90257236
net socket,port,80
net socket,server
net socket,vdsevents

  DIALOG CREATE,VDS - Webserver,-1,0,594,117
  DIALOG ADD,EDIT,EDIT1,8,8,176,16
  DIALOG ADD,EDIT,EDIT2,24,8,176,16,@path(%0)
  DIALOG ADD,EDIT,EDIT3,40,8,176,16,"http://"@net(socket,addr)":80/index.html"
  DIALOG ADD,BUTTON,BUTTON1,8,192,128,16,Send command to client
  DIALOG ADD,LIST,LIST1,16,328,256,88,DBLCLICK
  DIALOG ADD,BUTTON,BUTTON2,40,192,128,16,Copy IP to clipboard
  DIALOG ADD,BUTTON,BUTTON3,24,192,128,16,Change path to files
  DIALOG ADD,TEXT,TEXT1,64,8,,,Clients connected: 0
  DIALOG ADD,TEXT,TEXT2,80,8,,,Made by Skit 3000,CLICK
  DIALOG ADD,TEXT,TEXT3,0,328,,,Log: (Double click to copy a line to the clipboard)
  DIALOG SHOW


:evloop
%%event = @event()
if @equal(%%event,)
  dialog set,text1,"Clients connected: "@net(socket,clients)
goto next-evloop
else
goto %%event
end

:next-evloop
%%socketdata = @net(socket,data)
%%socketevent = @net(socket,event)
%%socketsenderid = @net(socket,senderid)
if @not(@null(%%socketdata))
  list add,list1,%%socketdata - %%socketsenderid
  option fieldsep,@chr(32)
  parse "%%var1;%%var2;%%var3;%%var4;%%var5",%%socketdata
    %%command = @substr(%%socketdata,1,3)
	  if @equal(%%command,GET)
	    goto sendhtmlfile
		end
	  if @equal(%%command,ACC)
	    goto sendimagefile
		end
  end
if @not(@null(%%socketevent))
  list add,list1,%%socketevent - %%socketsenderid
  end
goto evloop

:sendhtmlfile
%%htmlfile = %%var2
%%htmlfile = @substr(%%htmlfile,2,@len(%%htmlfile))
option fieldsep,@chr(63)
parse "%%htmlfile;%%parameters",%%htmlfile
list create,1
list loadfile,1,@dlgtext(edit2)%%htmlfile
net socket,sendid,%%socketsenderid,@text(1)
net socket,closecid,%%socketsenderid
list close,1
goto evloop

:sendimagefile

goto evloop

:button1button
net socket,sendall,@dlgtext(edit1)
list add,list1,@dlgtext(edit1)
goto evloop

:button2button
clipboard set,@dlgtext(edit3)
info "Your IP Address is now on the clipboard"
goto evloop

:button3button
dialog set,edit2,@dirdlg()"\"
goto evloop

:list1dblclick
clipboard set,@item(list1)
goto evloop

:text2click
info This program is (almost) pure VDS-code...@cr()Here are a few know bugs:@cr()  - No images transfer@cr()  - Only 1 client at a time@cr()  - It's not always possible to connect to the server@cr()@cr()Please report other bugs to "skit3000@hotmail.com"
goto evloop

:Close
exit