wie schon genannt handelt es sich hier um ein kleines Projekt
Ich habe gesehn das es momentan sehr viele Anfänger Te´s gibt
da dachte ich mir ein mal ich mach ein mal ein kleines Projekt in Autoit.
Zweck:
1.Anfänger Lehrnen was
2.sehr nützlich
zum Projekt:
1. hab euch ein Script vorbereitet
2. es funktioniert
3. ich habe in den Buttons ein Bug eingebaut
4.findet den Bug und Postet ihn
5. dann gehn wir zum nächsten Schritt Grafik einbinden icon, Hintergrund, Buttons
offenes Script für die die immer Viruss schreien
Ich habe gesehn das es momentan sehr viele Anfänger Te´s gibt
da dachte ich mir ein mal ich mach ein mal ein kleines Projekt in Autoit.
Zweck:
1.Anfänger Lehrnen was
2.sehr nützlich
zum Projekt:
1. hab euch ein Script vorbereitet
2. es funktioniert
3. ich habe in den Buttons ein Bug eingebaut
4.findet den Bug und Postet ihn
5. dann gehn wir zum nächsten Schritt Grafik einbinden icon, Hintergrund, Buttons
offenes Script für die die immer Viruss schreien
P.S: Installation sollte klar für Autoianfänger sein Ordenr M²BOB in den setting OrdnerQuote:
#include <GUIConstants.au3>
#RequireAdmin
#include <File.au3>
$onn = 0
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Chanel Wechsler für M²Bob Created by JUMPinaBOTTEL", 479, 155, 250, 335)
GUISetFont(12, 800, 0, "MS Sans Serif")
GUISetBkColor(0x00FF00)
$Label1 = GUICtrlCreateLabel("Dies ist ein einfaches Tool für den M²Bob um Automatisch alle 5 sec für alle 3 Chars den Chanel zu wechseln", 8, 24, 775, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Der Chanelwechsel macht sich bemerkbar nach jedem Kick oder Aus und Einloggen", 8, 64, 579, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Chanelwechseler ", 8, 104, 145, 24)
$Aus = GUICtrlCreateButton("Aus", 232, 104, 75, 25, 0)
GUICtrlSetCursor (-1, 0)
$Button1 = GUICtrlCreateButton("An", 152, 104, 75, 25, 0 ,"$chww = 1")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Case $Button1
on ()
case $Aus
off ()
if $onn = 1 Then
While 1
chw ()
WEnd
if $onn = 0 Then
off ()
EndIf
EndIf
EndSwitch
WEnd
func on ()
MsgBox ( 0 , " INFO " , "Für alle Chars würden neue Channel gestzt alle 5 sec" )
$onn = 1
While 1
chw ()
WEnd
EndFunc
func off ()
MsgBox ( 0 , " INFO " , "Stop" )
$onn = 0
exit
EndFunc
Func chw ()
_FileWriteToLine("Launcher.bob", 5, "Channel2=2", 1)
_FileWriteToLine("Launcher.bob", 9, "Channel1=3", 1)
_FileWriteToLine("Launcher.bob", 18, "Channel3=4", 1)
;MsgBox ( 0 , " Error " , "Für alle Chars würden neue Channel gestzt" )
Sleep(5000)
_FileWriteToLine("Launcher.bob", 5, "Channel2=3", 1)
_FileWriteToLine("Launcher.bob", 9, "Channel1=4", 1)
_FileWriteToLine("Launcher.bob", 18, "Channel3=2", 1)
Sleep(5000)
_FileWriteToLine("Launcher.bob", 5, "Channel2=4", 1)
_FileWriteToLine("Launcher.bob", 9, "Channel1=2", 1)
_FileWriteToLine("Launcher.bob", 18, "Channel3=3", 1)
Sleep(5000)
EndFunc