Telefon Numarasının Kime Ait Olduğunu

[beyaz34]

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

Bunu bir yerde buldum kullamak iştiyorum
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, "kartalyazilim@yahoo.com.tr"
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

 

[neo]

Merhaba, say&#305;n beyaz34 bu kodlarda hata var galiba bir t&#252;rl&#252; olmad&#305;

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

bu koddayken bir hata veriyon bu kodlar&#305; iptal etti&#287;imde forbiden port 8000 diyor ve ba&#287;lant&#305; yok numaray&#305; falan bulmuyor yard&#305;mc&#305; olursan&#305;z &#231;ok makbule ge&#231;er &#246;rnek uygulamay&#305; bir excel dosyas&#305;nda verirseniz

sayg&#305; ve sevgilerimle

 

[veyselemre]

T&#252;rk Telekom art&#305;k numaradan isim bulma sorgulamas&#305;n&#305; desteklemiyor. Bu y&#252;zden bo&#351;una u&#287;ra&#351;may&#305;n.