Sign in to follow this  
Followers 0
DirtyBanditos

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

12 posts in this topic

:D

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) :lol:

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

; 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

:idiot:

Share this post


Link to post
Share on other sites



:D

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) :lol:

:idiot:

<{POST_SNAPBACK}>

Run is a keyword . You cannot use them for your own functions.

Visit the SciTE4AutoIt3 Download page for the latest versions  - Beta files                                How to post scriptsource        Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites

:D

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) :lol:

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

; 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

:idiot:

<{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


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)

Share this post


Link to post
Share on other sites

#4 ·  Posted (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 :idiot:

Thx JSThePatriot i test your mody code big thx for fast help wis my prob^^ :D:lol:

Edited by DirtyBanditos

Share this post


Link to post
Share on other sites

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 :idiot:

Thx JSThePatriot i test your mody code big thx for fast help wis my prob^^ :D  :lol:

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

Share this post


Link to post
Share on other sites

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}>

:idiot: 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)) :D

===============================================================================

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

; 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?

Share this post


Link to post
Share on other sites

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)

Share this post


Link to post
Share on other sites

#8 ·  Posted (edited)

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

Could you explain abit more?

JS

<{POST_SNAPBACK}>

:D 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 :idiot:

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 by DirtyBanditos

Share this post


Link to post
Share on other sites

#9 ·  Posted (edited)

:D 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 :idiot:

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 by JdeB

Visit the SciTE4AutoIt3 Download page for the latest versions  - Beta files                                How to post scriptsource        Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites

#10 ·  Posted (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 :D

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 :lol: post me pls a exampel to learn it better ;):D

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 :idiot::D

Edited by DirtyBanditos

Share this post


Link to post
Share on other sites

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


Who else would I be?

Share this post


Link to post
Share on other sites

#12 ·  Posted (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 :lol: the programm wörks for spamm not wav sound and thx for your post message :idiot::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