VB/VB.Net [projet] µtools et µBot

Inscrit
26 Juin 2011
Messages
11
Reactions
0
#1
Bonjour a tous,
je me lance actuellement dans la création de bot : _
Le projet µBot serrais un bot en Socket qui permettrais de faucher, combattre, etc.... | J'utilise La DLL de Raphy
Et le projet µTools don la v1 sort aujourd'hui permettras de créer un compte et un perso. -|Si ca le dérange je supprime le post
--

Etat d'µBot :
Connexion serveur : 100%
sélection dernier serveur : 100%
sélection dernier perso : 100%
réception message : 100%
Envoie message : 25%
Déplacement : 0%
fauchage : 0%
Combat : 0%

Etat d'µTools :
Connexion serveur : 100%
sélection dernier serveur : 100%
Création personnage(avec les couleur par default) : 100%
Générateur de nom de perso : 100%(Celui de D*f*s)

µTools V1 :
Vue Général :


Vue De L'onglet Log :


Vue De Créer un perso(avec un nom Générer) :


Vue Général un Fois Connecter :


Télécharger µTools V1
Change Log :
µTools V1 :
Connexion et Création de perso avec couleur par default
 

4R7Y

Contributeur
Inscrit
6 Mars 2011
Messages
213
Reactions
0
#3
Salut, bonne chance pour ton projet !
J'ai quand même un doute sur le faite que tu puisses aller loin en utilisant la DLL de raphy, autant que tu fasses tout par toi même, cette DLL est bien pour débuter je trouve (on maîtrise ma grand chose avec)
 
A

Anonymous

Invité
#4
Bonjour !

Bon projet, je peux te conseiller d'ajouter sur ton tool, comme je l'ai fait sur mon bot, qu’après la création tu fasse descendre le personnage jusqu'à Astrub
 
Inscrit
26 Juin 2011
Messages
11
Reactions
0
#5
a oui ça serait une bonne idée pour astrub sinon merci de vos encouragement
 
Inscrit
26 Juin 2011
Messages
11
Reactions
0
#6
4R7Y a dit:
Salut, bonne chance pour ton projet !
J'ai quand même un doute sur le faite que tu puisses aller loin en utilisant la DLL de raphy, autant que tu fasses tout par toi même, cette DLL est bien pour débuter je trouve (on maîtrise ma grand chose avec)
Voila quand J'essaye avec se que tu ma donner ça me donne ca :
recu : id = 1, taille = 8

0x
00
05
08
00
00
05
5B
00


recu : id = 3, taille = 35

0x
00
0D
23
01
00
20
4F
55
6E
75
63
7C
2B
73
3B
37
24
58
38
58
76
27
44
28
37
6A
4D
49
5C
6A
57
70
4C
2F
43


parsing() ReadByte -> La référence d'objet n'est pas définie à une instance d'un objet.
voici ma case :
Select Case ID
Case 1 'Connexion réussie ?
Case 3 'Là tu dois envoyer les logs
Dim connectionType As Integer = reader.ReadByte()
Dim key As String = reader.ReadString()
Dim aux As String = Utils.Md5.Hash(TXT_MDP.Text)
Dim passcrypt As String = Utils.Md5.Hash(aux & key)
Dim version As New Types.Version
Dim ida As New IdentificationMessage
Dim writer As New DataWriter.DataWriter
version.Major = 2
version.Minor = 3
version.Release = 7
version.Revision = 35100
version.BuildType = 0
version.Patch = 0
ida.Version = version
ida.Login = TXT_NDC.Text
ida.Password = passcrypt
ida.Autoconnect = True
ida.Certificate = List(Of TrustCertificate)()
ida.Serialization(writer)
writer.Send(4)
Case 42 'Reception du serveur de jeu : on déconnecte la socket connxion et on récupère tocket/IP

Case Else
Console.WriteLine("Non Implémenté : " & ID)
End Select
 

4R7Y

