[es] - Problem sa mscomm1 ?

filipc
Prodaja i Skola Komp-a (KOMP-TRADE) Radim Instalaciju..

Član broj: 22738
Poruke: 433
212.200.108.*

Profil

^{24.05.2004. u 14:25}

Imam jedan problem:
Kad postavim mscomm1 na formu ja bi da pomocu njega napravim dial-up vezu t.j da mogu da se konektujem sa bilo kim naprimer da zovem nekoga ali nece da se otvori port za zvanje .

U cemu je problem?

^{24.05.2004. u 14:25}

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI, USA / Softwa..
Ann Arbor, MI, USA

Moderator
Član broj: 6598
Poruke: 2064
62.108.109.*

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz

Profil

Re: Problem sa mscomm1 ?

^{24.05.2004. u 14:58}

Ajde lepo procitaj FAQ. Kako sad neko da zna sta tebi ne valja ako nisi postovao kod?
Sledeci put ce ovakva poruka biti obrisana.

Blue Man Group

^{24.05.2004. u 14:58}

filipc
Prodaja i Skola Komp-a (KOMP-TRADE) Radim Instalaciju..

Član broj: 22738
Poruke: 433
*.teleportgroup.net

Profil

Re: Problem sa mscomm1 ?

^{24.05.2004. u 15:02}

Ovo je source cod od onog clana Luke nije moj ali nece da pozove broj to mi je problem da bi prepravio program.

Znaci imam 2 textbox-a , 2 command button-a , 1 mscomm i jedan timer , to je sve!

Code:

Private Sub Command1_Click()
On Error Resume Next

Dim BROJTELEFONA As String
BROJTELEFONA = InputBox("Enter Phone Number ", "Phone Number")
Form1.MSComm1.Output = "ATDT " & BROJTELEFONA & vbCr
End Sub

Private Sub Command2_Click()
If ioport = True Then
    Command2.Caption = "Open Port"
    MSComm1.Output = "ATH" + vbCr
    MSComm1.PortOpen = False
    ioport = Not ioport
Else
    Command2.Caption = "Close Port"
    MSComm1.PortOpen = True
    ioport = Not ioport
End If
End Sub

Private Sub Form_Load()

End Sub

Private Sub Text1_Change()
Text2.SetFocus
End Sub

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
    If ioport = True Then
        Form1.MSComm1.Output = Text2.Text & Chr$(13) + Chr(10)
    Text2.SetFocus
End If
        Text2.Text = vbNullString
End If
End Sub

Private Sub Timer1_Timer()
If ioport = True Then
Text1.Text = Text1.Text & MSComm1.Input
End If
End Sub

^{24.05.2004. u 15:02}

Re: Problem sa mscomm1 ?

^{24.05.2004. u 15:08}

Kad postujes kod, koristi code tag.
Pogledaj, na primer, ovo ili potrazi na googleu - ima koda koliko hoces.

Problem moze da bude attention string.

Blue Man Group

^{24.05.2004. u 15:08}

VRKY
Tomislav Vrkljan

Član broj: 21087
Poruke: 4683
*.net.htnet.hr

ICQ: 194179024
Sajt: www.gospic-online.com

Profil

Re: Problem sa mscomm1 ?

^{24.05.2004. u 16:38}

EVo tu ti je uplodano to što ti treba.
PoZdRaV

Gospic-Online | Grad Gospić | Hrvatska |

Prikačeni fajlovi

howto_dialer.zip - 12.64k

^{24.05.2004. u 16:38}