Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > AutoIt
You last visited: Today at 02:26

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



[Need Help] Binding Functions Togheter

Discussion on [Need Help] Binding Functions Togheter within the AutoIt forum part of the Coders Den category.

Reply
 
Old   #1
 
elite*gold: 0
Join Date: Mar 2014
Posts: 19
Received Thanks: 1
Question [Need Help] Binding Functions Togheter

Hello,

How can I bind these 2 codes togheter?
---------------------------------------------------------------------------------------
#include <GUIConstantsEx.au3>

GUICreate("GUICtrlSetData", 200,100)
GUISetState(@SW_SHOW)

$button = GUICtrlCreateButton("Start",60, 30, 80, 20)
$count = 0

While 1
Switch GUIGetMsg()
Case $button
If $count = 1 Then
GUICtrlSetData($button, "Start")
$count = 0
ElseIf $count = 0 Then
GUICtrlSetData($button, "Stop")
$count = 1
EndIf
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
---------------------------------------------------------------------------------------
GUICtrlCreateLabel("Key", 8, 10)
$key1 = GUICtrlCreateInput("", 35, 8, 120)
GUICtrlCreateLabel("Time", 8, 44)
$time1 = GUICtrlCreateInput("", 35, 40, 120)

$startbutton = GUICtrlCreateButton("Start", 190, 8, 60)

While 1
$msg = GUIGetMsg()

Select

Case $msg = $startbutton
$send1 = GUICtrlRead($key1)
$sleep1 = GUICtrlRead($time1)
While 1
Send($send1)
Sleep($sleep1)
WEnd

Case $msg = $GUI_EVENT_CLOSE

EndSelect

WEnd
---------------------------------------------------------------------------------------


I want to make a Spambot with start and stop button , but i dont know where i need to write in..(I'm a autoit beginner) AND THESE CODES ARE NOT MINE!
Betarelease is offline  
Old 05/28/2015, 15:18   #2
 
°Incinerate's Avatar
 
elite*gold: 400
Join Date: Jun 2011
Posts: 513
Received Thanks: 101
HTML Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Global $text
$Form1 = GUICreate("", 470, 80, 561, 353, -1, BitOR($WS_EX_TOPMOST,$WS_EX_WINDOWEDGE))
$text = GUICtrlCreateInput("bla bla bla", 80, 12, 376, 21)
$time = GUICtrlCreateInput("1000", 80, 42, 126, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_NUMBER))
GUICtrlCreateLabel("Spamtext:", 15, 15, 61, 17, $SS_RIGHT)
GUICtrlCreateLabel("Time in ms:", 15, 45, 61, 17, $SS_RIGHT)
$start = GUICtrlCreateButton("Start", 220, 42, 75, 23)
$stop = GUICtrlCreateButton("Stop", 300, 42, 75, 23)
GUICtrlSetState(-1, $GUI_DISABLE)
$exit = GUICtrlCreateButton("Exit", 380, 42, 75, 23)
GUISetState(@SW_SHOW)

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

		Case $exit
			Exit

		Case $start
			GUICtrlSetState($start, $GUI_DISABLE)
			GUICtrlSetState($text, $GUI_DISABLE)
			GUICtrlSetState($time, $GUI_DISABLE)
			GUICtrlSetState($stop, $GUI_ENABLE)
			AdlibRegister("_spam", GUICtrlRead($time))

		Case $stop
			GUICtrlSetState($stop, $GUI_DISABLE)
			GUICtrlSetState($start, $GUI_ENABLE)
			GUICtrlSetState($text, $GUI_ENABLE)
			GUICtrlSetState($time, $GUI_ENABLE)
			AdlibUnRegister("_spam")

	EndSwitch
WEnd

Func _spam()
	Send(GUICtrlRead($text))
	Send("{Enter}")
EndFunc
°Incinerate is offline  
Thanks
1 User
Reply


Similar Threads Similar Threads
[B]the binding of isaac & the binding of isaac collection[S]e*gold
01/29/2015 - elite*gold Trading - 11 Replies
Title regelt : the binding of isaac : The Binding of Isaac on Steamverkauft the binding of isaac collection : The Binding of Isaac Collection on Steamhttps://InterDuos.de/121010 120 elite*Gold Bietet einfach mal :)
All Quest Functions Over 670 functions
06/08/2013 - Metin2 PServer Guides & Strategies - 21 Replies
Gretings this is very simple tut ther is all organized quest functions based on last pub rev 2089 If you know some quest functions is not ther let me know "if valid function of corse" addimage addmapsignal add_bgm_info
GG,Nptect,Rohan-we need to do something Lets party togheter and FREE some stuffs
05/13/2009 - Say Hello - 0 Replies
Hi there.This is my first post... I am member on this forum for about 1 year and and i was passive, there was no need for me to post something.Well things here are geting maddd...posts in every language posible ,interest and cointerests + a lot of downloads with huge amount of Viruses.Don't mentione about lot of people who tryng to sell there "work", i don't know much about the use of this forum...but i think this should not be an open market for Scamers... ...



All times are GMT +1. The time now is 02:26.


Powered by vBulletin®
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2025 elitepvpers All Rights Reserved.