vb'de Telefon Numarasının Kime Ait Olduğunu Bulan Program

Girdiğiniz telefon numarasının kime ait olduğunu bu program sayesinde öğrenebilirsiniz.


Formunuza text1(alan kodu buraya yazılacak), text2(telefon numarası buraya yazılacak),command1(bul butonu) ve command2(çıkış butonu) ekleyin.
Kolay gelsin

Private Sub Command1_Click()
Dim ara, deger, deger1, deger2, topla, alan_kodu, numara, sorgu
If Val(Text1.Text) > 199 And Val(Text2.Text) > 999999 Then
Set oWShellExt = CreateObject("Shell.Application")

ara = Text2.Text

If ara <> "" Then


topla = ara

deger1 = "http://www.ttrehber.gov.tr/trk-wp/IDA2?IDAERROR=&QRY=bus&CTRY=trk&LANG=tu&PAGE=compl exSearch&LIP=complexSearch&ACTION=search&STP=C&NAM =&STN=512-%C7A%D0R&GIV=&LOC=&QNA=&ACD="
alan_kodu = Text1.Text
numara = Text2.Text
deger2 = "&STR=&TEL="
deger = "&ATX=&DTX=&ZCD=&REQ=20&RNG=lequ"
sorgu = deger1 & alan_kodu & deger2 & numara & deger
oWShellExt.shellexecute sorgu
End If
Else
MsgBox "Hatalı yada eksik numara girişi yaptınız", 16, "Numaraları konrol ediniz"
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
MsgBox "Bu programı İNTERNET BAĞLANTINIZ VARSA kullanabilirsiniz", 48, "Dikkat"
End Sub

Private Sub Form_Unload(Cancel As Integer)
MsgBox "Bu program Uğur Kartal yapımıdır...", 64, "[email protected]"
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyBack Then
Exit Sub
Else
KeyAscii = 0
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc(vbCr) Then
Command1_Click
KeyAscii = 0
End If
If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyBack Then
Exit Sub
Else
KeyAscii = 0
End If
End Sub

çok karışık anlayamadım

başka bir program anlaşılır şekilde açtım

ttnet bu hizmeti kaldırdı diye biliyorum.. ttrehber anasayfasına bakarsanız artık telefon numarasıyla arayamıyosunuz.. alıntı mı bu yazı?

evet alıntı her yerde var

tel nosunu bulan program için tesekkür ederim

acaba exe haline dönüştürülmüş şeklini alabilirmiyim tel nosunu bulan programın

ben anlamadım

hdgfdhtdhfjfj

Çok teşekkürler programların ve kodların devamını bekliyoruz,.,.,.

kardeş programı yazmışsın ama yanlış uygulamışsın neyse yinede emeğe saygı başarılarının devamını dilerim

Bana birisi telefon program konusunda yardımcı olabilir mi?
Var mı şu anda telefon numarasının kime ait olduğunu bulan bir program?
şimdiden teşekkürler

ya ben anlamadim bu programi indirmeden yapamaz miyiz

hadi biriniz cevap vrin nasi olcak bu
bide bişey daha msn şifresi nasi cözebilirim

arkadaşlara katılıyorum.

ölmüş bu baglantı

Arkadaşlar şu visual basic programını çalışır bir şekilde upload edecek biri var mı acaba? internette ne kadar aradımsa da bulamadım. Böyle güzel programları kaçırmak istemiyorum da.