Jump to content

AscaroN

Members
  • Posts

    6
  • Joined

  • Last visited

Everything posted by AscaroN

  1. i've just tested with nod 32 freezing egui.exe and it still works, there must be another process or something,oh btw it works, but doesn't show any warnings, just when you download file with virus it pauses it, and if not frozen it stops it so there is a diference , but it still works ;D
  2. No It Isn't He wanted to fix bug where when you close settings window it closed whole program (i think that lol ;DD) That's Only Menu Code,the whole program will be a lot bigger ;D
  3. I got what you want!! (i Think ;D) I Hope I Helped ya #include <GuiConstants.au3> $Settings = 0 ;settings window thing :D $Gui = GuiCreate("Test", 390, 360) $Edit = GUICtrlCreateEdit("", 10, 20, 240, 200, $GUI_SS_DEFAULT_EDIT+$ES_READONLY) $Button_1 = GUICtrlCreateButton("Button 1", 30, 240, 70, 20) $Button_2 = GUICtrlCreateButton("Button 2", 160, 240, 70, 20) $menue = GuiCtrlCreateMenu("Bot") $settings = Guictrlcreatemenu("Settings") GUICtrlcreatemenuitem("Connect", $menue) GUICtrlcreatemenuitem("Disconnect", $menue) GUICtrlcreatemenuitem("", $menue) GUICtrlCreateMenuItem("Userlist Manager", $menue) GUICtrlCreateMenuItem("Custom Command Editor", $menue) GUICtrlCreateMenuItem("User Monitor", $menue) GUICtrlCreateMenuItem("Get News And Check For Updates", $menue) GUICtrlCreateMenuItem("", $menue) GUICtrlCreateMenuItem("Ignore Clan Invitations", $menue) GUICtrlCreateMenuItem("", $menue) GUICtrlCreateMenuItem("Quick Channels", $menue) GUICtrlCreateMenuItem("Exit", $menue) $botsettingsitem = GUICtrlCreateMenuItem("Bot Settings", $settings) GUICtrlCreateMenuItem("Use UDF-8 Encoding/Decoding", $settings) GUICtrlCreateMenuItem("", $settings) GUICtrlCreateMenuItem("Edit Profile", $settings) GUICtrlCreateMenuItem("Edit Chat Filters", $settings) GUICtrlCreateMenuItem("Edit Catch Phrases", $settings) GUICtrlCreateMenuItem("", $settings) GUICtrlCreateMenuItem("View Caught Phrases", $settings) GUICtrlCreateMenuItem("Edit Files...", $settings) GUICtrlCreateMenuItem("", $settings) GUICtrlCreateMenuItem("Reload Config", $settings) GUICtrlCreateMenuItem("Reload Script", $settings) $hi = GUICtrlCreateMenu("Connect") GUICtrlCreateMenu("Disconnect") $window = GUictrlcreatemenu("Window") Guictrlcreatemenuitem("Toggle Join/Leave Messages", $window) Guictrlcreatemenuitem("Toggle Chat Window Lock", $window) Guictrlcreatemenuitem("Toggle Chat Filters", $window) Guictrlcreatemenuitem("", $window) Guictrlcreatemenuitem("Use Individual Whisper Windows", $window) Guictrlcreatemenuitem("", $window) Guictrlcreatemenuitem("Show Outgoing Whispers In Whisper Box", $window) Guictrlcreatemenuitem("Hide Whispers In Main Window", $window) Guictrlcreatemenuitem("", $window) Guictrlcreatemenuitem("Logging Settings", $window) Guictrlcreatemenuitem("", $window) Guictrlcreatemenuitem("Clear Chat Window", $window) Guictrlcreatemenuitem("Clear Whisper Window", $window) Guictrlcreatemenuitem("", $window) Guictrlcreatemenuitem("Flash Window On Events", $window) Guictrlcreatemenuitem("Disable Void View", $window) $help = guictrlcreatemenu("Help") Guictrlcreatemenuitem("About...", $help) Guictrlcreatemenuitem("Readme and Command List", $help) Guictrlcreatemenuitem("Homepage", $help) GUISetState() While 1 $Msg = GUIGetMsg() Switch $Msg Case $GUI_EVENT_CLOSE Exit Case $Button_1, $Button_2 $NewData = "Wellcome!" If $Msg = $Button_2 Then $NewData = "Hello!" $Read_Edit = GUICtrlRead($Edit) If $Read_Edit <> "" Then $NewData = @CRLF & $NewData GUICtrlSetData($Edit, $Read_Edit & $NewData) GUICtrlSendMsg($Edit, 0xB7, 0, 0) Case $botSettingsItem; <-- Add an exception for the menu item $Settings = 1 ;enable settings window loop _Bot() EndSwitch WEnd Func _Bot() ;;---Your Program below: $k = IniRead(@ScriptDir & "\Config.ini", "Config", "Account", "") $m = Iniread(@Scriptdir & "\config.ini", "config", "Password", "") $l = Iniread(@Scriptdir & "\config.ini", "config", "HomeChannel", "") $a = Iniread(@Scriptdir & "\config.ini", "config", "SetServer", "") $5 = iniread(@scriptdir & "\config.ini", "config", "WeBBoTSiTE", "") $keyz = iniread(@scriptdir & "\config.ini", "config", "CD-Key", "") $GUI = GUICreate($k & ", Online in channel Clan ByE", 390, 360, -1, -1) $Label_1 = GUICtrlCreateLabel("Account Name", 10, 5, 130, 15) Guictrlcreatelabel("WeBBoT WeBSiTE", 10, 170, 130, 15) $web = guictrlcreateinput($5, 10, 185, 100, 20) $Input_1 = GUICtrlCreateInput($k, 10, 20, 100, 20) $key = GUICtrlcreateinput($keyz, 10, 225, 100, 20) GUICtrlCreateLabel("Password", 10, 45, 130, 15) GUICtrlCreateLabel("Home Channel", 10, 85, 130, 15) GUICtrlCreateLabel("Server", 10, 125, 130, 15) Guictrlcreatelabel("CD-Key", 10, 210, 130, 15) $chan = GUICTRLCREATEINPUT($l, 10, 100, 100, 20) $pass = GUICtrlCreateInput($m, 10, 60, 100, 20) $server = GUICtrlCreateInput($a, 10, 140, 100, 20) $Button_3 = GUICtrlCreateButton("Disconnect", 115, 40, 70, 24) $Button_1 = GUICtrlCreateButton("&Connect", 120, 10, 60, 24) $Edit_1 = GUICtrlCreateEdit("", 190, 30, 150, 185, BitOR($ES_AUTOVSCROLL, $ES_READONLY)) $Label_3 = GUICtrlCreateLabel("Battle.Net Info", 215, 10, 130, 15) $Button_4 = GUICtrlCreateButton("Save and Exit", 190, 221, 151) GUISetState(@SW_SHOW) While $settings = 1 ;settings on $nMsg = GUIGetMsg() Select Case $nMsg = $Button_1 GUICtrlSetData($Edit_1, "Connecting..." & @CRLF & "Connected!" & @CRLF & "[BNLS] Connecting..." & @CRLF & "[BNLS] Connected!" & @CRLF & "Sending Login Information..." & @CRLF & "Login Successful!") Case $nMsg = $GUI_EVENT_CLOSE GUIDelete($k & ", Online in channel Clan ByE") ;delete settings window $Settings = 0 ;turn off settings Case $nMsg = $Button_3 GUIctrlsetdata($edit_1, "[BNET] Disconnected!") Case $nMsg = $Button_4 $EDIT_READ = GUICtrlRead($Input_1) IniWrite(@ScriptDir & "\Config.ini", "Config", "Account", $EDIT_READ) Exit Case $nMsg = $pass $password = GUIctrlread($pass) Iniwrite(@Scriptdir & "\config.ini", "Config", "Password", $password) Exit Case $nMsg = $chan $homechan = Guictrlread($chan) iniwrite(@scriptdir & "\config.ini", "Config", "HomeChannel", $homechan) Case $nMsg = $server $servers = guictrlread($server) iniwrite(@scriptdir & "\config.ini", "config", "SetServer", $servers) Case $nMsg = $web $website = GUICtrlRead($web) iniwrite(@scriptdir & "\config.ini", "config", "WeBBoTSiTE", $website) Case $nMsg = $key $keys = GUIctrlread($key) iniwrite(@scriptdir & "\config.ini", "config", "CD-Key", $keys) Case $nMsg = $button_1 Send("C") EndSelect WEnd EndFunc
  4. Thank You
  5. Very Nice, but is it possible to auto turn off and auto tur on after like 3 seconds, i tried send("{f11}") sleep(3000) send("{f10}")oÝ÷ Ù»­Ú'+n®w¡÷ÚÛazx­®'jëh×6send("{f11}") sleep(3000) _Monitor_OFF() and still not worked, maybe you can help me?
×
×
  • Create New...