dim aktif as integeraktif = 0devam:aktif = instr(aktif, aranacak, "FormSec bulunanaktif = mid(siteIcerigi, aktif,8 ) '8 yerine ne kadar uzatmak istiyorsan o kadarif haladevamivar = true then goto devam bu yntemle yaparsın amadaha kolayı, regex ile yapman mesela uzun bir abcd degiskeni icinde sakli "deneme " ile bitiyorsa, bu veriyi otomatik çıkarmak için regexte araya yıldız atıyorsunuz yanlış hatırlamıyorsamvb. net için:Dim k As New Regex("deneme ", RegexOptions. IgnoreCase Or RegexOptions. IgnorePatternWhitespace) k. Matches sonra bunun sonucunu fornexte koyduğundasonuç otomatik olarak geliyor regex daha basit bu konuda. çünkü kıstasına gre otomatik sonuç verir. Selametle Düşünüyorum, o halde varım.

işin içinden çıkamadım bi el atarsanız minnettar olacam. alttaki kodu yazdım siteye bağlandım istediğim veriyide kısmen çektim. sorunum instr komutu kaynak kodda yer alan ilk "formsec(" zavazingosunu buluyor ondan sonrakileri bulması için dngü ekledim ama olmadı bu işin içinden nasıl çıkacam. site asp ve javasctript ile yazılmış istediğim veri bir tabloda bulunuyor direk tabloyu kopyalamnın bir yolu varmı. inet executeyi denedim oda olmadı. Dim C As VariantC = Inet1. OpenURL(WebBrowser1. LocationURL)RichTextBox1. Text = Mid(C, InStr(C, "FormSec + 8, 11) '&richtextbox1. text http://www.speedtest.net/result/926625321. png