Shift+Alt+d to load a exe file Help me pls

[DirtyBanditos]

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

[Jos]

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.

[JSThePatriot]

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

<{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")
EndFunc

This 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

[DirtyBanditos]

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

[JSThePatriot]

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

[DirtyBanditos]

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")
EndFunc

This 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 screen

ToolTip(" 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!")

Exit

EndIf

; ----------------------------------------------------------------------------

; Script Start

; ----------------------------------------------------------------------------

; Initial shit

HotKeySet("{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 $Paused

Global $MsgBox

Global $mRun

HotKeySet("{PAUSE}", "TogglePause")

HotKeySet("+{PAUSE}", "_MsgBox")

HotKeySet("+!d", "mRun") ;Shift-Alt-d

; ----------------------------------------------------------------------------

; Script code

; ----------------------------------------------------------------------------

; ----------------------------------------------------------------------------

; Script code

; ----------------------------------------------------------------------------

AdlibEnable("SacredCheck")

$counter = 1

While 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 + 1

Wend

AdlibDisable(); 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 ;==>SacredCheck

Func TogglePause()

$Paused = Not $Paused

While $Paused

Sleep(100)

Wend

EndFunc ;==>TogglePause

; Function to exit script

Sleep(1000)

; This will create a tooltip in the upper left of the screen

ToolTip("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 display

Func _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

EndIf

EndFunc ;==>_MsgBox

While 1

Sleep(100)

WEnd

Func 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")

EndFunc

Func _togglePause()

$Paused = Not $Paused

While Not $Paused

Sleep(200)

Wend

EndFunc ;==>_togglePause

Func Pauseon()

$on = 1

Sleep(200)

EndFunc ;==>Pauseon

; Function to exit script

Func Pauseoff()

$on = 0

Sleep(200)

EndFunc ;==>Pauseoff

; Function to exit script

Func EndScript()

Exit

EndFunc ;==>EndScript

AdlibDisable(); you turn it off?

[JSThePatriot]

I am not really understanding what you are wanting the .wav to do?

Could you explain abit more?

JS

[DirtyBanditos]

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

[Jos]

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

[DirtyBanditos]

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")

EndIf

Wat is wrong ned help pls

Edited December 7, 2004 by DirtyBanditos

[this-is-me]

Stinkin spammer. To everyone on this board, please don't help him to create a program to spam anyone.

[DirtyBanditos]

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