Need Help

Dayclone · February 12, 2004, 04:29 PM

Hello, I don't know exactly how to do this but. WHne i try connecting my bot it Connects then Disconnects does anyone know what mgiht cause this problem? and I'm using hashes. Too complicated to work with BNLS. Please help thanks.

effect · February 12, 2004, 04:30 PM

Im so good at solving unspecific problems , let me just load up my ESP

dude show some code , tell us whats going on when you are trying to connect , what your sending etc.

Dayclone · February 12, 2004, 06:17 PM

What kinda coding you want lol I got lots theirs packetclass gameclass config classs and loginclass and a public module.

effect · February 12, 2004, 06:26 PM

The code that is revolving around where you are getting your area?

How long into your connection till u get an error? w

What are you doing when you get the error?

What are you sending to battle.net when you get the error?

What are you receiving from battle.net when you get the error?

Dayclone · February 12, 2004, 06:37 PM

Well I dunno what i'm sending or reciving but I can show you my codes to everything if you want and it's like instantly when i connect the bot.

UserLoser. · February 12, 2004, 06:41 PM

Quote from: Dayclone on February 12, 2004, 06:37 PM
Well I dunno what i'm sending or reciving but I can show you my codes to everything if you want and it's like instantly when i connect the bot.

Then it's not your code

Try using a packet logger, and see everything that's being sent between the connection

Dayclone · February 12, 2004, 06:42 PM

I can show you everything in my coding if you want but it's gonna be long.

effect · February 12, 2004, 06:42 PM

Add some error handling to your code and pin-point exactly where your bot stops then post up that code segment if you cant figure it out yourself.

Dayclone · February 12, 2004, 06:47 PM

See if you look under my name it says i'm a newbie, I hope you don't mind helping me out. How do i add a error handler to it?

effect · February 12, 2004, 06:51 PM

I dont mind helping you out otherwise i wouldnt of posted at all.

I sometimes just add stuff to my RTB so i can pinpoint where / what is getting done.

eg When an event fires off just add

Addchat "EventName Fired now" , vbred etc , you could use a number of things to accomplish this task.

So on your Socket.Connect event , Output something thats says you have successfully connected , when ever you send or receieve something add it to your RTB and so forth. This way you can pin-point shit happening in Real Time.

Dayclone · February 12, 2004, 06:54 PM

RTB?

Ok I get the connected message then this is the coding for what apperas next

Code Select

Private Sub Socket_Close(Index As Integer)

    Socket(Index).Close
    
    Display OutputText(Index), True, True, vbRed, "Disconnected"
    
End Sub

Newby · February 12, 2004, 07:00 PM

Quote from: Dayclone on February 12, 2004, 06:37 PM
Well I dunno what i'm sending or reciving but I can show you my codes to everything if you want and it's like instantly when i connect the bot.

I guess you found Shadowbot?

Show us some CODING

On what happens on connect

What header you send / what packet you send.

Debug.Print is very good too.

effect · February 12, 2004, 07:02 PM

your RichTextBox

that isnt the cause of your problem thought , something is causing that to fire.

If you are using the binary interface then possibly your version byte? there could be a number of things a miss , and its kind of hard for me to even speculate without getting some decent feedback.

Dayclone · February 12, 2004, 07:03 PM

No it's a winbot lol here's the coding.

Code Select

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal numbytes As Long)

Private Buffer As String

Public Function InsertDWORD(Data As Long)

    Buffer = Buffer & MakeDWORD(Data)
    
End Function

Public Function InsertWORD(Data As Integer)

    Buffer = Buffer & MakeWORD(Data)
    
End Function

Public Function InsertBYTE(Data As Integer)

    Buffer = Buffer & Chr(Data)
    
End Function

Public Function InsertNTString(Data As String)

    Buffer = Buffer & Data & Chr(0)
    
End Function

Public Function InsertNonNTString(Data As String)

    Buffer = Buffer & Data
    
End Function

Function MakeDWORD(Value As Long) As String

    Dim Result As String * 4
    CopyMemory ByVal Result, Value, 4
    MakeDWORD = Result
    
End Function

Function MakeWORD(Value As Integer) As String

    Dim Result As String * 2
    CopyMemory ByVal Result, Value, 2
    MakeWORD = Result
    
End Function

Public Function Clear()

    Buffer = ""
    
End Function

Public Function SendPacket(Index As Integer, PacketID As Byte)

    If MainForm.Socket(Index).State <> sckConnected Then: Exit Function
    
    MainForm.Socket(Index).SendData Chr(&HFF) & Chr(PacketID) & MakeWORD(Len(Buffer) + 4) & Buffer
    Clear

End Function

Public Function SendAuthPacket(PacketID As Byte)

    If MainForm.AuthSocket.State <> sckConnected Then: Exit Function
    
    MainForm.AuthSocket.SendData Chr(PacketID) & Buffer
    Clear

End Function

This is all the packetsclass

Eli_1 · February 13, 2004, 02:27 PM

...Useless $:-\$

Valhalla Legends Archive

Need Help

Dayclone

effect

Dayclone

effect

Dayclone

UserLoser.

Dayclone

effect

Dayclone

effect

Dayclone

Newby

effect

Dayclone

Eli_1