Here's my first program. What do you ppl think about it?
PROGRAMM LOCATED HERE
Here's my first program. What do you ppl think about it?
PROGRAMM LOCATED HERE
bit unneeded though since it are such easy lines to edit in notepadOriginally Posted by Virus scan
well done
I made it just for fun and study. First program tho.
SA MP = San Andreas MultiPlayer? Or what? Sorry I really don't know what it means.
Yes. SanAndreas-MultiPlayer
Looks good for a beginner program =]
More information for those who don't wanna download please?
Generates a Server configuration file for SanAndreas - multiplayer
Im gonna try it, by the way no virus in this program
scanned with kaspersky - CLEAN
Ok,thanks.
I don't know much about SA:MP, but whats the server configuration file for?
For the hoster server files, it tells the server the details of configuration.
Lol it wont have virus bacause its coded in about 40 lines xD
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms
Namespace SA_MP_Config_Generator
Public Partial Class Form1
Inherits Form
Public Sub New()
InitializeComponent()
End Sub
Private Sub generatebtn_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim output As String = "echo Executing Server Config..." & vbCr & vbLf & " lanmode 0" & vbCr & vbLf & " rcon_password changeme" & vbCr & vbLf & " maxplayers 64" & vbCr & vbLf & " port 7777" & vbCr & vbLf & " hostname Unnamed 0.2X Server" & vbCr & vbLf & " gamemode0 lvdm 1" & vbCr & vbLf & " filterscripts adminspec vactions" & vbCr & vbLf & " announce 1" & vbCr & vbLf & " query 1" & vbCr & vbLf & " weburl www.ragezone.com" & vbCr & vbLf & " anticheat 0".Replace("Unnamed 0.2X Server", servernametxt.Text).Replace("7777", serverporttxt.Text).Replace("64", mplayerscboBox.Text).Replace("changeme", adminpasstxt.Text).Replace("www.ragezone.com", weburltxt.Text)
Dim output2 As String = output
If lansrvchkbox.Checked Then
output2.Replace("lanmode 0", "lanmode 1")
End If
Dim output3 As String = output2
If anticchkbox.Checked Then
output3.Replace("anticheat 0", "anticheat 1")
End If
outputtxt.Text = output3
End Sub
End Class
End Namespace
or in C# which was what i made it in the converted to vb:
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
namespace SA_MP_Config_Generator
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
private void generatebtn_Click(object sender, EventArgs e)
{
string output =
@"echo Executing Server Config...
lanmode 0
rcon_password changeme
maxplayers 64
port 7777
hostname Unnamed 0.2X Server
gamemode0 lvdm 1
filterscripts adminspec vactions
announce 1
query 1
weburl www.ragezone.com
anticheat 0"
.Replace("Unnamed 0.2X Server", servernametxt.Text)
.Replace("7777", serverporttxt.Text)
.Replace("64", mplayerscboBox.Text)
.Replace("changeme", adminpasstxt.Text)
.Replace("www.ragezone.com", weburltxt.Text);
string output2 = output;
if (lansrvchkbox.Checked)
{
output2.Replace("lanmode 0", "lanmode 1");
}
string output3 = output2;
if (anticchkbox.Checked)
{
output3.Replace("anticheat 0", "anticheat 1");
}
outputtxt.Text = output3;
}
}
}
Wrap it in code tags!
PHP Code:Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms
Namespace SA_MP_Config_Generator
Public Partial Class Form1
Inherits Form
Public Sub New()
InitializeComponent()
End Sub
Private Sub generatebtn_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim output As String = "echo Executing Server Config..." & vbCr & vbLf & " lanmode 0" & vbCr & vbLf & " rcon_password changeme" & vbCr & vbLf & " maxplayers 64" & vbCr & vbLf & " port 7777" & vbCr & vbLf & " hostname Unnamed 0.2X Server" & vbCr & vbLf & " gamemode0 lvdm 1" & vbCr & vbLf & " filterscripts adminspec vactions" & vbCr & vbLf & " announce 1" & vbCr & vbLf & " query 1" & vbCr & vbLf & " weburl www.ragezone.com" & vbCr & vbLf & " anticheat 0".Replace("Unnamed 0.2X Server", servernametxt.Text).Replace("7777", serverporttxt.Text).Replace("64", mplayerscboBox.Text).Replace("changeme", adminpasstxt.Text).Replace("www.ragezone.com", weburltxt.Text)
Dim output2 As String = output
If lansrvchkbox.Checked Then
output2.Replace("lanmode 0", "lanmode 1")
End If
Dim output3 As String = output2
If anticchkbox.Checked Then
output3.Replace("anticheat 0", "anticheat 1")
End If
outputtxt.Text = output3
End Sub
End Class
End Namespace
or in C# which was what i made it in the converted to vb:
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
namespace SA_MP_Config_Generator
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
private void generatebtn_Click(object sender, EventArgs e)
{
string output =
@"echo Executing Server Config...
lanmode 0
rcon_password changeme
maxplayers 64
port 7777
hostname Unnamed 0.2X Server
gamemode0 lvdm 1
filterscripts adminspec vactions
announce 1
query 1
weburl www.ragezone.com
anticheat 0"
.Replace("Unnamed 0.2X Server", servernametxt.Text)
.Replace("7777", serverporttxt.Text)
.Replace("64", mplayerscboBox.Text)
.Replace("changeme", adminpasstxt.Text)
.Replace("www.ragezone.com", weburltxt.Text);
string output2 = output;
if (lansrvchkbox.Checked)
{
output2.Replace("lanmode 0", "lanmode 1");
}
string output3 = output2;
if (anticchkbox.Checked)
{
output3.Replace("anticheat 0", "anticheat 1");
}
outputtxt.Text = output3;
}
}
}
Im with you now.
Reply With Quote![[C#][SA-MP Config Generator]My first program](http://ragezone.com/hyper728.png)