SteemVBS is the first Steem Library written in VBScript. Yes, it is VBScript. 😉
SteemVBS
VBScript is still being used nowadays, especially on windows platforms. You can do so much thing using VBScript. The aim of the SteemVBS is to provide a few useful functions that connect Network Adminstrators or MS Officer users (via VBA) to Steem Blockchain.
Fully open source: https://github.com/DoctorLai/steemvbs
Submit PR or Issue.
GetAccount_Recovery
1 2 3 4 5 6 7 8 9 | Dim SteemIt Set SteemIt = New Steem Dim re re = SteemIt.GetAccount_Recovery("justyy") AssertTrue re = "steem", "justyy's account recovery is not steem." Set SteemIt = Nothing |
Dim SteemIt Set SteemIt = New Steem Dim re re = SteemIt.GetAccount_Recovery("justyy") AssertTrue re = "steem", "justyy's account recovery is not steem." Set SteemIt = Nothing
GetAccount_Followers
1 2 3 4 5 6 7 8 9 10 11 12 13 | Dim SteemIt Set SteemIt = New Steem Dim Util Set Util = New Utility Dim followers followers = SteemIt.GetAccount_Followers("justyy") AssertTrue Util.InArray("ericet", followers), "ericet should follow justyy" Set SteemIt = Nothing Set Util = Nothing |
Dim SteemIt Set SteemIt = New Steem Dim Util Set Util = New Utility Dim followers followers = SteemIt.GetAccount_Followers("justyy") AssertTrue Util.InArray("ericet", followers), "ericet should follow justyy" Set SteemIt = Nothing Set Util = Nothing
GetAccount_Following
1 2 3 4 5 6 7 8 9 10 11 12 13 | ' test GetAccount_Following Dim SteemIt Set SteemIt = New Steem Dim Util Set Util = New Utility Dim followers followers = SteemIt.GetAccount_Following("justyy") AssertTrue Util.InArray("abit", followers), "justyy should follow abit" AssertTrue Util.InArray("ericet", followers), "justyy should follow ericet" |
' test GetAccount_Following Dim SteemIt Set SteemIt = New Steem Dim Util Set Util = New Utility Dim followers followers = SteemIt.GetAccount_Following("justyy") AssertTrue Util.InArray("abit", followers), "justyy should follow abit" AssertTrue Util.InArray("ericet", followers), "justyy should follow ericet"
GetAccount_FollowingCount And GetAccount_FollowersCount
1 2 3 4 5 6 7 8 9 10 | Dim SteemIt Set SteemIt = New Steem Dim c1, c2 c1 = SteemIt.GetAccount_FollowingCount("justyy") c2 = SteemIt.GetAccount_FollowersCount("justyy") AssertTrue c1 < c2, "GetAccount_FollowingCount < GetAccount_FollowersCount" AssertTrue c1 > 100, "GetAccount_FollowingCount > 100" AssertTrue c2 > 100, "GetAccount_FollowersCount > 100" |
Dim SteemIt Set SteemIt = New Steem Dim c1, c2 c1 = SteemIt.GetAccount_FollowingCount("justyy") c2 = SteemIt.GetAccount_FollowersCount("justyy") AssertTrue c1 < c2, "GetAccount_FollowingCount < GetAccount_FollowersCount" AssertTrue c1 > 100, "GetAccount_FollowingCount > 100" AssertTrue c2 > 100, "GetAccount_FollowersCount > 100"
GetAccount_FollowersMVest
The function returns the total SP (M Vests) of all your followers.
1 2 3 4 5 6 | Dim SteemIt Set SteemIt = New Steem Dim c1, c2 c1 = SteemIt.GetAccount_FollowersMVest("justyy") AssertTrue c1 > 154101235.57696211338, "GetAccount_FollowersMVest > 154101235" |
Dim SteemIt Set SteemIt = New Steem Dim c1, c2 c1 = SteemIt.GetAccount_FollowersMVest("justyy") AssertTrue c1 > 154101235.57696211338, "GetAccount_FollowersMVest > 154101235"
Unit Tests
Unit tests can be run via e.g.
cscript.exe /Nologo tests.wsf tests\test_blababa.vbs
or you can call run_tests.cmd to run all tests in the test folder tests.
–EOF (The Ultimate Computing & Technology Blog) —
GD Star Rating
loading...
474 wordsloading...
Last Post: C++ Coding Exercise - Container With Most Water (Recursion)
Next Post: C++ Coding Exercise - Sum of Left Leaves (BFS + DFS + Recursion)