للتواصل : INSTAGRAM : 0.4 KIK : 0.4 TELEGRAM : VVVVP ============الكود =========== Imports System.Net Public Class Form1 Dim web As WebClient …
للتواصل :
INSTAGRAM : 0.4
KIK : 0.4
TELEGRAM : VVVVP
============الكود ===========
Imports System.Net
Public Class Form1
Dim web As WebClient = New WebClient
Dim html As String
Dim user As String
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
web = New WebClient
On Error Resume Next
user = TextBox1.Text
html = web.DownloadString(“http://ask.fm/” & user)
If html.Contains(“Page not found”) = True Then
MsgBox(“متاح”)
Else
MsgBox(“غير متاح”)
End If
End Sub
End Class
=======================