Private Function GiveMeBin(ByVal s As String) As String
        Dim r As New System.Text.StringBuilder
        For i As Integer = 0 To s.Length - 1
            r.Append(Convert.ToString(Asc(s(i)), 2))
        Next
        Return r.ToString
    End Function

بدون نظر
نام :   
ايميل :      اين سايت از سيستم گراواتر استفاده می کند ، اگر در گراواتر دارای کد کاربری هستيد می توانيد از آن آدرس ايميل استفاده کنيد.  
وب سايت :   
ديدگاه :   
عدد زير را وارد کنيد :
  


  پيام شما بعد از بازبينی افزوده خواهد شد.