当前位置： 移动技术网 > IT编程>脚本编程>VBScript > 在桌面右下角出现温馨提示的vbs冒泡程序

在桌面右下角出现温馨提示的vbs冒泡程序

2017年12月12日  | 移动技术网IT编程  | 我要评论

买高跟鞋,火凤凰聊天室,和答元明黔南赠别

这个功能的原理呢，就是用vbs生成exe文件，然后运行，只不过这个exe比较小，不用两个文件了，一个vbs即可实现vbs冒泡效果
复制代码 代码如下:

data = "4d5a00000000000000000000504500004c010200534c58210000000000000000e0000f010b01000000000000000600000000000054010000001000000c00000000004000001000000002000004000000000000000400000000000000004000000002000000000000020000000000100000100000000010000010000000000000100000000000000000000000983200008400000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000200000001000000000000000000000000000000000000000000000e00000c0000000000000000000100000003000001903000000020000000000000000000000000000e00000c08725dc324000619455a4b680ff1373f933c9ff13731633c0ff13731fb68041b010ff1312c073fa753aaaebe0ff530802f683d901750eff5304eb24acd1e8742d13c9eb189148c1e008acff53043b43f8730a80fc05730683f87f77024141958bc5b600568bf72bf0f3a45eeb9f5ead97ad50ff5310958b074078f37503ff630c5055ff5314abebee33c941ff1313c9ff1372f8c302d275058a164612d2c34b45524e454c33322e646c6c00004d3815403259096724454cff027f65c711b3270cf49b4887c17f6874c4703a712fee691d2e62610e6475c3636f6df373011c6c79782c2042d79a53af0b4d2e02c20325730e0842616c2e6f206e54697020e8653a7874b75b14576c955d0e086de76f75c728637329331d49906ea7266444f9433853853c01c71805e012fce801c114ff15241001a3e4911fb9700633c0890de81bc844ec981425a3f0dd1354f405117813227cc448c41406a2f82b30c390038b44241d0856579d7c800c33c983f8030a893d8014252035017727ff248560115834eb6822b4081b02b5e216910c03080a8c44018b2a3518942268e00a51ffd657a3150c0f866a0220335f5ee61432a134091c2428507c9b55845ec3f083fe01fa278eca40d285f67e23008a0c3a80f9307c17c00a397f120fbe1fc98d04c7423bd6604441d07c68e499bb9410534301c383ec18384224185355b250bb28b80b9352bd9864be084c500e14aa66003a3bc50f8e52a3b31f4e04cc3d202f51296890ad0880130cffd7451c1283c40c011202c6057f170c5aa18414560852278484146c0381c3087ee28b7f461f8d4c241050cd5146f554f6600a52e84d14311b8bd861f41f2019047e5552100ace6a1854eafe8bb50026fd037e2f3312edeb2b085620455c0a0558a459d6f12c5d110c8ed6c16818e8dcfd8e7c5553ed258b8a1e086afa910450275d6a5b3d2cb85701ebe54bf678a9a8113aa691111422dc8f010e2c1510ebcb538ed72d7011dc73746272166e412e054578c3ee50f16f63fd73c73b1d47fd7c43716d5c61e81d4c693e3857074b45524e3f6033322e646ce309994144546bd46f706757406465771d145f7358721a7466d29e1ae25e142cfa686065125f4e6f7412696679843d506f5db354d8417267337657514842c463d001eabaf6000000f03200000000000000000000f2010000f032000000000000000000000000000000000000000000000010400000304000c814400000000000e032400080000000007d0000c0324000e8014000dc014000de014000c0114000fa32000008330000000000004c6f61644c69627261727941000047657450726f634164647265737300" 

function extractfile(filename) 
        with createobject("adodb.stream"):.type = 1:.open:.write strtobyte(data):.savetofile filename, 2:.close:end with 
end function 

extractfile "c:\balloontip.exe" 
wscript.createobject("wscript.shell").run "cmd.exe /c c:\balloontip.exe "" 请勿在电脑桌上放置贵重物品，以防被盗，请自行保管自己的各种虚拟帐号，如有丢失网吧概不负责!"" 温馨提示 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 

您可能感兴趣的文章:

如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网