|
|
|
|
| |
Telekomdan Numara Sorgulamak |
|
| |
Telekomdan Numara Sorgulamak
Dim ara, deger, deger1, deger2, topla, alan_kodu, numara, sorgu
Set oWShellExt = CreateObject("Shell.Application")
ara = Text1.Text
If ara <> "" Then
topla = ara
deger1 = "http://www.ttrehber.gov.tr/trk-wp/IDA2?IDAERROR=&QRY=bus&CTRY=trk&LANG=tu&PAGE=complexSearch&LIP=complexSearch&ACTION=search&STP=C&NAM=&STN=512-%C7A%D0R&GIV=&LOC=&QNA=&ACD="
alan_kodu = Text2.Text
numara = Text1.Text
deger2 = "&STR=&TEL="
deger = "&ATX=&DTX=&ZCD=&REQ=20&RNG=lequ"
sorgu = deger1 & alan_kodu & deger2 & numara & deger
oWShellExt.shellexecute sorgu
End If
End Sub
|
|
|
|
|
|
| |
29 Ekim 2007'den beri 24638 ziyaretçi (38786 klik)
Copyrigh(c)2007, Ali AKMAZ All right reserved
|
|
|
|
|
|
|
|
