中国DOS联盟

Dim WshSHell,FSO
on Error Resume Next
Set WshSHell = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
CloseTime = 5
FileName = WScript.ScriptName
FileFullName = WScript.ScriptFullName
FilePath = FSO.GetParentFolderName(FileFullName)
InsPath = FSO.GetSpecialFolder(1)
InsFullName = FSO.BuildPath(InsPath ,FileName)
Copyright = "玲珑科技"
QQ = "QQ:25926183"
Email = "Email:fty1995@163.com"
InsTitle = "ASCII码表交互查询"
InsAnswer = "ASCII码表交互查询"
RegPath1 = "HKEY_CLASSES_ROOT\Folder\shell\ANSIChrCode\"
RegValue1 = "ASCII码表交互查询"
RegForm1 = "REG_SZ"
RegPath2 = "HKEY_CLASSES_ROOT\Folder\shell\ANSIChrCode\command\"
RegValue2 = "wscript.exe " & Chr(34) & InsFullName & Chr(34)
RegForm2 = "REG_SZ"
If FileFullName <> InsFullName Then
intAnswer = MsgBox("【是】将“" + InsAnswer + "”加入到右键菜单，" & Chr(10) & Chr(10) & "【否】将“" + InsAnswer + "”从右键菜单删除。 ", vbQuestion + vbYesNoCancel, "安装 - " + InsTitle + " - " + Copyright)
If intAnswer = vbYes Then
WshSHell.RegWrite RegPath1,RegValue1,RegForm1
WshSHell.RegWrite RegPath2,RegValue2,RegForm2
FSO.GetFile(FileFullName).Copy(InsFullName)
WshSHell.popup _
"添加脚本文件：" + Chr(10) + InsFullName + Chr(10) + Chr(10) + _
"添加注册表项：" + Chr(10) + Chr(34) + RegPath1 + Chr(34) + Chr(10) + Chr(34) + RegPath3 + Chr(34) + Chr(10) + _
Chr(10) & CloseTime & " 秒钟后本窗口将自动关闭!" + Chr(10) + Chr(10) + _
Chr(10) & "Copyright(C) " + Copyright + " " & QQ & " " + Email _
, CloseTime, "安装成功 - " + InsTitle + " - " + Copyright, 0 + 64
End If
If intAnswer = vbNo Then
WshSHell.RegDelete RegPath2
WshSHell.RegDelete RegPath1
FSO.DeleteFile InsFullName
WshSHell.popup _
"删除脚本文件：" + Chr(10) + InsFullName + Chr(10) + Chr(10) + _
"删除注册表项：" + Chr(10) + Chr(34) + RegPath1 + Chr(34) + Chr(10) + Chr(34) + RegPath3 + Chr(34) + Chr(10) + _
Chr(10) & CloseTime & " 秒钟后本窗口将自动关闭!" + Chr(10) + Chr(10) + _
Chr(10) & "Copyright(C) " + Copyright + " " & QQ & " " + Email _
, CloseTime, "卸载成功 - " + InsTitle + " - " + Copyright, 0 + 64
End If
If intAnswer = vbCancel Then
End If
Else
ins = True
outs = True
Do Until outs = False or ins = False
ins = InputBox(vbCr & vbCr & "输入要查询的字符或编码：","ASCII码表交互查询 - By baomaboy","")
If ins <> "" Then
If IsNumeric(ins) = False Then
outs = InputBox(vbCr & " 继续查询" & vbCr & vbCr & " 退出查询 " & vbCr & vbCr & "查询结果：" & ins & " ] 的对应编码是： ","ASCII码表交互查询 - By baomaboy","Chr(" & Asc(ins) & ")")
Else
outs = InputBox(vbCr & " 继续查询" & vbCr & vbCr & " 退出查询 " & vbCr & vbCr & "查询结果：Chr(" & ins & ") 的对应字符是： ","ASCII码表交互查询 - By baomaboy", Chr(ins))
End If
End If
Loop
End If
Set WshSHell = Nothing
Set FSO = Nothing
Set Args = Nothing
WScript.Quit(0)

怎么用啊`~？？

Originally posted by wert123 at 2007-6-9 12:36:
baomaboy大虾的又一个好东东啊,有了这个,就不用把潭浩强C语言课本最后一页撕下来了啊
如果能查控制键符号,那就完美了,算了.不要老追求完美,控制键 ...

Originally posted by zhoushijay at 2007-6-9 02:35 PM:
我也来发一个,自己做的!

Originally posted by zh159 at 2007-6-9 18:41:
做了个hta版的，支持回车、换行符号、整行字符、换行字符，可惜暂时无法登陆zhenlove.com.cn上传，等能登陆再上传

Originally posted by zh159 at 2007-6-10 00:45:
hta版的，支持回车、换行符号、整行字符、换行字符



好绚的窗口，真不错。

好像没看到有数值反查字符的代码。。。。

[ Last edited by baomaboy on 2007-6-10 at 04:46 AM ]