Что нового

[Автоматизация] Помогите написать кнопку спамера

PreDoK

Новичок
Сообщения
30
Репутация
3
Всем доброе время суток!
Помогите сделать ,чтобы в поле Input можно было вести слово и после нажатия на кнопку эта надпись отправлялась в окно чата игры Point Blank
Заранее спасибо!

Скрин!
ece251c7a2926278286af6b069c1e2ff.jpg

Код:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 282, 248, 192, 124)
$Input1 = GUICtrlCreateInput("", 16, 40, 249, 21)
$SPAM = GUICtrlCreateButton("SPAM", 96, 168, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch
WEnd
 

Waik

Знающий
Сообщения
60
Репутация
16
Re: [Автоматизация] Кнопка спамер?

Вот один из моих самых первых скриптов.Писал для варкрафта.Вроде работает.Не смеемся.
Код:
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>

GUICreate ("WarFlood | Waik",619,248)
;Импуты---------------------------------------

$inputmsg = GUICtrlCreateInput ("Введите текст сообщения. . . .",14,16,169,21)
$inputkolvo = GUICtrlCreateInput("",14,94,65,21,$ES_NUMBER)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
;Буттоны------------------------------------

$btntext = GUICtrlCreateButton("Принять текст",200,8,153,33)
$btnkolvo= GUICtrlCreateButton("Принять количество",200,88,153,33)
$otake = GUICtrlCreateButton("OTAKE!!!!!",8,144,593,49)
;Надписи-------------------------------------

GUICtrlCreateGroup(" Сообщение ",8,0,361,64)
GUICtrlCreateLabel("WarFlood beta ver.1.1 (by Waik)",0,233,158,17)
GUICtrlCreateLabel("Текст сообщения : ",408,16,103,17)
GUICtrlCreateLabel(" Количество сообщений : ",408,100,132,17)
;Группы---------------------------------------

GUICtrlCreateGroup(" StatusBar ",400,0,209,137)
GUICtrlCreateGroup(" Количество сообщений ",8,80,361,57)
GUICtrlCreateGroup(" Сообщение ",8,0,361,64)
GUICtrlCreateLabel("WarFlood beta ver.1.1 (by Waik)",0,233,158,17)
GUISetState ()
;Переменные-----------------------------------

Global $textmsg1
Global $textkolvo1
Global $schet = 0
Global $Boolean1 = true
;Файлы/звук-----------------------------------
;Основной код---------------------------------

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $btntext
		$textmsg1 = GUICtrlRead ($inputmsg)
        GUICtrlCreateLabel($textmsg1,408,32,167,17)

	Case $btnkolvo
		$textkolvo1 = GUICtrlRead($inputkolvo)
		GUICtrlCreateLabel($textkolvo1,536,96,71,17)
	Case $otake
		while $textkolvo1 > $schet
		WinActivate("Warcraft III")
		Send("{ENTER}")
		Send($textmsg1)
		Send("{ENTER}")
		$schet = $schet + 1
	    WEnd
    EndSwitch
WEnd ;

Если нужно то могу сделать нормальный код.
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,671
Репутация
2,481
Re: [Автоматизация] Кнопка спамер?

PreDoK
{TopicNameWarn.Admin}
 

Medic84

Омега
Команда форума
Администратор
Сообщения
1,590
Репутация
341
Re: [Автоматизация] Кнопка спамер?

Предупреждение За нарушение общих правил (пункт В.8):
Проявляйте уважение к другим пользователям форума, ведь может случиться так, что Ваш безграмотный вопрос, в силу плохого знания русского языка, кто-нибудь посчитает за оскорбление. Если по каким-то причинам у Вас плохо с орфографией, то Вы можете воспользоваться сетевыми сервисами для проверки орфографии. Ниже приведены ссылки на некоторые из них:

http://orthography.morphology.ru
http://advego.ru/text
http://www.kakvse.net/service/polezno/proverka_pravopisaniya.php


С уважением, Администратор форума.




Тогда я тоже внесу свою лепту. Терпеть не могу, когда делают ошибки.
 
Автор
P

PreDoK

Новичок
Сообщения
30
Репутация
3
Re: [Автоматизация] Кнопка спамер?

Medic84 сказал(а):
[warn]За нарушение общих правил (пункт В.8):
Проявляйте уважение к другим пользователям форума, ведь может случиться так, что Ваш безграмотный вопрос, в силу плохого знания русского языка, кто-нибудь посчитает за оскорбление. Если по каким-то причинам у Вас плохо с орфографией, то Вы можете воспользоваться сетевыми сервисами для проверки орфографии. Ниже приведены ссылки на некоторые из них:

http://orthography.morphology.ru
http://advego.ru/text
http://www.kakvse.net/service/polezno/proverka_pravopisaniya.php


С уважением, Администратор форума.[/warn]



Тогда я тоже внесу свою лепту. Терпеть не могу, когда делают ошибки.





Учту! :smile:
 

renom

Новичок
Сообщения
127
Репутация
2
Re: [Автоматизация] Кнопка спамер?

Waik сказал(а):
Вот один из моих самых первых скриптов.Писал для варкрафта.Вроде работает.Не смеемся.
Код:
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>

GUICreate ("WarFlood | Waik",619,248)
;Импуты---------------------------------------

$inputmsg = GUICtrlCreateInput ("Введите текст сообщения. . . .",14,16,169,21)
$inputkolvo = GUICtrlCreateInput("",14,94,65,21,$ES_NUMBER)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
;Буттоны------------------------------------

$btntext = GUICtrlCreateButton("Принять текст",200,8,153,33)
$btnkolvo= GUICtrlCreateButton("Принять количество",200,88,153,33)
$otake = GUICtrlCreateButton("OTAKE!!!!!",8,144,593,49)
;Надписи-------------------------------------

GUICtrlCreateGroup(" Сообщение ",8,0,361,64)
GUICtrlCreateLabel("WarFlood beta ver.1.1 (by Waik)",0,233,158,17)
GUICtrlCreateLabel("Текст сообщения : ",408,16,103,17)
GUICtrlCreateLabel(" Количество сообщений : ",408,100,132,17)
;Группы---------------------------------------

GUICtrlCreateGroup(" StatusBar ",400,0,209,137)
GUICtrlCreateGroup(" Количество сообщений ",8,80,361,57)
GUICtrlCreateGroup(" Сообщение ",8,0,361,64)
GUICtrlCreateLabel("WarFlood beta ver.1.1 (by Waik)",0,233,158,17)
GUISetState ()
;Переменные-----------------------------------

Global $textmsg1
Global $textkolvo1
Global $schet = 0
Global $Boolean1 = true
;Файлы/звук-----------------------------------
;Основной код---------------------------------

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $btntext
		$textmsg1 = GUICtrlRead ($inputmsg)
        GUICtrlCreateLabel($textmsg1,408,32,167,17)

	Case $btnkolvo
		$textkolvo1 = GUICtrlRead($inputkolvo)
		GUICtrlCreateLabel($textkolvo1,536,96,71,17)
	Case $otake
		while $textkolvo1 > $schet
		WinActivate("Warcraft III")
		Send("{ENTER}")
		Send($textmsg1)
		Send("{ENTER}")
		$schet = $schet + 1
	    WEnd
    EndSwitch
WEnd ;

Если нужно то могу сделать нормальный код.
Извиняюсь за некропостинг...
waik,не могли бы пожалуйста сделать аналогичный скрипт,только для других игр?(Aion например)
 
Верх