Moj Chat trebam help!

Moj Chat trebam help!

offline
  • Pridružio: 01 Nov 2005
  • Poruke: 43
  • Gde živiš: Čepin

Pozz svima napravio sam chat pomoču vb-a i neke djelove sam uzeo od nekih drugih chatova nešto moje e moj problem nastaje kad se više od 2 korisnika pokušavaju spojit na moj chat stavit cu link di mozete skinit codove od chata pa bi vas molio ako netko može pogledat i popraviti stvar
hvala.

Ovdje možete skiniti
VB-File cpnwireless.net/novo.rar
i zapakirani exe file cpnwireless.net/mojchat.rar

Hvala Unaprijed

Dopuna: 21 Nov 2005 21:27

Skonto sam u čemu je problem ali ga neznam riještit problem nastaje kad se spoji jedan korisnik preko lana onda chat nedopusta vise spajanja preko interneta ili obratno kako da to riješim

Dopuna: 22 Nov 2005 20:52

imam još jedan problem Sad nekoliko ljudi nemože pokreniti chat javi im ovaj error jel zna netk ou čem je problem

Component 'MSWINSCK.OCX' or one of its dependencies not correctly registered: a file is missing or invalid



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 28 Jun 2004
  • Poruke: 990
  • Gde živiš: Kucura

Ja sam se time bavio dugo vremena i mislim da znam u cemu je problem.

Prob. 1) Jedna WinSock kontrola moze da prihvati jednog klijenta pa za vise klijenta moras da imas vise WinSock kontrola. Da ne bi na formu stavljao 5000 WS kontrola koristi finkciju index. Kada stavis na formu jednu WS kontrolu u opcijama index postavi na 1. U kod dodaj sledece
Dim a As Integer Private Sub sock_ConnectionRequest(Index As Integer, ByVal requestID As Long) a = a + 1 Load sock(a) sock(a).Accept requestID End Sub

Sada mozes da konektujes 10, 20 50.... klijenta

Pob. 2) Zbog ovoga sam ja odustao od Chata. Znam da ta ocx kontrola mora da se nalazi na kompu gde koristis chat, a gde nema instaliran VB.

Ako te interesuje jos nesto pitaj.



offline
  • Pridružio: 01 Nov 2005
  • Poruke: 43
  • Gde živiš: Čepin

Hvala probo sam napraviti sve kako se reko ali neradi opet

Dopuna: 23 Nov 2005 21:35

e da sad sam se sjetio jel znaš možda kako ubaciti da ispred imena piše kad ej poruka poslana mislim ovako nešt
<18:45>Nick:Poruka ili ako to neznaš da mi kad dode neka poruka zasvjetli menu dole kad se minimizira ili zvuk neki da bipa

offline
  • Pridružio: 28 Jun 2004
  • Poruke: 990
  • Gde živiš: Kucura

Citat:Hvala probo sam napraviti sve kako se reko ali neradi opet


Evo pokusaj sa ovim:


Dim a As Integer Private Sub Form_Load() a = 0 sck1(Index).RemotePort = 557 sck1(Index).Listen End Sub Private Sub sck1_ConnectionRequest(Index As Integer, ByVal requestID As Long) a = a + 1 Load sck1(a) sck1(a).Accept requestID End Sub


------------------------------------------------------------


Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim data As String Winsock1.GetData data 'ovo je za vreme ispred poruke data = "<" & Time & "> " & data List1.AddItem data 'ovo je za zvuk kada stigne poruka Beep 'ovo za trepetanje prozora ili cega vec FlashWindow frmmain.hwnd, True End Sub

Za beep kod mene ne radi ali kod druga radi pa pokusaj....
Za treptanje ce trepnuti samo jednom pa mozes da postavis neki timer da svakih 0.3 sec trepne pa kada forma ponovo dobije fokus da prestane.


E da zaboravio sam. Ovo moras da stavis u modul:

Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long

offline
  • Pridružio: 18 Jul 2005
  • Poruke: 312

Ja sam prilikom slanja poruke slao

winsock.senddata "nick|tekst" npr ili jos parametara a tamo na drugos strani
winsock.getdata data

Dim Niz() as string
niz=split(data,"|")

i onda kazem da je niz(0)=nick
niz(1)=tekst poruke itd

Dopuna: 26 Nov 2005 15:45

korisna stvar je kada sa komandom load winsock(a+1) ubacis i load Timer(A+1)

u timeru kazes

if winsock(inedx).state<>sckconnected then Kod_za_Prekid_VEZE

offline
  • Srđan Tot
  • Am I evil? I am man, yes I am.
  • Pridružio: 12 Jul 2005
  • Poruke: 2483
  • Gde živiš: Ljubljana

Evo... pogledaj ovo... sve ti je lepo receno Smile

http://www.gamedev.net/reference/articles/article1314.asp

Ko je trenutno na forumu
 

Ukupno su 849 korisnika na forumu :: 39 registrovanih, 6 sakrivenih i 804 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: _Petar, A.R.Chafee.Jr., airsuba, Atomski čoban, babaroga, bojank, ccoogg123, CikaKURE, Dorcolac, FileFinder, HogarStrashni, Karla, Krvava Devetka, loon123, Lord Nem, lord sir giga, Metanoja, milanovic, milenko crazy north, Milometer, Milos ZA, Milos82, MilosKop, Misirac, Motocar, nemkea71, nuke92, Panter, pein, procesor, Sirius, Srle993, stagezin, stegonosa, Stoilkovic, tubular, VitezKoja, Yugol33, |_MeD_|