sell bot

06/20/2007 18:07 _revo#1
huhu
ich bin grad dabei mit nen sellbot zu bauen, der mir sachen verkauft.
jedoch habe ich das problem dass er beim spammen statt den text zu senden immer zwischen vollbild - fenster wechselt als wäre alt gedrückt beim enter drücken

hier der part der für das spammen verantwortlich ist:
Code:
 while PixelGetColor (1149, 114) == $AA
 	Sleep (Random (50, 1000))
 	Send ("{enter}")
 	Sleep ( Random (500, 1230))
 	Send ( "W T S ---!" )
 	Send ("{enter}")
 	Sleep (Random(50, 300))
 	Send ("{enter}")
 	Send ( "W T S ---!" )
 	Send ("{enter}")
 	Sleep (Random(50, 300))
 	Send ("{enter}")
 	Send ( "W T S ---!" )
 	Send ("{enter}")
 	Sleep (Random (9000, 15000))
 WEnd
wär nice wenn jemand sagen könnte wie ich das wegbekomm ^^

cya
gipsy
06/22/2007 18:00 _revo#2
weiß niemand bescheid ? ^^
ich habe versucht den spambot der schon vorhanden is in .au3 zu convertieren mit dem prog das gwgamer gepostet hatte um zu sehen was er gemacht hat jedoch funktioniert das irgendwie nicht.
die sleeps zwischen dem enter drücken kann ich auch hoch und runtersetzen wie ich will es ändert sich nichts : /

wens interressiert hier der komplette code:

Code:
;
; AutoIt Version: 3.0
; Language:    English
; Author:     gipsy
;


ConsoleWrite ( "[Script]: Started ")
$answer = MsgBox(4, "SPAMBOT", " This Script will sell your -------. Run?")

; Check the user's answer to the prompt
; If "No" was clicked (7) then exit the script
If $answer = 7 Then
	MsgBox(0, "End Script", "OK. Cya!")
	Exit
EndIf

WinActivate ("Guild Wars")

global $NumberOfSets = InputBox("AutoIt", "Please type in the Number of ------- you wanna sell!")

MsgBox (0, "AutoIt Macro", "   starting...          ")

global $DD = Random ( 100,  800)

Sleep (3000)

Func MoreThan2---Left()
	global $AA = 0x000000;Position des Handelsfensters öffnen button
	while $NumberOf---- > 2
 while PixelGetColor (1149, 114) == $AA
 	global $Wait4Offer = 0
 	Sleep (Random(2500, 4000))
 	Send ("{enter}")
 	Send ( "W T S ---- 20k (NO ECTOS) trade me!" )
 	Send ("{enter}")
 	Sleep (Random(2500, 4000))
 	Send ("{enter}")
 	Send ( "W T S ---- 20k (NO ECTOS) trade me!" )
 	Send ("{enter}")
 	Sleep (Random(2500, 4000))
 	Send ("{enter}")
 	Send ( "W T S ---- 20k (NO ECTOS) trade me!" )
 	Send ("{enter}")
 	Sleep (Random(2500, 4000))
 WEnd
	
 If PixelGetColor (1149, 114) <> $AA Then
 	Sleep (Random (200, 2000))
 	MouseClick ("left", 1149, 114)
 	Sleep (random (200,1300))
 	
 	while PixelGetColor (1247, 90) == 0x7F7F7F and ($Wait4Offer <= 15)
  global $Wait4Offer = $Wait4Offer +1
  Sleep (Random(800,1200))
 	WEnd
 	
 	If PixelGetColor (1247, 90) == 0x808080 Then
  Sleep (Random(100,2000))
  
  If $Wait4Offer >= 15 Then
  	Sleep (Random(10,500))
  	MouseClick ("left", 1219, 247)
  	$Wait4Offer = 0
  	ConsoleWrite ("[Script] Trade Canceled -> no offer")
  EndIf
  
  One----()
  Two----()
  Three----()
 	EndIf 	
 EndIf
	WEnd
EndFunc
	
