Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

Bot na tle

KamilPolska1111

Rekomendowane odpowiedzi

KamilPolska1111 Odkrywca

KamilPolska1111

Opublikowano
Odkrywca

KamilPolska1111

Opublikowano

Cześć. Jak mogę napisać bota w tle? Szukałem na necie, ale jakoś mi słabo szło. Próbowałem samemu zrobić z IE.au3, ControlClick i ControlSend i też mi słabo szło. Chodzi mi o to, że chce bota, który będzie działał w tle, chciałbym żeby klikał, wpisywał losowe litery i email. Mam przeglądarkę IE(Internet Explorer).

Ktosiu Znawca

Ktosiu

Opublikowano
Znawca

Ktosiu

Opublikowano

Każdy bot w IE działa w tle, trzeba go tylko umiejętnie napisać by obsługiwał grę w przeglądarce. 

Mózg to nie mydło; nie ubędzie Ci go, gdy go użyjesz.

wasta Nowicjusz

wasta

Opublikowano
Nowicjusz

wasta

Opublikowano

Tu się nie pisze skryptów za kogoś, tu się pomaga w ich pisaniu i pokonywaniu konkretnych problemów programistycznych.

Na razie nie masz żadnych problemów, bo nie widzę ani linijki kodu.

Najpierw sam się czegoś naucz, coś napisz, a jak będziesz miał konkretny problem to na pewno ktoś ci pomoże.

Do nauki polecam podręcznik w języku polskim: https://pl.wikibooks.org/wiki/AutoIt

KamilPolska1111 Odkrywca

KamilPolska1111

Opublikowano
Odkrywca

KamilPolska1111

  • Autor
Opublikowano 
>>>> Window <<<<
Title:	Gra - Internet Explorer
Class:	IEFrame
Position:	-8, -8
Size:	1936, 1056
Style:	0x17CF0000
ExStyle:	0x00000100
Handle:	0x0000000000010214

>>>> Control <<<<
Class:	Internet Explorer_Server
Instance:	1
ClassnameNN:	Internet Explorer_Server1
Name:	
Advanced (Class):	[CLASS:Internet Explorer_Server; INSTANCE:1]
ID:	
Text:	
Position:	0, 63
Size:	1920, 985
ControlClick Coords:	945, 673
Style:	0x56000000
ExStyle:	0x00000000
Handle:	0x000000000022072E

>>>> Mouse <<<<
Position:	945, 728
Cursor ID:	0
Color:	0xFEFEFE

$oIE = _IECreate("http://gra.com")

$powtorz = 0

$zmienna=GUICtrlRead($Input1)

For $powtorz = 1 to 2500

MouseClick("left", 953, 621, 1)
MouseClick("left", 1137, 915, 1)

Local $posx = 1069
Local $posy = 580
MouseClick("left", $posx, $posy)
Sleep(150)
Local $losowelitery= ""

For $i = 0 To 5
	$losowelitery &= Chr(Random(Asc("A"), Asc("Z"), 1))
Next

Send($losowelitery)

Local $posx = 1103
Local $posy = 630

MouseClick("left", $posx, $posy)
Sleep(150)
Local $losowelitery= ""

For $i = 0 To 5
	$losowelitery &= Chr(Random(Asc("a"), Asc("z"), 1))
Next

Local $losowyEmail = $losowelitery & "@bot.net"

Send($losowelitery)
Send($losowyEmail)

Local $posx = 1098
Local $posy = 679

MouseClick("left", $posx, $posy)
Sleep(150)
Local $losowelitery= ""

For $i = 0 To 5
	$losowelitery &= Chr(Random(Asc("A"), Asc("Z"), 1))
Next

Send($losowelitery)

MouseClick("left", 969, 733, 1)

MouseClick("left", 1144, 921, 1)
Sleep(550)
MouseClick("left", 1053, 605, 1)

Sleep(100)
MouseClickDrag("left", 1045, 644, 638, 588)

Send($zmienna)
Send("{ENTER}")

$powtorz = $powtorz + 1

Mam problem z zrobieniem controlclick i controlsend. Chciałbym, żeby to wszystko działało w tle no i też z losowymi literami i maile.

Ktosiu Znawca

Ktosiu

Opublikowano
Znawca

Ktosiu

Opublikowano

Trzeba użyć udf dla IE a nie obsługi myszki bo nie będzie działało w tle. 

Mózg to nie mydło; nie ubędzie Ci go, gdy go użyjesz.

