Server List Updater

Go down

Server List Updater

Post by TigasingTite on Mon Jul 02, 2012 3:34 am

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 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
avatar
TigasingTite

Posts : 20
Join date : 2012-06-29
Age : 104
Location : 대구광역시청

View user profile http://www.facebook.com/teamlagutok

Back to top Go down

Re: Server List Updater

Post by V!sler on Mon Jul 02, 2012 8:35 am

Thanks you
Really helpful program Smile
Best regards

V!sler
Admin
Admin

Posts : 361
Join date : 2012-03-24

View user profile http://pokerbot.forumotion.com

Back to top Go down

Re: Server List Updater

Post by †POKERMAN† on Mon Jul 02, 2012 1:08 pm

WOOO!!! SA WAKAS MAY PINOY NA DIN DITO!!! AHAAHAH


TIGASINGTITE!! ahahahah Very Happy

†POKERMAN†

Posts : 86
Join date : 2012-05-07
Age : 23

View user profile

Back to top Go down

Re: Server List Updater

Post by locoloco on Tue Jul 17, 2012 10:51 pm

Clever idea to use their own server status script instead of processing on-screen text

locoloco

Posts : 33
Join date : 2012-07-15

View user profile

Back to top Go down

Re: Server List Updater

Post by surcalifas on Sun Aug 05, 2012 5:11 am

certified cebuano

surcalifas

Posts : 39
Join date : 2012-07-31

View user profile

Back to top Go down

Re: Server List Updater

Post by xdreamx on Mon Nov 19, 2012 4:14 am

dan me NOD32 block the download -_- so just copy the source? and put anywhere on notepad?

xdreamx

Posts : 4
Join date : 2012-11-19

View user profile

Back to top Go down

Re: Server List Updater

Post by xdreamx on Thu Nov 22, 2012 9:21 am

Why the zpb keep on searching the Server and never select

xdreamx

Posts : 4
Join date : 2012-11-19

View user profile

Back to top Go down

Re: Server List Updater

Post by gabrielle1 on Fri Mar 29, 2013 4:12 pm

any update for this zynga server list is now 89 lol the updater says 81 server

gabrielle1

Posts : 8
Join date : 2012-03-31

View user profile

Back to top Go down

Re: Server List Updater

Post by Sponsored content


Sponsored content


Back to top Go down

Back to top


 
Permissions in this forum:
You cannot reply to topics in this forum