İndex Sorunu [TEK KONU]

[slowloris]

Hocam sıkıntıdan oturup 1-2 dakika senin için kodladım:

Dosya.tc - cretsiz, Hzl ve Kolay Dosya Paylam

Yukarıdaki uygulamaya video linkini yapıştırıp index alıp almadığını kontrol edebilirsiniz. Bu da proje dosyası (incelemek isteyenler için):

Dosya.tc - cretsiz, Hzl ve Kolay Dosya Paylam

güvenlik nedeni ile admin onayı olmadan hiç bir uygulamayı sitede kullanmayın sonuç hırsızlık olabilir

 

[bio33]

güvenlik nedeni ile admin onayı olmadan hiç bir uygulamayı sitede kullanmayın sonuç hırsızlık olabilir

Haklısınız Hocam. O yüzden proje dosyasını da ekledim.

 

[CemaLi]

güvenlik nedeni ile admin onayı olmadan hiç bir uygulamayı sitede kullanmayın sonuç hırsızlık olabilir

Kaynak kodları bunlar ;

Public Class Form1
Dim videoid As String = ""
Dim adres As String = ""

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Mid(TextBox1.Text, 1, 31) <> "http://www.youtube.com/watch?v=" Then
MsgBox("Lütfen video adresini doğru girin.", vbCritical, "HATA")
TextBox1.Text = ""
TextBox1.Select()
Exit Sub
End If
Dim videoid As String = ""
Dim adres As String = ""
videoid = Mid(TextBox1.Text, 32, 11)



adres = "http://www.youtube.com/results?search_query=http%3A%2F%2Fwww.youtu.be%2F" & videoid

Dim talep As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(adres)
Dim cevap As System.Net.HttpWebResponse = talep.GetResponse()
Dim okuyucu As System.IO.StreamReader = New System.IO.StreamReader(cevap.GetResponseStream())
Dim kaynakkodu As String = okuyucu.ReadToEnd
If InStr(kaynakkodu, "search-message") = 0 Then
MsgBox("Videonuzun kısa linki : http://www.youtu.be/" & videoid & vbNewLine & vbNewLine & "Videonuz youtube'de indexlenmiş. ", vbInformation, "Bilgi")


Else
MsgBox("Videonuzun kısa linki : http://www.youtu.be/" & videoid & vbNewLine & vbNewLine & "Videonuz youtube'de indexlenmemiş. ", vbInformation, "Bilgi")

End If


End Sub

Private Sub TextBox1_GotFocus(sender As Object, e As EventArgs) Handles TextBox1.GotFocus
TextBox1.Text = ""
End Sub

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

End Sub
End Class

 

[Narqotik]

Hocam videonun ismini ve kısa linkini youtube'da aratınca çıkıyor fakat google'da aratınca çıkmıyor indexlenmemiş mi oluyor şimdi anlamadım yardımcı olabilecek biri var mı

 

[medser]

index sorunu hala devam ediyor sanırsam videolarm indexlenmemiş yüklediklerim

 

[GriAy]

beyler index sorunu hala yaşanıyormu ?

 

[zack]

Şu an bende yok.

 

[mikail9595]

İndex sorunu tekrar başladı bir kanalım 1 gündür index almıyor

 

[GriAy]

şuanda index sorunu yaşayan varmı arkadaşlar ?

 

[different46]

şuanda index sorunu yaşayan varmı arkadaşlar ?

Şuan bir sorun görünmüyor gibi

 

[prens]

index sorunu var gibime geliyor fakat tek tük izleniyor.ama yinede bence sıkıntı.paralar ödendi ödeneli böyle sıkıntı olmaya başladı.Hadi hayırlısı

 

[Apollon]

Dünden Beri Videolar İndex Almıyor Herkeste Aynımı Merak Ediyorum

 

[nothing]

Dünden Beri Videolar İndex Almıyor Herkeste Aynımı Merak Ediyorum

Aynen! Bu index sorunu aslında uzun zamandır var da son bikaç gündür üst seviyelerde.. dün gece attığım videolar akşam üzeri index almaya başladı, o da kaplumbağa hızında

 

[вαттυѕαу]

Son 2 gündür index sorunu yaşayan var mı , Videolar 1 saatte indexleniyor

 

[SameT]

Son 2 gündür index sorunu yaşayan var mı , Videolar 1 saatte indexleniyor

Aynen öyle

 

[вαттυѕαу]

Aynen öyle

Forumda isyan çıkmayınca şaşırdım bende. Bende mi bi sorun var diye

 

[NoEroin]

Son 2 gündür index sorunu yaşayan var mı , Videolar 1 saatte indexleniyor

1 haftadır hiç index almadı kanallarım.
1 saat iyiymiş.

 

[Tayi]

Youtube ne zaman bazı değişiklikler, güncelleme vs. yapsa bu index sorunu yaşanıyor. Şu an bende yaşıyorum

 

[oktaykzlky]

Son 2 gündür index sorunu yaşayan var mı , Videolar 1 saatte indexleniyor

Beyler ben geçen hafta konu açtım ama kimse sallamadı hala aynı bende sorun ortalama yarım saat sonra falan index almaya başlıyo videolarım..

 

[Anıl]

Dün geceden beri ben de yaşıyorum.