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

796

Ää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. Mitään järkeä?

      Että ollaan erillään? Kummankin pää on kovilla.
      Ikävä
      129
      2063

    2. Noniin rakas

      Annetaanko pikkuhiljaa jo olla, niin ehkä säilyy vienot hymyt kohdatessa. En edelleenkään halua sulle tai kenellekään mi
      Ikävä
      105
      1876

    3. Kumpi vetoaa enemmän sinuun

      Kaivatun ulkonäkö vai persoonallisuus? Ulkonäössä kasvot vai vartalo? Mikä luonteessa viehättää eniten? Mikä ulkonäössä?
      Ikävä
      84
      1659

    4. Lasten hyväksikäyttö netissä - Joka 3. nuori on saanut seksuaalisen yhteydenoton pedofiililtä

      Järkyttävää! Lapsiin kohdistuva seksuaalinen hyväksikäyttö verkossa on yhä pahempi ongelma. Ulkolinja: Lasten hyväksikäy
      Maailman menoa
      64
      1524

    5. Multa sulle

      Pyörit 24/7 mielessä, kuljet mun mukana, mielessä kyselen sun mielipiteitä, vitsailen sulle, olen sydän auki, aitona. M
      Ikävä
      33
      1192

    6. Ei se mene ohi ajan kanssa

      Näin se vaan on.
      Ikävä
      82
      1148

    7. Nainen, olen tutkinut sinua paljon

      Salaisuutesi ei ole minulle salaisuus. Ehkä teimme jonkinlaista vaihtokauppaa kun tutkisimme toisiamme. Meillä oli kumm
      Ikävä
      56
      1132

    8. Tavoitteeni onkin ärsyttää

      Sua niin turhaudut ja unohdat koko homman
      Ikävä
      110
      1093

    9. Mies, eihän sulla ole vaimoa tai naisystävää?

      Minusta tuntuu jotenkin, että olisit eronnut joskus, vaikka en edes tiedä onko se totta. Jos oletkin oikeasti edelleen s
      Ikävä
      47
      1066

    10. Onko sulla empatiakykyä?

      Etkö tajua yhtään miltä tämä tuntuu minusta? Minä ainakin yritän ymmärtää miltä sinusta voisi tuntua. En usko, että olet
      Ikävä
      44
      1013
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt