x=InputBox("请输入字符","提示","Test") 
If Len(x)<>0 then 
For i=1 To Len(x) 
WScript.echo "字符 [" & Mid(x,i,1) & "] ANSI代码为: " & Asc(Mid(x,i,1)) 
Next 
Else 
MsgBox "请输入英文字符",64,"提示" 
End if

VBS MD5加密算法代码
PrivateConstBITS_TO_A_BYTE=8PrivateConstBYTES_TO_A_WORD=4PrivateConstBITS_TO_A_WORD=32Privatem_lOnBits(30)Privatem_l2Power(30)m_lOnBits(0)=CLng(1)m_lOnBits(1)=CLng(3)m_lOnBits(2)=CLng(7)m_lOnBits(3)=C

用VBS实现一个小键盘动作CTRL+V粘贴操作与思路分析
提示:1,是每次有跳出窗口时的1.8秒后都要有此动作,并且是只发送了一次该动作,发送完后等待下次的窗口跳出再循环.2,每次循环中都只是发送了一次CTRL+V

VBS 偏移量解密工具[算法解密]
Ifwscript.arguments.count=0Orwscript.arguments.Count1thenmsgbox"请将通过偏移量加密过的VBS文件拖放到本脚本上即可[请逐个解密]！",48,"提示"wscript.quitEndIfForEachfnameInwsc