Contributeur
Inscrit
6 Mars 2011
Messages
213
Reactions
0
#7
Il te faut Sothink decompiler pour regarder les fichiers As de D.Invoker. Ensuite tu traduits As => Vb et grace à la fonction 'init' des class tu peux le faire plus facilement
Ex:
Code:
 Case 3 'HelloConnectMessage
                ID_Message = New Network.Messages.Connection.HelloConnectMessage
                ID_Message.Unpack(PacketData)
   
                Dim key = ID_Message.key
 
                Dim Account As String = Me._NDC
                Dim Password As String = Me._MDP
                Dim temps = Utils.Md5.Hash(Password)
                Dim PassCrypt As String = Utils.Md5.Hash(temps & key)
   
                Dim Version_ As New Types.Version.Version
                Version_.initVersion(2, 3, 7, 46207, 1, 0)

                _Form.RTB_CHAT.Invoke(AddTextConnexion, "############ Clef : " & key & " ############", Color.Blue)
                Dim Certificates As New List(Of Network.Types.Secure.TrustCertificate)

                Dim Message As New Network.Messages.Connection.IdentificationMessage
                Message.initIdentificationMessage(Version_, Account, PassCrypt, Certificates, True)
                Message.pack(_socket_Connexion)
                _Form.LB_STATE.Invoke(LabelState, "En Connexion", Color.DarkOrange)
                _Form.RTB_CHAT.Invoke(AddTextConnexion, "############ Envoie des Identifiants ... ############", Color.Green)
 
A

Anonymous

Invité
#8
C'est sûr que tu désires faire tout ce dont tu as cité, avec D2Com tu ne pourras pas avoir une maîtrise totale de ton projet.
Va falloir tôt ou tard que tu puisses comprendre par toi même :)

Ceci dit, bonne chance pour ton projet ;)
 

soso6o

Contributeur
Inscrit
6 Mai 2011
Messages
108
Reactions
0
#9
Le createur de perso ne fonctionne pas chez moi :(
 

Shornaal

Membre Actif
Inscrit
17 Février 2011
Messages
194
Reactions
0
#11
Rajoute une petite form pour pouvoir configurer la version, ce serait bête que ton tool tombe dans l'oubli ! Surtout qu'il peut se révéler utile, moi-même j'aimerais bien intégrer un créateur de personnage dans mon projet. :p
 

ToOnS

Membre Actif
Inscrit
8 Avril 2009
Messages
974
Reactions
0
#12
pour la version si elle est depassée on peu la recuperer et reinjecter , ca evite a l'utilisateur d'entrer la version
Code:
                Case 21
                    ID_Message = New Messages.Connection.IdentificationFailedForBadVersionMessage
                    ID_Message.Deserialize(PacketData)
                    INI.Write("Version", "Major", ID_Message.RequiredVersion.Major)
                    INI.Write("Version", "Minor", ID_Message.RequiredVersion.Minor)
                    INI.Write("Version", "Release", ID_Message.RequiredVersion.Release)
                    INI.Write("Version", "Revision", ID_Message.RequiredVersion.Revision)
                    INI.Write("Version", "Patch", ID_Message.RequiredVersion.Patch)
                    INI.Write("Version", "BuildType", ID_Message.RequiredVersion.BuildType)
                    MySock.Disconnect()
                    hello()
 

Shornaal

Membre Actif
Inscrit
17 Février 2011
Messages
194
Reactions
0
#13
Oh, je ne savais même pas ça ! C'est génial ! Merci ToOns ! :o
 

soso6o

Contributeur
Inscrit
6 Mai 2011
Messages
108
Reactions
0
#14
xD tu pense le remettre à jour ?
 
Inscrit
26 Juin 2011
Messages
11
Reactions
0
#16
saber a dit:
Correction Non car j'ai moins de temps car cette année je passe mon brevet et de puis la Maj 2.4.6 la connexion a changer je ne trouve pas comment ca a changer donc désolé Pour Le moment projet µTools et µBot en pause
 
Haut Bas