MXS Server Skins / Tracks Tool

[shorty97]

Hey,

I have created a tool that automatically downloads the required tracks and skins to join certain servers.

I need you guys to add servers to the list

so here it is

(link removed - jlv)

let me know what u think

Thanks

[shorty97]

Sorry Typed Link Wrong

(Link removed - jlv)

[Mbutler183]

IDK about this

[shorty97]

I promise you it isnt a trojan

Public Class Form1
Dim selectedname As String
Dim selectedip As String
Dim APPDATA As String = My.Computer.FileSystem.GetFileInfo(My.Computer.FileSystem.GetFileInfo(My.Computer.FileSystem.GetFileInfo(Application.LocalUserAppDataPath).DirectoryName).DirectoryName).DirectoryName
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
load()
End Sub
Sub load()
On Error Resume Next
Dim readline As String
Dim ip As String
Dim done As Boolean
done = False
My.Computer.Network.DownloadFile("http://dl.dropbox.com/u/26383964/msst.txt", My.Computer.FileSystem.SpecialDirectories.Temp & "\msst.txt", "", "", False, 10000, True)
Dim reader As New System.IO.StreamReader(My.Computer.FileSystem.SpecialDirectories.Temp & "\msst.txt")
Do Until done = True
readline = reader.ReadLine
ip = reader.ReadLine
If readline = "" Then
done = True
End If
If done = False Then
ListView1.Items.Add(readline).SubItems.Add(ip)
End If
Loop
MsgBox("Done")
End Sub

Private Sub RefreshToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RefreshToolStripMenuItem.Click
load()
End Sub

Private Sub JoinServerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JoinServerToolStripMenuItem.Click
selectedname = ListView1.SelectedItems(0).Text
selectedip = ListView1.SelectedItems(0).SubItems(1).Text
MsgBox("You will be connected to server once tracks and skins have been downloaded." & Chr(13) & Chr(10) & "Click Ok to Begin Downloading")
downloader1.RunWorkerAsync()
End Sub

Private Sub downloader1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles downloader1.DoWork
On Error Resume Next
Dim done As Boolean
Dim readline As String
Dim readline2 As String
done = False
My.Computer.Network.DownloadFile("http://dl.dropbox.com/u/26383964/" & selectedname & ".txt", My.Computer.FileSystem.SpecialDirectories.Temp & "/" & selectedname & ".txt", "", "", False, 10000, True)
Dim reader As New System.IO.StreamReader(My.Computer.FileSystem.SpecialDirectories.Temp & "/" & selectedname & ".txt")
Do Until done = True
readline = reader.ReadLine
readline2 = reader.ReadLine
If readline = "" Then
done = True
End If
If done = False Then
My.Computer.Network.DownloadFile(readline, APPDATA & "/MX Simulator/" & readline2, "", "", False, 10000, True)
End If
Loop
Process.Start("mxsimulator:" & selectedip)
End Sub

Private Sub RemoveServerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RemoveServerToolStripMenuItem.Click
MsgBox("Please send a email to shorty97@live.com.au with the server name and ip and the reason to remove the server from the list")
End Sub

Private Sub AddAServerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddAServerToolStripMenuItem.Click
Form2.Show()
End Sub
End Class

Thats the source code and here is a screenshot

[shorty97]

wrong link again

[rewrew421]

anybody try this yet?

[Justin653]

nope

[Mikey]

Yes!! This is badass bro, no more fucking around with IPs that get removed form list, so sick dude gj!

[Mikey]

Oh only 02 lol, have to wait for it to be accepted.

[Baboobeats]

Yes!! This is badass bro, no more fucking around with IPs that get removed form list, so sick dude gj!

So this works or are you trolling? im not sure if i wanna download this.

[mx4life]

I dled it and now my keys gone. The fuck.

[jlv]

FYI, "shorty97" also has an account on this site with the username "thehacker".

[mx4life]

i sent pm

[Mikey]

Sweet, i guess my key will be gone when i go home. Would of been such a convenient program too

[mx4life]

I know. Wtf