标题: [已解决]VBS将字符串转换为二进制并写入注册表 [打印本页]
作者: fsed 时间: 2009-7-13 17:11 标题: [已解决]VBS将字符串转换为二进制并写入注册表
下午发了个帖没说清楚,再说明一下,请大家帮忙看看如何用vbs实现。写这个脚本的目的是将输入的字符串转换为二进制并写入注册表,这个注册表键值格式要求每个二进制数值之间需插入"00"、最后以"0000"结尾。例如1234字符串对应的二进制代码为:31323334,按键值格式要求修改后应为:31 00 32 00 33 00 34 00 00 00。
以下为之前写的代码,但因处理后仍为字符串无法写入注册表。对vbs也不大熟,大家帮忙看看如何才能实现,谢了。- 'Define constant
- Const HKEY_CR = &H80000000
- Const REG_BINARY = 3
- 'string varable
- strComputer = "."
- strKeyPath = "11223344"
- strValue = "BBAA"
- 'Input string1
- dim Str2Hex
- string1 = InputBox("请输入")
- Dim i, sResult
- sResult = ""
- For i = 1 To Len(string1)
- sResult = sResult & "&H" & Hex(Asc(Mid(string1, i, 1))) & "," & "&H00,"
- if i = Len(string1) then
- sResult = sResult & "&H00,&H00"
- end if
- Next
- Str2Hex = sResult
- wsh.echo Str2Hex
- 'binary array
- Dim arrData
- arrData = Array(Str2Hex)
- 'registry object
- Set objRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
- 'create registry key
- objRegistry.CreateKey HKEY_CR, strKeyPath
- 'setup the binary keyvalue
- retcode = objRegistry.SetBinaryValue(HKEY_CR, strKeyPath, strValue, arrData)
复制代码
[ 本帖最后由 fsed 于 2009-7-14 11:42 编辑 ]
作者: slore 时间: 2009-7-13 18:23
都说了类型不匹配。。。
"&H78" 是字符串
&H78是一个数
作者: fsed 时间: 2009-7-14 09:46 标题: 回复 2楼 的帖子
因为字符串等待输入无法直接写入脚本,代码怎么修改呢?
作者: fsed 时间: 2009-7-14 10:11
咋没人关注呢,有没有热心的版主帮忙看看啊
作者: fsed 时间: 2009-7-14 11:43
上网搜索了一下搞定了,使用split替代array函数即可。不过还是感谢版主的关注。
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |