SkullBox Forum  |  Development  |  Basic si Fox  |  Topic: Biblioteca telnet in VB?

Exista aceasta biblioteca in VB?

depinde ce vrei sa faci, pentru ca o conexiune telnet nu e nimic special, si pur si simplu o conexiune obisnuita tcp/ip unde scrii/citesti ceva
Nu-ti trebuie nicio biblioteca, folosesti winsock, te conectezi/sau asculti la un ip/port si sanatate, asta e tot.


Uite un tutorial : http://www.devarticles.com/c/a/Visual-Basic/Two-Person-Chat-With-The-Winsock-Control-And-Visual-Basic/1/

Eu trebuie sa fac un fel de aplicatie client telnet pentru a ma loga la un echipament (IP, user si parola).
Aplicatia trebuie sa contina niste butoane (carora le sunt asociate niste comenzi de vizualizare a unor variabile daca sunt up sau down). In functie de raspuns (up/down) butoanele respective sa se faca verzi sau rosii.

pai atunci tutorialul de mai sus e perfect pentru ce vrei tu sa faci

Ce bine ar fi daca s-ar scrie asa de simplu.
Nu e simplu sa scrii un client de telnet de la zero ...
Trebuie sa iei in calcul emularea terminalului si negocierea optiunilor de comunicatie.
Cauta o librarie de telnet ....

LE: esti norocos. Au scris unii o librarie si au si exemple: http://www.activexperts.com/files/activsocket/manual.htm
Cauta dupa "Telnet sample".

Nu stiu cat de buna e, nu am verificat-o.

e simplu, telnet nu presupune nimic altceva decat sa "scrii" si sa "citesti"

ok

Am codul urmator de la aplicatia de aici http://www.devarticles.com/c/a/Visual-Basic/Two-Person-Chat-With-The-Winsock-Control-And-Visual-Basic/1/

Option Explicit

Private Sub AddText(ByVal text As String, ByRef Box As TextBox)
'Take the text box passed as a reference and add the "text" variable to it

Box.text = Box.text & text & vbCrLf
Box.SelStart = Len(Box.text)

End Sub

Private Sub cmdClose_Click()
Disable the outgoing buttons and tell the user that the connection has been closed

 wsChat.Close

cmdClose.Enabled = False

cmdSend.Enabled = False

txtName.Enabled = True

cmdListen.Enabled = True

cmdConnect.Enabled = True

txtIn.text = "----- Connection Closed -----" & vbCrLf

End Sub

Private Sub cmdConnect_Click()

   'Before we can connect, we should check to see 'if there is an IP and name for the user.

   If txtIP.text = "" Or txtName.text = "" Then
   MsgBox "You must enter both an IP and alias first!", vbCritical, "Error!"
   txtName.SetFocus
   Exit Sub
   End If

   On Error Resume Next

   'Connecting the IP that is placed in the txtIP.text value.

   wsChat.Close
   wsChat.Connect txtIP.text, 23
   cmdClose.Enabled = True
   cmdListen.Enabled = False
   cmdConnect.Enabled = False
   txtName.Enabled = False

End Sub


Private Sub wsChat_Connect()
   Do

   DoEvents

   Loop Until wsChat.State = sckConnected Or wsChat.State = sckError
   If wsChat.State = sckConnected Then

   'Tell the user that the connection has been established

   AddText "----- Connection Established -----" & vbCrLf, txtIn

   cmdSend.Enabled = True

   txtName.Enabled = False

   txtOut.SetFocus

   Else

   'Tell the user that the connection has been established

   AddText "----- Connection Failed -----" & vbCrLf, txtIn

   End If
End Sub

Private Sub wsChat_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
   If Number <> 0 Then

   AddText "----- Error [" & Description & "] -----", txtIn

   Call cmdClose_Click

   End If

End Sub

