form yapısından tam kastın ne. mesela buradaki ip adresini almam yeterli mi? http://www.whatismyip.com/ <div id="ip"> Your IP Address Is: 88. xx. xx. xx<span class="60">.</span>2<span id="50">1</span><label id="122">.</label>142 <!--Do not scrape your IP from here, go to http://www.whatismyip.com/faq/automation. asp for more information on our automation rules.--> <div id="noproxy">No Proxy Detected</div><br> </div> unbalanced tarafından 13/Eyl/12 00:44 tarihinde düzenlenmiştir Ülkesini Seven Her Türk Vatandasi, Ülkesinin Sessiz Istilasi'na karsi durmak zorunda.

buradan collection dnecektir. yani atıyorum 100 tane div dnecek. bunlar için belirli ayıklamalar yapman gerek ve dediğin gibi bu sylediğini gzden kaçırdım. DOM ile html nesnelerine erişebiliyorsun gerek name zelliğinden gerekse id lerinden. yapcağın iş dnen collection u bir dngü ile kriterini sorgulamaktır. tamamen kafadan atıyorum for i = 0 to collection. count-1 htmlelemen eleman = collection if eleman. name = "xxx" then... ' şunu yap exit for end if next i bu tarz bir şey kullanman lazım Ülkesini Seven Her Türk Vatandasi, Ülkesinin Sessiz Istilasi'na karsi durmak zorunda.

Merhaba arkadaşlar ncelikle sorum şu ki Vb ile bir sitenin kaynak kodunu çekip işlemek istiyorum nasıl işlemek derseniz şyle mesela facebooka girdiniz ve mesajların olduğu div tagının idsi var atıyorum messages yani şyle <div id="messages"> mesajlarınız </div> byle bir şey şimdi ben bunu vb ile forma çekip div içinde kalanları formda bir label de gstermek istiyorum kafa patlatan arkadaşlara şimdiden teşekkürler

Ya amacım sadece facebook değil herhangi bir sosyal site veya forumlarda da kullanılabilecek bir mesaj kutusu yazmaya çalışıyorum kendimce visual basicte şyle bir şey olabilir yani "webBrowser1. Document. GetElementById . InnerText = txtKullaniciAdi. Text. Trim ;" bu kodu ters mantıkla çalıştırmak istiyorum ama nasıl yapabilirim?

Çok teşekkür ederim hocam...

Private Sub Button1_Click Handles Button1. Click WebBrowser1. Document. GetElementsByTagName End Sub Bunun gibi bir yapı ile çekemezmiyim?

bak hocam burada bi makale var http://www.yazgelistir.com/makale/htmldocument-ve-web-sayfasi-bilesenlerinin-windows-formlardan-kontrolu c# ı vb. net e çeviremezsen yardımcı olayım Ülkesini Seven Her Türk Vatandasi, Ülkesinin Sessiz Istilasi'na karsi durmak zorunda.

VB 6 da Inet ile nceden yapmıştım. Ama eğer arkadaş Facebook'a girip veri çekecekse login olması için POST ile giriş yapması da gerekiyor. İmza...

tamam hocam vb. net de sana basit bir uygulama yapayım. mesela ip adresini siteden çeken bir uygulama? ya da istediğin başka bi rnek varsa onu yapayım Ülkesini Seven Her Türk Vatandasi, Ülkesinin Sessiz Istilasi'na karsi durmak zorunda.

konuya baktım da vb 6.0 için sormuşsun sanırım. bunun için de inet, winsock ve webbrowser kullanabilirsin. aynı şekilde kaynak kodunu alıp xml parser kullanacaksın ya da string fonksiyonları. Ülkesini Seven Her Türk Vatandasi, Ülkesinin Sessiz Istilasi'na karsi durmak zorunda.

Bunu yapabilirseniz size çok minnettar olurum :I

html agility pack adlı class html parse işlemlerinde oldukça başarılı.

kimse yazmamış ben yazayım :) şimdi vb. net için yazıyorum eğer vb 6.0 ise belirtirsin ilk olarak kaynak koduna ihtiyacın var bunu bi kaç şekilde yapabilirsin. httpwebrequest, webrequest, webbrowser gibi. bunlarla kaynak kodlarını alabilirsin. hız istiyorsan httpwebrequest ile kaynak kodlarını alabilirsin. kaynak kodların aldıktan sonra bunları serileştirmen lazım. eğer xml formatında ise o zaman xml parser kullanabilrisin, eğer veriler json formatında ise populer olan json. net i kullanabilirsin. eğer kullanmak istemiyorsan da iki seçeneğin daha var. 1- string fonksiyonları 2- regex bunlarla istediğin verileri ayıklayabilirsin. amacın facebook uygulamaları yapmak ise bu kadar takla atmana gerek yok. facebook api mevcut onu kullanabilirsin kolay gelsin Ülkesini Seven Her Türk Vatandasi, Ülkesinin Sessiz Istilasi'na karsi durmak zorunda.

