Sign in to follow this  
Followers 0
DirtyBanditos

InputBox for send my text ned help

3 posts in this topic

:D Hello

I have text autoit 3 wis scriptwriter wörks great)

My prob i ned help for create a InputBox to send my wrote message!

this is my simpel text send need help for make a InputBox to send my wrote message!

Thx all for help) :idiot:

My test code wörks great )

$destination = @TempDir & "\mySplash.bmp"

FileInstall("C:\Programme\Test.bmp", $destination)

SplashImageOn("Fall", $destination,800,525,-1,-1,1)

Sleep(3000)

SplashOff()

; Prompt the user to run the script - use a Yes/No prompt (4 - see help file)

$answer = MsgBox(4, "DirtyBanditos Sacred 1.8.26 Finel Public Spammbot 1.0 Beta Version ", "This script will call DirtyBanditos sacred 1.8.26 Finel Public Spammbot Reales written In Autoit By DirtyBanditos )). Run?")

; Check the user's answer to the prompt (see the help file for MsgBox return values)

; If "No" was clicked (7) then exit the script

If $answer = 7 Then

MsgBox(0, "DirtyBanditos sacred 1.8.26 Finel Public Spammbot 1.0 Beta Version ", "OK. Bye!")

Exit

EndIf

;below for testing

;

;$Oldtime = "23:01:10"

;$NewTime = "23:02:18"

;or you can omit the colons (i.e. "230110")

;$junk = ElapsedTime ($Oldtime, $NewTime)

;splashtexton ("Elapsed",$junk, 650,600)

;sleep (5000)

;splashoff ()

;exit

Func ElapsedTime ( $OldTime, $NewTime )

Local $OldTime,$NewTime,$DiffTime, $Ohour,$Ominute,$Osecond,$Nhour,$Nminute,$Nsecond

Local $Dhour, $Dminute, $Dsecond, $Otot, $Ntot, $Diffwork, $Diffmin, $Diffsec, $Diffhour

;

;Determine how to break up time based on colon or not

;

If StringInStr ($Oldtime, ":") = 0 then

$Ohour = number ( stringmid ($OldTime,1,2) )

$Ominute = number ( stringmid ($OldTime,3,2) )

$Osecond = number ( stringmid ($OldTime,5,2) )

else

$Ohour = number ( stringmid ($OldTime,1,2) )

$Ominute = number ( stringmid ($OldTime,4,2) )

$Osecond = number ( stringmid ($OldTime,7,2) )

endif

If StringInStr ($NewTime, ":") = 0 then

$Nhour = number ( stringmid ($NewTime,1,2) )

$Nminute = number ( stringmid ($NewTime,3,2) )

$Nsecond = number ( stringmid ($NewTime,5,2) )

else

$Nhour = number ( stringmid ($NewTime,1,2) )

$Nminute = number ( stringmid ($NewTime,4,2) )

$Nsecond = number ( stringmid ($NewTime,7,2) )

endif

If $Ohour > $Nhour then $Nhour = $Nhour + 24 ;Rolled over a day so add 24 hours

;

;Now do the math

;

$Otot = ($Ohour * 60 * 60) + ($Ominute * 60 ) + $Osecond ;convert to seconds

$Ntot = ($Nhour * 60 * 60) + ($Nminute * 60 ) + $Nsecond ;convert to seconds

$Diffwork = $Ntot - $Otot ;This is the difference in seconds

select

case $Diffwork < 60 ;No hours or minutes, only seconds

$Diffhour = "00"

$Diffmin = "00"

$Diffsec = $Diffwork ;seconds

case $Diffwork < 3600 ;No hours, just minutes and seconds

$DiffHour = "00"

$Diffmin = Int($Diffwork/60) ;minutes

$Diffsec = mod($Diffwork,60) ;seconds

case else ;Hours, minutes, and seconds included

$DiffHour = Int($Diffwork/3600) ;Hours

$Diffwork = $Diffwork-3600 ;Subtract out hours

$Diffmin = Int($Diffwork/60) ;minutes

$Diffsec = mod($Diffwork,60) ;seconds

endselect

$DiffTime = StringFormat("%02i:%02i:%02i", $DiffHour, $DiffMin, $DiffSec)

return $DiffTime ;Difference in time in hh:mi:ss to be formatted as such

endfunc

SplashTextOn ( 'DirtyBanditos sacred 1.8.26 Finel Public Spammbot Reales written In Autoit By DirtyBanditos )) Coded By DirtyBanditos 2.12.2004 Copyright 2004', '..Loading.. DirtyBanditos sacred 1.8.26 Finel Public Spammbot Reales written In Autoit By DirtyBanditos ))', 400, 400 )

Sleep(3000)

SplashOff ( )

Opt("WinWaitDelay",4000)

Opt("WinTitleMatchMode",4)

Opt("WinDetectHiddenText",1)

Opt("MouseCoordMode",0)

WinWait("Sacred","")

If Not WinActive("Sacred","") Then WinActivate("Sacred","")

WinWaitActive("Sacred","")

AdlibEnable("SacredCheck")

AdlibDisable()

Func SacredCheck()

If WinExists("Sacred") == 0 Then

MsgBox(0,"My Spam Bot","You need Sacred to run, and the window is not present in memory.")

Exit

EndIf

If WinActive("Sacred") == 0 Then

$msgActive = MsgBox(4,"DirtyBanditos SpamBot 1.0 Beta Version ","Sacred is not active and should be. The script is now paused. Click YES if you want to unpause the script, or NO if you want to stop its execution.")

Select

Case $msgActive = 6

WinActivate("Sacred")

Case $msgActive = 7

Exit

EndSelect

EndIf

EndFunc

Sleep(1000)

$counter = 1

While 1

Sleep(1000)

Send("{ENTER}{CTRLDOWN}{ALTDOWN}[{CTRLUP}{ALTUP}\cffff0090{SHIFTDOWN}h{SHIFTUP}ello{SPACE}this{SPACE}is{SPACE}my{SPACE}first{SPACE}spamm{SPACE}b

ot{SPACE}l`l{ENTER}");

sleep(1500) ;

If $counter = 5 Then

Send("{ENTER}{CTRLDOWN}{ALTDOWN}[{CTRLUP}{ALTUP}\cff000020{SHIFTDOWN}h{SHIFTUP}ello{SPACE}this{SPACE}is{SPACE}my{SPACE}first{SPACE}spamm{SPACE}b

ot{SPACE}l`l{ENTER}");

sleep(1500) ;

$counter = 1

EndIf

$counter = $counter + 1

Wend

SplashTextOn ( 'DirtyBanditos sacred 1.8.26 Finel Public Spammbot 1.0 Beta Version Reales written In Autoit By DirtyBanditos )) Coded By DirtyBanditos 2.12.2004 Copyright 2004', '..Loading.. DirtyBanditos sacred 1.8.26 Finel Public Spammbot Reales written In Autoit By DirtyBanditos Is CLOSED Setup for you ))', 400, 400 )

Sleep(3000)

SplashOff ( )

$destination = @TempDir & "\mySplash.bmp"

FileInstall("C:\Programme\Test.bmp", $destination)

SplashImageOn("Fall", $destination,800,525,-1,-1,1)

Sleep(3000)

SplashOff()

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

This script have something strange. A part that you mixed Func and main code, also ElapsedTime Func is created and never used, but the most interesting thing is that you use AdlibEnable and AdlibDisable in row!

For your problem... I think that a

$message = InputBox('Message','Put your message')

and a

Send($message,1) is already a good solution.

BTW, this is not a support forum... :idiot:

Edited by ezzetabi

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

This script have something strange. A part that you mixed Func and main code, also ElapsedTime Func is created and never used, but the most interesting thing is that you use AdlibEnable and AdlibDisable in row!

For your problem... I think that a

$message = InputBox('Message','Put your message')

and a

Send($message,1) is already a good solution.

BTW, this is not a support forum...  :idiot:

<{POST_SNAPBACK}>

Hello thx for help!

Scritkitty have help me on the Ohter Tread closed it pls^^

Thx for youtr example :D

Edited by DirtyBanditos

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0