[Request]Spawntool selbst erstellen

[Solution.?]

So, hab das Tool gerade geschrieben, es ist ganz gut möglich

Momentan beziehe ich die IDs aus der Db, werde aber eventuell gleich noch die mobAll auslesen lassen und damit arbeiten, als Alternative

Wenn du das Teil nohc willst, schreibst mich grade in Skype an, ich compile später nen Standalone. Momentan ist es nur in meinem Multi Tool.

Solution.?

[xMinionx]

das heisst man kann keine IDs manuell hinzufügen ?

Ich adde dich nachher wenn ich von der Arbeit komme

[Solution.?]

Doch natürlich, ich habe ja alle Mob IDs aus der Datenbank geladen.

Und was nicht in der DB steht, kann eh nicht gespawnt werden

Solution.?

[xMinionx]

ja nur hat jeder Server ja andere Mobs in der DB

[Solution.?]

Natürlich, da ich aber eine SQL-Config-Datei dabei habe, kann jeder Server owner selbst die mobs in die db laden

Natürlich kannst du das ganze NICHT machen, wenn du keine Rechte auf dem Server hast.

Und wenn du keinen Zugriff auf die DB hast, kannst du die mobAll in das Tool laden, das muss ich aber noch schreiben, die binary reader für die moball hab ich schon.

Solution.?

[mansen01]

VB code
eintragen in ein Timer Tick event

 Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Integer) As Short

If GetAsyncKeyState(Keys.N) Then
            My.Computer.Keyboard.SendKeys("{Enter}")
            My.Computer.Keyboard.SendKeys(Label25.Text & tbanzahl.Text & tbmobs.Text)
            My.Computer.Keyboard.SendKeys("{Enter}")
        End If

label25.text = /summon
tbanzahl.text = textbox Anzahl von monster
tbmobs.text = textbox Monster ID

[Solution.?]

Originally Posted by mansen01

VB code
eintragen in ein Timer Tick event

 Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Integer) As Short

If GetAsyncKeyState(Keys.N) Then
            My.Computer.Keyboard.SendKeys("{Enter}")
            My.Computer.Keyboard.SendKeys(Label25.Text & tbanzahl.Text & tbmobs.Text)
            My.Computer.Keyboard.SendKeys("{Enter}")
        End If

label25.text = /summon
tbanzahl.text = textbox Anzahl von monster
tbmobs.text = textbox Monster ID

Das bringt im leider rein garnichts, wenn ers verstehen will.
Und sowieso: VB? wat?

Solution.?

[AngelSweet]

Warum was neues erfinden wenn es schon so etwas gibt.
Läuft auf EP2 und EP3
Das einzige was auf EP3 nicht geht ist das ItemDrop

[mansen01]

VB = Visual basic
Solution ^^

zum anderen soll er kein Copy Past machen
wenn er lernen will denn muss er erstmal lesen und verstehen
der code ist nur ein mini teil von einem SpawnTool ^^

mit dem code kann der start stop button raus ^^

Mini änderung damit man es etwas besser versteht :

 Spoiler

Public Class Form1

    Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer, ByVal fsModifier As Integer, ByVal vk As Integer) As Integer
    Private Declare Sub UnregisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer)
    Private Const Key_NONE As Integer = &H0
    Private Const WM_HOTKEY As Integer = &H312

    Protected Overrides Sub WndProc(ByRef m As Message)
        'die messages auswerten
        If m.Msg = WM_HOTKEY Then
            'hier wird entschieden welcher hotkey es war
            'einfach die übergebene id auswerten
            Select Case m.WParam
                Case 1
                    SendKeys.Send("{Enter}")
                    'Folgt unser Command zu daten übermittlung 
                    'Label25 = /summon + leertaste
                    ' tbanzahl ist unser anzahl von monstern
                    ' tbmob ist unser mob id 
                    SendKeys.Send(Label25.Text & tbanzahl.Text & tbmobs.Text)
                    ' danach soll wieder enter betätigt werden 
                    'damit wir unser /summon 5 15 Command versenden können 
                    SendKeys.Send("{Enter}")
                Case 2
                    MessageBox.Show("Sie haben die 1 gedrückt!")
            End Select
        End If
        MyBase.WndProc(m)
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        RegisterHotKey(Me.Handle, 1, Key_NONE, Keys.T)
    End Sub

End Class

damit man sich es auch vorstellen kann

[xMinionx]

Hi,

ja das sieht schon mal sehr gut aus leider bin ich immer noch an dem Punkt wo ich nur Bahnhof verstehe so recht will das ganze noch nicht in meinen Kopf :/

[mansen01]

na wo hängt es denn ?
vllt kann ich etwas aushelfen

[xMinionx]

Naja also ich hatte vorhin einfach mal deinen Code kopiert und dann in meinen Timer eingefügt

joa dann habe ich aber immer noch rein garnichts in dem Programmfenster selber zum anklicken usw....

mache das halt wirklich zum ersten mal und ich denke ich tu mich mit den codes usw... sehr schwer

[mansen01]

Ich lade mal mein Project für dich hoch




denn kannst du es testen
funtzt und es kommt nur 1 mal

[xMinionx]

Hi,

danke schonmal muss mir nur eine neuere Version von VB besorgen damit ich das Projekt öffnen kann werds heute nach der Arbeit mal versuchen

[mansen01]

@xMinionx
hier das fertig Tool
MonsterListe per datenbank verbindung