Darki1;170606 schrieb:

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

Quellcode

1. Imports MySql.Data.MySqlClient
3. Public Class Form1
7. Public con As New MySqlConnection
8. Public cmd As New MySqlCommand
9. Public reader As MySqlDataReader
12. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
13. con.ConnectionString = "server=127.0.0.1;user id=Username;password=*********;database=Charakter"
14. cmd.Connection = con
17. Try
18. con.Open()
19. cmd.CommandText = "select * from gm_tickets"
20. reader = cmd.ExecuteReader
21. Listbox1.Items.Clear()
22. Do While reader.Read
23. ListBox1.Items.Add(reader("message"))
24. Loop
25. reader.Close()
26. con.Close()
27. Catch ex As Exception
28. con.Close()
29. MsgBox(ex.Message)
30. End Try
33. Dim ds As New DataSet
34. Dim dt As New DataTable
35. Dim da As MySqlDataAdapter
36. Dim bs As New BindingSource
38. dt.Clear()
39. ds.Tables.Add(New DataTable)
40. da = New MySqlDataAdapter("select * from gm_tickets", con)
41. da.Fill(dt)
42. Dim cb As New MySqlCommandBuilder(da)
43. bs.DataSource = dt
44. DataGridView1.DataSource = bs
45. End Sub
47. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
48. con.ConnectionString = "server=127.0.0.1;user id=Username;password=*********;database=Charakter"
49. cmd.Connection = con
52. Try
53. con.Open()
54. cmd.CommandText = "select * from gm_tickets"
55. reader = cmd.ExecuteReader
56. ListBox1.Items.Clear()
57. Do While reader.Read
58. ListBox1.Items.Add(reader("message"))
59. Loop
60. reader.Close()
61. con.Close()
62. Catch ex As Exception
63. con.Close()
64. MsgBox(ex.Message)
65. End Try
68. Dim ds As New DataSet
69. Dim dt As New DataTable
70. Dim da As MySqlDataAdapter
71. Dim bs As New BindingSource
73. dt.Clear()
74. ds.Tables.Add(New DataTable)
75. da = New MySqlDataAdapter("select * from gm_tickets", con)
76. da.Fill(dt)
77. Dim cb As New MySqlCommandBuilder(da)
78. bs.DataSource = dt
79. DataGridView1.DataSource = bs
80. End Sub
82. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
83. Me.Close()
84. End Sub

Alles anzeigen

End Class

Comments können gepostet werden.