VB & Reflection yhteys

Mar65

Olen tekemässä VB:llä (VB 6.5) ohjelmaa jolla otetaan telnet yhteys laiteeseen johon annetaan komentoja ,nyt kun olen saanut yhteyden niin ongelmana on seuraavaa:
-ohjelman komennot menevät telnet linjalla vasta sitten kun ohjelma on sammutettu

Tässä mallia ohjelmasta missä yhteys ja annetaan komento :

Public Sub CommandButton1_Click()
On Error GoTo ErrorHandler

Const NEVER_TIME_OUT = 1

Dim BS As String ' Chr(rcBS) = Chr(8) = Control-H
Dim CR As String ' Chr(rcCR) = Chr(13) = Control-M
Dim ESC As String ' Chr(rcESC) = Chr(27) = Control-[

BS = Chr(Reflection2.ControlCodes.rcBS)
CR = Chr(Reflection2.ControlCodes.rcCR)
ESC = Chr(Reflection2.ControlCodes.rcESC)

With Session
Transmit "XDDF" & CR ' annetaan komento

.StatusBar = "Waiting for Prompt:

3

683

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • keksa1
      • Mar065

        Moi! sainkin yhteyden toimimaan mutta edelleen minulla on sama ongelma etten saa komennon jälkeistä dataa tallennettua muuttujaan. Olisi tarkoistus että ohjelma antaa komennon ja vaste luetaan tallennetaan muuttujaan jota voidaa käyttää hyväksi ohjelman muussa osassa.
        Tässä nyt ohjelma pätkää , tässä vaiheessa on yhteys jo olemassa ja komento lähettetään koneelle:
        P
        rivate Sub CommandButton1_Click()

        UserForm1.Hide

        yhteys

        UserForm1.Show


        End Sub

        Public Sub yhteys()

        Const NEVER_TIME_OUT = 0

        Dim BS As String ' Chr(rcBS) = Chr(8) = Control-H
        Dim CR As String ' Chr(rcCR) = Chr(13) = Control-M

        BS = Chr(Reflection2.ControlCodes.rcBS)
        CR = Chr(Reflection2.ControlCodes.rcCR)

        With session
        Transmit "XDS;" & CR
        ' TÄSSÄ VAIHEESSA PITÄISI TULEVAA DATAA LUKUE JA TALLENTAA MUUTTUJAAN



        .StatusBar = "Waiting for Prompt: $"
        .WaitForString BS & " ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""


        End With
        End Sub

      • Mar065
        Mar065 kirjoitti:

        Moi! sainkin yhteyden toimimaan mutta edelleen minulla on sama ongelma etten saa komennon jälkeistä dataa tallennettua muuttujaan. Olisi tarkoistus että ohjelma antaa komennon ja vaste luetaan tallennetaan muuttujaan jota voidaa käyttää hyväksi ohjelman muussa osassa.
        Tässä nyt ohjelma pätkää , tässä vaiheessa on yhteys jo olemassa ja komento lähettetään koneelle:
        P
        rivate Sub CommandButton1_Click()

        UserForm1.Hide

        yhteys

        UserForm1.Show


        End Sub

        Public Sub yhteys()

        Const NEVER_TIME_OUT = 0

        Dim BS As String ' Chr(rcBS) = Chr(8) = Control-H
        Dim CR As String ' Chr(rcCR) = Chr(13) = Control-M

        BS = Chr(Reflection2.ControlCodes.rcBS)
        CR = Chr(Reflection2.ControlCodes.rcCR)

        With session
        Transmit "XDS;" & CR
        ' TÄSSÄ VAIHEESSA PITÄISI TULEVAA DATAA LUKUE JA TALLENTAA MUUTTUJAAN



        .StatusBar = "Waiting for Prompt: $"
        .WaitForString BS & " ", NEVER_TIME_OUT, rcAllowKeystrokes
        .StatusBar = ""


        End With
        End Sub

        Kun tajusin katsoa Reflectionin puolelta asiaa niin ongelmaan löytyikin ratkaisu , nyt ohjelma toimii ja se lukee laitteen antaman vasteen:

        Public Sub CommandButton1_Click()
        UserForm1.hide
        yhteys
        UserForm1.Show
        End Sub

        Public Sub yhteys()

        Const NEVER_TIME_OUT = 0
        Dim BS As String
        Dim CR As String
        BS = Chr(Reflection2.ControlCodes.rcBS)
        CR = Chr(Reflection2.ControlCodes.rcCR)

        With Session
        Transmit "XDS;" & CR
        Dim instance As Reflection2.Session
        Dim returnValue() As String
        .WaitForString "PHYS"
        returnValue2 = .ReadLine
        .StatusBar = ""
        MsgBox (returnValue2)

        End With

        End Sub

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Tällä kertaa Marinia kadehtii Minäminä Päivärinta

      Kokoomuksen tyhjäntoimittelija itkeä tuhertaa, kun kansainvälinen superstaramme ei leiki hänen kanssaan. Oikean puoluee
      Maailman menoa
      386
      1492

    2. Minua itkettää tämä tilanne

      Meidän pitäisi jutella. Eikö niin? Miehelle.
      Ikävä
      105
      1278

    3. Miksi koulut pakottavat

      Lapset uimaan sekaryhmänä? Murrosikäiset tunnetusti häpeilevät vartalossa tapahtuvia muutoksia. Tulee turhia poissaoloja
      Maailman menoa
      116
      1210

    4. Miksi jollain jää "talvi päälle"

      Huvittaa kastoa ullkona jotain vahempaa äijää joka pukeutuu edelleen kun olisi +5 astetta lämmittä vaikka on helle keli
      Maailman menoa
      162
      1113

    5. Mitkä oli suurimmat

      Syyt mihin hänessä ihastuit alussa ja pikkuhiljaa tunteiden edetessä
      Ikävä
      44
      987

    6. Minulla oli tunteita

      Tein itsestäni pellen. Sait hyvät naurut ja minä 💔
      Ikävä
      63
      896

    7. Se katse silloin

      Oli hetki, jolloin katseemme kohtasivat. Oli talvi vielä. Kerta toisensa jälkeen palaan tuohon jaettuun katseeseen. Tunt
      Ikävä
      32
      816

    8. Suomen Pallolitto: Tasoryhmät lasten jalkapallossa - Erätauko-tilaisuus ma 20.5.2024

      Tasoryhmät lasten ja nuorten jalkapallossa herättävät paljon keskustelua. Mitä tasoryhmät ovat ja mikä on niiden tarkoit
      Suomi24 Blogi ★
      0
      800

    9. Susanne Päivärinta kirjassaan: Sannalla nousi valta päähän, Big Time!

      Päivärinta toteaa ettei ole nähnyt kenenkään muuttuvan niin totaalisesti kuin Marinin, eikä siis todellakaan parempaan s
      Maailman menoa
      91
      794

    10. Tuhdit oluet kauppoihin. Miksi vastustaa?

      8% oluet kauppoihin mutta mikä siinä on että osa politikoista vstustaa ? Kauppa kuitenkin hinnoittelee vahvan oluen ni
      Maailman menoa
      167
      681
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt