Get Following and Followers Details via SteemVBS


vbscript Get Following and Followers Details via SteemVBS SteemIt vbscript

vbscript

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.

run_tests Get Following and Followers Details via SteemVBS SteemIt vbscript

steemvbs unit tests

–EOF (The Ultimate Computing & Technology Blog) —

GD Star Rating
loading...
474 words
Last Post: C++ Coding Exercise - Container With Most Water (Recursion)
Next Post: C++ Coding Exercise - Sum of Left Leaves (BFS + DFS + Recursion)

The Permanent URL is: Get Following and Followers Details via SteemVBS

Leave a Reply