Jooel,

I was looking into how to grab the icons..

I know that Howard has a pretty good method and I am sure that you have used it too..

But, thought I would take a crack at it too:
code:
break on cls
; - http://cwashington.netreach.net/depo/view.asp?Index=399&ScriptType=vbscript
;$file=open(1,@scriptdir+"\page.htm",5)
;$file=writeline(1,"<html><body>@crlf")
;$xml=createobject("microsoft.xmlhttp")
;$.open("get","http://www.gelos.de/publik/Grafik/Glyphs/ToolButtons/",not 1)
;$xml.open("get","http://www.gelos.de/publik/Grafik/Glyphs/ToolButtons/",False)
$sSource = "http://www.gelos.de/publik/Grafik/Glyphs/ToolButtons/"
;$sSource = "http://www.gelos.de/publik/Grafik/Glyphs/ToolButtons/t_scripting.jpg"
;$sDest = "test.jpg"
;---End user variables---

;$oHTTP = WScript.CreateObject("Microsoft.XMLHTTP")
;$oFSO = WScript.CreateObject("Scripting.FileSystemObject")

$oHTTP = CreateObject("Microsoft.XMLHTTP")
$oFSO = CreateObject("Scripting.FileSystemObject")

$oHTTP.open("GET",$sSource,not 1)
$oHTTP.send
$body8209 = $oHTTP.responseBody
$oHTTP = 0

$sOut = ""
For $i = 0 to UBound($body8209)
     ;$sOut = $sOut + chrw(ascw(chr(ascb(midb($body8209,$i+1,1)))))
     $sOut = $sOut + chr(asc(chr(asc(SUBSTR($body8209,$i+1,1)))))
Next

;We know the length of where we need to start is 54
$sDest = substr($sSource,54,len($sSource))
$oTS = $oFSO.CreateTextFile($sDest, True)
$oTS.Write @scriptdir+"\"+$sOut
$oTS.Close
$oTS = 0
$oFSO = 0
?"Done!"
sleep 3
It acts like it is working, but nothing appears to happen.. No errors no files.

Thanks,

Kent

[ 18. November 2002, 07:38: Message edited by: kdyer ]
_________________________
Utilize these resources:
UDFs (Full List)
KiXtart FAQ & How to's