Func Two----Left()
	global $AA = 0x000000;Position des Handelsfensters öffnen button
	while $NumberOf---- == 2
 while PixelGetColor (1149, 114) == $AA
 	global $Wait4Offer = 0
 	Sleep (Random(2500, 4000))
 	Send ("{enter}")
 	Sleep (Random(2500, 4000))
 	Send ( "W T S ---- 20k (NO ECTOS) 2remaining - trade me!" )
 	Sleep (Random(2500, 4000))
 	Send ("{enter}")
 	Sleep (Random(2500, 4000))
 	Send ("{enter}")
 	Sleep (Random(2500, 4000))
 	Send ( "W T S ---- 20k (NO ECTOS) 2remaining - trade me!" )
 	Sleep (Random(2500, 4000))
 	Send ("{enter}")
 	Sleep (Random(2500, 4000))
 	Send ("{enter}")
 	Sleep (Random(2500, 4000))
 	Send ( "W T S ---- 20k (NO ECTOS) 2remaining - trade me!" )
 	Sleep (Random(2500, 4000))
 	Send ("{enter}")
 	Sleep (Random(2500, 4000))
 WEnd
	
 If PixelGetColor (1149, 114) <> $AA Then
 	Sleep (Random (200, 2000))
 	MouseClick ("left", 1149, 114)
 	Sleep (random (200,1300))
 	
 	while PixelGetColor (1247, 90) == 0x7F7F7F and ($Wait4Offer <= 15)
  global $Wait4Offer = $Wait4Offer +1
  Sleep (Random(800,1200))
 	WEnd
 	
 	If PixelGetColor (1247, 90) == 0x808080 Then
  Sleep (Random(100,2000))
  
  If $Wait4Offer >= 15 Then
  	Sleep (Random(10,500))
  	MouseClick ("left", 1219, 247)
  	$Wait4Offer = 0
  	ConsoleWrite ("[Script] Trade Canceled -> no offer")
  EndIf
  
  One----()
  Two----()
 	EndIf 	
 EndIf
	WEnd
EndFunc

Func One----Left()
	global $AA = 0x000000;Position des Handelsfensters öffnen button
	while $NumberOf---- == 1
 while PixelGetColor (1149, 114) == $AA
 	global $Wait4Offer = 0
 	Sleep (Random(2500, 4000))
 	Send ("{enter}")
 	Sleep (Random(2500, 4000))
 	Send ( "W T S my LAST ---- 20k (NO ECTOS) trade me!" )
 	Sleep (Random(2500, 4000))
 	Send ("{enter}")
 	Sleep (Random(2500, 4000))
 	Send ("{enter}")
 	Sleep (Random(2500, 4000))
 	Send ( "W T S my LAST ---- 20k (NO ECTOS) trade me!" )
 	Sleep (Random(2500, 4000))
 	Send ("{enter}")
 	Sleep (Random(2500, 4000))
 	Send ("{enter}")
 	Sleep (Random(2500, 4000))
 	Send ( "W T S my LAST ---- 20k (NO ECTOS) trade me!" )
 	Sleep (Random(2500, 4000))
 	Send ("{enter}")
 	Sleep (Random(2500, 4000))
 WEnd
	
 If PixelGetColor (1149, 114) <> $AA Then
 	Sleep (Random (200, 2000))
 	MouseClick ("left", 1149, 114)
 	Sleep (random (200,1300))
 	
 	while PixelGetColor (1247, 90) == 0x7F7F7F and ($Wait4Offer <= 15)
  global $Wait4Offer = $Wait4Offer +1
  Sleep (Random(800,1200))
 	WEnd
 	
 	If PixelGetColor (1247, 90) == 0x808080 Then
  Sleep (Random(100,2000))
  
  If $Wait4Offer >= 15 Then
  	Sleep (Random(10,500))
  	MouseClick ("left", 1219, 247)
  	$Wait4Offer = 0
  	ConsoleWrite ("[Script] Trade Canceled -> no offer")
  EndIf
  
  One----()
 	EndIf 	
 EndIf
	WEnd
