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
