[b]Go fishing at Pokertracker and take them home[/b]

1. Pokertracker / Ring Games Stats / Preferences: Select Use Player Filters, insert values for VPIP and PFR. You might also choose a specific limit.
2. Summary Tab: Click on the small P (Print) above the player list.
3. A new window pops up. Click on export.
4. Another window pops up. Just select Playername and deselect everything else. Filetypes are separated by commata. Remove hook at Include Headers. Insert file name.
5. Click on Export.


[b]Throw the fishes into your buddy list[/b]

1. Save the script (below) with any name but with the suffix .vbs into the same directory where your exported Pokertracker-file is.
2. Start your Eurobet Software and run the script.
3. This will be yummy - I bet. :D


In order to get the script running, Windows Scripting Host has to be activated. It is a security hole, but you can do it while you are not connected to the internet. When you are done you can turn off the Windows Scripting Host right away.

code:
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" 




Written by Stargoose