TCP klient programmering

Hej gon, jeg har selv en gang være igang med at lave nåde med brugernavn og password. i server var der en database. som den sendet data til. det var i et chat program som jeg hente på download.com. men du kan jo lige se om det hjælper dig.. desvære har jeg ikke tid til at skrive den lige fortiden..

okie .. takker for ordet ..

Gon

Må jeg se dit lille program til at lave vote ting med???

MF@RCF.DK

http://www.planet-source-code.com/vb/

Hej Gon,

jeg har beskæftiget mig en hel del med kommunikation over TCP/IP og UDP/IP, og har bl.a. været inde på verifikation af brugere.

Hvis du stadig har brug for hjælp til dit program, så giv lige et ping, så kigger jeg på det...

\\Spinner

Hej spinner...
Jeg er glad for at du har kontaktet mig omkring dette.. jeg er mildest talt ved at blive sindsyg... Programmet skal nemlig bruges til en afstemning til et computerparty, så jeg skal være færdig med det snart..
Jeg har alle de andre ting lavet .. så nu mangler jeg bare det vigtigste :))

Jeg ville blive superglad, hvis du kunne sende mig et skoleeksempel på verifikation på brugere.
Hvis du har brug for at se mit program så kan det også lade sig gøre!

Jeg glæder mig til at høre fra dig.
ses,
Gon
Goldendk@hotmail.com

Ok, i korte træk...

public sub Saa_skal_der_logges_på(Server as string,Port as integer)
  call winsock2.connect (server,port)
end sub

private sub winsock1_connectionrequest(requestid as ???????)
  winsock1.accept(requestid)
  winsock1.senddata "+OK Please login."
end sub

private sub winsock2_DataArrival (bytesTotal As Long)
  winsock2.getdata buffer
  if left(buffer,3) <> "+OK" Then
    Msgbox "Doh, serveren sendte noget crap!" & vbCrLF & "Den sagde: " & mid(buffer,5),vbOkOnly
  elseif mid(buffer,5) = "Please login." Then
    winsock2.senddata "USER BRUGERNAVN"
  elseif mid(buffer,5) = "Please send password." Then
    winsock2.senddata "PASS ADGANGSKODE"
  elseif mid(buffer,5) = "You are welcome here." Then
    ' Du er nu logget ind.
  end if
end sub

private sub winsock2_DataArrival (bytesTotal As Long)
  static User as string
  winsock1.getdata buffer
  select case left(buffer,4)
  case "USER"
    User = Mid(buffer,6)
    winsock1.senddata "+OK Please send password."
  case "PASS"
    If User = "BRUGERNAVN" and Mid(buffer,6) = "ADGANGSKODE" Then
      winsock1.senddata "+OK You are welcome here."
    else
      winsock1.senddata "ERR Invalid username or password."
    end if
  case "QUIT"
    winsock1.close
  end select
end sub


Håber det kan hjælpe dig lidt på vej...

Ups, der var en lille fehler

public sub Saa_skal_der_logges_på(Server as string,Port as integer)
  call winsock2.connect (server,port)
end sub

private sub winsock1_connectionrequest(requestid as ???????)
  winsock1.accept(requestid)
  winsock1.senddata "+OK Please login."
end sub

private sub winsock2_DataArrival (bytesTotal As Long)
  winsock2.getdata buffer
  if left(buffer,3) <> "+OK" Then
    Msgbox "Doh, serveren sendte noget crap!" & vbCrLF & "Den sagde: " & mid(buffer,5),vbOkOnly
  elseif mid(buffer,5) = "Please login." Then
    winsock2.senddata "USER BRUGERNAVN"
  elseif mid(buffer,5) = "Please send password." Then
    winsock2.senddata "PASS ADGANGSKODE"
  elseif mid(buffer,5) = "You are welcome here." Then
    ' Du er nu logget ind.
  end if
end sub

private sub winsock1_DataArrival (bytesTotal As Long)
  static User as string
  winsock1.getdata buffer
  select case left(buffer,4)
  case "USER"
    User = Mid(buffer,6)
    winsock1.senddata "+OK Please send password."
  case "PASS"
    If User = "BRUGERNAVN" and Mid(buffer,6) = "ADGANGSKODE" Then
      winsock1.senddata "+OK You are welcome here."
    else
      winsock1.senddata "ERR Invalid username or password."
    end if
  case "QUIT"
    winsock1.close
  end select
end sub

Hej Gon,

jeg kigger på det lige så snart jeg har fundet min VB CD. Jeg kan f..... ikke finde den... ARGHH..

Hvis du bruger WinKill's eksempel skal du være opmærksom på at det ikke er altid du modtager HELE de sendte data på een gang. Derfor kan der opstå 2 DataArrival's, en med f.eks teksten "+OK Please se" og en ny med teksten "nd password."

Jeg bruger altid et special-tegn til at adskille kommandoer med, så ved jeg hvor jeg skal cut'e en indgående kommando henne, og evt. vente på resten af kommandoen... Hvis jeg udtrykker mig forståeligt... ?!?

\\Spinner.

Spinner > Som sagt; "i korte træk"...

* Det smarteste er _altid_ at starte med at opbygge en protokol der kan styrer dataoverførslen. Personligt foretrækker jeg at tage udgangspunkt i POP3 og så arbejde mig frem imod de funktioner mit program skal bruge, men der er jo frit valg på alle hylder.

* Det er praktisk at arbejde med en form for buffer, for at undgå at opdelte "arrivals" bliver tolket som fejl.

* Husk enten at holde dig til STORE eller små bogstaver, eller at bruge UCase()/LCase() når du skal læse requests.

* DLL styrer!

jeg takker for jeres svar .. de var yderst behjælpelige ..
Desværre må jeg nok indrømme, at winkill løber af med sejren :))

Takker mange gange...

"Desværre..." det skal du da ikke være ked af :o)

hehe ... jo han skal... :)