[es] - mogucnost povezivanja dva racunara Winsock kontrola

anebojsa
Bgd

Član broj: 16174
Poruke: 94
*.157.eunet.yu.

Profil

mogucnost povezivanja dva racunara Winsock kontrola

^{08.01.2008. u 10:42 - pre 198 meseci}

VB6
postoji li mogucnost povezivanja dva racunara(chat program) preko interneta(u Lan-u radi)
u oba programa imam Winsock1 kontrolu sa podesenim sckTCPProtocol-om

na Client-u je podeseno:

Code:

    With Me.Winsock1
        .Close
        .Connect Me.Text1.Text, 1001 'gde je Me.Text1.Text IPAdresa servera
    End With

    Me.Winsock1.SendData "neki tekst" & vbCrLf

na Server-u je podeseno:

Code:

    With Winsock1(0)
        .LocalPort = 1001
        .Listen
    End With

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)

    If Winsock1.State <> sckClosed Then Winsock1.Close
    Winsock1.Accept requestID

End Sub

Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)

    Dim temp As String
    temp = String(bytesTotal, " ")
    Winsock1(0).GetData temp, vbString, bytesTotal
    Text1.Text = temp

End Sub

_{[Ovu poruku je menjao Aleksandar Ružičić dana 16.01.2008. u 01:05 GMT+1]}

Odgovor na temu

djpero.84
Pero Knezevic
Prijedor

Član broj: 120188
Poruke: 190
87.250.103.*

Sajt: www.littlefrog.ba

Profil

Re: mogucnost povezivanja dva racunara Winsock kontrola

^{08.01.2008. u 16:24 - pre 198 meseci}

zasto da ne, samo stavi sebi negdje indikaciju trenutne IP adrese kad se konektujes na internet (zavisi koju konekciju koristis), i moracete to nekako razmjeniti IP adrese....

Odgovor na temu

anebojsa
Bgd

Član broj: 16174
Poruke: 94
*.ikomline.net.

Profil

Re: mogucnost povezivanja dva racunara Winsock kontrola

^{08.01.2008. u 19:13 - pre 198 meseci}

"zasto da ne, samo stavi sebi negdje indikaciju trenutne IP adrese kad se konektujes na internet (zavisi koju konekciju koristis), i moracete to nekako razmjeniti IP adrese.... "

obojica koristimo kablovski internet

jesam li na dobrom putu sa podesenom Winsock1 kontrolom na sckTCPProtocol

mozeli li mala pomoc u dva tri reda koda

Odgovor na temu

djpero.84
Pero Knezevic
Prijedor

Član broj: 120188
Poruke: 190
87.250.103.*

Sajt: www.littlefrog.ba

Profil

Re: mogucnost povezivanja dva racunara Winsock kontrola

^{08.01.2008. u 23:59 - pre 198 meseci}

pa sad da ti nepisem sve, najbolje ti je da malo pretrazis forum ili internet ali:

pod indikacijom sam mislio na:

Code:
label1.caption = winsock1.localip

Zavisno od provajdera koji nudi uslugu interneta ili na tvoj poseban zahtjev (sto se posebno placa :) ) mozes da imas fiksnu javnu IP adresu, inace svakom konekcijom na internet ti dobijas adresu koja je trenutno slobodna (da se tako izrazim). Stoga, neko mora da zna na koju adresu ce se konektovati, a dobro si napisao dio koda koji se odnosi na primanje requesta. Tu mozes upisati cisto:

Code:
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)

If Winsock1.State <> sckClosed Then Winsock1.Close
msgbox winsock1.remoteip
Winsock1.Accept requestID

End Sub

I jos nesto, vidio sam da koristis Array Winsock-a, mada nevidim potrebe za tim (bar ne jos) da koristis vise od jedne kontrole Winsock:

Code:
Winsock1(0)

ostavi samo :

Code:
Winsock1

Odgovor na temu

anebojsa
Bgd

Član broj: 16174
Poruke: 94
*.218.eunet.yu.

Profil

