Monday, January 1, 2018
icons Is it possible to store a ico file in a vbscript
icons Is it possible to store a ico file in a vbscript
icons - Is it possible to store a .ico file in a vbscript? -
i have vbscript script takes .ico file , creates desktop shortcut using icon, want able have script needs stored in itself, if possible.
theres easier (and much faster) method convert binary info base64 in vbscript using code @hackoo found. can take advantage of microsofts implementation of base64 using msxml2.domdocument class. heres script takes binary file c: est.jpg , converts base64. resulting base64-encoded string saved in text file (c:out.txt). uses ado stream read file binary array , passes routine uses domdocument convert binary info base64-encoded text.
const binary_file = "c: est.jpg" const base64_file = "c:out.txt" createobject("scripting.filesystemobject").createtextfile(base64_file, true) .write binaryfiletobase64(binary_file) .close end function binaryfiletobase64(strfilename) createobject("adodb.stream") .type = 1 specify binary info (adtypebinary) .open .loadfromfile strfilename binaryfiletobase64 = base64encode(.read) read binary contents vt_ui1 | vt_array end end function function accepts binary (vt_ui1 | vt_array) info , converts base64-encoded text (unicode string). function base64encode(binarydata) string createobject("msxml2.domdocument.3.0").createelement("base64") .datatype = "bin.base64" set type of info element should store .nodetypedvalue = binarydata write binary info base64encode = .text read text end end function so can utilize script convert binary file base64-encoded string representation. example, stack overflows icon, saved 12x15 bitmap:
qk1sagaaaaaaadyaaaaoaaaadaaaaa8aaaababgaaaaaabwcaaaaaaaaaaaaaaaaaaaaaaaa hoochoochoochoochoochoochoochoochoochooc3upl3uplhooc3upl3upl3upl3upl3upl 3upl3upl3uplhooc3upl3uplhooc3uplhoochoochoochoochoochooc3uplhooc3upl3upl hooc3upl3upl3upl3upl3upl3upl3upl3uplhooc3upl3uplhooc3uplciyociyociyociyo ciyociyo3uplhooc3upl3uplhooc3upl3upl3upl3upl3uplwttdn8dv3uplhooc3upl3upl 3upl3upl2uhknl/ucafjvpfcvjbcbkpi3upl3upl3upl3upl3+tm3+tmvzfcxjveekvlr8na 3+tmbq7cvkhz3+tm3+tm3+tm4exn4exn3epm4exn4exnsm3ip5fyqzjxs8/jv6tx097o4exn 4ubo4ubo4ubo3utoy6jbn5pxdblc3etoojb0k4/0e63vdqrw4+fp4+fp4+fpqzjyrzvywnbl 3uxpojb0lzd00t7qmyp1llvu5ojq5ojq5ojqxnjm5ojq3+bqopf0lph01uhrcafwpinz5ojq 5enr5enr5enr5enr5enrrjzzlph01+lr3otrmip1psbu5enr5+rs5+rs5+rs5+rs5+rsrs7u 3exs5+rszqlyq4705+rs5+rs6ovt6ovt6ovt6ovt6ovt6ovt6ovt6ovtn4f0s83v6ovt6ovt to decode base64-encoded string, need perform steps in reverse. first, decode text original binary form. then, write binary info file.
const new_binary_file = "c: est2.jpg" createobject("scripting.filesystemobject").opentextfile(base64_file) base64tobinaryfile .readall(), new_binary_file .close end sub base64tobinaryfile(strbase64, strfilename) createobject("adodb.stream") .type = 1 adtypebinary .open .write base64decode(strbase64) write byte array .savetofile strfilename, 2 overwrite if file exists (adsavecreateoverwrite) end end sub function base64decode(byval strtext) bytearray createobject("msxml2.domdocument.3.0").createelement("base64") .datatype = "bin.base64" .text = strtext base64decode = .nodetypedvalue end end function so, original question, how embed binary (ico) file in vbscript file? can add together base64 string somewhere. set @ end, beginning, somewhere in middle. itll need commented out, of course, since its not valid vbscript. , may want add together start , end delimiter know begins , ends. example:
read ourself... createobject("scripting.filesystemobject").opentextfile(wscript.scriptfullname) "start"... until .atendofstream strline = .readline() if strline = " ~end~" fread = false if fread strbase64 = strbase64 & mid(strline, 3) if strline = " ~start~" fread = true loop end re-create our bitmap! base64tobinaryfile strbase64, "c:stack_overflow.bmp" ~start~ qk1sagaaaaaaadyaaaaoaaaadaaaaa8aaaababgaaaaaabwcaaaaaaaaaaaaaaaaaaaaaaaa hoochoochoochoochoochoochoochoochoochooc3upl3uplhooc3upl3upl3upl3upl3upl 3upl3upl3uplhooc3upl3uplhooc3uplhoochoochoochoochoochooc3uplhooc3upl3upl hooc3upl3upl3upl3upl3upl3upl3upl3uplhooc3upl3uplhooc3uplciyociyociyociyo ciyociyo3uplhooc3upl3uplhooc3upl3upl3upl3upl3uplwttdn8dv3uplhooc3upl3upl 3upl3upl2uhknl/ucafjvpfcvjbcbkpi3upl3upl3upl3upl3+tm3+tmvzfcxjveekvlr8na 3+tmbq7cvkhz3+tm3+tm3+tm4exn4exn3epm4exn4exnsm3ip5fyqzjxs8/jv6tx097o4exn 4ubo4ubo4ubo3utoy6jbn5pxdblc3etoojb0k4/0e63vdqrw4+fp4+fp4+fpqzjyrzvywnbl 3uxpojb0lzd00t7qmyp1llvu5ojq5ojq5ojqxnjm5ojq3+bqopf0lph01uhrcafwpinz5ojq 5enr5enr5enr5enr5enrrjzzlph01+lr3otrmip1psbu5enr5+rs5+rs5+rs5+rs5+rsrs7u 3exs5+rszqlyq4705+rs5+rs6ovt6ovt6ovt6ovt6ovt6ovt6ovt6ovtn4f0s83v6ovt6ovt ~end~ vbscript icons desktop ico .ico
alternative link download
No comments:
Post a Comment
Note: Only a member of this blog may post a comment.