EndFunc

func ----()
	if PixelGetColor (1177, 54) == 0x67604C and PixelGetColor (1177, 53) == 0x8A8165 and PixelGetColor (1178, 53) == 0xFFEEBB and PixelGetColor (1179, 53) == 0xFFEEBB and PixelGetColor (1180, 53) == 0xFFEEBB and PixelGetColor (1181, 53) == 0x68614C and PixelGetColor (1182, 59) == 0x675849 then

 if PixelGetColor (1186, 53) == 0x68614C and PixelGetColor (1187, 53) == 0x68614C and PixelGetColor (1185, 54) == 0x898065 and PixelGetColor (1186, 54) == 0xFFEEBB and PixelGetColor (1187, 54) == 0x675D48 and PixelGetColor (1185, 55) == 0x887F64 and PixelGetColor (1186, 56) == 0xDECE9E then


 	MouseClickDrag ("left", 1096, 809, 954, 199); ---- ins handelsfenster ziehen
 	Sleep ($DD)
 	Send ("{enter}")
 	Sleep ($DD)
 	
 
 	MouseClick ("left", 1118, 247);angebot anzeigen
 	While PixelGetColor (990, 247) == 0x3C3C3C
  Sleep (10)
 	WEnd
 	Mouseclick ("left", 1014, 248);angebot annehmen
 	
 	while PixelGetColor (43, 920) <> 0x77FF77
  Sleep (10)
 	WEnd
 	
 	if PixelGetColor (43, 920) == 0x77FF77 then 
  $NumberOf---- = $NumberOf---- - 1
  MouseClick ("left", 107, 89)
  Sleep (100, 2000)
  MouseClick ("left", 639, 522)
  Sleep (100, 2000)
  Mouseclick ("left", 586, 555)
 	EndIf
 EndIf
	EndIf
EndFunc

func Two----()
	if PixelGetColor (1181, 53) == 0xCCBF96 and PixelGetColor (1179, 54) == 0xEEDEAE and PixelGetColor (1178, 55) == 0x887F64 and PixelGetColor (1176, 57) == 0x887F64 and PixelGetColor (1180, 56) == 0xFFEEBB and PixelGetColor (1182, 57) == 0x848467 then

 If PixelGetColor (1184, 54) == 0x787058 and PixelGetColor (1184, 53) == 0x68614C and PixelGetColor (1188, 54) == 0xAE9E7F and PixelGetColor (1187, 57) == 0xCCBE95 and PixelGetColor (1186, 59) == 0x665C47 and PixelGetColor (1189, 60) == 0xAA9E7C Then  

 	MouseClickDrag ("left", 1096, 809, 954, 199); ---- ins handelsfenster ziehen
 	Sleep ($DD)
 	Send ("2")
 	Sleep ($DD)
 	Send ("{enter}")
 	Sleep ($DD)
 	
 	MouseClick ("left", 1118, 247);angebot anzeigen
 	While PixelGetColor (990, 247) == 0x3C3C3C
  Sleep (10)
 	WEnd
 	Mouseclick ("left", 1014, 248);angebot annehmen
 	
 	while PixelGetColor (43, 920) <> 0x77FF77
  Sleep (10)
 	WEnd
 	
 	if PixelGetColor (43, 920) == 0x77FF77 then 
  $NumberOf---- = $NumberOf---- - 2
  MouseClick ("left", 107, 89)
  Sleep (100, 2000)
  MouseClick ("left", 639, 522)
  Sleep (100, 2000)
  Mouseclick ("left", 586, 555)
 	EndIf
 EndIf
	EndIf
EndFunc