Re: mogucnost povezivanja dva racunara Winsock kontrola

^{09.01.2008. u 06:40 - pre 198 meseci}

hvala na trudu ali ja i dalje nisam resio svoj problem
znam za IP adrese da su razlicite i jedinstvene
pretrazivao sam msdn, internet, na ovom forumu i napisah da mi u lan-u radi ali ne znam zasto nece da radi na internetu

OK za Winsock1(0) stavio sam kako si rekao Winsock1 bez indexa

ono sto mi je bitno je protokol da li je dobar
ima li neke veze koji se protokol koristi za komunikaciju izmedju dva racunara povezanih preko kablovskog interneta

trazio sam malu pomoc u dva tri reda koda, nisam postavio temu tipa treba mi program za komunikaciju, ili tako nesto.

ako mozes pomozi

hvala

Odgovor na temu

djpero.84
Pero Knezevic
Prijedor

Član broj: 120188
Poruke: 190
87.250.103.*

Sajt: www.littlefrog.ba

Profil

Re: mogucnost povezivanja dva racunara Winsock kontrola

^{09.01.2008. u 09:10 - pre 198 meseci}

Sto se tice protokola, za komunikaciju izmjedju dva racunara je potreban TCP/IP protokol (kako si i stavio) , nebitno o kakvoj se vezi izmedju ta dva racunara radi. Za komunikaciju vise od 2 racunara neposredno se koristi UDP protokol. Sva razlika izmedju interneta i LAN-a je samo u IP adresama i portovima. Posto si uzeo 1001, vrlo lako je moguce da ti neki drugi program ili Win servis koristi taj port, stoga to preporucujem da ga promjenis, imas 65536 na raspolaganju. Drugo nista ne moze da bude razlika....

I jos, ono sto ti jos mogu pomoci ako se nadjes skoro na racunaru, posalji source pa mozemo probati jedan izmedju drugog, pa cu lako pri kompajliranju vidjeti gdje je greska pa da ispravimo. Javi se na privatnu poruku .....

Odgovor na temu

anebojsa
Bgd

Član broj: 16174
Poruke: 94
*.vdial.verat.net.

Profil

Re: mogucnost povezivanja dva racunara Winsock kontrola

^{15.01.2008. u 09:18 - pre 198 meseci}

na Client-u sam podesio

Code:

With Me.Winsock1
.Close
.RemoteHost = Me.Text1.Text
.RemotePort = 1001
.Connect
End With

ali ni to nepomaze

zna li neko u cemu je problem.

_{[Ovu poruku je menjao anebojsa dana 15.01.2008. u 14:22 GMT+1]}

_{[Ovu poruku je menjao Aleksandar Ružičić dana 16.01.2008. u 01:06 GMT+1]}

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.

+41 Profil

Re: mogucnost povezivanja dva racunara Winsock kontrola

^{15.01.2008. u 09:24 - pre 198 meseci}

Citat:

anebojsa:"djpero.84" mi je posalo virus

Ne verujem da je namerno.

Odgovor na temu

djpero.84
Pero Knezevic
Prijedor

Član broj: 120188
Poruke: 190
*.teol.net.

Sajt: www.littlefrog.ba

Profil

Re: mogucnost povezivanja dva racunara Winsock kontrola

^{15.01.2008. u 13:36 - pre 198 meseci}

Moram uloziti jednu kritiku na racun @anebojsa, naime:

Poslao sam ti izvrsni fajl clienta i rekao i ti svoju IP adresu da vidim uzivo sta se desava sa serverom, jer kao obicno
kod @anebojsa nesto "nece da radi". @anebojsa je trazio source code koji bih mu poslao kad isprobam i ispravim sve
kako treba, no medjutim odustao sam od pomoci dalje.

Na netu imas gomilu primjera kako to radi, uzmi primjer i gledaj kako funkcionise, ako "nece", onda si pogrijesio sa IP adresama
ili mozda imas neki Firewall koji blokira port, eto toliko od mene :)

Odgovor na temu