Here it is, you just type _binary($numberthatyouwanttoconverttobinary)
;binary app
#include <String.au3>
_binary(109)
Func _binary($num) ;converts a number to binary!
dim $string = ""
Do
$num = $num/2
if(floor($num) = $num) then
$string = $string & "0"
Else
$string = $string & "1"
$num -= .5
EndIf
Until ($num = 0)
$string = _stringreverse($string)
msgbox(0, "Binary", $string)
EndFunc