[es] - Povezivanje aplikacija putem Internet-a

Dacex
ucenik

Član broj: 171043
Poruke: 65
*.adsl.eunet.rs.

Profil

Re: Povezivanje aplikacija putem Internet-a

^{10.12.2009. u 23:03 - pre 175 meseci}

Nece da prihvati atac

evo kod:

Server:

Code:
Private Sub Command1_Click()
'povezivanje na IP
    Winsock1.Close 'ovo upises da mozes vise puta pokusati da se konektujes ako ne uspe a da n izbacuje gresku
    Winsock1.RemoteHost = Winsock1.LocalIP 'ovako sam cita moju IP

    Winsock1.RemotePort = Text2.Text 'ovaj broj mora biti isti u obe aplikacije
    Winsock1.Connect
End Sub

Private Sub Command2_Click()
'salje podatak
Winsock1.SendData Text3.Text
End Sub

Private Sub W1_DataArrival(ByVal bytesTotal As Long)
'hvata text i upisuje ga u text3
Dim str As String
Winsock1.GetData str
Text3.Text = str
End Sub

Private Sub Winsock1_Connect()
'obavestava da ste konektovani
MsgBox "Konekcija uspesna!", vbInformation, "Connected"
End Sub

Klijent:

Code:

Private Sub Form_Load()

    Winsock1.Close
    Winsock1.LocalPort = Text2.Text
    Winsock1.Listen

End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
' ukoliko se neko konektuje program prihvata pristup
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
'prihvata poslati text i upisuje ga u text1
Dim str As String
Winsock1.GetData str
Text1.Text = str

End Sub

Manje vise to je isti kod kao sto je Nevena postavila.

Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
*.dynamic.sbb.rs.

+7 Profil

Re: Povezivanje aplikacija putem Internet-a

^{12.12.2009. u 01:35 - pre 174 meseci}

Prvo ovaj drugi kod je za server (vidis Winsock1.Listen)
Drugo stavi jos jedan winsock da bi on prihvatio konekciju jer ovako zatvaras winsock koji slusa.
Znaci u

Code:

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock2.State <> sckClosed Then Winsock2.Close ' If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock2.Accept requestID ' Winsock1.Accept requestID
End Sub

Code:

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
Dim str As String
Winsock2.GetData str ' Winsock1.GetData str
Text1.Text = str
End Sub

a nece da se poveze kad je na drugom PC-u zato sto

Code:

Private Sub Command1_Click()
Winsock1.RemoteHost = Winsock1.LocalIP 'ovako sam cita moju IP <<<
End Sub

stavi adresu drugog PC-a (servera)
Mozes da je procitas sa ovog sajta http://checkip.dyndns.org/ (sa server PC-a)

HomePage http://www.eurora3d.com

Odgovor na temu

Dacex
ucenik

Član broj: 171043
Poruke: 65
*.adsl.eunet.rs.

Profil

Re: Povezivanje aplikacija putem Internet-a

^{14.12.2009. u 00:27 - pre 174 meseci}

Hvala ti na odgovoru!

Uradio sam kako ste rekli

kod za server program (u njemu imam 3 polja za unos i i dugme konektuju se i salji )

Code:
Private Sub Command1_Click()
'povezivanje na IP
    Winsock1.Close
    Winsock1.RemoteHost = Text1.Text ' txt polje gde upisujem ip adresu racunara na kome se nalazi klijent program
    Winsock1.RemotePort = Text2.Text ' port mi je u obe aplikacije postavljen na 12345
    Winsock1.Connect
End Sub
Private Sub Command2_Click()
'salje podatak
Winsock1.SendData Text3.Text
End Sub
Private Sub Winsock1_Connect()
'obavestava da ste konektovani
MsgBox "Konekcija uspesna!", vbInformation, "Connected"
End Sub

a kod za klijent (u klijent programu imam text box za prijem podataka i text box za port)

Code:
Private Sub Form_Load()
    Winsock1.Close
    Winsock1.RemotePort = Text2.Text 'text box za port
    Winsock1.Listen
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock2.State <> sckClosed Then Winsock2.Close ' If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock2.Accept requestID ' Winsock1.Accept requestID
End Sub
Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
Dim str As String
Winsock2.GetData str ' Winsock1.GetData str
Text1.Text = str
End Sub

U mom slucaju Server salje podatke a klijent ih samo prima. I opet sam probao sa drugarom i nece da se konektuje.... ne znam gde sam pogresio, pa bih zamolio za jos malo pomoci ako moze.

