数字转二进制函数？

luyong250

如何让脚本输入的数字自动转换成二进制函数，求解。先表谢意

woeiwoei

回复 1# luyong250


    $iup=InputBox("test","test","","",-1,-1,200,300)
$er=Binary($iup)
MsgBox(0,0,$er)

3mile

楼上误导。Binary函数是字符串转二进制数。

Local $binarr[32],$n=0,$yu
$number=InputBox("输入", "输入要转换的数字", "正整数")
bin($number)
MsgBox(0,0,$yu)
Func bin($number)
    Do
        $binarr[$n]=Mod($number,2)
        $number=Int($number/2)
        $n+=1
    Until $number=0
    For $i=31 To 0 Step -1
        $NumberToBinary=$binarr[$i]
        If $NumberToBinary='' Then $NumberToBinary=0
        $yu&=$NumberToBinary
    Next
    Return $yu
EndFunc

lanfengc

回复 3# 3mile


    典型的‘除二取余倒记法’。

woeiwoei

回复 3# 3mile


    学习了。。。

luyong250

加一说明，如何输入数字，生成二进制的值直接向注册表中写入REG_BINARY的数值数据

luyong250

不好意思，加一点加一说明，如何输入数字字母和符号，生成二进制的值直接向注册表中写入REG_BINARY的数值数据

3mile

伸手党？
传送门--http://www.autoitx.com/Doc/html/functions/regwrite.htm

rikthhpgf2005

多看帮助！！！！

luyong250

$iup=InputBox("test","test","","",-1,-1,200,300)
$iup1=Binary($iup)
InputBox("test","test",$iup1,"",-1,-1,200,300)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Ratings","Key","REG_BINARY",$iup1)
这样写转换不对，key值不是我输入数字转换进去的二进制值
这个KEY值是IE加密密码，

luyong250

回复 7# luyong250

谢谢你3mile
这样写转换不对，key值不是我输入数字转换进去的二进制值
这个KEY值是IE加密密码
Local $binarr[32],$n=0,$yu

$number=InputBox("输入", "输入要转换的数字", "正整数")

bin($number)

MsgBox(0,0,$yu)

Func bin($number)

    Do

        $binarr[$n]=Mod($number,2)

        $number=Int($number/2)

        $n+=1

    Until $number=0

    For $i=31 To 0 Step -1

        $NumberToBinary=$binarr[$i]

        If $NumberToBinary='' Then $NumberToBinary=0

        $yu&=$NumberToBinary

    Next

    Return $yu

EndFunc

RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Ratings","Key","REG_BINARY",$yu)

3mile

回复  luyong250

谢谢你3mile
这样写转换不对，key值不是我输入数字转换进去的二进制值
这个KEY值是I ...
luyong250 发表于 2010-7-13 10:18

很简单的问题吧！看下帮助完全可以自己完成的。