Moj Chat trebam help!

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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 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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

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