Help Finding The (imagemagik?) Thumbnail Slideshow

Well, I've searched both far and wide but I could find nowhere to download this Samurize script that allows you to have a slideshow of images in a folder on your desktop. Could anyone please help me find a download link or maybe host it themselves?

Thank you very much for any help.

#78162

here ya go. i just found this on google. you gotta love foreign sites. :)

http://www.geocities.co.jp/SiliconValley/6705/script.html

scroll down and you should see it.

#78166

Thanks a lot!

#78265

"ImageMagick" is a UNIX image editor.

#78271

Hate to keep bothering you dreamz, but do you know how to get this working? I followed the included instructions, isntalled imagemagick, set it to a directory full of PNG'd buddy icons for a test, and all it would show is the composite screen. Any idea what I'm doing wrong?

Thanks :)

#78298

i'm not bothered at all. :)

i haven't tried it out yet, so i'm not really sure, but i'll give it a go and let you know.

if you want some better answers, post in the samurize forums or send judge a pm (since he's the creator). i didn't install the dll yet so i couldn't use it.

but have you added the changeimage function? i think that's the main function.

#78322

THIRD SIDE: :rolleyes:

If you are using Windows in other language version than English check out what is the name of your image filetypes. Go to 'Folder Options', choose 'File Types' tab, scroll down to see what are the names of for example JPG and PNG filetypes. It can be 'ACDsee Image' or 'Photoshop Image', but when you have non-english Windows or some bizarre image viewer, it's different. Check it out. Remember the name (not the app/extension - if it's 'Imageviewer phile', 'PNG phile', 'JPG phile' remember only the repeating string --> 'phile') and go to Imagemagick.vbs. Find this:

' First find only the image files or links to image files
  For Each f1 in fc
     While (f1.Type = "Skrót")
         Set link = Shell.CreateShortcut(f1.Path)
         Set f1 = fso.GetFile(link.TargetPath)
     Wend
     If (InStr(f1.Type, "Obraz") <> 0) Then
     ReDim Preserve imageFiles(i+1)
     imageFiles(i) = f1.Path
     i = i+1
     End If

As you can see, I have 'Skrót' and 'Obraz'. Change it to 'phile' or 'painting' or 'img' or whatever you have there in your filetype name.

I hope that's clear.

I hope it worked.

As always: thanks Judge for the script! :bow:

#79521