Что нового

Заполнение формы регистрации

CreatiK

Новичок
Сообщения
93
Репутация
4
Есть такой код
Код:
#include <Misc.au3>

Global $start = 0
;-------гор клавиши
HotKeySet("{INSERT}", "start") ;старт
HotKeySet("{DELETE}", "stop") ;стоп
;-------- "тело" скрипта
While 1
If _IsPressed(01) = 1 Then
                            Call("spam")
EndIf
WEnd
;-------функции
Func start() ; функция включения
    $start = 1
EndFunc ; конец функции

Func stop() ; функция выключения
    $start= 0
EndFunc ; конец функции

Func spam() ;функция спама
    If $start = 1 then
    While _IsPressed(01) = 1 ;если мышь зажата
		sleep(1000)
        Send( "{LCTRL + V}");Email
		sleep(1000)
		Send( "аппаапа")  ;Имя
        Send( "{TAB}")
		sleep(1000)
		Send( "паапаа")  ;Фамилия
        Send( "{TAB}")
		sleep(1000)
		Send( "123456")  ;Пароль
        Send( "{TAB}")
		sleep(1000)
		Send( "123456")  ;Повтор Пароль
        Send( "{TAB}")
		sleep(1000)

WEnd
    EndIf
EndFunc


Не могу сделать чтобы скрипт вставлял уже за ранее скопированный Email.
 

Viktor217

Осваивающий
Сообщения
233
Репутация
31
Попробуй так:
Код:
#include <Misc.au3>

Global $start = 0,$s=1000
;-------гор клавиши
HotKeySet("{INSERT}", "start") ;старт
;-------- "тело" скрипта
While 1
If _IsPressed(01) = 1 Then
spam()
EndIf
WEnd
;-------функции
Func start()
	If $start = 0 Then
		$start=1
	Else
		$start=0
	EndIf
EndFunc ; конец функции

Func spam() ;функция спама
    If $start=1 then
    While _IsPressed(01) = 1 ;если мышь зажата
        sleep($s)
        Send("^v");Email
        sleep($s)
        Send("аппаапа")  ;Имя
        Send("{TAB}")
        sleep($s)
        Send("паапаа")  ;Фамилия
        Send("{TAB}")
        sleep($s)
        Send("123456")  ;Пароль
        Send("{TAB}")
        sleep($s)
        Send("123456")  ;Повтор Пароль
        Send("{TAB}")
        sleep($s)
WEnd
    EndIf
EndFunc

Или так:
Код:
#include <Misc.au3>

Global $start = 0,$s=1000,$buf=ClipGet()
;-------гор клавиши
HotKeySet("{INSERT}", "start") ;старт
;-------- "тело" скрипта
While 1
If _IsPressed(01) = 1 Then
spam()
EndIf
WEnd
;-------функции
Func start()
	If $start = 0 Then
		$start=1
	Else
		$start=0
	EndIf
EndFunc ; конец функции

Func spam() ;функция спама
    If $start=1 then
    While _IsPressed(01) = 1 ;если мышь зажата
        sleep($s)
        Send($buf);Email
        sleep($s)
        Send("аппаапа")  ;Имя
        Send("{TAB}")
        sleep($s)
        Send("паапаа")  ;Фамилия
        Send("{TAB}")
        sleep($s)
        Send("123456")  ;Пароль
        Send("{TAB}")
        sleep($s)
        Send("123456")  ;Повтор Пароль
        Send("{TAB}")
        sleep($s)
WEnd
    EndIf
EndFunc

П.С. Забыл что это твой скрипт, начал оптимизировать, если что обратно исправить не проблема(=
 
Автор
C

CreatiK

Новичок
Сообщения
93
Репутация
4
Чет не получается попробуй на этой форме http://www.careerist.ru/Account/Register
 

Viktor217

Осваивающий
Сообщения
233
Репутация
31
Попробовал, получилось, всё окей...
Попробуй ещё раз, так:
Код:
#include <Misc.au3>

Global $start = 0,$s=1000,$buf=ClipGet()
;-------гор клавиши
HotKeySet("{INSERT}", "start") ;старт
;-------- "тело" скрипта
While 1
If _IsPressed(01) = 1 Then
spam()
EndIf
WEnd
;-------функции
Func start()
	If $start = 0 Then
		$start=1
	Else
		$start=0
	EndIf
EndFunc ; конец функции

Func spam() ;функция спама
    If $start=1 then
    While _IsPressed(01) = 1 ;если мышь зажата
        sleep($s)
        Send($buf);Email
        sleep($s)
		Send("{TAB}")
        Send("аппаапа")  ;Имя
        Send("{TAB}")
        sleep($s)
        Send("паапаа")  ;Фамилия
        Send("{TAB}")
        sleep($s)
        Send("123456")  ;Пароль
        Send("{TAB}")
        sleep($s)
        Send("123456")  ;Повтор Пароль
        Send("{TAB}")
        sleep($s)
		Send("{ENTER}")		
WEnd
    EndIf
EndFunc
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
CreatiK срамить это не хорошо!!! :thumbs_down:

Код:
#include <Misc.au3>
Global $bStart = 0

HotKeySet("!a", "_Start") ;старт/стоп Alt+a
HotKeySet("{ESC}", "_Exit") ; Exit

While 1
	Sleep(250)
	If _IsPressed(01) And $bStart Then
		_Spam()
	EndIf
WEnd

Func _Start()
    $bStart = Not $bStart
EndFunc

Func _Spam() ;функция спама
	Send( "^v");Email
	Send("{TAB}")
	Send( "аппаапа")  ;Имя
	Send("{TAB}")
	Send( "паапаа")  ;Фамилия
	Send("{TAB}")
	Send("123456")  ;Пароль
	Send( "{TAB}")
	Send("123456")  ;Повтор Пароль
	Send( "{TAB}")
EndFunc

Func _Exit()
	Exit
EndFunc
 

Dark-Side

Знающий
Сообщения
72
Репутация
17
OffTopic:
Хы, вспомнил как я делал бота для регитрации на одном сайте.
Он сам генерировал e-mail'ы, логины, пароли, сам открывал странички, нажимал кнопки "Зарегистрироваться" и сохранял логины с паролями в файлик :IL_AutoIt_1:
Сайт подтверждения по мылу не требовал, а если бы даже требовал, то не было бы столь большой проблемой...
За ночь дофигище аккаунтов создавал, так что тебе есть куда улучшать свою прогармку. :smile:
 
Верх