KamilPolska1111 Odkrywca

KamilPolska1111

Opublikowano
Odkrywca

KamilPolska1111

  • Autor
Opublikowano

No tak, ale mam problem z controlclick i controlsend, nie wiem jak mam napisać. Wchodziłem na inne fora i nic mi nie dało. Próbowałem pisać z mouseclick na controlclick, ale myszka nie klikała..

KamilPolska1111 Odkrywca

KamilPolska1111

Opublikowano
Odkrywca

KamilPolska1111

  • Autor
Opublikowano

A jak mogę pobrać controlID? Zaznaczyłem na grę przeglądarkową, ale nie pokazuje mi jakie to ID. To trzeba mieć inną przeglądarkę? Da się zrobić inną funkcję, żeby bot mógł działać w tle?

Pawellek Pomocnik

Pawellek

Opublikowano
Pomocnik

Pawellek

Opublikowano

Gierka jest we flashu, wiec za pomoca IE.au3 tez nic nie zdzialasz. ;)

Jesli chcesz aby to dzialalo w tle, to odpal po prostu skrypt na wirutalnej maszynie.

 

 

KamilPolska1111 Odkrywca

KamilPolska1111

Opublikowano
Odkrywca

KamilPolska1111

  • Autor
Opublikowano 
Local $losowelitery= ""

For $i = 0 To 5
	$losowelitery &= Chr(Random(Asc("a"), Asc("z"), 1))
Next

Local $losowyEmail = $losowelitery & "@wp.pl"

ControlSend("GRA", "", 106475872, $losowelitery)
ControlSend("GRA", "", 106475872, $losowyEmail)


ControlClick("GRA", "", 106475872, "Left", 1, 1097, 433)

Local $losowelitery= ""

For $i = 0 To 5
	$losowelitery &= Chr(Random(Asc("A"), Asc("Z"), 1))
Next

Dzięki działa. Tylko mam problem z losowaniem liter i email. Chciałbym żeby to działało na tle, a mam taki kod:

Pawellek Pomocnik

Pawellek

Opublikowano
Pomocnik

Pawellek

Opublikowano

A co jest nie tak z tym losowaniem? I dlaczego dalej chcesz korzystac z ControlSend i ControlClick skoro odpaliles juz to na wirtualnej maszynie?

 

 

Pawellek Pomocnik

Pawellek

Opublikowano
Pomocnik

Pawellek

Opublikowano 
Example()

Func Example()
    ; Run Notepad
    Run("notepad.exe")

    ; Wait 10 seconds for the Notepad window to appear.
    Local $hWnd = WinWait("[CLASS:Notepad]", "", 10)
	Local $losowelitery = ""
	For $i = 0 To 5
		$losowelitery &= Chr(Random(Asc("a"), Asc("z"), 1))
	Next

	Local $losowyEmail = $losowelitery & "@wp.pl"

    ; Wait for 2 seconds.
    Sleep(2000)

    ; Send a string of text to the edit control of Notepad. The handle returned by WinWait is used for the "title" parameter of ControlSend.
    ControlSend($hWnd, "", "Edit1", $losowelitery & @CRLF & $losowyEmail)

    ; Wait for 2 seconds.
    Sleep(2000)

    ; Close the Notepad window using the handle returned by WinWait.
    WinClose($hWnd)

    ; Now a screen will pop up and ask to save the changes, the classname of the window is called
    ; "#32770" and simulating the "TAB" key to move to the second button in which the "ENTER" is simulated to not "save the file"
    WinWaitActive("[CLASS:#32770]")
    Sleep(500)
    Send("{TAB}{ENTER}")
EndFunc   ;==>Example 

Wiec chyba jednak wpisuje, ale podajesz zle ID controlki. ;)

Mozna to zreszta bardzo latwo sprawdzic:

Local $losowelitery= ""

For $i = 0 To 5
	$losowelitery &= Chr(Random(Asc("a"), Asc("z"), 1))
Next

Local $losowyEmail = $losowelitery & "@wp.pl"

if ControlSend("GRA", "", 106475872, $losowelitery) = 0 Then
	MsgBox(0, "", "window/control is not found")
	Exit
EndIf

ControlSend("GRA", "", 106475872, $losowyEmail)


ControlClick("GRA", "", 106475872, "Left", 1, 1097, 433)

Local $losowelitery= ""

For $i = 0 To 5
	$losowelitery &= Chr(Random(Asc("A"), Asc("Z"), 1))
Next

 

 

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...