DirtyBanditos Posted December 4, 2004 Share Posted December 4, 2004 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) 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() Link to comment Share on other sites More sharing options...
ezzetabi Posted December 4, 2004 Share Posted December 4, 2004 (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... Edited December 4, 2004 by ezzetabi Link to comment Share on other sites More sharing options...
DirtyBanditos Posted December 4, 2004 Author Share Posted December 4, 2004 (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... <{POST_SNAPBACK}>Hello thx for help! Scritkitty have help me on the Ohter Tread closed it pls^^Thx for youtr example Edited December 4, 2004 by DirtyBanditos Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now