- Katılım
- 15 Temmuz 2008
- Mesajlar
- 58
- Reaction score
- 0
selam arkadaşlar benim şöyle bir sorunum var. elimde bir tane program botu var ama çalışmıyor.nedeni ise bağlanmak istediğim sitenin koordinatlarını bulamama. nasıl bulabilirim. bilen varsa lütfen cok acil yardım etsin
bu kodla ulaşamıyorum
bu kodla ulaşamıyorum
Kod:
yer = Instr(1,SayfaKodu, "<a href=""/"" class=""small"">")
sanalevim = Mid(SayfaKodu,yer+40,200000)
yer2 = Instr(1,sanalevim, "class=""small""")
sanalevim2 = Mid(sanalevim,yer2+14,200000)
kategori = left(sanalevim2,instr(sanalevim2,"</a>")-1)
yer3 = Instr(1,sanalevim2, "class=""softtitle""")
sanalevim3 = Mid(sanalevim2,yer3+18,200000)
adi = left(sanalevim3,instr(sanalevim3,"</span>")-1)
yer4 = Instr(1,sanalevim3, "<p class=""p_desc"">")
sanalevim4 = Mid(sanalevim3,yer4+18,200000)
aciklama = left(sanalevim4,instr(sanalevim4,"<div class=""tabletitle_green"">")-1)
yer5 = InStr(1,SayfaKodu,"Filesize:" )
sanalevim5 = Mid(SayfaKodu,yer5+19,12)
boyut = left(sanalevim5,instr(sanalevim5,"</h5>")-1)
yer6 = InStr(1,SayfaKodu,"Produced by:" )
sanalevim6 = Mid(SayfaKodu,yer6+22,25)
telif = left(sanalevim6,instr(sanalevim6,"</h5>")-1)
yer7 = InStr(1,URLKodu,"If your download does not start" )
sanalevim7 = Mid(URLKodu,yer7+48,510)
downloadURL = left(sanalevim7,instr(sanalevim7,">here</a>")-1)