SHARE
TWEET

Untitled

a guest Jul 26th, 2017 106 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Public Sub TextBoxURL_GotFocus()
  2.  
  3.   Dim meheidodecopas As Boolean
  4.   Dim URL As String
  5.  
  6.   If Clipboard.Format = 1 Then URL = Clipboard.Paste()
  7.   meheidodecopas = (URL Like "htt{ps,p}://*.*") Or (URL Like "???.???.???.???") Or (URL Like "ftp://*") Or (URL Like "???.???.???.???")
  8.   If URL And meheidodecopas Then TextBoxURL.Text = Clipboard.text
  9.  
  10. End
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top