Hallo ich biete hier meinen Treasure Creator v0.1 an
Screen:
Beweis das ich accs von euch nicht stehle:
Quote:
Option Strict On
Option Explicit On
Imports System.Text
Imports System.Threading
Imports System.Text.RegularExpressions
Public Class frmMain
#Region "Declarations"
Dim logger As Utility.Logger = Nothing
Dim epvp As Utility.Http = Nothing
Dim post As StringBuilder = Nothing
Dim html As String = String.Empty
Dim workThread As Thread = Nothing
#End Region
#Region "GUI"
Public Sub New()
InitializeComponent()
logger = New Utility.Logger
End Sub
Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
logger.Log(lbLogs, "Welcome to EPVP - Treasure Creator v1.2 (by Gigaviews)!")
End Sub
Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
If txtUsername.Text <> "" Then
If txtPassword.Text <> "" Then
Login(txtUsername.Text, txtPassword.Text)
Else
MessageBox.Show("Please enter your password!", "Password", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
Else
MessageBox.Show("Please enter your username!", "Username", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub
Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
If txtTitle.Text <> "" AndAlso txtTitle.TextLength >= 4 Then
If rtbContent.Text <> "" AndAlso rtbContent.TextLength >= 4 Then
Create(txtTitle.Text, rtbContent.Text, CInt(numCost.Value), CInt(numAmount.Value))
Else
MessageBox.Show("The content you've entered is too short (4 characters minimum).", "Content", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
Else
MessageBox.Show("The title you've entered is too short (4 characters minimum).", "Title", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub
|
Hinweis: Der Creator kann unendlich viele erstelle aber nach jeder treasure wartet er 15 sek + alle Updates sind enthalten
Preis: 125 eg
Für trusters nur 75eg
Farbbedeutung:
Rot= Gekauft |
Grün= Frei |
Orange= Reserviert |
Normal:
Truster:
AUF WUNSCH VIDEO VORFÜHRUNG