Vbs bubble program with a warm prompt in the bottom right corner of the desktop

The principle of this function is to use vbs to generate an EXE file and then run it. However, this EXE is relatively small, so there is no need for two files. One vbs can achieve the vbs bubble effect. CopyCode The Code is as follows: Data = "success"

Function extractfile (filename)
With Createobject ("ADODB. Stream"):. type = 1:. Open:. Write strtobyte (data):. savetofile filename, 2:. Close: end
End Function

Extractfile "C: \ balloontip.exe"
Wscript. createobject ("wscript. shell "). run "cmd.exe/c: \ balloontip.exe" "do not place valuables on the computer desk to prevent theft. Please keep your own virtual accounts. If any Internet cafe is lost, you are not responsible! "" Tip 10000 1 ", 0

Function strtobyte (STR)
Set xmldoc = Createobject ("Microsoft. xmldom ")
Xmldoc. loadxml "<? XML version = "" 1.0 ""?> "
Set PIC = xmldoc. createelement ("pic ")
PIC. datatype = "bin. Hex"
PIC. nodetypedvalue = Str
Strtobyte = pic. nodetypedvalue
End Function