güvenlik nedeni ile admin onayı olmadan hiç bir uygulamayı sitede kullanmayın sonuç hırsızlık olabilir
-
Foruma hoş geldin 👋, Ziyaretçi
Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için lütfen foruma kayıt olun veya giriş yapın. Üyelik tamamen ücretsizdir ve sadece birkaç dakikanızı alır.
İndex Sorunu [TEK KONU]
- Kullanıcı era
- Başlangıç tarihi
- - YouTube Sorunları & Çözümleri
güvenlik nedeni ile admin onayı olmadan hiç bir uygulamayı sitede kullanmayın sonuç hırsızlık olabilir
- Katılım
- 28 Aralık 2013
- Mesajlar
- 1.037
- Tepkime puanı
- 0
- Puan
- 0
- Konum
- Niğde
- Web sitesi
- www.ozelderstakibi.com
Haklısınız Hocam. O yüzden proje dosyasını da ekledim.
CemaLi
Platin Üye
- Katılım
- 6 Mayıs 2013
- Mesajlar
- 2.483
- Tepkime puanı
- 0
- Puan
- 36
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
- Katılım
- 22 Eylül 2013
- Mesajlar
- 3.572
- Tepkime puanı
- 0
- Puan
- 0
İndex sorunu tekrar başladı bir kanalım 1 gündür index almıyor
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
- Katılım
- 14 Aralık 2013
- Mesajlar
- 2.104
- Tepkime puanı
- 0
- Puan
- 0
- Yaş
- 39
- Konum
- Zonguldak
- Web sitesi
- purtukal.com
вαттυѕαу;642794' Alıntı:
Aynen öyle
вαттυѕαу;642794' Alıntı:
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..
