[color=#009000]**// Show Open File Dialog[/color]
[color=#000090][b]OpenFile[/b][/color]("[color=#000090][b]Images[/b][/color] (*.jpg)|*.jpg|All Files|*.*||","*.jpg")
[color=#0000FF]If[/color] (OpenFile$ = [color=#800000]''[/color]) [color=#0000FF]Then[/color]
[color=#000090][b]Message[/b][/color]("Please select a file !","")
[color=#000090][b]Return[/b][/color]()
[color=#0000FF]End[/color]
[color=#009000]**// Put Input File Path into In$[/color]
In$ = OpenFile$
[color=#009000]**// Show Save File Dialog[/color]
[color=#000090][b]SaveFile[/b][/color]("[color=#000090][b]Images[/b][/color] (*.jpg)|*.jpg|All Files|*.*||","*.jpg")
[color=#0000FF]If[/color] (OpenFile$ = [color=#800000]''[/color]) [color=#0000FF]Then[/color]
[color=#000090][b]Message[/b][/color]("Please select a file !","")
[color=#000090][b]Return[/b][/color]()
[color=#0000FF]End[/color]
[color=#009000]**// Put Output File Path into Out$$[/color]
Out$ = OpenFile$
[color=#009000]**// Output File Format[/color]
Format$ = [color=#800000]'jpeg'[/color]
[color=#009000]**// Image Width for Resizing[/color]
Width = [color=#ff0000]500[/color]
[color=#009000]**// Image Height for Resizing[/color]
Height = [color=#ff0000]700[/color]
Param$ = [color=#800000]'WAIT,HIDE -out '[/color] + Format$ + [color=#800000]' -o "'[/color] + Out$ + [color=#800000]'" -resize '[/color] + [color=#000090][b]CHAR[/b][/color](Width) + [color=#800000]' '[/color] +[color=#000090][b]CHAR[/b][/color](Height) + [color=#800000]' "'[/color] + In$ + [color=#800000]'"'[/color]
[color=#000090][b]Run[/b][/color]("<[color=#0000FF]Embedded[/color]>\nconvert.exe","Param$")
[color=#000090][b]Message[/b][/color]("Done !","")
[color=#000090][b]Run[/b][/color]("Out$","")