function genimage(input_text)
Xtemp = input_text
Xtemp = LCase(Xtemp)
Xtemp = Replace(Xtemp, "-", "")
Xtemp2 = Xtemp
Xtemp = Replace(Xtemp, ":)", "
")
Xtemp = Replace(Xtemp, ":d", "
")
Xtemp = Replace(Xtemp, ";)", "
")
Xtemp = Replace(Xtemp, ":o", "
")
Xtemp = Replace(Xtemp, ":p", "
")
Xtemp = Replace(Xtemp, "(h)", "
")
Xtemp = Replace(Xtemp, ":@", "
")
Xtemp = Replace(Xtemp, ":$", "
")
Xtemp = Replace(Xtemp, ":s", "
")
Xtemp = Replace(Xtemp, ":(", "
")
Xtemp = Replace(Xtemp, ":'(", "
")
Xtemp = Replace(Xtemp, ":|", "
")
Xtemp = Replace(Xtemp, "(6)", "
")
Xtemp = Replace(Xtemp, "(a)", "
")
Xtemp = Replace(Xtemp, "(l)", "
")
Xtemp = Replace(Xtemp, "(u)", "
")
Xtemp = Replace(Xtemp, "(m)", "
")
Xtemp = Replace(Xtemp, "(@)", "
")
Xtemp = Replace(Xtemp, "(&)", "
")
Xtemp = Replace(Xtemp, "(s)", "
")
Xtemp = Replace(Xtemp, "(*)", "
")
Xtemp = Replace(Xtemp, "(~)", "
")
Xtemp = Replace(Xtemp, "(e)", "
")
Xtemp = Replace(Xtemp, "(8)", "
")
Xtemp = Replace(Xtemp, "(f)", "
")
Xtemp = Replace(Xtemp, "(w)", "
")
Xtemp = Replace(Xtemp, "(o)", "
")
Xtemp = Replace(Xtemp, "(k)", "
")
Xtemp = Replace(Xtemp, "(g)", "
")
Xtemp = Replace(Xtemp, "(^)", "
")
Xtemp = Replace(Xtemp, "(p)", "
")
Xtemp = Replace(Xtemp, "(i)", "
")
Xtemp = Replace(Xtemp, "(c)", "
")
Xtemp = Replace(Xtemp, "(t)", "
")
Xtemp = Replace(Xtemp, "({)", "
")
Xtemp = Replace(Xtemp, "(})", "
")
Xtemp = Replace(Xtemp, "(b)", "
")
Xtemp = Replace(Xtemp, "(d)", "
")
Xtemp = Replace(Xtemp, "(z)", "
")
Xtemp = Replace(Xtemp, "(x)", "
")
Xtemp = Replace(Xtemp, "(y)", "
")
Xtemp = Replace(Xtemp, "(n)", "
")
Xtemp = Replace(Xtemp, ":[", "
")
Xtemp = Replace(Xtemp, "(?)", "
")
Xtemp = Replace(Xtemp, "(%)", "
")
Xtemp = Replace(Xtemp, "(#)", "
")
Xtemp = Replace(Xtemp, "(r)", "
")
Xtemp = Replace(Xtemp, vbCrLf, "
")
Xtemp = "EMOTIK.COM
" & Xtemp
Xtemp = Xtemp & vbcrlf & "
Núm. Emoticonos: " & len(Xtemp2)
if len(Xtemp2) > 400 then Xtemp = Xtemp & vbcrlf & "
Necesario tener instalado: Messenger Plus!"
inputX.innerHTML = Xtemp
end function
function copy_image(input_text2)
input_text2 = Replace(input_text2, "-", "")
clipboardData.clearData("text")
clipboarddata.setData "text" , input_text2
MsgBox "EmoMensajes copiado al portapapeles, ahora puedes pulsar CTRL + V en la ventana del chat", vbOKOnly + vbMsgBoxSetForeground + vbInformation, "Emotik.com - Info"
end function