[VB.NET] Ticket System ohne in WoW Online zu sein

Zitat von Darki1;170606

Hier ein simples Script was ich benutze wenn ich mal kein Bock hab die ganze zeit im WoW Online zu sein.

ACHTUNG: Alle Daten werden in Klarsicht an Mysql gesendet. Deswegen ist es wichtig das Ihr dieses Programm danach nur selber verwendet da man ansonsten eure Daten auslesen kann.

Work in prozess
- Telnet Verbindung um Nachichten zu schicken und zu Empfangen.

Mfg

Ihr braucht dazu MySQL-Connector.

MySQL :: Download Connector/Net

Für Leute die mir nicht trauen leg ich den Source Code mitbei ....

Code

Imports MySql.Data.MySqlClient


Public Class Form1






    Public con As New MySqlConnection
    Public cmd As New MySqlCommand
    Public reader As MySqlDataReader


    
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        con.ConnectionString = "server=127.0.0.1;user id=Username;password=*********;database=Charakter"
        cmd.Connection = con


        
        Try
            con.Open()
            cmd.CommandText = "select * from gm_tickets"
            reader = cmd.ExecuteReader
            Listbox1.Items.Clear()
            Do While reader.Read
                ListBox1.Items.Add(reader("message"))
            Loop
            reader.Close()
            con.Close()
        Catch ex As Exception
            con.Close()
            MsgBox(ex.Message)
        End Try


        
        Dim ds As New DataSet
        Dim dt As New DataTable
        Dim da As MySqlDataAdapter
        Dim bs As New BindingSource


        dt.Clear()
        ds.Tables.Add(New DataTable)
        da = New MySqlDataAdapter("select * from gm_tickets", con) 
        da.Fill(dt)
        Dim cb As New MySqlCommandBuilder(da)
        bs.DataSource = dt
        DataGridView1.DataSource = bs
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        con.ConnectionString = "server=127.0.0.1;user id=Username;password=*********;database=Charakter"
        cmd.Connection = con


        
        Try
            con.Open()
            cmd.CommandText = "select * from gm_tickets"
            reader = cmd.ExecuteReader
            ListBox1.Items.Clear()
            Do While reader.Read
                ListBox1.Items.Add(reader("message"))
            Loop
            reader.Close()
            con.Close()
        Catch ex As Exception
            con.Close()
            MsgBox(ex.Message)
        End Try


        
        Dim ds As New DataSet
        Dim dt As New DataTable
        Dim da As MySqlDataAdapter
        Dim bs As New BindingSource


        dt.Clear()
        ds.Tables.Add(New DataTable)
        da = New MySqlDataAdapter("select * from gm_tickets", con) 
        da.Fill(dt)
        Dim cb As New MySqlCommandBuilder(da)
        bs.DataSource = dt
        DataGridView1.DataSource = bs
    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

Alles anzeigen

End Class

Comments können gepostet werden.

Alles anzeigen

Hau am besten alle E-Mail Clienten rein, Telnet benutzt fast niemand :)

Lass das mit dem MySQL über ein PHP Script laufen.
Das Programm sendet dann z.B. den Betreff und den Text an das Script und das Script packt es dann in die Datenbank.
So bist du auf der sicheren Seite. (:

nice