0
Vbs生成Md5值
Posted by 晴云孤魂 on 2012 年 04 月 13 日 in windows Script Design | ∞
Private Const BITS_TO_A_BYTE = 8 Private Const BYTES_TO_A_WORD = 4 Private Const BITS_TO_A_WORD = 32 Private m_lOnBits(30) Private m_l2Power(30) Private Function LShift(lValue, iShiftBit。。。
Vbscript实现Hex(十六进制)与Ascii码互转
Posted by 晴云孤魂 on 2012 年 02 月 10 日 in windows Script Design | ∞
nums = a2h("中国A") WScript.Echo nums h2a(nums) Function a2h(s) Dim i For i = 1 To Lenb(s) Step 2 a2h = a2h & Hex(Ascb(Midb(s,i,1))) & Space(1) &a。。。
修改机器名和IP地址的脚本(VBS)
Posted by 晴云孤魂 on 2011 年 10 月 13 日 in windows Script Design | ∞
把两个脚本合并了一下,做好的VBS文件放在日志最下方给大家下载 ———————————————————R。。。
VBS自动随机发送邮件脚本—By:晴云孤魂
Posted by 晴云孤魂 on 2011 年 02 月 14 日 in windows Script Design | ∞
‘———————————— ‘生成随机邮箱代码模块开始 Function get_roundmail() Dim all_mail,all_letter,all_number,round_mail,ro。。。