Note that there are some explanatory texts on larger screens.

plurals
  1. PORestrict Image by selecting it's URL
    text
    copied!<p>I am trying to add Images from websites and I am facing poblem with an issue which is that when I am trying to go to google images and trying to add some Images and when I right click for some images I find "Copy Image URL" and for some I don't find it and I find "Copy link address".Now I want my users to restrict from adding the Images which contain "Copy Image URL" And I am attaching Images so that you'll understand me in a better way.</p> <p><img src="https://i.stack.imgur.com/a6Tge.png" alt="enter image description here"></p> <p><img src="https://i.stack.imgur.com/YPBYb.png" alt="enter image description here"></p> <p>How do I do that? </p> <p>Here is the code for saving the image:</p> <pre><code>Dim dir_name As String = txtDirectory.Text If Not dir_name.EndsWith("\") Then dir_name &amp;= "\" For Each pic As PictureBox In flpPictures.Controls Dim bm As Bitmap = CType(pic.Image, Bitmap) Dim filename As String = CStr(pic.Tag) filename = filename.Substring(filename.LastIndexOf("/") + 1) Dim ext As String = filename.Substring(filename.LastIndexOf(".")) 'Here it gives me an error at(filename.lastindexof(".") Dim full_name As String = dir_name &amp; filename Select Case ext Case ".bmp" bm.Save(full_name, Imaging.ImageFormat.Bmp) Case ".gif" bm.Save(full_name, Imaging.ImageFormat.Gif) Case ".jpg", "jpeg" bm.Save(full_name, Imaging.ImageFormat.Jpeg) Case ".png" bm.Save(full_name, Imaging.ImageFormat.Png) Case ".tiff" bm.Save(full_name, Imaging.ImageFormat.Tiff) Case Else MessageBox.Show( _ "Unknown file type " &amp; ext &amp; _ " in file " &amp; filename, _ "Unknown File Type", _ MessageBoxButtons.OK, _ MessageBoxIcon.Error) End Select Next pic Beep() </code></pre>
 

Querying!

 
Guidance

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload