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

896

Äänestä

    Vastaukset 3

    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. Mitä mieltä olet?

      Miehestä jolla ei ole yhtään kaveria, ei facebookissa eikä livenä ja hän harrasta ja tekee kaiken yksin. Onko vähän outo
      Ikävä
      164
      1627

    2. Muistakaa pojat tämä.

      Mies joka haluaa naisen, löytää keinon. Ei epäröi eikä hämmennä. Tekee kaiken eteenne.
      Ikävä
      148
      1244

    3. Muhun rakastuu kaikki naiset, mut mä en rakastu niihin

      Mun vaatimustaso on 10+ Mut mua tavottelee 7+ naiset
      Ikävä
      216
      899

    4. Oletko päättänyt

      Että luovutat minun suhteeni
      Ikävä
      70
      846

    5. Kuinka lähellä hän asuu?

      🤗
      Ikävä
      55
      746

    6. Pahoin pelkään nainen

      että pidät minua epäempaattisena, itsekeskeisenä, narsistisena ja kylmänä ihmisenä. Oletko koskaan ajatellut, että minus
      Ikävä
      63
      727

    7. Mikä sua mies vaivaa?

      Siis oikeasti.
      Ikävä
      46
      715

    8. Haluatko enää mitään?

      😜
      Ikävä
      87
      647

    9. Martina avaa suhdettaan

      IL 22.7: Martina avaa suhdettaan nuoreen Muhikseen. Nyt on jo vakavaa, on käyty syömässä Itä-Helsingissä. Onkohan muutt
      Kotimaiset julkkisjuorut
      193
      608

    10. Annan aikaa jos sitä vielä tarvit

      mutta loputonta odottamista en kestä. Naiselle
      Ikävä
      52
      592
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt