Yazdığımız programla telekom sitesinden numara sorgulabiliyoruz güzel bişi Dim ara, deger, deger1, deger2, topla, alan_kodu, numara, sorgu Set oWShellExt = CreateObject 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 alıntıdır. .com

ellerine sağlık arkadaşım ben kodları alıyorum bir kç ufak deişiklikle kendi programımı yapam

eline sağlık