Merhaba arkadaşlar visual basic 6 da bir konu takildim isterseniz ücretli yardım edebilecek varmi
bir url adresinde <title></title> arasindaki kodlari almak istyorum tşkler.
Normal de ücretsiz kod vermem ama içimden geldi
Kolay gelsin.
'---------------------------------------------------
Dim Tit_Baslangic As Long
Dim Tit_Bitis As Long
Dim GelenSiteKaynagi As String
'---------------------------------------------------
GelenSiteKaynagi = "<html><title>Site Deneme Sayfasi</title><html>"
Tit_Baslangic = InStr(1, GelenSiteKaynagi, "<title>") + 7
Tit_Bitis = InStr(1, GelenSiteKaynagi, "</title>")
'---------------------------------------------------
TitleYaz = Mid(GelenSiteKaynagi, Tit_Baslangic, Tit_Bitis - Tit_Baslangic)
'---------------------------------------------------
Call MsgBox(TitleYaz)
'---------------------------------------------------