Jump to content

gui prob


Recommended Posts

Hello all Members :D

I have a big problem wis my Gui he wörks fine for open and save a file for me wis no probs,but wen i load from my main gui menu The Ip info or Spammbot exe Program then he load this fine,but he freeze The Gui and he have no funktion to load or save a text file or load my next prog from the gui wat i made wrong? then i must restart Manuel the Spammloader Gui wat i made wrong=? :idiot:

Need Pls help ! ;)

:D:lol:

This is The Spammbot Loader Gui Code!

; ----------------------------------------------------------------------------
;
; AutoIt Version:     5.0
; Language:           Germany
; Platform:           Win9x / NT/XP
; Description:        Get the red component of a given color.
; Syntax:           _ Color( $nColor )
; Parameter(s):       $nColor - The RGB color to work with (numeric).
; Requirement(s):     None
; Return Value(s):    On Success - Returns the component color in the range 0-255
;                     On Failure - None
; Author:             DirtyBanditos <DirtyBanditos@web.de.>
; Website Autor       WWW.SacredShop.de.vu
; Releas Date :       27.12.2004
; Script Function:    Spammbot 1.1Beta
;Template AutoIt script.
;
;===============================================================================
; ----------------------------------------------------------------------------
; Set up our defaults
; ----------------------------------------------------------------------------
;AutoItSetOption("MustDeclareVars", 1)
;AutoItSetOption("MouseCoordMode", 0)
;AutoItSetOption("PixelCoordMode", 0)
;AutoItSetOption("RunErrorsFatal", 1)
;AutoItSetOption("TrayIconDebug", 1)
;AutoItSetOption("WinTitleMatchMode", 4)
; ----------------------------------------------------------------------------
; Script Start
; ----------------------------------------------------------------------------
#include <GuiConstants.au3>
#include <datenew.au3>
Global $Paused
Global $mRun
Global $mRun1
Global $mRun2
Global $mRun3
Global $mRun4
Global $Pic_13
Global $Pic_20
Global $Pic_21
Global $Button_25
; ----------------------------------------------------------------------------
; Script Hotkeys
; ----------------------------------------------------------------------------
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("+!1", "mRun");Shift-Alt-1
HotKeySet("+!2", "mRun1");Shift-Alt-2
HotKeySet("+!3", "mRun2");Shift-Alt-3
HotKeySet("+!4", "mRun3");Shift-Alt-4
; ----------------------------------------------------------------------------
; Script Jpg fileinstall and gui start
; ----------------------------------------------------------------------------
FileInstall("DirtyBanditos.jpg", @TempDir & "DirtyBanditos.jpg")
GUICreate("DirtyBanditos Spammbotloader and Translater Version 1.1 Beta Coded 27.12.2004", 800, 600, (@DesktopWidth - 800) / 2, (@DesktopHeight - 600) / 2, 0x000020)
FileInstall("DirtyBanditos1.jpg", @TempDir & "DirtyBanditos1.jpg")
FileInstall("DirtyBanditos2.jpg", @TempDir & "DirtyBanditos2.jpg")
GUISetBkColor(0x000000)
GUICtrlCreateLabel("DirtyBanditos Spammbot 1.1 Beta  Drücke Shift+Alt+1 Das Started den Spammbot/Drücke Shift+Alt+2 für Den Notpad Iditor für die Spammbot.ini!!!Und Shift+Alt+3 Started Die TopLink/Update.Exe!!DrückeShift+Alt+4 Für Die Thc Manual Spammbot.exe Have Fun!", 10, 450, 800, 700)
GUICtrlSetColor(-1, 0xffff0090)
GUICtrlSetFont(-1, 14, 40)
GUICtrlCreateLabel("DirtyBanditos 2004-2005", 600, 200, 300, 50)
GUICtrlSetColor(-1, 0xff33FF33)
GUICtrlSetFont(-1, 10, 10)
Global $text, $file, $hi
$Pic_13 = GUICtrlCreatePic(@TempDir & "DirtyBanditos.jpg", 10, 10, 334, 415)
$Pic_20 = GUICtrlCreatePic(@TempDir & "DirtyBanditos1.jpg", 83, 520, 634, 40)
$Pic_21 = GUICtrlCreatePic(@TempDir & "DirtyBanditos2.jpg", 530, 220, 265, 118)
$Input_14 = GUICtrlCreateEdit(" DirtyBanditos Spammbot 1.1 Beta  Drücke Shift+Alt+1 Das Started den Spammbot/Drücke Shift+Alt+2 für Den Notpad Iditor für die Spammbot.ini!!!Und Shift+Alt+3 Started Die TopLink/Update.Exe!!DrückeShift+Alt+4 Für Die Thc Manual Spammbot.exe Have Fun! ", 350, 20, 380, 160, 0x00200000)
$Button_15 = GUICtrlCreateButton("Save To File Spammbot.ini", 350, 190, 180, 40)
$Button_17 = GUICtrlCreateButton("Load From Spammbot.ini", 350, 240, 180, 40)
$Button_16 = GUICtrlCreateButton("Translate", 350, 290, 180, 40)
$button_18 = GUICtrlCreateButton("Untranslate", 350, 340, 180, 40)
$help = GUICtrlCreateMenu("Hilfe/Load Modules")
$save = GUICtrlCreateMenuitem("Save", $file)
$info = GUICtrlCreateMenuitem("Info/Coder", $help)
$help2 = GUICtrlCreateMenuitem("Help", $help)
$info1 = GUICtrlCreateMenuitem("InGameKeys", $help)
$info6 = GUICtrlCreateMenuitem("Load Ip System Info", $help)
$info2 = GUICtrlCreateMenuitem("Load Spammbot 1.1 Beta", $help)
$info3 = GUICtrlCreateMenuitem("Load DirtysNotepad", $help)
$info4 = GUICtrlCreateMenuitem("Load Thc Multiclipper", $help)
$info7 = GUICtrlCreateMenuitem("Load Date", $help)
$info5 = GUICtrlCreateMenuitem("Load Updates", $help)
$exit = GUICtrlCreateMenuitem("Exit", $help)
GUISetState()
; ----------------------------------------------------------------------------
; Script Load from Gui Hotkeys the Modules Progs
; ----------------------------------------------------------------------------
While 1
   $msg = GUIGetMsg()
   Select
      Case $msg = -3
         ExitLoop
      Case $msg = $Button_15
         $text = GUICtrlRead($Input_14)
         $file = FileSaveDialog("Save to where", @DesktopDir, "Text files (*.txt)")
         FileWrite($file & ".txt", $text)
      Case $msg = $info2
         AutoItSetOption("WinTitleMatchMode", 2)
         Run("C:\Programme\DirtyBanditos\DirtysBanditos  Spammbot 1.1 Beta.exe", "", @SW_MAXIMIZE)
         WinWait("DirtysBanditos  Spammbot 1.1 Beta.exe")
         $ln = StatusbarGetText("DirtysBanditos  Spammbot 1.1 Beta.exe", "")
         MsgBox(0, "Title", $ln & @CR & @error)
         WinWait("Spammbot 1.1 Beta.exe")
      Case $msg = $Button_25
      Case $msg = $info3
         AutoItSetOption("WinTitleMatchMode", 2)
         Run("C:\Programme\DirtyBanditos\DirtysNotepad.exe", "", @SW_MAXIMIZE)
         WinWait("DirtysNotepad.exe")
         $ln = StatusbarGetText("DirtysNotepad.exe", "")
         MsgBox(0, "Title", $ln & @CR & @error)
         WinWait("DirtysNotepad.exe")
      Case $msg = $Button_25
      Case $msg = $info4
         AutoItSetOption("WinTitleMatchMode", 2)
         Run("C:\Programme\DirtyBanditos\Thc.exe", "", @SW_MAXIMIZE)
         WinWait("Meine Links.exe")
         $ln = StatusbarGetText("Thc.exe", "")
         MsgBox(0, "Title", $ln & @CR & @error)
         WinWait("Thc.exe")
      Case $msg = $Button_25
      Case $msg = $info5
         AutoItSetOption("WinTitleMatchMode", 2)
         Run("C:\Programme\DirtyBanditos\Meine Links.exe", "", @SW_MAXIMIZE)
         WinWait("Meine Links.exe")
         $ln = StatusbarGetText("Meine Links.exe", "")
         MsgBox(0, "Title", $ln & @CR & @error)
         WinWait("Meine Links.exe")
         Case $msg = $exit
         Exit
      Case $msg = $Button_25
         Case $msg = $info6
         AutoItSetOption("WinTitleMatchMode", 2)
         Run("C:\Programme\DirtyBanditos\Ip info.exe", "", @SW_MAXIMIZE)
         WinWait("Ip info.exe")
         $ln = StatusbarGetText("Ip info.exe", "")
         MsgBox(0, "Title", $ln & @CR & @error)
         WinWait("Ip info.exe")
         Case $msg = $exit
         Exit
      Case $msg = $Button_25
         Case $msg = $info7
         AutoItSetOption("WinTitleMatchMode", 2)
         Run("C:\Programme\DirtyBanditos\Uhr.exe", "", @SW_MAXIMIZE)
         WinWait("Uhr.exe")
         $ln = StatusbarGetText("Uhr.exe", "")
         MsgBox(0, "Title", $ln & @CR & @error)
         WinWait("Uhr.exe")
         Case $msg = $exit
         Exit
      Case $msg = $Button_25
      Case $msg = $info
         MsgBox(0, "About", "Spammbotloader 1.1 Beta" & @LF & "Made by :DirtyBanditos 2004-2005")
      Case $msg = $Button_25
      Case $msg = $info1
         MsgBox(0, "InGameKeys", "Spammbotloader 1.1 Beta" & @LF & "InGameKeys Shift+Alt+1 Startéd den Spammbot 1.1 Beta")
         MsgBox(0, "InGameKeys", "Spammbotloader 1.1 Beta" & @LF & "InGameKeys Shift+Alt+2 Startéd  DirtysNotepad")
         MsgBox(0, "InGameKeys", "Spammbotloader 1.1 Beta" & @LF & "InGameKeys Shift+Alt+3 Startéd Meine Updates Links Exe")
         MsgBox(0, "InGameKeys", "Spammbotloader 1.1 Beta" & @LF & "InGameKeys Shift+Alt+4 Startéd Thc Multiclipper ")
      Case $msg = $Button_25
      Case $msg = $help2
         Run("notepad.exe Readme")
      Case $msg = $exit
         Exit
        ; ----------------------------------------------------------------------------
        ; Script Tranlation start
        ; ----------------------------------------------------------------------------
      Case $msg = $Button_16
         SplashTextOn("Prompt", "DirtyBanditos Translating......", 450, 50, -1, -1, 4, "", 24)
         Sleep(600)
         $text = GUICtrlRead($Input_14)
         $text = StringReplace($text, "great", "gr8", 0, 0)
         $text = StringReplace($text, "your", "y0ur", 0, 0)
         $text = StringReplace($text, "you", "j00", 0, 0)
         $text = StringReplace($text, "a", "@", 0, 1)
         $text = StringReplace($text, "f", "", 0, 1)
         $text = StringReplace($text, "y", "¥", 0, 1)
         $text = StringReplace($text, "z", "2", 0, 1)
         $text = StringReplace($text, "u", "µ", 0, 1)
         $text = StringReplace($text, "A", "4", 0, 1)
         $text = StringReplace($text, "cker", "x0r", 0, 0)
         $text = StringReplace($text, "!", "!1!!11!", 0, 0)
         $text = StringReplace($text, "e", "3", 0, 0)
         $text = StringReplace($text, "l", "|", 0, 1)
         $text = StringReplace($text, "t", "7", 0, 1)
         $text = StringReplace($text, "S", "$", 0, 1)
         $text = StringReplace($text, "s", "5", 0, 1)
         $text = StringReplace($text, "i", "1", 0, 1)
         $text = StringReplace($text, "g", "9", 0, 1)
         $text = StringReplace($text, "o", "0", 0, 1)
         $text = StringReplace($text, "ck", "xx", 0, 0)
         $text = StringReplace($text, "d", "d", 0, 1)
         $text = StringReplace($text, "b", "b", 0, 1)
         $text = StringReplace($text, "D", "Ð", 0, 1)
         $text = StringReplace($text, "B", "l3", 0, 1)
         $text = StringReplace($text, "w", "w", 0, 1)
         $text = StringReplace($text, "v", "v", 0, 1)
         $text = StringReplace($text, "m", "m", 0, 1)
         $text = StringReplace($text, "n", "n", 0, 1)
         $text = StringReplace($text, "h", "h", 0, 1)
         $text = StringReplace($text, "W", "\/\/", 0, 1)
         $text = StringReplace($text, "V", "\/", 0, 1)
         $text = StringReplace($text, "M", "/\/\", 0, 1)
         $text = StringReplace($text, "N", "/\/", 0, 1)
         $text = StringReplace($text, "H", "|-|", 0, 1)
         $text = StringReplace($text, "X", "><", 0, 1)
         $text = StringReplace($text, "O", "()", 0, 1)
         $text = StringReplace($text, "K", "|<", 0, 1)
         SplashOff()
         GUICtrlSetData($Input_14, $text)
      Case $msg = $Button_17
         $file = FileOpenDialog("What file would you like to open?", @DesktopDir, "All files (*.*)")
         If Not @error Then
            $chars = FileRead($file, FileGetSize($file))
            GUICtrlSetData($Input_14, $chars)
         EndIf
      Case $msg = $button_18
         SplashTextOn("Prompt", "DirtyBanditos Translating....", 450, 50, -1, -1, 4, "", 24)
         Sleep(600)
         $text = GUICtrlRead($Input_14)
         $text = StringReplace($text, "gr8", "great", 0, 0)
         $text = StringReplace($text, "y0ur", "your", 0, 0)
         $text = StringReplace($text, "j00", "you", 0, 0)
         $text = StringReplace($text, "x0r", "cker", 0, 0)
         $text = StringReplace($text, "!1!!11!", "!", 0, 0)
         $text = StringReplace($text, "Ð", "D", 0, 1)
         $text = StringReplace($text, "3", "e", 0, 0)
         $text = StringReplace($text, "\/\/", "W", 0, 1)
         $text = StringReplace($text, "/\/\", "M", 0, 1)
         $text = StringReplace($text, "/\/", "N", 0, 1)
         $text = StringReplace($text, "l3", "B", 0, 1)
         $text = StringReplace($text, "w", "w", 0, 1)
         $text = StringReplace($text, "v", "v", 0, 1)
         $text = StringReplace($text, "m", "m", 0, 1)
         $text = StringReplace($text, "n", "n", 0, 1)
         $text = StringReplace($text, "", "f", 0, 1)
         $text = StringReplace($text, "¥", "y", 0, 1)
         $text = StringReplace($text, "2", "z", 0, 1)
         $text = StringReplace($text, "µ", "u", 0, 1)
         $text = StringReplace($text, "h", "h", 0, 1)
         $text = StringReplace($text, "\/", "V", 0, 1)
         $text = StringReplace($text, "|-|", "H", 0, 1)
         $text = StringReplace($text, "><", "X", 0, 1)
         $text = StringReplace($text, "()", "O", 0, 1)
         $text = StringReplace($text, "|<", "K", 0, 1)
         $text = StringReplace($text, "3", "e", 0, 0)
         $text = StringReplace($text, "|)", "D", 0, 1)
         $text = StringReplace($text, "|", "l", 0, 0)
         $text = StringReplace($text, "7", "t", 0, 0)
         $text = StringReplace($text, "@", "a", 0, 1)
         $text = StringReplace($text, "4", "A", 0, 1)
         $text = StringReplace($text, "5", "s", 0, 1)
         $text = StringReplace($text, "$", "S", 0, 1)
         $text = StringReplace($text, "1", "i", 0, 0)
         $text = StringReplace($text, "9", "g", 0, 0)
         $text = StringReplace($text, "0", "o", 0, 0)
         $text = StringReplace($text, "xx", "ck", 0, 0)
         $text = StringReplace($text, "d", "d", 0, 1)
         $text = StringReplace($text, "b", "b", 0, 1)
         SplashOff()
         GUICtrlSetData($Input_14, $text)
         Sleep(100)
      EndSelect
    ; ----------------------------------------------------------------------------
    ; Script Tranlation Ende
    ; ----------------------------------------------------------------------------
Wend
While 1
   Sleep(100)
Wend
Func mRun3()
   AutoItSetOption("WinTitleMatchMode", 2)
   Run("C:\Programme\DirtyBanditos\Thc.exe", "", @SW_MAXIMIZE)
   WinWait("Meine Links.exe")
   $ln = StatusbarGetText("Thc.exe", "")
   MsgBox(0, "Title", $ln & @CR & @error)
   WinWait("Thc.exe")
EndFunc  ;==>mRun3
Func mRun2()
   AutoItSetOption("WinTitleMatchMode", 2)
   Run("C:\Programme\DirtyBanditos\Meine Links.exe", "", @SW_MAXIMIZE)
   WinWait("Meine Links.exe")
   $ln = StatusbarGetText("Meine Links.exe", "")
   MsgBox(0, "Title", $ln & @CR & @error)
   WinWait("Meine Links.exe")
EndFunc  ;==>mRun2
Func mRun1()
   AutoItSetOption("WinTitleMatchMode", 2)
   Run("C:\Programme\DirtyBanditos\DirtysNotepad.exe", "", @SW_MAXIMIZE)
   WinWait("DirtysNotepad.exe")
   $ln = StatusbarGetText("DirtysNotepad.exe", "")
   MsgBox(0, "Title", $ln & @CR & @error)
   WinWait("DirtysNotepad.exe")
EndFunc  ;==>mRun1
Func mRun()
   AutoItSetOption("WinTitleMatchMode", 2)
   Run("C:\Programme\DirtyBanditos\DirtysBanditos  Spammbot 1.1 Beta.exe", "", @SW_MAXIMIZE)
   WinWait("DirtysBanditos  Spammbot 1.1 Beta.exe")
   $ln = StatusbarGetText("DirtysBanditos  Spammbot 1.1 Beta.exe", "")
   MsgBox(0, "Title", $ln & @CR & @error)
   WinWait("Spammbot 1.1 Beta.exe")
EndFunc  ;==>mRun
Sleep(100)
Func TogglePause()
   $Paused = Not $Paused
   While $Paused
      Sleep(100)
      ToolTip('Script is "Paused"', 0, 0)
   Wend
   ToolTip("")
EndFunc  ;==>TogglePause
Func Terminate()
   Exit 0
EndFunc  ;==>Terminate
;End Capital Letters
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Edited by DirtyBanditos
Link to comment
Share on other sites

Hello all Members :D

I have a big problem wis my Gui he wörks fine for open and save a file for me wis no probs,but wen i load from my main gui menu The Ip info or Spammbot exe Program then he load this fine,but he freeze The Gui and he have no funktion to load or save a text file or load my next Prog from the gui wat i made wrong? then i must Restart Manuel The Spammloader Gui wat i made wrong=? :idiot:

Need Pls help ! :D

:D:lol:

;) No Member can Help me out for my prob=?

Link to comment
Share on other sites

add:

Sleep(500)

after running your program and before doing a WinWait

also change WinTitleMatchMode to 2 ( unless you are really using the advanced mode )

this is a lot of code so if anybody is willing to read it and debug it. It will take time.

remember add some

Sleep(500)

here and there to slow down AutoIt so you could see what is going on

(the fact that I dont really understand what the error is; is also a problem)

1. click on your gui's SPAMMBOT button and SPAMMBOT works but you close it

and nothing else works ?

if this is the case the script might still be waiting for SPAMMBOT to open

Link to comment
Share on other sites

add:

Sleep(500)

after running your program and before doing a WinWait

also change WinTitleMatchMode  to 2 ( unless you are really using the advanced mode )

this is a lot of code so if anybody is willing to read it and debug it. It will take time.

remember add some

Sleep(500)

here and there to slow down AutoIt so you could see what is going on

(the fact that I dont really understand what the error is; is also a problem)

1. click on your gui's SPAMMBOT button and SPAMMBOT works but you close it

   and nothing else works ?

if this is the case the script might still be waiting for SPAMMBOT to open

<{POST_SNAPBACK}>

Hi normeus :idiot: Yes wat you say is right ,thats my prob i check wen i enable My ip exe or Spammbot exe that wörks great but the Spammloader Gui freeze and i can not load any next Program for Runing from Gui Loader Buttons.I Test your Tips and replace it on my code from the Spammloader Gui i hope that wörks :D

Thx Normeus

I have test it , self prob i can load 1 Prog from Spammloader Gui Buttons than freeze all buttons.

Edited by DirtyBanditos
Link to comment
Share on other sites

Hi normeus  :D Yes wat you say is right ,thats my prob i check wen i enable My ip exe or Spammbot exe that wörks great but the Spammloader Gui freeze and i can not load any next Program for Runing from Gui Loader Buttons.I Test your Tips and replace it on my code from the Spammloader Gui i hope that wörks :D

Thx Normeus

I have test it , self prob i can load 1 Prog from Spammloader Gui Buttons than freeze all buttons,but wen  i load all my exe pogs from Keys  Shift+Alt+1 or Shift+Alt+2 or Shift+Alt+3 that wörks wis no Probs on My Spammloader gui=? I understand wy ;) Or gif this a way for enable and disable The Spammloader Gui Buttons=?

<{POST_SNAPBACK}>

:idiot: Help any i post The Spammloader Gui Zip Dowload it and Look pls any coder , wen you start The Spammbot loader exe the cant not any open from the Spammloader Menu!!Thx all for Help me out! :lol:

Spammloader gui Zip Source And Compilied.exe include

Edited by DirtyBanditos
Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...