Ovo funkcionis. Hvala svima
Citat:
mladenovicz : Sta u stvari hoces da uradis?
Pr[o_O]F" A sta pokusajes da uradish?
Pa za pocetak ime teme nije trebalo da bude tako kao sto jeste neko "pomoc oko vb-a" ali ne znam zasto je dobilo ime po prvoj recenici u prvoj poruci.Poceo sam da ucim vb i nasao sam neke tutorijale/cource(naravno imaju gresaka) koje sam preradio na svoj naci i naravno gde mi je zapelo obratio sam se na forumu. I tako...
Evo neki kod za pozivanje nekog broja preko modema ali nesto bas i ne radi ako znate gde je greska prepravite i objavite na forumu.
Code:
Option Explicit
‘deklaracija i konstante
Private Declare Function Pozovi& Lib "TAPI32.DLL" Alias_
"tapiRequestMakeCall" (ByVal DestAddress$, ByVal AppName$, ByVal_
CalledParty$, ByVal Comment$)
Private Const Ne_mogu_da_pokrenem_Windialer = -2&
Private Const Pun_buffer_zahteva = -3&
Private Const Neispravan_broj_telefona = -4&
‘pozivanje broja upisanog u tekst box txtBroj
Private Sub cmdPoziv_Click()
Dim poruka As String
Dim rezultat As Long
rezultat = Pozovi&(Trim(txtBroj), "", "", "")
‘ako se pojavila greska...
If rezultat <> 0 Then
poruka = "Greska u aplikaciji : "
Select Case rezultat
Case Ne_mogu_da_pokrenem_Windialer
poruka = poruka & "Ne mogu da pokrenem Dialer"
Case Pun_buffer_zahteva
poruka = poruka & "Trenutno zauzeta aplikacija"
Case Neispravan_broj_telefona
poruka = poruka & "Nevazeci broj telefona"
Case Else
poruka = poruka & "Nepoznata greska"
End Select
MsgBox poruka
End If
End Sub
‘unosenje broja od strane korisnika
Private Sub txtBroj_Change()
‘ako je duzina teksta > 0 onda je omoguceno pozivanje broja
cmdPoziv.Enabled = Len(Trim(txtBroj)) > 0
End Sub
Umesto "txtBroj" uneti neki broj
||< ArtifeX >||