- Siirrä Chat.exe jaettuun kansioon
- Käynnistä ohjelma tästä kansiosta niin monella tietokoneella kuin haluat ja anna käyttäjänimi kaikille koneille chattiin
- Chattaile:
* voit keskustella tavallisen chatin tapaan tai
* voit siirtää omia tiedostojasi tai ohjelmiasi julkiseen kansioon ja avata niitä toisen koneelta kirjoittamalla: kaverin_nimimerkki start ohjelma.exe /valinnaiset_parametrit
* voit vaikka avata kaverin koneesta nettisivun tyyliin: kaveri start http://osoite.com
Tarkoitus olisi jatkaa tätä projektia kehittämällä paranneltu, ehkä jopa netissä toimiva versio.
Jokainen saa halutessaan jatkaa chattia ja postata lähdekoodin tänne
Code: Select all
//koodi on purkkaa ja voi sisältää osittain turhaa koodia muokkausten vuoksi
SCREEN 640,480
Global myUserId
Global myusername$
Type viesti
Field msg$
EndType
Repeat
Locate 0,440
myusername=Input("Syötä käyttäjänimesi: ")
DrawScreen
Until KeyUp(28)
CloseInput
temp=FileSize("newmessage"+myuserid)
f=opentoedit2("newmessage"+myuserid)
SeekFile f, temp
WriteLine f, "- "+myusername+" kirjautui sisään -"
CloseFile f
alku:
aika=Timer()
Repeat
For v.viesti = Each viesti
Delete v
Next v
If FileExists("newmessage"+myuserid) then
f=OpenToRead("newmessage"+myuserid)
Repeat
mes$=ReadLine(f)
v.viesti=New(viesti)
v\msg=mes
Until mes=""
CloseFile f
EndIf
temp=0
For v.viesti = Each viesti
temp+1
Next v
For v.viesti = Each viesti
temp-1
If v\msg <> "" Then dig$=v\msg
Text 20,400-(temp*20), v\msg
Next v
If InStr(dig,myusername+" start ") Then
Execute Mid(dig, InStr(dig,myusername+" start ")+Len(myusername+" start "))
fs=FileSize("newmessage"+myuserid)
a=opentoedit2("newmessage"+myuserid)
SeekFile a, fs
WriteLine a, myusername+" käynnisti onnistuneesti toiminnon "+Mid(dig, InStr(dig,myusername+" start ")+Len(myusername+" start "))
CloseFile a
EndIf
lähtevä$=Input(myusername+" sanoo: ")
myuserid = myuserid + KeyUp(200) - KeyUp(208)
SetWindow "Keskusteluikkuna: "+myuserid+" - WlanMSN by "
DrawScreen
Until KeyUp(28) And lähtevä <> ""
CloseInput
fs=FileSize("newmessage"+myuserid)
a=opentoedit2("newmessage"+myuserid)
SeekFile a, fs
WriteLine a, "<"+myusername+"> "+lähtevä
CloseFile a
Goto alku
Function opentoedit2(filu$)
Execute "ATTRIB +h "+filu
Return OpenToEdit(filu)
EndFunction
Function opentowrite2(filu$)
Execute "ATTRIB +h "+filu
Return OpenToWrite(filu)
EndFunction
Voit myös käyttää välilehtiä (ks. ikkunan yläpalkki) ja vaihtaa keskusteluikkunaa nuolista.
Niin ja sitten toivoisin mielellään rakentavaa palautetta.. tai oikeastaan koodin korjausta jos/kun siinä (tod.näk.) on jtn valittamista