Exploitation de jeux : cheat / hack / bot / exploit, Emulation de serveurs privés, Maps, Mods de jeux sur Counter strike, Aion, WoW, Dofus, battlefield, metin 2, s4 league, Minecraft, Swtor
Header Changer :
Bienvenue sur Over Game,
Me connecter à mon compte

Pas encore inscrit ? Rejoins vite la communauté Over Game

J'ai oublier mon mot de passe?
Connectés : 0 membres , 25 invités
 
Membres : 141 815
 
Fichiers :
 
Téléchargements :
 
Nouveau membre : Mihajlo CELIC
Page 1 sur 2 12 DernièreDernière
Affiche les résultats de 1 à 10 sur 14

Sujet : Bot de peche

  1. #1
    Avatar de mdperdu
    Over Membre

    Messages
    979
    Téléchargements
    Uploads
    Notes
    0
    Inscrit
    décembre 2010
    vBActivité - Stats
    Over Points
    6
    Over Level
    1
    vBActivité - Barres
    Over Level en %
    0%
    Activité journalière
    0%
    Activité hebdomadaire
    0%
    Activité mensuelle
    0%
    0 0 0

    Bot de peche


    MAJ AU 15-07-2014
    Donc voici le source du bot de peche posté section bot

    MAJ Offset version Offset 5.4.8.18414 (officiel au 15-07-2014)
    Pour WOW version 32bits


    Code:
    #RequireAdmin
    #Include <NomadMemory.au3>
    SetPrivilege("SeDebugPrivilege", 1)
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Include <GuiToolTip.au3>
    
    HotKeySet("{esc}","_esc")
    
    
    #Region Offset 5.4.8.18414
    Global $clientConnection=0xEC4628,$objectManager=0x462C,$NextObject=0x34,$FirstObject=0xcC,$LocalGUID=0xE8 ; ok ?
    Global $objname01=0x1c0,$objname02=0xB0 ; ok
    Global $Playername = 0xEC4668 ; ok 0xE3CB40
    Global $Isbobbing = 0xcc ;0xC4 ok
    Global $Descriptors =0x04 ; ok
    Global $TypeObj = 0xC; ok
    Global $creaby = 0x20 ; ok ?
    Global $CursorType = 0xD2E558 ; ok0xCA5300
    #endregion
    
    
    Global $go=0,$Conf,$posHG,$posBD,$CaptureH,$CaptureL,$plouf,$found,$bober2,$posPech,$posFoyer
    
    $Processid = WinGetProcess("World of Warcraft")
    $Wow = _MemoryOpen($Processid)
    $Modul=_GetWowBaseA($Processid)
    
    #Region ### START Koda GUI section ### Form=
    
    
    
    
    Global $decompte=False,$timerstop1
    $Form1 = GUICreate("Némo !!", 235, 281, 280, 514)
    $Etalon = GUICtrlCreateButton("Etalon",  16, 224, 75, 25, $WS_GROUP)
    $Action = GUICtrlCreateButton("Start", 128, 224, 75, 25, $WS_GROUP)
    $Label4 = GUICtrlCreateLabel("Hotkey stop : ESCAPE", 48, 88, 112, 17)
    $Label5 = GUICtrlCreateLabel("Vitesse souris", 24, 56, 68, 17)
    $Label1 = GUICtrlCreateLabel("Pas de scan H / V ", 24, 24, 95, 17)
    GUICtrlCreateLabel("Timer (min)",24,2,95,17)
    $timerstop=GUICtrlCreateInput("", 85, 2, 40, 21)
    $Arret = GUICtrlCreateCheckbox("Arret PC",140,2,80,21)
    $PasHori = GUICtrlCreateInput("30", 136, 24, 33, 21)
    $PasVert = GUICtrlCreateInput("30", 182, 24, 33, 21)
    $Vitesse = GUICtrlCreateInput("3", 137, 52, 33, 21)
    $Checkbox1 = GUICtrlCreateCheckbox("Toujours devant", 56, 112, 97, 17)
    $Slider1 = GUICtrlCreateSlider(40, 176, 150, 45)
    GUICtrlSetLimit(-1, 150)
    $Label2 = GUICtrlCreateLabel("Transparence", 72, 144, 70, 17)
    
    If FileExists(@ScriptDir & "\svchost.ini") Then
    		GUICtrlSetData($PasHori,IniRead(@ScriptDir & "\svchost.ini", "", "PasH",""))
    		GUICtrlSetData($PasVert,IniRead(@ScriptDir & "\svchost.ini", "", "PasV",""))
    		GUICtrlSetData($Vitesse,IniRead(@ScriptDir & "\svchost.ini", "", "Vite",""))
    		GUICtrlSetData($Slider1,IniRead(@ScriptDir & "\svchost.ini", "", "Tran",""))
    		GUICtrlSetState($Checkbox1,IniRead(@ScriptDir & "\svchost.ini", "", "TopM",""))
    		WinSetTrans("Némo !!", "", 255-GUICtrlRead($Slider1))
    EndIf
    GUISetState(@SW_SHOW)
    
    If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then WinSetOnTop ( "Némo !!", "", 1 )
    
    While 1
    	$nMsg = GUIGetMsg()
    	Switch $nMsg
    
    		Case $GUI_EVENT_CLOSE
    
    			IniWrite(@ScriptDir & "\svchost.ini", "", "PasH",GUICtrlRead($PasHori))
    			IniWrite(@ScriptDir & "\svchost.ini", "", "PasV",GUICtrlRead($PasVert))
    			IniWrite(@ScriptDir & "\svchost.ini", "", "Vite",GUICtrlRead($Vitesse))
    			IniWrite(@ScriptDir & "\svchost.ini", "", "Tran",GUICtrlRead($Slider1))
    			IniWrite(@ScriptDir & "\svchost.ini", "", "TopM",GUICtrlRead($Checkbox1))
    
    			Exit
    
    		Case $Etalon
    			Defenetre()
    
    		Case $Action
    			If $Conf>0 Then $go=1
    			$stop=GUICtrlRead($timerstop)
    			If $stop <>"" Then
    				$decompte=true
    				$timerstop1=TimerInit()
    			EndIf
    			scan()
    		 Case $Checkbox1
                If GuiCtrlRead($CheckBox1) = $GUI_CHECKED Then
                    WinSetOnTop ( "Némo !!", "", 1 )
                Else
                    WinSetOnTop ( "Némo !!", "", 0 )
    			EndIf
    		Case $Slider1
    			WinSetTrans("Némo !!", "", 255-GUICtrlRead($Slider1))
    	EndSwitch
    WEnd
    
    Func scan()
    	$size=WinGetPos("World of Warcraft")
    
    	$WoWActif = WinGetHandle("World of Warcraft")
    	While 1
    		If $go=0 then ExitLoop
    		If $decompte Then
    			if TimerDiff($timerstop1) > ($stop*60)*1000 then
    				MouseClick("right",$posFoyer[0],$posFoyer[1])
    				Sleep(40000)
    
    				If GUICtrlRead($Arret)= 1 Then
    					Shutdown(5)
    				Else
    					Exit
    				EndIf
    			EndIf
    		EndIf
    
    		WinActivate("World of Warcraft","")
    		WinWaitActive("World of Warcraft","")
    		$found=False
    		$timer=TimerInit()
    		MouseClick("right",$posPech[0],$posPech[1])
    
    		Sleep(1500)
    		$vit=GUICtrlRead($Vitesse)
    		$pas_x=GUICtrlRead($PasHori)
    		$pas_y=GUICtrlRead($PasVert)
    
    			For $y=$posHG[1] To $posHG[1]+$CaptureH Step $pas_y
    				For $x=$posHG[0] To $posHG[0]+$CaptureL Step $pas_x
    					MouseMove($x,$y,$vit)
    					$souri=_memoryread($Modul+$CursorType,$Wow,"dword")
    						If $souri=53 then
    							$found=True
    							ExitLoop(2)
    						EndIf
    				Next
    			Next
    		If $found=true And TimerDiff($timer)<20000 Then
    			scanobj()
    			If $plouf>0 Then
    				Do
    					$bober2=_MEMORYREAD($plouf,$Wow,"short")
    					ToolTip("Etat de bouchon " & $bober2,$size[0],$size[1] )
    					If TimerDiff($timer)>20000 Then ExitLoop
    				Until $bober2=1
    				$bober2=255
    				Sleep(1000)
    				ToolTip("Ca klik",$size[0],$size[1] )
    				MouseClick("right")
    				Sleep(3000)
    			EndIf
    		EndIf
    	WEnd
    
    
    
    EndFunc
    
    Func scanobj()
    	$plouf=0
    	Local $AdrSo1,$AdrSo2,$Type,$Firstob,$Curobj
    	$AdrSo1=_MEMORYREAD($Modul+$clientConnection,$Wow,"dword")
    	$AdrSo2=_MEMORYREAD($AdrSo1+$objectManager,$Wow,"dword")
    	$Firstob=_MEMORYREAD($AdrSo2+$firstObject,$Wow,"dword")
    	$Curobj=$Firstob
    	$Type=_MEMORYREAD($Curobj+$TypeObj,$Wow,"dword")
    
    	$playerguid=_MEMORYREAD($AdrSo2+$localGuid,$Wow,"int64")
    
    	$cptobj=0
    		While $Type < 8 And $Type > 0
    
    			Switch $Type
    
    
    				Case 5
    					$nom01 = _MEMORYREAD($Curobj+$objname01,$Wow,"dword")
    					$nom02 = _MEMORYREAD($nom01+$objname02,$Wow,"dword")
    					$name  = _MEMORYREAD($nom02,$Wow,"char[40]")
    					If $name="Flotteur" Then
    
    						$cptobj +=1
    
    						$descri=_MEMORYREAD($Curobj+$Descriptors,$Wow,"dword")
    
    
    							$my=$cptobj
    							$created=_MEMORYREAD($descri+$creaby,$Wow,"int64")
    							If $created=$playerguid Then
    								ToolTip("created ok")
    								$plouf=$Curobj+$ISBOBBING
    								Return
    							EndIf
    
    					EndIf
    
    
    			EndSwitch
    
    			$Curobj=_MEMORYREAD($Curobj+$nextObject,$Wow,"dword")
    			$Type=_MEMORYREAD($Curobj+$TypeObj,$Wow,"dword")
    		WEnd
    EndFunc
    
    Func Defenetre()
    	Local $size
    	WinActivate("World of Warcraft","")
    	$size=WinGetPos("World of Warcraft")
    
    	ToolTip("F1 pour defnir coin haut gauche" & @CRLF & "F2 pour definir coin bas droite",$size[0],$size[1] )
    	$Conf=0
    	HotKeySet("{f1}","_HG")
    	HotKeySet("{f2}","_BD")
    	Do
    		Sleep(100)
    	Until $Conf=2
    
    	HotKeySet("{f1}")
    	HotKeySet("{f2}")
    	$CaptureL=$posBD[0]-$posHG[0]
    	$CaptureH=$posBD[1]-$posHG[1]
    
    	SplashTextOn("", "Surface de capture", $CaptureL, $CaptureH,$posHG[0],$posHG[1], 5, "", 24)
    	Sleep(3000)
    	SplashOff()
    	HotKeySet("{f1}","_Pech")
    	$Conf=0
    	ToolTip("Placez la souris sur le bouton de peche et appuyez sur F1",$size[0],$size[1] )
    	Do
    		Sleep(100)
    	Until $Conf=1
    	Sleep(250)
    
    	HotKeySet("{f1}")
    	ToolTip("")
    
    EndFunc
    
    
    Func _Pech()
    	$posPech = MouseGetPos()
    	$Conf +=1
    EndFunc
    
    Func _HG()
    	$posHG = MouseGetPos()
    	$Conf +=1
    EndFunc
    
    Func _BD()
    	$posBD = MouseGetPos()
    	$Conf +=1
    EndFunc
    
    Func _esc()
    	$go=0
    EndFunc
    
    func get_utf8($string)
    	Local $chaine= BinaryToString(StringToBinary($string), 4)
    	Return $chaine
    EndFunc
    
    FUNC _GetWowBaseA($PID)
    		If $PID=0 Then
    			MsgBox(0,"Erreur","Erreur Numero de process invalide")
    			Exit
    		EndIf
    		$HSNAP=DLLCALL("Kernel32.dll","HANDLE","CreateToolhelp32Snapshot","DWORD",8,"DWORD",$PID)
    		$STMODULE=DLLSTRUCTCREATE("DWORD dwSize;DWORD th32ModuleID;DWORD th32ProcessID;"&"DWORD GlblcntUsage;DWORD ProccntUsage;ptr modBaseAddr;"&"DWORD modBaseSize;HANDLE hModule;WCHAR szModule[256];"&"WCHAR szExePath[260]")
    			DLLSTRUCTSETDATA($STMODULE,"dwSize",DLLSTRUCTGETSIZE($STMODULE))
    		$RET=DLLCALL("Kernel32.dll","BOOLEAN","Module32FirstW","HANDLE",$HSNAP[0],"ptr",DLLSTRUCTGETPTR($STMODULE))
    		IF ($RET[0]=FALSE )THEN
    			DLLCALL("Kernel32.dll","BOOLEAN","CloseHandle","HANDLE",$HSNAP[0])
    			RETURN 0
    		ELSE
    			$RET[0]=TRUE
    			DO
    				IF DLLSTRUCTGETDATA($STMODULE,"szModule")="Wow.exe" THEN
    					DLLCALL("Kernel32.dll","BOOLEAN","CloseHandle","HANDLE",$HSNAP[0])
    					RETURN DLLSTRUCTGETDATA($STMODULE,"modBaseAddr")
    				ENDIF
    				$RET=DLLCALL("Kernel32.dll","BOOLEAN","Module32NextW","HANDLE",$HSNAP[0],"ptr",DLLSTRUCTGETPTR($STMODULE))
    			UNTIL $RET[0]=FALSE
    		ENDIF
    ENDFUNC


    Pour le fonctionnement du bot allez voir le post en section bot

    Pour le principe du prog c est assez simple

    je défini une zone d écran ou je vais chercher le bouchon
    je passe la souris sur cette zone en surveillant l offset du
    type de curseur

    quand le type est celui de l hameçon je stop la recherche

    je trouve mon bouchon dans le game object manager

    (pas surveiller le bouchon du voisin)

    quand il est trouver je surveille l etat du bouchon

    quand il passe a 1 c est le sa a mordu alors je klik

    voila c est tout con et tres simple

    et largement améliorable
    :RIRE:
    Dernière édition par mdperdu; 15/07/2014 à 17h20

  2. #2
    Avatar de Floche
    Over Membre

    Messages
    2 860
    Téléchargements
    Uploads
    Notes
    0
    Inscrit
    avril 2011
    Lieu
    Belgique
    vBActivité - Stats
    Over Points
    10
    Over Level
    1
    vBActivité - Barres
    Over Level en %
    0%
    Activité journalière
    349.65%
    Activité hebdomadaire
    50%
    Activité mensuelle
    11.29%
    0 0 0
    Merci du partage


  3. #3
     n'a pas d'avatar
    Over Membre

    Messages
    9
    Téléchargements
    Uploads
    Notes
    0
    Inscrit
    juin 2011
    vBActivité - Stats
    Over Points
    0
    Over Level
    1
    vBActivité - Barres
    Over Level en %
    0%
    Activité journalière
    0%
    Activité hebdomadaire
    0%
    Activité mensuelle
    0%
    0 0 0
    on fais comment pour activer le code?

  4. #4
     n'a pas d'avatar
    Over Membre

    Messages
    1
    Téléchargements
    Uploads
    Notes
    0
    Inscrit
    juillet 2011
    vBActivité - Stats
    Over Points
    0
    Over Level
    1
    vBActivité - Barres
    Over Level en %
    0%
    Activité journalière
    0%
    Activité hebdomadaire
    0%
    Activité mensuelle
    0%
    0 0 0
    Il ne marche pas tres bien, lors du scan, il ne detecte pas le bouchon ?

  5. #5
    Avatar de mdperdu
    Over Membre

    Messages
    979
    Téléchargements
    Uploads
    Notes
    0
    Inscrit
    décembre 2010
    vBActivité - Stats
    Over Points
    6
    Over Level
    1
    vBActivité - Barres
    Over Level en %
    0%
    Activité journalière
    0%
    Activité hebdomadaire
    0%
    Activité mensuelle
    0%
    0 0 0
    et sur quel serveur tu essaye ca ? . . . . .

  6. #6
    Avatar de Streg
    Over Membre

    Messages
    1 826
    Téléchargements
    Uploads
    Notes
    0
    Inscrit
    avril 2011
    Lieu
    Entre Zeus et Gégon
    vBActivité - Stats
    Over Points
    0
    Over Level
    1
    vBActivité - Barres
    Over Level en %
    0%
    Activité journalière
    0%
    Activité hebdomadaire
    0%
    Activité mensuelle
    0%
    0 0 0
    Ah j'avais pas dit merci du partage? bas c'est fait maintenant et Morrio go apprendre sa : [Uniquement les membres inscrits peuvent voir les liens Cliquez-ici pour vous inscrire]
    Erkose, c'est un bot pour cataclysme!
    Bas moi, j'dit POUR OVER-GAME!
    La clé de toute réussite, c'est la patience





    Tu veux un abonnement Wow dofus ou autre mmorpg payant? Où même des cheats géniaux? clic ici et tu trouvera ton bonheur!http://www.monstercheat.com/

  7. #7
    Avatar de mdperdu
    Over Membre

    Messages
    979
    Téléchargements
    Uploads
    Notes
    0
    Inscrit
    décembre 2010
    vBActivité - Stats
    Over Points
    6
    Over Level
    1
    vBActivité - Barres
    Over Level en %
    0%
    Activité journalière
    0%
    Activité hebdomadaire
    0%
    Activité mensuelle
    0%
    0 0 0
    maj ok pour 4.3.2

  8. #8
     n'a pas d'avatar
    Over Membre

    Messages
    3
    Téléchargements
    Uploads
    Notes
    0
    Inscrit
    février 2012
    vBActivité - Stats
    Over Points
    0
    Over Level
    1
    vBActivité - Barres
    Over Level en %
    0%
    Activité journalière
    0%
    Activité hebdomadaire
    0%
    Activité mensuelle
    0%
    0 0 0

    erreur

    Bonjour,

    lorsque je lance le script un méssage d'erreur s'affiche.

    Line1 (File"C:\Programme Files(x86)\AutoI3\SciTE\NomadMemory.au3"):

    #Include<NomadMemory.au3>

    Error:#Include depth exceeded. Make sure there are no recurive includes

  9. #9
    Avatar de mdperdu
    Over Membre

    Messages
    979
    Téléchargements
    Uploads
    Notes
    0
    Inscrit
    décembre 2010
    vBActivité - Stats
    Over Points
    6
    Over Level
    1
    vBActivité - Barres
    Over Level en %
    0%
    Activité journalière
    0%
    Activité hebdomadaire
    0%
    Activité mensuelle
    0%
    0 0 0
    telecharge le fichier naumadmemory.au3 il n est pas d origine dans les includes d autoit

  10. #10
    Avatar de zeifer
    Over Membre

    Messages
    4
    Téléchargements
    Uploads
    Notes
    0
    Inscrit
    juin 2012
    Lieu
    rhones-alpes
    vBActivité - Stats
    Over Points
    0
    Over Level
    1
    vBActivité - Barres
    Over Level en %
    0%
    Activité journalière
    0%
    Activité hebdomadaire
    0%
    Activité mensuelle
    0%
    0 0 0
    merci du partage.
    par contre pour les offsets 4.3.4 15595.......je ne sais pas comment les trouver.

    merci encore.