Hvala unapred!

Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.adsl.eunet.rs.

Sajt: www.vasictech.net

+1 Profil

Re: Povezivanje aplikacija putem Internet-a

^{14.12.2009. u 12:03 - pre 174 meseci}

Pa reci nam koja ti se greska javlja?

Jesi siguran da ti firewall ne blokira portove?

Mozda moras da forwardujes port?

Odgovor na temu

Dacex
ucenik

Član broj: 171043
Poruke: 65
*.adsl.eunet.rs.

Profil

Re: Povezivanje aplikacija putem Internet-a

^{14.12.2009. u 22:29 - pre 174 meseci}

Pa ukoliko je sve u redu, program bi trebao da kaze da je konektovan na klijent. A kada ja pokrenem ga i kliknem konekt, nista se ne desava, a kada kliknem da posaljem nesto vb mi zatamni ovaj deo

Code:
Winsock1.SendData Text3.Text

, firewall je isklucen...

Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.adsl.eunet.rs.

Sajt: www.vasictech.net

+1 Profil

Re: Povezivanje aplikacija putem Internet-a

^{14.12.2009. u 22:43 - pre 174 meseci}

kod klijenta:

Code:
Winsock1.RemotePort = Text2.Text 'text box za port

Zar ne bi trebao da bude

Code:
Winsock1.LocalPort = Text2.Text 'text box za port

Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
*.dynamic.sbb.rs.

+7 Profil

Re: Povezivanje aplikacija putem Internet-a

^{15.12.2009. u 00:12 - pre 174 meseci}

Ovo sto je napisao @Aleksandar Vasic je tacno.
Opet si u poruci zamenio sta je server a sta je klijent.
Server je uvek onaj koji slusa (ceka zahteve za konekciju) a klijenti su programi koji zapocinju konekciju sa serverom.
Znaci server je ovde kod koji ima Winsock1.Listen i pre te linije treba da odredis port na kom ce da slusa. Za servere to je LocalPort property.
Kod klijenta trebas da podesis IP adresu i port na koje ce pokusati da se konektuje pre nego sto pozoves Connect (RemoteHost i RemotePort). Upisujes serverov IP i port.
Klijent kod ti je dobar.
Isto mozes da zapamtis da se IP adresa 127.0.0.1 koristi kad je server na istom PC-u kao i klijent (localhost)
Tako da isprobavaj sa adresom 127.0.0.1 i nekim portom dok ne napravis da sve radi ok na istom kompu.
Kad to uradis program bi trebalo da radi isto i preko interneta. Nadji koja je javna IP adresa PC-a na kome radi server i unesi je kao server IP u klient program.
Ako tad ne radi znaci da : ili je adresa pogresna, ili nije javna, ili je port blokiran itd. uglavnom tad nije do programa.
Mozes da koristis port 80 ako je slobodan jer on uglavnom nije blokiran.

HomePage http://www.eurora3d.com

Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.adsl.eunet.rs.

Sajt: www.vasictech.net

+1 Profil

Re: Povezivanje aplikacija putem Internet-a

^{15.12.2009. u 09:19 - pre 174 meseci}

Meni se cini da je on hteo da Server salje podatke klijentu/ima, a da Klijent/i samo slusaju i hvataju podatke...

Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
*.dynamic.sbb.rs.

+7 Profil

Re: Povezivanje aplikacija putem Internet-a

^{15.12.2009. u 11:50 - pre 174 meseci}

Pa svejedno, server je po definiciji onaj koji slusa i u TCP-u on je jedan a klijenata moze da bude vise.
Klijenti su aktivna strana kad se pravi konekcija bez obzira ko ce posle prvi da salje podatke itd. Gleda se po nacinu uspostavljanja veze.
Klasican primer klijent programa je web browser a klasican primer servera je http server.

HomePage http://www.eurora3d.com

Odgovor na temu

Dacex
ucenik

Član broj: 171043
Poruke: 65
*.adsl.eunet.rs.

Profil

Re: Povezivanje aplikacija putem Internet-a

^{15.12.2009. u 20:36 - pre 174 meseci}

Samo da se javim...hvala na odgovorima... da ja sam hteo da server salje podatke, a klijent da ih prima. Probacu ovo sto ste mi dali, pa cu se javiti...sada sam u velikoj guzvi pa nestignem.

Odgovor na temu