Chi  ha usato il computer fin dagli anni ‘90 inizi sicuramente si ricorderà il programma netmeeting che era un programma di VOIP ( precursore di SKYPE, Messenger, ecc.), che era compreso nei sistemi operativi WINDOWX 95, WINDOW 98, e XP; anche se in quest’ultimo era “nascosto”.
Possiamo simulare le caratteristiche delle stanze di NETMEETING usando SKYPE.
Una delle caratteristiche di Netmeeting era di avere delle “stanze” : l’utente si collegava e chiamava le persone nelle stanze.

Per prima cosa dobbiamo creare un database nel quale inserire gli utenti connessi con il loro nome skype.
Nel database scriviamo una tabella, chiamata utenti, con questi campi:

UTENTE:TESTO
PASSWORD:TESTO
NOMESKYPE:TESTO
COMMENTO: TESTO
STATO:TESTO

Creiamo una pagina per l’iscrizione usando il linguaggio che preferiamo, per i pigri o chi è alle prime armi, faccio un esempio con il classico ASP che è molto facile da capire e spiegare con un database ACCESS; nulla mi impedisce di usare PHP, NET, o qualunque  linguaggio con ALTRO DATABASE.

Creiamo adesso due pagine, una chiamata ISCRIZIONE.HTML ed una SALVAISCRITTO.ASP. Nella prima scriviamo un form con i dati dell'iscritto:

<form id="form1" name="form1" method="post" action="salvaiscritto.asp"> <table width="700" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="155" valign="top">NOME UTENTE</td> <td width="545" valign="top"><label for="nome"></label> <input type="text" name="nome" id="nome" /></td> </tr> <tr> <td valign="top">PASSWORD</td> <td valign="top"><label for="password"></label> <input type="text" name="password" id="password" /></td> </tr> <tr> <td valign="top">NOME SKYPE</td> <td valign="top"><label for="skype"></label> <input type="text" name="skype" id="skype" /></td> </tr> <tr> <td valign="top">COMMENTO</td> <td valign="top"><input name="commento" type="text" id="commento" value="" size="60" /></td> </tr> <tr> <td valign="top"> </td> <td valign="top"><input type="submit" name="button" id="button" value="ISCRIVITI" /></td> </tr> </table> </form>

Da notare che non ho fatto nessun "abbellimento" come possono essere stili o altro, lo lascio all'utente di personalizzare come preferisce le pagine. La pagina in asp serve per memorizzare i dati e quindi reindirizzare l'utente al login della stanza

<% 'recupero i dati dal form dim nome dim pass dim skype dim commento nome=request.form("nome") pass=request.form("password") skype=request.form("skype") commento=request.form("commento") 'apro il database e salvo i dati set conn = server.createobject("adodb.connection") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/netmeetingstile/netmet.mdb") set rs = server.createobject("adodb.recordset") rs.open "utenti", conn, 2, 2 rs.addnew rs("UTENTE") = nome rs("PASSWORD") = pass rs("NOMESKYPE") = skype rs("COMMENTO") = comment rs("STATO")="off" rs.update rs.movelast 'chiudo e faccio pulizia rs.close set rs= nothing set conn = nothing 'vado al log in response.redirect("login.asp") %>

Adesso occupiamoci della finestra per il login.
Non è altro che una pagina con un form che chiede nome utente e password per l’accesso.

Adesso facciamo la pagina di accesso vero e propria:
Creiamo un controllo: se non c’è nessun utente iscritto con questi dati si viene reindirizzati alla pagina di login altrimenti si accede alla stanza e si vedono gli altri utenti online.
Se l’utente ha il diritto di accedere viene modificato il suo stato in ON.

<% dim utente dim password utente=request.form("utente") password=request.form("password") 'controllo accesso Dim cn Set cn = Server.CreateObject("ADODB.Connection") cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("/netmeetingstile/netmet.mdb") Dim sql sql = "SELECT * FROM utenti WHERE UTENTE='" &utente&"' AND password='" &password& "'" Dim rs Set rs = cn.Execute(sql) Dim autenticato if rs.eof then autenticato = false else autenticato = true dim id id=rs("id") session.Contents("idu")=id end if rs.Close cn.Close Set rs = Nothing Set cn = Nothing if autenticato = true then dim conaa set conaa = server.createobject("adodb.connection") conaa.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/netmeetingstile/netmet.mdb") set rsaa = server.createobject("adodb.recordset") Dim SQL SQL = "UPDATE utenti SET STATO='on' WHERE id="&id&"" rsaa.Open SQL, conaa, 3, 3 set rsaa= nothing set conaa = nothing response.redirect("online.asp") else response.redirect("iscrizione.html") end if %>

Una volta entrato l’utente ha la lista degli altri utenti online.  Per chiamarli basta che prema sull’azione CHIAMA (azione callto:)

<% Dim Connb Set Connb = Server.CreateObject("ADODB.Connection") connb.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/utenti/messaggi.mdb") Dim rsb Set rsb = Server.CreateObject("ADODB.Recordset") rsb.Open "select * from utenti where STATO='on' ", connb Do while NOT RSb.EOF %> <table width="700" border="0"> <tr> <td>UTENTE</td> <td>SKYPE</td> <td>COMMENTO</td> <td>AZIONE</td> </tr> <% Dim nome nome=rsb("UTENTE") Dim skype skype=rsb("NOMESKYPE") Dim commento commento=rsb("COMMENTO") %> <tr> <td><%response.write(nome)%></td> <td><%response.write(Skype)%></td> <td><%response.write(commento)%></td> <td><a href=callto:<%response.write(Skype)%>>chiama</a></td> </tr> <% rsb.movenext Loop RSb.Close Set RSb = Nothing connb.Close Set connb=Nothing %>

Ricordarsi di mettere un link a siconnetti
STATO: <a href=disconnetti.asp?id=<%response.write(idu)%>>CONNESSO</a> (click per disconnetteri)
Importante lo script all'inizio della pagina (nell HEAD) che ricorda di disconnettersi.

Infine bisogna fare una pagina che scrive nel database "off" nel campo STATO dell'utente

<% dim id id=request.QueryString("id") dim conaa set conaa = server.createobject("adodb.connection") conaa.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/netmeetingstile/netmet.mdb") set rsaa = server.createobject("adodb.recordset") Dim SQL SQL = "UPDATE utenti SET STATO='off' WHERE id="&id&"" rsaa.Open SQL, conaa, 3, 3 set rsaa= nothing set conaa = nothing %>