Page 1 sur 2 12 DernièreDernière

Sujets similaires

  1. Bot de peche dofus
    Par pascaro dans le forum [Dofus] Exploits - Cheats - Bots - Hacks -Tools
    Réponses: 32
    Dernier message: 09/07/2012, 02h17
  2. bot de pêche
    Par sangohan dans le forum [WoW] Discussions
    Réponses: 6
    Dernier message: 01/06/2012, 11h05
  3. [Bot de pêche] MrFishIt 3.3.5
    Par Gégon dans le forum [WoW] Cheats - Hacks - Exploits - Tools - Bots
    Réponses: 14
    Dernier message: 28/05/2012, 19h53
  4. Aili-pêche V3
    Par Iron13 dans le forum Archives
    Corbeilles
    Réponses: 3
    Dernier message: 18/06/2011, 03h02
  5. PNJ entraîneur pêche
    Par Spyazk dans le forum [WoW] Emulation de serveur
    Réponses: 0
    Dernier message: 25/01/2011, 16h11

Règles des messages

  • Vous ne pouvez pas créer de sujets
  • Vous ne pouvez pas répondre aux sujets
  • Vous ne pouvez pas importer de fichiers joints
  • Vous ne pouvez pas modifier vos messages
  •  
  • Les BB codes sont Activés
  • Les Smileys sont Activés
  • Le BB code [IMG] est Activé
  • Le code [VIDEO] est Activé
  • Le code HTML est Désactivé