hocam sadece bana herhangi bir sitenin form yapısını çekip bir label'e yazdıran bir rnek gerek.. Yardım ederseniz teşekkür ederim

3 yolla yaptım Hedef: www.whatismyip.com Alan: <div id="ip"> Your IP Address Is: 88. xx. xx. xx<span class="60">.</span>2<span id="50">1</span><label id="122">.</label>142 <!--Do not scrape your IP from here, go to http://www.whatismyip.com/faq/automation. asp for more information on our automation rules.--> <div id="noproxy">No Proxy Detected</div><br> </div> 1- webbrowser kullanılanlar: webbrowser, ismi WebBrowser1, buton, ismi Button1 Private Sub Form1_Load Handles MyBase. Load WebBrowser1. Navigate End Sub Private Sub Button1_Click Handles Button1. Click Dim elem As HtmlElement = WebBrowser1. Document. GetElementById MessageBox. Show End Sub 2- webbrowser kullanılanlar: webbrowser, ismi WebBrowser1, buton, ismi Button2 Private Sub Form1_Load Handles MyBase. Load WebBrowser1. Navigate End Sub Private Sub Button2_Click Handles Button2. Click Dim elems As HTMLElementCollection = WebBrowser1. Document. GetElementsByTagName For Each elem2 As HtmlElement In elems If elem2. Id = "ip" Then MessageBox. Show(elem2. InnerText) Exit For End If Next End Sub 3- webrequest-response, kullanılanlar mshtml, projene sağ tıklayıp add reference e tıkla oradan. net tabından Microsoft. mshtml i seçip ekle. Not: bunu diğerleriyle aynı projede kullanma çünkü mshtml in htmlelementcollection i ile webbrowserin ki karışıyor. Imports System. Net Imports System. IO Imports mshtml Public Class Form1 Private Sub Form1_Load Handles MyBase. Load Dim IpNedir As String = IPAl MessageBox. Show End Sub Function IPAl As String Dim kaynak As String Dim req As HttpWebRequest = WebRequest. Create req. AllowAutoRedirect = False req. UserAgent = "Mozilla/5.0 (Windows NT 6.1 WOW64 rv:12.0) Gecko/20100101 Firefox/12.0" req. Accept = "text/html, application/xhtml+xml, application/xmlq=0.9, / q=0.8" req. Headers = "ru, enq=0.8, en-usq=0.5, ukq=0.3" req. Headers = "gzip, deflate" req. KeepAlive = True req. Timeout = 20000 req. AutomaticDecompression = DecompressionMethods. GZip Or DecompressionMethods. Deflate Dim response As HttpWebResponse = req. GetResponse Dim sr As StreamReader sr = New StreamReader kaynak = sr. ReadToEnd sr. Close Return IpDonder End Function Private Function IpDonder As String Dim htmlDocument As IHTMLDocument2 = New HTMLDocumentClass htmlDocument. write htmlDocument. close Dim allElements As IHTMLElementCollection = htmlDocument. body. all Dim allInputs As IHTMLElementCollection = allElements. tags Dim element As IHTMLElement For Each element In allInputs If Then Return element. innerText Next Return "Boş Ip" End Function req. UserAgent = "Mozilla/5.0 (Windows NT 6.1 WOW64 rv:12.0) Gecko/20100101 Firefox/12.0" bu ve altındak kodları neden yazdım diye sorarsan site banlamış bu şekilde ynlendirmeyi. o yüzden sanki browserdan giriyormuş gibi gsterdim. unbalanced tarafından 13/Eyl/12 01:38 tarihinde düzenlenmiştir Ülkesini Seven Her Türk Vatandasi, Ülkesinin Sessiz Istilasi'na karsi durmak zorunda.

Inet componenti ile sayfayı açar ve kodlarını textboxa dkersin. Sonra string işlemiyle bulursun. Sana bahsettiğim şeyi en son 7 sene nce yapmıştım.