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

[Darki1]

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.

[Um Links zu sehen registriere dich bitte. Klicke hier.]

DL für Tool [Um Links zu sehen registriere dich bitte. Klicke hier.]
Für Leute die mir nicht trauen leg ich den Source Code mitbei ....

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
End Class

Comments können gepostet werden.

[Sacred]

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.

[Um Links zu sehen registriere dich bitte. Klicke hier.]

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

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

End Class

Comments können gepostet werden.

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

[Darki1]

Werde eh überlegen ob ich davon Versionen mache. Aber ich werde das umschreiben danke für den Tipp , doch Telnet verliert nicht so schnell die Verbindung und mehr.

[Kaev]

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. (:

[seenx]

nice