论坛 › 『 提问交流 』 › 数字转二进制函数？

luyong250 发表于 2010-7-11 22:55:02

数字转二进制函数？

如何让脚本输入的数字自动转换成二进制函数，求解。先表谢意{:face (270):}

woeiwoei 发表于 2010-7-11 23:06:54

回复 1# luyong250


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

3mile 发表于 2010-7-12 09:35:26

楼上误导。Binary函数是字符串转二进制数。Local $binarr,$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 发表于 2010-7-12 10:01:27

回复 3# 3mile


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

woeiwoei 发表于 2010-7-12 10:09:38

回复 3# 3mile


    学习了。。。{:face (361):}

luyong250 发表于 2010-7-13 00:32:40

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

luyong250 发表于 2010-7-13 00:34:30

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

3mile 发表于 2010-7-13 09:04:28

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

rikthhpgf2005 发表于 2010-7-13 09:09:55

多看帮助！！！！

luyong250 发表于 2010-7-13 09:48:50

$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 发表于 2010-7-13 10:18:01

回复 7# luyong250

谢谢你3mile
这样写转换不对，key值不是我输入数字转换进去的二进制值
这个KEY值是IE加密密码
Local $binarr,$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 发表于 2010-7-13 10:33:49

回复luyong250

谢谢你3mile
这样写转换不对，key值不是我输入数字转换进去的二进制值
这个KEY值是I ...
luyong250 发表于 2010-7-13 10:18 http://www.autoitx.com/images/common/back.gif
很简单的问题吧！看下帮助完全可以自己完成的。

查看完整版本: 数字转二进制函数？