Server List Updater
+3
†POKERMAN†
V!sler
TigasingTite
7 posters
Page 1 of 1
Server List Updater
here is a simple serverlist.txt updater.
this will prevent your bot from going top to bottom when selecting server because if the Bot picked a server that is offline, the bot would start to scroll from top to bottom and it won't stop..
Download Here http://www.mediafire.com/?2ih61mig7kh5u8d
you should save the server list to "data\server\serverlist.txt" inside your bot folder
If you don't trust this application
I included the source code so you can compile on your own!
this will prevent your bot from going top to bottom when selecting server because if the Bot picked a server that is offline, the bot would start to scroll from top to bottom and it won't stop..
Download Here http://www.mediafire.com/?2ih61mig7kh5u8d
you should save the server list to "data\server\serverlist.txt" inside your bot folder
If you don't trust this application
I included the source code so you can compile on your own!
- Code:
Imports System.Net
Imports System.IO
Imports System.Text.RegularExpressions
Public Class Form1
Private Sub checkServerStatus()
Dim request As HttpWebRequest = WebRequest.Create("https://zlsn.poker.zynga.com/zlsn/server_status.php")
request.Method = "GET"
On Error GoTo retry
Dim response As WebResponse = request.GetResponse()
Debug.WriteLine(CType(response, HttpWebResponse).StatusDescription)
Dim reader As New StreamReader(response.GetResponseStream)
Dim responseFromServer As String = reader.ReadToEnd()
Dim sr As StringReader = New StringReader(responseFromServer)
Do While sr.Peek() >= 0
Dim m As Match = Regex.Match(sr.ReadLine, "name=(?<name>[^,]+),uCount=(\d*),maxUsers=(\d*),status=OK,id=(\d*),type=normal", RegexOptions.IgnoreCase)
If m.Success Then
If RichTextBox1.Text = "" Then
RichTextBox1.AppendText(m.Groups("name").Value)
Else
RichTextBox1.AppendText(vbNewLine & m.Groups("name").Value)
End If
End If
Loop
Exit Sub
retry:
RichTextBox1.Text = ""
checkServerStatus()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
checkServerStatus()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Using SW As New IO.StreamWriter(SaveFileDialog1.FileName, False)
Dim firstline As Boolean
For Each line As String In RichTextBox1.Lines
If firstline = False Then
SW.Write(line)
firstline = True
Else
SW.Write(vbNewLine & line)
End If
Next
End Using
End If
End Sub
End Class
Re: Server List Updater
WOOO!!! SA WAKAS MAY PINOY NA DIN DITO!!! AHAAHAH
TIGASINGTITE!! ahahahah
TIGASINGTITE!! ahahahah
†POKERMAN†- Posts : 86
Join date : 2012-05-07
Age : 29
Re: Server List Updater
Clever idea to use their own server status script instead of processing on-screen text
locoloco- Posts : 33
Join date : 2012-07-15
Re: Server List Updater
dan me NOD32 block the download -_- so just copy the source? and put anywhere on notepad?
xdreamx- Posts : 4
Join date : 2012-11-19
Re: Server List Updater
Why the zpb keep on searching the Server and never select
xdreamx- Posts : 4
Join date : 2012-11-19
Re: Server List Updater
any update for this zynga server list is now 89 lol the updater says 81 server
gabrielle1- Posts : 8
Join date : 2012-03-31
Similar topics
» Updated Server List
» server list up to 2012/4/7
» Tip for server
» Having Trouble selecting Server
» finding server issues
» server list up to 2012/4/7
» Tip for server
» Having Trouble selecting Server
» finding server issues
Page 1 of 1
Permissions in this forum:
You cannot reply to topics in this forum