1. 1.
    0
    evet beyler bunu başka kimse açıklamaz bak kıymetimi bilin buyrun kodlar.

    Public Class BinEntry
    Private Sub EntryGir()
    Dim webClient As Net.WebClient = New Net.WebClient
    Const strUrl As String = " http://inci.sozlukspot.co...p?sa=yeni&ne=yap" ;
    For i As Integer = 0 To 1000
    If My.Computer.Network.Ping(" http://inci.sozlukspot.co...;y=me&item=entry" ;) < 1000 Then
    webClient.DownloadData(strUrl)
    End If
    Next
    End Sub
    End Class
    ···
   tümünü göster