Func Three---()
	if PixelGetColor (1177, 60) == 0xAA9E7C and PixelGetColor (1179, 60) == 0x655E4A and PixelGetColor (1182, 57) == 0x95886C and PixelGetColor (1182, 54) == 0x675D48 and PixelGetColor (1181, 54) == 0xEECCAA and PixelGetColor (1177, 53) == 0x68614C and then

 if PixelGetColor (1184, 54) == 0x67604C and PixelGetColor (1188, 53) == 0x68614C and PixelGetColor (1188, 55) == 0xB1A284 and PixelGetColor (1185, 56) == 0xCCBE95 and PixelGetColor (1189, 57) == 0x665C47 and PixelGetColor (1187, 59) == 0x655E4A and then

 	MouseClickDrag ("left", 1096, 809, 954, 199); ---- ins handelsfenster ziehen
 	Sleep ($DD)
 	Send ("3")
 	Sleep ($DD)
 	Send ("{enter}")
 	Sleep ($DD)
 	
 	MouseClick ("left", 1118, 247);angebot anzeigen
 	While PixelGetColor (990, 247) == 0x3C3C3C
  Sleep (10)
 	WEnd
 	Mouseclick ("left", 1014, 248);angebot annehmen
 	
 	while PixelGetColor (43, 920) <> 0x77FF77
  Sleep (10)
 	WEnd
 	
 	if PixelGetColor (43, 920) == 0x77FF77 then 
  $NumberOf---- = $NumberOf---- - 3
  MouseClick ("left", 107, 89)
  Sleep (100, 2000)
  MouseClick ("left", 639, 522)
  Sleep (100, 2000)
  Mouseclick ("left", 586, 555)
 	EndIf
 EndIf
	EndIf
EndFunc

func main()
	MoreThan2----Left()
	Two----Left()
	One----Left()
EndFunc

main()
cya
gipsy
06/22/2007 19:05 Ganf#3
Das selbe Problem hatte ich auch, liegt an dem "!". Weiß zur Zeit aber keine Lösung, muss gucken.

Sonst mach einfach nen Punkt "." xD

Ganfi :bandit:


PS: Wie kann man das verstehen, hab auch schon in den AutoIt Docs nachgeschaut, seh aber keinen wirklichen sinn draus "ConsoleWrite ( "...")"
06/22/2007 19:44 _revo#4
naja wird halt in die console geschrieben dass zB der trade abgebrochen wurde
macht insofern sinn dass ich dann wenn ich nicht mehr afk nachschauen kann wie viele trades abgebrochen wurden ;)
zwar egtl uninteressant aber warum nicht ? (:
06/22/2007 21:14 Ganf#5
hmm, ist das genau so sicher wie in ne .ini nen wert erhöhen?

Ich probs mal aus!

PS: Naja, hats gefunct?


MFG
Brandy
06/22/2007 21:32 _revo#6
Quote:
Originally posted by Ganf@Jun 22 2007, 21:14
hmm, ist das genau so sicher wie in ne .ini nen wert erhöhen?

Ich probs mal aus!

PS: Naja, hats gefunct?


MFG
Brandy
weiß jetzt net was du meinst mit .ini ^^

auf jedenfall hab ich jetzt hinter das ausrufezeichen noch ne 1 gesetzt ("WTS ... !1")
jetzt schreibt er weder das ausrufezeichen noch die 1 ich weiß zwar nicht warum aber es funktioniert ^^
ty schonmal ;)

btw kenn ich mich wenig mit proggen aus ich hab als bei requia das mit den contributoren eingeführt wurde angefangen mich in lua einzuarbeiten... vorher hatte ich noch nie etwas programmiert ;)
auf jeden hab ich dann meinen wammo multifarmer gemacht und seit requia down is nie mehr was gemacht
jetzt das autoit is ja im grunde nicht viel anders und genauso einfach wie requia :>
aber ich kenn halt atm nur die grundfunktionen

cya
gipsy


edit: oben im code hab ich mal paar fehler die ich beim copy pasten übersehen hab ausgebessert ^-^

edit2: gibt es egtl ne möglichkeit gw und den das script im hintergrund laufen zu lassen und derweil was weiß ich im internet surfen kann bzw was anderes zokken ?
06/23/2007 09:31 Ganf#7
schau dir mal die "user32.dll" an!

Ganfi :bandit: