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

SpamBot By Feta :D

Amfetaminek

Przez Amfetaminek
w Niezbędnik Programisty - Archiwum

Rekomendowane odpowiedzi

Amfetaminek Pomocnik

Amfetaminek

Opublikowano
Pomocnik

Amfetaminek

Opublikowano

Z nudów spam bota napisałem.
Po wpisaniu tekstu i czasu zaznaczamy które z tekstów ma wysyłać takim oto przyciskiem ">"
Po czym klikamy start i nasz spambocik się minimalizuje :D

Oczywiście zacznie też odrazu pracę bo nie zrobiłem żadnego hotkeya:D
Więc dla tych mniej doświadczonych. Uważajcie żeby wam czegoś nie uruchomił :D

;spam bot by amfetaminek
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
global $q1 , $q2 , $q3
global $cz1,$cz2,$cz3
global $te1,$te2,$te3
$read = False
$F = GUICreate("Spam Bot", 505, 280, 200, 130)
$1 = GUICtrlCreateInput("",40,10,380,25)
$2 = GUICtrlCreateInput("",40,45,380,25)
$3 = GUICtrlCreateInput("",40,80,380,25)
$c1 = GUICtrlCreateInput("",450,10,25,25)
$c2 = GUICtrlCreateInput("",450,45,25,25)
$c3 = GUICtrlCreateInput("",450,80,25,25)
guictrlcreatelabel("Co" , 430,12,14,25)
guictrlcreatelabel("Co" , 430,47,14,25)
guictrlcreatelabel("Co" , 430,82,14,25)
guictrlcreatelabel("sec" , 480,12,20,25)
guictrlcreatelabel("sec" , 480,45,20,25)
guictrlcreatelabel("sec" , 480,82,20,25)
$r1= GUICtrlCreateCheckbox(" >",10,10,27,25,BitOR($GUI_SS_DEFAULT_CHECKBOX,$BS_PUSHLIKE))
$r2= GUICtrlCreateCheckbox(" >",10,45,27,25,BitOR($GUI_SS_DEFAULT_CHECKBOX,$BS_PUSHLIKE))
$r3= GUICtrlCreateCheckbox(" >",10,80,27,25,BitOR($GUI_SS_DEFAULT_CHECKBOX,$BS_PUSHLIKE))
$start = GUICtrlCreateButton ( "Start" , 450,245,40,25)
$list=GUICtrlCreateList( "",10 ,125,480,120)
GUISetState(@SW_SHOW)


While 1
	$s1 = GUICtrlRead($start)
	$nMsg = GUIGetMsg()
	$time =  @HOUR&":"&@MIN&":"&@SEC
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		case $r1
			$q1 = GUICtrlRead($r1)
			if $q1= 1 Then
			AdlibRegister("jeden",$cz1)
			GUICtrlSetData($r1,"| |")
		Else
			GUICtrlSetData($r1," >")
			AdlibUnRegister("jeden")
		endif
		case $r2
			$q2 = GUICtrlRead($r2)
			AdlibRegister("dwa",$cz1)
			if $q2= 1 Then
			GUICtrlSetData($r2,"| |")
		Else
			AdlibUnRegister("dwa")
			GUICtrlSetData($r2," >")
		endif
	case $r3

			$q3 = GUICtrlRead($r3)
			if $q3= 1 Then
			GUICtrlSetData($r3,"| |")
		Else
			GUICtrlSetData($r3," >")
		endif
	case $start

		$s1 = GUICtrlRead($start)
		if $s1 = "Start" Then
		GUISetState(@SW_MINIMIZE)
			if $read = False then
			$read = True
			read()
			EndIf
			GUICtrlSetData($start,"Stop")
			if $q1= 1 Then
			AdlibRegister("jeden",$cz1)
		endif
		if $q2=1 then
			AdlibRegister("dwa",$cz2)
			EndIf
if $q3=1 then
	AdlibRegister("trzy",$cz3)
	endif
		else
			GUICtrlSetData($start,"Start")
		if $read = true then
			$read = false
			AdlibUnRegister("jeden")
			AdlibUnRegister("dwa")
			AdlibUnRegister("trzy")
			EndIf
		endif


	EndSwitch
WEnd
 func read()
	 $cz1=GUICtrlRead($c1)
	 $cz2=GUICtrlRead($c2)
	 $cz3=GUICtrlRead($c3)
	 $cz1=$cz1*1000
	  $cz2=$cz2*1000
	   $cz3=$cz3*1000
	  $te1=GUICtrlRead($1)
	   $te2=GUICtrlRead($2)
	    $te3=GUICtrlRead($3)
	EndFunc


	func jeden()
		 $s1 = GUICtrlRead($start)
			if $s1 = "Stop" Then
				if $te1="" then
					AdlibUnRegister("jeden")
					EndIf
		GUICtrlSetData($list,$time&" - " &$te1&@crlf)
		send ($te1)
		Send("{ENTER}")
		endif
	endfunc
	func dwa()
		 $s2 = GUICtrlRead($start)
			if $s2 = "Stop" Then
				if $te2="" then
					AdlibUnRegister("dwa")
					EndIf
		GUICtrlSetData($list,$time&" - " &$te2&@crlf)
		send ($te2)
		Send("{ENTER}")
		endif
	endfunc
	func trzy()
		 $s3 = GUICtrlRead($start)
			if $s3 = "Stop" Then
				if $te3="" then
					AdlibUnRegister("trzy")
					EndIf
		GUICtrlSetData($list,$time&" - " &$te3&@crlf)
		send ($te3)
		Send("{ENTER}")
		endif
		endfunc

 

 

 

v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v
 

HrabiaMarkiz Bywalec

HrabiaMarkiz

Opublikowano
Bywalec

HrabiaMarkiz

Opublikowano

 

Z nudów spam bota napisałem.

Po wpisaniu tekstu i czasu zaznaczamy które z tekstów ma wysyłać takim oto przyciskiem ">"

Po czym klikamy start i nasz spambocik się minimalizuje :D

 

Oczywiście zacznie też odrazu pracę bo nie zrobiłem żadnego hotkeya:D

Więc dla tych mniej doświadczonych. Uważajcie żeby wam czegoś nie uruchomił :D

;spam bot by amfetaminek
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
global $q1 , $q2 , $q3
global $cz1,$cz2,$cz3
global $te1,$te2,$te3
$read = False
$F = GUICreate("Spam Bot", 505, 280, 200, 130)
$1 = GUICtrlCreateInput("",40,10,380,25)
$2 = GUICtrlCreateInput("",40,45,380,25)
$3 = GUICtrlCreateInput("",40,80,380,25)
$c1 = GUICtrlCreateInput("",450,10,25,25)
$c2 = GUICtrlCreateInput("",450,45,25,25)
$c3 = GUICtrlCreateInput("",450,80,25,25)
guictrlcreatelabel("Co" , 430,12,14,25)
guictrlcreatelabel("Co" , 430,47,14,25)
guictrlcreatelabel("Co" , 430,82,14,25)
guictrlcreatelabel("sec" , 480,12,20,25)
guictrlcreatelabel("sec" , 480,45,20,25)
guictrlcreatelabel("sec" , 480,82,20,25)
$r1= GUICtrlCreateCheckbox(" >",10,10,27,25,BitOR($GUI_SS_DEFAULT_CHECKBOX,$BS_PUSHLIKE))
$r2= GUICtrlCreateCheckbox(" >",10,45,27,25,BitOR($GUI_SS_DEFAULT_CHECKBOX,$BS_PUSHLIKE))
$r3= GUICtrlCreateCheckbox(" >",10,80,27,25,BitOR($GUI_SS_DEFAULT_CHECKBOX,$BS_PUSHLIKE))
$start = GUICtrlCreateButton ( "Start" , 450,245,40,25)
$list=GUICtrlCreateList( "",10 ,125,480,120)
GUISetState(@SW_SHOW)


While 1
	$s1 = GUICtrlRead($start)
	$nMsg = GUIGetMsg()
	$time =  @HOUR&":"&@MIN&":"&@SEC
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		case $r1
			$q1 = GUICtrlRead($r1)
			if $q1= 1 Then
			AdlibRegister("jeden",$cz1)
			GUICtrlSetData($r1,"| |")
		Else
			GUICtrlSetData($r1," >")
			AdlibUnRegister("jeden")
		endif
		case $r2
			$q2 = GUICtrlRead($r2)
			AdlibRegister("dwa",$cz1)
			if $q2= 1 Then
			GUICtrlSetData($r2,"| |")
		Else
			AdlibUnRegister("dwa")
			GUICtrlSetData($r2," >")
		endif
	case $r3

			$q3 = GUICtrlRead($r3)
			if $q3= 1 Then
			GUICtrlSetData($r3,"| |")
		Else
			GUICtrlSetData($r3," >")
		endif
	case $start

		$s1 = GUICtrlRead($start)
		if $s1 = "Start" Then
		GUISetState(@SW_MINIMIZE)
			if $read = False then
			$read = True
			read()
			EndIf
			GUICtrlSetData($start,"Stop")
			if $q1= 1 Then
			AdlibRegister("jeden",$cz1)
		endif
		if $q2=1 then
			AdlibRegister("dwa",$cz2)
			EndIf
if $q3=1 then
	AdlibRegister("trzy",$cz3)
	endif
		else
			GUICtrlSetData($start,"Start")
		if $read = true then
			$read = false
			AdlibUnRegister("jeden")
			AdlibUnRegister("dwa")
			AdlibUnRegister("trzy")
			EndIf
		endif


	EndSwitch
WEnd
 func read()
	 $cz1=GUICtrlRead($c1)
	 $cz2=GUICtrlRead($c2)
	 $cz3=GUICtrlRead($c3)
	 $cz1=$cz1*1000
	  $cz2=$cz2*1000
	   $cz3=$cz3*1000
	  $te1=GUICtrlRead($1)
	   $te2=GUICtrlRead($2)
	    $te3=GUICtrlRead($3)
	EndFunc


	func jeden()
		 $s1 = GUICtrlRead($start)
			if $s1 = "Stop" Then
				if $te1="" then
					AdlibUnRegister("jeden")
					EndIf
		GUICtrlSetData($list,$time&" - " &$te1&@crlf)
		send ($te1)
		Send("{ENTER}")
		endif
	endfunc
	func dwa()
		 $s2 = GUICtrlRead($start)
			if $s2 = "Stop" Then
				if $te2="" then
					AdlibUnRegister("dwa")
					EndIf
		GUICtrlSetData($list,$time&" - " &$te2&@crlf)
		send ($te2)
		Send("{ENTER}")
		endif
	endfunc
	func trzy()
		 $s3 = GUICtrlRead($start)
			if $s3 = "Stop" Then
				if $te3="" then
					AdlibUnRegister("trzy")
					EndIf
		GUICtrlSetData($list,$time&" - " &$te3&@crlf)
		send ($te3)
		Send("{ENTER}")
		endif
		endfunc

Przywłaszczasz sobie projekt jakiegoś twórce tego czegoś "Feta" nie mając zgody pewnie :E

Mój pro złomek:

 

Procesor: Intel Pentium Dual-Core E5300 2.66 ghz | Karta graficzna: Asus Radeon HD 4350 | Mobo: Foxconn G31MX | RAM: 2gb ddr2 | Monitor: 1280x960 PnP | Zasilacz: Delta 300W

Amfetaminek Pomocnik

Amfetaminek

Opublikowano
Pomocnik

Amfetaminek

  • Autor
Opublikowano

Przywłaszczasz sobie projekt jakiegoś twórce tego czegoś "Feta" nie mając zgody pewnie :E

Czy ty jesteś zdrowy ?

Amfetaminek ? Feta ? ogarnij

 

 

 

I jeżeli ten projekt jest na tyle skomplikowany że warto go przywłaszczać to sobie go weź -.-

 

v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v
 

Zarchiwizowany

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

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