Introduc IP-ul si user-ul si dupa ce dau connect imi da eroare la linia AddText "----- Error [" & Description & "] -----", txtIn de mai sus ()
de tipul run time error '13' Type mismatch


Cand pun mouse-ul peste Description imi arata ca description = "Connection is forcefully rejected"
valoarea lui description este de tip string si nu inteleg de ce nu o afiseaza in textboxul txtIN ?

De ce nu apelezi functia normal ? ... pune paranteze la apelare.
In loc de :
AddText "----- Error [" & Description & "] -----", txtIn
pune
AddText ("----- Error [" & Description & "] -----", txtIn)

si asta se intampla peste tot in codul tau.
fa asta si apoi vezi ce se intampla.

L.E : observ ca in functia declarata folosesti o variabila care nu are acoperire. Este vorba de vbCrLf ...
Tu apelezi functia asta concatenand variabila cu un text ca mai apoi iar sa o concatenezi in interiorul functiei, nu are rost.
Scoate & vbCrLf din interiorulu lui AddText

vbCrLf e o constanta predefinita care inseamna \r\n 

Am modificat  AddText ("----- Error [" & Description & "] -----", txtIn) = True
Am eroarea  la linia AddText ("----- Error [" & Description & "] -----", txtIn) = True
expected function or variable

Eu nu inteleg ce vrei sa faci ... cum compari o functie care nu iti returneaza nimic cu o valoare booleana?
Sincer ... te sfatuiesc sa iei o carte de vb ca sa vezi bazele si apoi sa treci pe probleme care ti le propui. Ca nu putem sa te ajutam la toate problemele tale, mai ales la un nivel de gandire asa de incepator.

Te rog intelege ca nu avem nimic cu tine, si chiar suntem o comunitate care ajuta ... dar ajutam pe cei care vor sa invete, nu ne batem capu cu chiar toate lipsurile [din motive nesubiective,te asigur eu]...

wwwglro, concentreaza-te pe ce vrei sa faci: sa accesezi prin telnet un sever, din VB
Nu ai ales sa folosesti libraria pe care ti-am recomandat-o. Ok ... nici o problema, poate ca vrei sa iti implementezi tu protocolul  .
Frumos. Dar, in momentul de fata, tu nu esti in stare sa rezolvi o eroare de compilare simpla ... explica-mi si mie cum crezi ca vei fi in stare sa implementezi, in momentul de fata, protocolul respectiv ? Stii macar doua vorbe despre TCP/IP ?
Ai citit RFC-ul pentru telnet ?
Problema ta este ca nu stii ce vrei ... Si nici nu ai un plan clar despre ceea ce trebuie sa faci ...

Aventi dreptate intr-o privinta.
Nu cunosc VB mai deloc.
ptr astan

Tot ce am facut eu, a fost sa iau un exemplu dintr-o parte si sa incerc sa il compilez. Nu am folosit biblioteca indicata de tine deoarece am crezut ca merge si cu exemplul asta (pe care inca nu am apucat sa il testez)
Avand in vedere ca nu cunosc mai deloc VB, am facut in cateva ore interfata respectiva si am si inteles codul respectiv.
M-am lovit insa de problema respectiva cu afisarea unui text intr-un textbox care, se pare ca deocamdatanu imi merge. Mai sap...asta e.
Biblioteca recomandata de tine pare asemanatoare cu cea folosita in exemplul meu si anume Winsock

pentru 3nigma

Ce vroiam eu sa fac este sa afisez un amarat text intr-un textbox.
Forma initiala cu care am apelat functia de afisare este de forma AddText "----- Error [" & Description & "] -----", txtIn unde nu mai aveam nici o valoare booleana...intr-adevar ce am scris eu mai inainte  = true nu a fost bine...
dar daca vrei poti sa imi dai raspuns la prima varianta din exemplul meu...(cea de mai sus)

Am testat biblioteca recomandata de tine si merge foarte bine .
Acum o sa incerc si cu biblioteca din windows adica winsock.