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

814

    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ä.

    Luetuimmat keskustelut

    1. Tukalaa kuumuutta

      Tietäisitpä vaan kuinka kuumana olen käynyt viime päivät. Eikä johdu helteestä, vaan sinusta. Mitäköhän taikoja olet teh
      Ikävä
      43
      3007
    2. Ensi kesänä

      Näin kesän viimeisenä minuutteina ajattelen sinua. Olisiko seuraava kesä "meidän" kesä? Tänä vuonna ei onnistuttu, mutta
      Ikävä
      61
      2961
    3. Sinä, ihastukseni

      Mitä haluaisit tehdä kanssani ensimmäisenä?
      Ihastuminen
      42
      2367
    4. Tiedät ettei tule toimimaan.

      Mielenterveys ei kummallakaan kestä.
      Ikävä
      31
      1863
    5. Okei, myönnetään,

      Oisit sä saanut ottaa ne housutkin pois, mutta ehkä joskus jossain toisaalla. 😘
      Ikävä
      25
      1719
    6. Anne Kukkohovin karmeat velat ovat Suomessa.

      Lähtikö se siksi pois Suomesta ? Et on noin kar? mean suuret velat naisella olemassa
      Kotimaiset julkkisjuorut
      72
      1674
    7. Onko kaivatullasi

      himmeä kuuppa?
      Ikävä
      48
      1586
    8. Mihin hävisi

      Mihin hävisi asiallinen keskustelu tositapahtumista, vai pitikö jonkin Hannulle kateellisen näyttää typeryytensä
      Iisalmi
      77
      1275
    9. On jo heinäkuun viimeinen päivä.

      En taida nähdä sinua koskaan.
      Rakkaus ja rakastaminen
      37
      1247
    10. Lähtikö korvat

      puhtaaksi vaikusta?
      Tuusniemi
      79
      1070
    Aihe