Steemit AutoIT UDF

Hallo Steemit,

Ich arbeite im Moment an einer UDF für die Sprache AutoIT um mit der Steemit Blockchain zu interagieren. 

Ich würde mich sehr freuen wen sich noch welche dazugesellen und helfen wollen.

Func _Steemit_Connect($URL = "https://gtg.steem.house:8090")

Dim $obj = ObjCreate ("WinHttp.WinHttpRequest.5.1")

$obj.Open("POST", $URL, false)

$obj.SetCredentials(" "," ",0)

$obj.SetRequestHeader("Content-Type", "application/json-rpc")

Return $obj

EndFunc

Func _Steemit_Get_Block($blocknumber,$obj)

Local $Data1='{"id":23,"method":"get_block","params":["'&$blocknumber&'"]}'

$obj.Send($Data1)

$oStatusCode = $obj.Status

Return $obj.ResponseText

EndFunc

Func _Steemit_Get_Dynamic_Global_Properties($obj)

Local $Data1='{"id":7,"method":"get_dynamic_global_properties","params":[]}'

$obj.Send($Data1)

$oStatusCode = $obj.Status

Return $obj.ResponseText

EndFunc

Func _Steemit_GetAccount($name,$obj)

Local $Data1='{ "jsonrpc": "2.0", "method": "get_accounts", "params": [["'&$name&'"]], "id": 99}'

$obj.Send($Data1)

$oStatusCode = $obj.Status

Return $obj.ResponseText

EndFunc

Func _Steemit_GetAccount_Count($obj)

Local $Data1='{"id":7,"method":"get_account_count","params":[]}'

$obj.Send($Data1)

$oStatusCode = $obj.Status

Return $obj.ResponseText

EndFunc

Func _Steemit_Get_Content_Replies($name,$permalink,$obj)

Local $Data1='{"id":20,"method":"get_content_replies","params":["'&$name&'", "'&$permalink&'"]}'

$obj.Send($Data1)

$oStatusCode = $obj.Status

Return $obj.ResponseText

EndFunc

Func _Steemit_Get_Active_Votes($name,$permalink,$obj)

Local $Data1='{"id":12,"method":"get_active_votes","params":[ "'&$name&'", "'&$permalink&'"]}'

$obj.Send($Data1)

$oStatusCode = $obj.Status

Return $obj.ResponseText

EndFunc

Func _Steemit_Get_Content($name,$permalink,$obj)

Local $Data1='{"id":12,"method":"get_content","params":[ "'&$name&'", "'&$permalink&'"]}'

$obj.Send($Data1)

$oStatusCode = $obj.Status

Return $obj.ResponseText

EndFunc

ein Beispiel um es zu benutzen:

Global $con = _Steemit_Connect()

MsgBox(0,"Steemit",_Steemit_GetAccount("killerfreak",$con))

ich Hoffe das ich die Udf noch weiter ausbauen kann