Auto input Buddies (!!script update!!)

[Zapp]

This script update increases performance (it's faster) and does a better job of handling clicking on another app while the script is running.

These first steps are the same as from the first post:

First thing you have to do is create a file that contains the screennames of all of the people you want to add to your buddy list.

You can create this list from Pokertracker. Here's how:
1. On the preferences tab select the criteria you want to use to identify your fishy buddies. I simply check the "Use player filter" box and select the Fish icon from the "Player Icon" drop-down list. (save)
2. On the Summary tab click the little blue P button (Print) above the list of players.
3. On the "Print - Player Performance Summary" dialog click "Export"
4. Make sure the only box checked is "Player | player_name"
5. Select file type "Comma Separated"
6. Uncheck the "Include Headers" box
7. Enter a filename to export (Example: fish.csv)
8. Click the "Export" button

Voila, file created.

Now run the below script and when prompted, enter the name of the file you just created (fish.csv)

You must save the script below (with a .vbs file extention) in the same directory as your fish.csv file.

!!Updated script below!!:
[ QUOTE ]

msgbox "If the Party Poker Buddy List is opened, close it now."
msgbox "Now click ""My Account - > Buddy List"" in Party Poker. Then click OK."
Const ForReading = 1
Const ForWriting = 2
Dim objFS
Dim objFle
dim count
Dim strCurrentLine
count = 0
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFle = objFS.OpenTextFile(InputBox("enter file name to import"), ForReading, True)
Set WshShell = CreateObject("WScript.Shell")
While Not objFle.AtEndOfStream
count = count + 1
strCurrentLine = objFle.ReadLine
while not wshshell.AppActivate("Buddy List")
wscript.sleep 10
wend
wshshell.SendKeys "{ENTER}"
while not wshshell.AppActivate("Buddy ID")
wscript.sleep 10
wend
wshshell.SendKeys strCurrentLine & "{ENTER}"
while (not wshshell.AppActivate("PokerNow.com")) _
and (not wshshell.AppActivate("MultiPoker.com")) _
and (not wshshell.AppActivate("PartyPoker.com")) _
and (not wshshell.AppActivate("IntertopsPoker")) _
and (not wshshell.AppActivate("Coral Eurobet Poker")) _
and (not wshshell.AppActivate("EmpirePoker"))
wscript.sleep 10
wend
wshshell.sendkeys "{ENTER}"
Wend
msgbox "Finished importing " & count & " names into the buddy list"


[/ QUOTE ]

[Zapp]

Can anyone confirm that the script update has improved the import for them?

[effin_a]

Bigtime! Thank you sir!

[TonyM]

just used your script...wow...thanks so much !!!

[FrogMouth]

Sorry for the newbie question, what are you running the script with? Excel?

[A_K]

[ QUOTE ]
Sorry for the newbie question, what are you running the script with? Excel?

[/ QUOTE ]
I believe it runs in the Windows Scripting Host. Just follow his directions, save the .vbs file on your hard drive, double click on it, and windows will run it like any other program.

[Zapp]

[ QUOTE ]
[ QUOTE ]
Sorry for the newbie question, what are you running the script with? Excel?

[/ QUOTE ]
I believe it runs in the Windows Scripting Host. Just follow his directions, save the .vbs file on your hard drive, double click on it, and windows will run it like any other program.

[/ QUOTE ]

Correct. I am including the script here again (no changes have been made) because I just noticed the "Code" tag that allows for indenting so that the code is more readable (for those of you who care).

<font class="small">Code:</font><hr /><pre>msgbox "If the Party Poker Buddy List is opened, close it now."
msgbox "Now click ""My Account - &gt; Buddy List"" in Party Poker. Then click OK."

Const ForReading = 1
Const ForWriting = 2

Dim objFS
Dim objFle
dim count
Dim strCurrentLine

count = 0

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFle = objFS.OpenTextFile(InputBox("enter file name to import"), ForReading, True)
Set WshShell = CreateObject("WScript.Shell")

While Not objFle.AtEndOfStream
count = count + 1
strCurrentLine = objFle.ReadLine
while not wshshell.AppActivate("Buddy List")
wscript.sleep 10
wend
wshshell.SendKeys "{ENTER}"
while not wshshell.AppActivate("Buddy ID")
wscript.sleep 10
wend
wshshell.SendKeys strCurrentLine &amp; "{ENTER}"
while (not wshshell.AppActivate("PokerNow.com")) _
and (not wshshell.AppActivate("MultiPoker.com")) _
and (not wshshell.AppActivate("PartyPoker.com")) _
and (not wshshell.AppActivate("IntertopsPoker")) _
and (not wshshell.AppActivate("Coral Eurobet Poker")) _
and (not wshshell.AppActivate("EmpirePoker"))
wscript.sleep 10
wend
wshshell.sendkeys "{ENTER}"
Wend

msgbox "Finished importing " &amp; count &amp; " names into the buddy list" </pre><hr />

[Lost Wages]

What not just use BuddyCopy?

Lost Wages

[Zapp]

[ QUOTE ]
What not just use BuddyCopy?



[/ QUOTE ]

The script I wrote imports the names into the buddy list much faster than BuddyCopy. That said, I think the features in BuddyCopy are excellent and would use it instead of my script if it were faster at doing the actual import.

I would also like to see buddy importing capabilities added to PokerGrapher since there is already an interface to identify buddies. That would make the process super slick. Just identify buddies in PokerGrapher, click a button and voila, the names are imported into your party skin.

[gasoltub]

Is your script faster than BuddyCopy 1.0? I know the first version (0.2) was slow but the last one is faster.