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

    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. Voisin jopa maksaa että saisin nähdä sut mies

      Miten helvetissä joku voi olla tollanen kotihiiri. Edes mä en ole noin paha ku sä! Miten sua voi ikinä edes nähdä ?
      Ikävä
      59
      1204

    2. Tumman vihreä mercedes

      Mikä se on tuo kylää ympäri ajava vihreä mercedes, takakontti tärisee kuin hullu ja välillä kylän juoppojakin kuskailee,
      Hyrynsalmi
      11
      880

    3. Miksi tällainen pelottaa ja aiheuttaa joillakin ärtymystä?

      "Sitoudun ystävien ja kollegoiden kanssa puuttumaan seksistisiin vitseihin ja vähättelyyn. Sanon ääneen, kun jokin ei ol
      Maailman menoa
      75
      805

    4. Käyttäkää kumia kajaanilaisten naisten kanssa

      Elkää ottako riskiä ilman kumia kun saattaa käydä niin että sinusta tuleekin isä lapselle ja elättäjä molemmille.
      Kajaani
      83
      653

    5. Rakastan sinua

      Päivä päivältä enemmän 🥰 Miehelle.
      Ikävä
      53
      634

    6. Pakkomielle

      Tahdon pyytää anteeksi, että olen kaivannut sinua kaikki nämä vuodet ja olet ollut minulle pakkomielle. Nyt on aika pääs
      Ikävä
      46
      564

    7. Tunnusmerkkejä Kaivatulle

      Jotain mistä toinen tunnistaa. Täällä vaalea nainen kaipaa miestä jolla vaaleat hiukset ja asuu maalla. Pelataanko kortt
      Ikävä
      33
      547

    8. Oletko nainen enää täällä?

      En ole tunnistanut kirjoituksiasi hetkeen. Ainoastaan yhdessä neutraalissa ketjussa, missä ei ollut kyse tunteista. Hyv
      Ikävä
      36
      524

    9. Hurmasit sitten minut

      kauneudellasi nainen ja kun sait minut rakastumaan itseesi muutuit ihan porsaaksi etkä välitä vartalostasi enää yhtään.
      Ikävä
      43
      513

    10. Tietysti olen varovainen,

      ei kaikki ole pelkkää epävarmuutta. En halua sotkea mitään, enkä aiheuttaa kenellekään hankaluuksia. Ja luulen että ehkä
      Ikävä
      40
      501
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt