DirtyBanditos Posted December 7, 2004 Share Posted December 7, 2004 Hello ned help wat is wrong in this code =? This code not load wis Shift+alt+d my Next Autoit prog exe =?Thx to all) ; ---------------------------------------------------------------------------- ; Script Start ; ---------------------------------------------------------------------------- Global $Paused HotKeySet("{PAUSE}", "TogglePause") HotKeySet("{ESC}", "Terminate") HotKeySet("+!d", "Run") ;Shift-Alt-d ;;;; Body of program would go here ;;;; While 1 Sleep(100) WEnd ;;;;;;;; Func TogglePause() $Paused = NOT $Paused While $Paused sleep(100) ToolTip('Script is "Paused"',0,0) WEnd ToolTip("") EndFunc Func Terminate() Exit 0 EndFunc Func Run () Run("C:\Dokumente und Einstellungen\Dirty\Desktop\Install test für Spammbot\MultiClip\MultiClip_v1.exe", "", @SW_MAXIMIZE ) Sleep(500) WinWait(MultiClip_v1) EndFunc Link to comment Share on other sites More sharing options...
Developers Jos Posted December 7, 2004 Developers Share Posted December 7, 2004 Hello ned help wat is wrong in this code =? This code not load wis Shift+alt+d my Next Autoit prog exe =?Thx to all) <{POST_SNAPBACK}>Run is a keyword . You cannot use them for your own functions. SciTE4AutoIt3 Full installer Download page - Beta files Read before posting How to post scriptsource Forum etiquette Forum Rules Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
JSThePatriot Posted December 7, 2004 Share Posted December 7, 2004 Hello ned help wat is wrong in this code =? This code not load wis Shift+alt+d my Next Autoit prog exe =?Thx to all) ; ----------------------------------------------------------------------------; Script Start; ----------------------------------------------------------------------------Global $PausedHotKeySet("{PAUSE}", "TogglePause")HotKeySet("{ESC}", "Terminate")HotKeySet("+!d", "Run") ;Shift-Alt-d;;;; Body of program would go here ;;;;While 1 Sleep(100)WEnd;;;;;;;;Func TogglePause() $Paused = NOT $Paused While $Paused sleep(100) ToolTip('Script is "Paused"',0,0) WEnd ToolTip("")EndFuncFunc Terminate() Exit 0EndFuncFunc Run () Run("C:\Dokumente und Einstellungen\Dirty\Desktop\Install test für Spammbot\MultiClip\MultiClip_v1.exe", "", @SW_MAXIMIZE ) Sleep(500) WinWait(MultiClip_v1)EndFunc <{POST_SNAPBACK}>Here is the working code...; ---------------------------------------------------------------------------- ; Script Start ; ---------------------------------------------------------------------------- Global $Paused HotKeySet("{PAUSE}", "TogglePause") HotKeySet("{ESC}", "Terminate") HotKeySet("+!d", "mRun") ;Shift-Alt-d ;;;; Body of program would go here;;;; While 1 Sleep(100) WEnd ;;;;;;;; Func TogglePause() $Paused = NOT $Paused While $Paused sleep(100) ToolTip('Script is "Paused"',0,0) WEnd ToolTip("") EndFunc Func Terminate() Exit 0 EndFunc Func mRun() Run("C:\Dokumente und Einstellungen\Dirty\Desktop\Install test für Spammbot\MultiClip\MultiClip_v1.exe", "", @SW_MAXIMIZE ) Sleep(500) WinWait("MultiClip_v1") EndFuncThis is a description of the errors I found.Your Run() function is a preset function of AutoIt so I renamed it to mRun() so it would work. Then the only other error you had was there werent any "'s around your MultiClip_v1 in the WinWait() function.I hope this has been a help to you.JS AutoIt Links File-String Hash Plugin Updated! 04-02-2008 Plugins have been discontinued. I just found out. ComputerGetInfo UDF's Updated! 11-23-2006 External Links Vortex Revolutions Engineer / Inventor (Web, Desktop, and Mobile Applications, Hardware Gizmos, Consulting, and more) Link to comment Share on other sites More sharing options...
DirtyBanditos Posted December 7, 2004 Author Share Posted December 7, 2004 (edited) Run is a keyword . You cannot use them for your own functions.<{POST_SNAPBACK}>Ok Thx) Gif this a way To load a new Exe prog from the firts autoit exe wis Horkey=? Have any a exampel for me pls Thx JSThePatriot i test your mody code big thx for fast help wis my prob^^ Edited December 7, 2004 by DirtyBanditos Link to comment Share on other sites More sharing options...
JSThePatriot Posted December 7, 2004 Share Posted December 7, 2004 Ok Thx) Gif this a way To load a new Exe prog from the firts autoit exe wis Horkey=? Have any a exampel for me pls Thx JSThePatriot i test your mody code big thx for fast help wis my prob^^ <{POST_SNAPBACK}>You are most certainly welcome.I am not sure I understand this question you posted above^^?" Gif this a way To load a new Exe prog from the firts autoit exe wis Horkey=? "I am guessing this to mean, "Is this a way to load an exe program from autoit with hotkey?"The Run() function in AutoIt allows you to run any executable file. Like if you wanted to open notepad.Understand?JS AutoIt Links File-String Hash Plugin Updated! 04-02-2008 Plugins have been discontinued. I just found out. ComputerGetInfo UDF's Updated! 11-23-2006 External Links Vortex Revolutions Engineer / Inventor (Web, Desktop, and Mobile Applications, Hardware Gizmos, Consulting, and more) Link to comment Share on other sites More sharing options...
DirtyBanditos Posted December 7, 2004 Author Share Posted December 7, 2004 Here is the working code...; ---------------------------------------------------------------------------- ; Script Start ; ---------------------------------------------------------------------------- Global $Paused HotKeySet("{PAUSE}", "TogglePause") HotKeySet("{ESC}", "Terminate") HotKeySet("+!d", "mRun");Shift-Alt-d ;;;; Body of program would go here;;;; While 1 Sleep(100) WEnd ;;;;;;;; Func TogglePause() $Paused = NOT $Paused While $Paused sleep(100) ToolTip('Script is "Paused"',0,0) WEnd ToolTip("") EndFunc Func Terminate() Exit 0 EndFunc Func mRun() Run("C:\Dokumente und Einstellungen\Dirty\Desktop\Install test für Spammbot\MultiClip\MultiClip_v1.exe", "", @SW_MAXIMIZE ) Sleep(500) WinWait("MultiClip_v1") EndFuncThis is a description of the errors I found.Your Run() function is a preset function of AutoIt so I renamed it to mRun() so it would work. Then the only other error you had was there werent any "'s around your MultiClip_v1 in the WinWait() function.I hope this has been a help to you.JS<{POST_SNAPBACK}> Thx your code wörks very nice for me )my last prob i have load a wav file wen i start my spammbot the prob he not repeat this wav wy can you help pls and locking in my Spammbot code bif thx)) ===============================================================================; ----------------------------------------------------------------------------; Set up our defaults; ----------------------------------------------------------------------------;AutoItSetOption("MustDeclareVars", 1);AutoItSetOption("MouseCoordMode", 0);AutoItSetOption("PixelCoordMode", 0);AutoItSetOption("RunErrorsFatal", 1);AutoItSetOption("TrayIconDebug", 1);AutoItSetOption("WinTitleMatchMode", 4); ----------------------------------------------------------------------------; Script Start; ----------------------------------------------------------------------------$on = 0$destination = @TempDir & "\mySplash.bmp"FileInstall("C:\Programme\THC.bmp", $destination)SplashImageOn("Fall", $destination, 800, 525, -1, -1, 1)Sleep(3000)SplashOff(); ----------------------------------------------------------------------------; Script Start; ----------------------------------------------------------------------------SoundPlay("C:\Programme\DirtyBanditos\Thc.wav", 0)If FileExists("C:\Programme\DirtyBanditos\Thc.wav") Then $Tada = ("C:\Programme\DirtyBanditos\Thc.wav")Else $Tada = ("C:\Programme\DirtyBanditos\Thc.wav")EndIf; ----------------------------------------------------------------------------; Script Start; ----------------------------------------------------------------------------; This will create a tooltip in the upper left of the screenToolTip(" Drücke Shift+Pause In Game Das Öfnet Die Hilfe Box Have Fun^", 370, 320)Sleep(1000) ; Sleep to give tooltip time to display; ----------------------------------------------------------------------------; Script Start; ----------------------------------------------------------------------------; Prompt the user to run the script using Yes/No prompt$run = MsgBox(4, "DirtyBanditos Sacred 1.8.26 Finel Public Spammbot 1.1 Beta Version ", "This script will call DirtyBanditos sacred 1.8.26 Finel Public Spammbot 1.1 Beta Reales written In Autoit By DirtyBanditos sacred 1.8.26 Finel Public Spammbot 1.1 Beta Version Reales written In Autoit 3 Beta By DirtyBanditos )) Coded By DirtyBanditos Copyright 2004 THX To Scriptkitty for Help To make This Spammbot 1.1 Beta )). Run?", "Do you want to run DirtyBanditos sacred 1.8.26 Finel Public Spammbot 1.1 Beta Version?"); Exit if "No"If $run = 7 Then MsgBox(0, "DirtyBanditos sacred 1.8.26 Finel Public Spammbot 1.1 Beta Version ", "Coded <By DirtyBanditos 2004-2005 OK. Bye!") ExitEndIf; ----------------------------------------------------------------------------; Script Start; ----------------------------------------------------------------------------; Initial shitHotKeySet("{ESC}", "EndScript")HotKeySet("{F1}", "Pauseon")HotKeySet("{F2}", "Pauseoff")HotKeySet("+{PAUSE}", "_MsgBox")HotKeySet("+!d", "mRun") ;Shift-Alt-d; ----------------------------------------------------------------------------; Script Start; ----------------------------------------------------------------------------SplashTextOn('DirtyBanditos sacred 1.8.26 Finel Public Spammbot 1,.1 Beta Reales written In Autoit By DirtyBanditos )) Coded By DirtyBanditos 5.12.2004 Copyright 2004', '..Loading.. DirtyBanditos sacred 1.8.26 Finel Public Spammbot 1.1 Beta Reales written In Autoit By DirtyBanditos Thx To Scriptkitty for Help to Prog This Spammbot 1.1 Beta for Sacred Use Shift+Pause Keys For In Game Help Have Fun DirtyBanditos ACHTUNG ACHTUNG!!! SACRED MUS IMMER Im FullMode Laufen Bzw NACH DEM START!!!)', 400, 400)Sleep(3500)SplashOff(); ----------------------------------------------------------------------------; Script code; ----------------------------------------------------------------------------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")Sleep(1000)Global $PausedGlobal $MsgBoxGlobal $mRunHotKeySet("{PAUSE}", "TogglePause")HotKeySet("+{PAUSE}", "_MsgBox")HotKeySet("+!d", "mRun") ;Shift-Alt-d; ----------------------------------------------------------------------------; Script code; ----------------------------------------------------------------------------; ----------------------------------------------------------------------------; Script code; ----------------------------------------------------------------------------AdlibEnable("SacredCheck")$counter = 1While 1 Sleep(1000) $Sentences = FileRead('C:\Programme\DirtyBanditos\ 1.1 Beta.ini', FileGetSize('C:\Programme\DirtyBanditos\ 1.1 Beta.ini')) ; note StringReplace($Sentences,@CRLF,@LF) by itself does nothing $Sentences = StringReplace($Sentences, @CRLF, @LF,);If it is a standard Dos .txt file that uses @crlf as ; new line chars. otherwise change as needed. ToolTip($Sentences) $Sentences = StringSplit($Sentences, @LF) Send('{Enter}'); Sleep(1000) Send($Sentences[int(Random(1, $Sentences[0] + 1)) ], 1);Write your Message to Spamm Sleep(1000) Send('{Enter}'); Sleep(1100) If $counter = 10 Then Send("{ENTER}{CTRLDOWN}{ALTDOWN}[{CTRLUP}_ {ALTUP}\cffff0090{SHIFTDOWN}h{SHIFTUP}ello_ {SPACE}this{SPACE}is{SPACE}The{SPACE}First{SPACE}_ Spamm{SPACE}Tradebot{SPACE}{SPACE} Not Publick{SPACE}{ENTER}"); $counter = 1 EndIf $counter = $counter + 1WendAdlibDisable(); you turn it off?; ----------------------------------------------------------------------------; Script code; ----------------------------------------------------------------------------AdlibEnable("SacredCheck")Func SacredCheck() If WinExists("Sacred") == 0 Then MsgBox(0, "Sacred", "You need Sacred to run, and the window is not present in memory.") Exit EndIf If WinActive("Sacred") == 10Then $msgActive = MsgBox(4, "DirtyBanditos SpammBot 1.1 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 ; ---------------------------------------------------------------------------- ; Script code ; ---------------------------------------------------------------------------- ;EndFunc ;==>SacredCheckFunc TogglePause() $Paused = Not $Paused While $Paused Sleep(100) WendEndFunc ;==>TogglePause; Function to exit scriptSleep(1000); This will create a tooltip in the upper left of the screenToolTip("Drücke in Shift+Pause um Die InGame Keys zum Bot Zu sehn Have Fun°°", 370, 320)Sleep(13000) ; Sleep to give tooltip time to displayFunc _MsgBox() $run = MsgBox(4, "DirtyBanditos Sacred 1.8.26 Finel Public Spammbot 1.1 Beta Version ", " Achtung Achtung!!Sacred Mus Immer Maximiert Sein Sonst Kommt Es zu Ernsten Probs Also Immer Maxen Sacred nach dem Bot Start! ") $run = MsgBox(4, "DirtyBanditos Sacred 1.8.26 Finel Public Spammbot 1.1 Beta Version ", " Drücke In Game Pause Für Pause Und noch mal für Fortsetzen Des Bottes! ") $run = MsgBox(4, "DirtyBanditos Sacred 1.8.26 Finel Public Spammbot 1.1 Beta Version ", "Drücke Shift+Pause Für Hilfe Funktion der Tasten ") $run = MsgBox(4, "DirtyBanditos Sacred 1.8.26 Finel Public Spammbot 1.1 Beta Version ", " Drücke Die Esc Taste Für Exit Des Bottes ") $run = MsgBox(4, "DirtyBanditos Sacred 1.8.26 Finel Public Spammbot 1.1 Beta Version ", " Coded <By DirtyBanditos 2004-2005 ") ; Exit if "No" If $run = 7 Then MsgBox(0, "DirtyBanditos sacred 1.8.26 Finel Public Spammbot 1.1 Beta Version ", "Coded <By DirtyBanditos 2004-2005 OK. Bye DirtyBanditos!") Exit EndIfEndFunc ;==>_MsgBoxWhile 1 Sleep(100)WEndFunc mRun() Run("C:\Dokumente und Einstellungen\THC-BASTARD\Desktop\Intsall test für Spammbot\MultiClip\MultiClip_v1.exe", "", @SW_MAXIMIZE ) Sleep(500) WinWait("MultiClip_v1")EndFuncFunc _togglePause() $Paused = Not $Paused While Not $Paused Sleep(200) WendEndFunc ;==>_togglePauseFunc Pauseon() $on = 1 Sleep(200)EndFunc ;==>Pauseon; Function to exit scriptFunc Pauseoff() $on = 0 Sleep(200)EndFunc ;==>Pauseoff; Function to exit scriptFunc EndScript() ExitEndFunc ;==>EndScriptAdlibDisable(); you turn it off? Link to comment Share on other sites More sharing options...
JSThePatriot Posted December 7, 2004 Share Posted December 7, 2004 I am not really understanding what you are wanting the .wav to do? Could you explain abit more? JS AutoIt Links File-String Hash Plugin Updated! 04-02-2008 Plugins have been discontinued. I just found out. ComputerGetInfo UDF's Updated! 11-23-2006 External Links Vortex Revolutions Engineer / Inventor (Web, Desktop, and Mobile Applications, Hardware Gizmos, Consulting, and more) Link to comment Share on other sites More sharing options...
DirtyBanditos Posted December 7, 2004 Author Share Posted December 7, 2004 (edited) I am not really understanding what you are wanting the .wav to do?Could you explain abit more?JS<{POST_SNAPBACK}> Hello sry this is my code to a load Sound .wav file my prob wen i start my spammbot he load the wav sound file this is ok but he not repeat the sound file ((lock my code pls big thx for help Script Start; ----------------------------------------------------------------------------SoundPlay("C:\Programme\DirtyBanditos\Thc.wav", 0)If FileExists("C:\Programme\DirtyBanditos\Thc.wav") Then$Tada = ("C:\Programme\DirtyBanditos\Thc.wav")Else$Tada = ("C:\Programme\DirtyBanditos\Thc.wav")EndIf Edited December 7, 2004 by DirtyBanditos Link to comment Share on other sites More sharing options...
Developers Jos Posted December 7, 2004 Developers Share Posted December 7, 2004 (edited) Hello sry this is my code to a load Sound .wav file my prob wen i start my spammbot he load the wav sound file this is ok but he not repeat the sound file ((lock my code pls big thx for help Script Start; ----------------------------------------------------------------------------SoundPlay("C:\Programme\DirtyBanditos\Thc.wav", 0)If FileExists("C:\Programme\DirtyBanditos\Thc.wav") Then$Tada = ("C:\Programme\DirtyBanditos\Thc.wav")Else$Tada = ("C:\Programme\DirtyBanditos\Thc.wav")EndIf<{POST_SNAPBACK}>This piece of code doesn't make much sence. You play the wav file and then have an If which set the Variable $Tada to the same wav file and then don't use it anymore in the script.Needs more explanation........ Edited December 7, 2004 by JdeB SciTE4AutoIt3 Full installer Download page - Beta files Read before posting How to post scriptsource Forum etiquette Forum Rules Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
DirtyBanditos Posted December 7, 2004 Author Share Posted December 7, 2004 (edited) This piece of code doesn't make much sence. You play the wav file and then have an If which set the Variable $Tada to the same wav file and then don't use it anymore in the script.Needs more explanation........<{POST_SNAPBACK}>Hello sry i understand i habe lock on the autoit helpfiles no have fund a better code for my projekt i ned help for make a code to load my wav sound file an repeat it thx for help a noob post me pls a exampel to learn it better I have found this code on this forum to load a sound wav file!Script Start; ----------------------------------------------------------------------------SoundPlay("C:\Programme\DirtyBanditos\Thc.wav", 0)If FileExists("C:\Programme\DirtyBanditos\Thc.wav") Then$Tada = ("C:\Programme\DirtyBanditos\Thc.wav")Else$Tada = ("C:\Programme\DirtyBanditos\Thc.wav")EndIfWat is wrong ned help pls Edited December 7, 2004 by DirtyBanditos Link to comment Share on other sites More sharing options...
this-is-me Posted December 7, 2004 Share Posted December 7, 2004 Stinkin spammer. To everyone on this board, please don't help him to create a program to spam anyone. Who else would I be? Link to comment Share on other sites More sharing options...
DirtyBanditos Posted December 7, 2004 Author Share Posted December 7, 2004 (edited) Stinkin spammer. To everyone on this board, please don't help him to create a program to spam anyone.<{POST_SNAPBACK}>Hello This-is-me the programm wörks for spamm not wav sound and thx for your post message Edited December 7, 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