Beiträge von bernd670

  • alle 4 sekunden, linke maustaste drücken

    Es wäre schön wenn ihr nicht jeden der die Funktionen Send und/oder Pixelsearch benutzt gleich verdächtigt einen BOT zu schreiben. Mitlerweile gibt es schon mehr Beiträge in denen der Verdacht geäussert wird als Beiträge in denen es wirklich um BOT's geht! Man muss auch nicht immer den kompletten Beitrag zitieren! Mir persönlich wäre es lieber, wenn der Verdacht auf einen BOT besteht, dass man eine PN an die Mod's mit entsprechen Beitrag-Link schreibt. Die können ja dann entscheiden ob es wirklich ein BOT ist oder nicht. Vllt. kann man ja einen Thema-Melden Button ins Forum enbinden!

  • Umkehrung von BitOr

    Das geht aber nur wenn jeder Wert bei BitOR nur ein Bit setzt!

    Spoiler anzeigen
    [autoit]

    ConsoleWrite(@CRLF & "BitOR(0x02000000,0x00800000)" & @CRLF)
    For $i = 0 To 31
    If BitAND(BitOR(0x02000000, 0x00800000), 2 ^ $i) Then ConsoleWrite("0x" & Hex(2 ^ $i) & @CRLF)
    Next

    [/autoit] [autoit][/autoit] [autoit]

    ConsoleWrite(@CRLF & "BitOR(0x02000000,0x00800001)" & @CRLF)
    For $i = 0 To 31
    If BitAND(BitOR(0x02000000, 0x00800001), 2 ^ $i) Then ConsoleWrite("0x" & Hex(2 ^ $i) & @CRLF)
    Next

    [/autoit]

  • Excel

    Hallo, Du hast das Thema gerade mal vor 4 Stunden eröffnet und jetzt bist Du schon wieder am pushen. Wir haben auch noch was anderes zu tun als immer gleich auf Fragen, in denen dann noch nicht mal ein Quellcode steht, zu Antworten. Ich glaube auch das es hier und im engl. Forum schon einige Beispiele gibt anhand derer Du dein Problem selbst lösen kannst. Also erst mal selbst probieren und wenn Du dann nicht weiter kommst kannst Du deine Fragen, mit entsprechendem Quellcode, posten.

  • Probleme bei einer Funktion in einer Gui die eine Gui schließen soll aber nicht macht

    Diese Start-Funktion entspricht auch nicht der vorherigen Start-Funktion, in dieser hast 2x GuiCtrlRead vergessen.

    Spoiler anzeigen
    [autoit]

    Func Start()
    GUICtrlRead($SROPfad)
    Run (GUICtrlRead($SROPfad))
    $handle = WinGetHandle ("[CLASS:CLIENT]")
    WinActivate ("[CLASS:CLIENT]")
    Controlsend ($handle,"","Edit1","{TAB}{TAB}")
    Sleep(1000)
    ControlSend ($handle,"","Edit1",GUICtrlRead($ID))
    Sleep(1000)
    Controlsend ($handle,"","Edit2","{TAB}")
    ControlSend ($handle,"","Edit2",GUICtrlRead($PW))
    EndFunc

    [/autoit]
    Zitat von TheBigX

    des weiteren wollte ich gerne überflüssige buttons vermeiden (zeigen und verstecken zum beispiel)

    Das geht mit GuiCtrlSetState!

  • Poker-Card-Machine (Game)

    Hatte auch gerade eine Jackpot mit 0$!

    Edit:
    der Wert ist zu hoch für Random, der Min- und Maxwert müssen kleiner 2^31 sein!

    Ändere Zeile 254 mal folgendermaßen:

    Spoiler anzeigen
    [autoit]

    $iJackpotMoney = Random(2, 5, 1) * $iBet

    [/autoit]

    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

  • Probleme bei einer Funktion in einer Gui die eine Gui schließen soll aber nicht macht

    Das mit dem 2. Fenster geht so:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <IE.au3>
    #include <WindowsConstants.au3>

    [/autoit] [autoit][/autoit] [autoit]

    Opt("GuiOnEventMode", 1)
    $secondwindow = GUICreate("Mehr Optionen", 400, 200)
    GUISetOnEvent($GUI_EVENT_CLOSE, "Optionenende")
    $exit2 = GUICtrlCreateButton("Fenster Schliessen", 150, 160, 90, 20)
    GUICtrlSetOnEvent($exit2, "Optionenende")

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $mainwindow = GUICreate("Silkroad Starter", 400, 500)
    GUISetOnEvent($GUI_EVENT_CLOSE, "Schliessen")
    $pfad = GUICtrlCreateInput("", 20, 190, 300, 20)
    $acc = GUICtrlCreateInput("", 20, 250, 300, 20)
    $pass = GUICtrlCreateInput("", 20, 310, 300, 20, 0x0020)
    $pot = GUICtrlCreateInput("NUR ECSRO!", 20, 130, 300, 20)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateLabel("Bitte ECSRO Autopot pfad angeben:", 20, 105)
    GUICtrlCreateLabel("Bitte Silkroad Pfad angeben:", 20, 165)
    GUICtrlCreateLabel("Bitte Accountnamen angeben:", 20, 225)
    GUICtrlCreateLabel("Bitte Passwort angeben:", 20, 285)
    GUICtrlCreateLabel("Coded by TheBigX", 2, 487)

    [/autoit] [autoit][/autoit] [autoit]

    $start = GUICtrlCreateButton("Start", 290, 360, 90, 40)
    GUICtrlSetOnEvent($start, "Start")
    $exit = GUICtrlCreateButton("Starter Schließen", 290, 400, 90, 40)
    GUICtrlSetOnEvent($exit, "Schliessen")

    [/autoit] [autoit][/autoit] [autoit]

    $hilfe = GUICtrlCreateButton("Hilfe ich weiss nicht was ich da eintippen soll", 50, 1, 300, 30)
    GUICtrlSetOnEvent($hilfe, "hilfe")
    $hide = GUICtrlCreateButton("Client Verstecken", 290, 440, 90, 20)
    GUICtrlSetOnEvent($hide, "hide")
    $show = GUICtrlCreateButton("Client Zeigen", 290, 460, 90, 20)
    GUICtrlSetOnEvent($show, "show")

    [/autoit] [autoit][/autoit] [autoit]

    $otherctrl = GUICtrlCreateButton("Weitere Optionen", 155, 480, 90, 21)
    GUICtrlSetOnEvent($otherctrl, "other")

    [/autoit] [autoit][/autoit] [autoit]

    $save = GUICtrlCreateButton("Char1 Speichern", 20, 360, 90, 30)
    GUICtrlSetOnEvent($save, "save")
    $load = GUICtrlCreateButton("Char1 Laden", 155, 360, 90, 30)
    GUICtrlSetOnEvent($load, "load")

    [/autoit] [autoit][/autoit] [autoit]

    $save2 = GUICtrlCreateButton("Char2 Speichern", 20, 390, 90, 30)
    GUICtrlSetOnEvent($save2, "save2")
    $load2 = GUICtrlCreateButton("Char2 Laden", 155, 390, 90, 30)
    GUICtrlSetOnEvent($load2, "load2")

    [/autoit] [autoit][/autoit] [autoit]

    $save3 = GUICtrlCreateButton("Char3 Speichern", 20, 420, 90, 30)
    GUICtrlSetOnEvent($save3, "save3")
    $load3 = GUICtrlCreateButton("Char3 Laden", 155, 420, 90, 30)
    GUICtrlSetOnEvent($load3, "load3")

    [/autoit] [autoit][/autoit] [autoit]

    $save4 = GUICtrlCreateButton("Char4 Speichern", 20, 450, 90, 30)
    GUICtrlSetOnEvent($save4, "save4")
    $load4 = GUICtrlCreateButton("Char4 Laden", 155, 450, 90, 30)
    GUICtrlSetOnEvent($load4, "load4")

    [/autoit] [autoit][/autoit] [autoit]

    $srohp = GUICtrlCreateButton("Zur Silkroadonline Homepage", 50, 31, 150, 30)
    GUICtrlSetOnEvent($srohp, "HP")
    $banlist = GUICtrlCreateButton("Zur Wöchentlichen Banliste", 200, 31, 150, 30)
    GUICtrlSetOnEvent($banlist, "ban")
    $forum = GUICtrlCreateButton("Zum Silkroadonline.de Forum", 50, 61, 300, 30)
    GUICtrlSetOnEvent($forum, "forum")
    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    Sleep(1000)
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Func other()
    GUISetState(@SW_SHOW, $secondwindow)
    EndFunc ;==>other

    [/autoit] [autoit][/autoit] [autoit]

    Func hide()
    $handle = WinGetHandle("[CLASS:CLIENT]")
    WinSetState($handle, "", @SW_HIDE)
    EndFunc ;==>hide

    [/autoit] [autoit][/autoit] [autoit]

    Func show()
    $handle = WinGetHandle("[CLASS:CLIENT]")
    WinSetState($handle, "", @SW_SHOW)
    EndFunc ;==>show

    [/autoit] [autoit][/autoit] [autoit]

    Func Schliessen()
    Exit
    EndFunc ;==>Schliessen

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Func Optionenende()
    GUISetState(@SW_HIDE, $secondwindow)
    EndFunc ;==>Optionenende

    [/autoit] [autoit][/autoit] [autoit]

    Func hilfe()
    MsgBox(64, "Hilfe", "ECSRO Autopot: Gib den Ort an wo die autopot.exe für ECSRO liegt (z.b. C:\Programme\ECSRO\autopot.exe) !Dabei IMMER die autopot.exe mit eintippen!")
    MsgBox(64, "Hilfe", "Silkroad Pfad: Gib den Ort an wo die silkroad.exe (um den loader zu benutzen die Loader.exe) liegt (z.b. C:\Programme\Silkroad\silkroad.exe oder loader.exe) !Dabei IMMER die silkroad.exe /Loader.exe miteintippen!")
    EndFunc ;==>hilfe

    [/autoit] [autoit][/autoit] [autoit]

    Func HP()
    $oIE = _IECreate("www.silkroadonline.net")

    [/autoit] [autoit][/autoit] [autoit]

    EndFunc ;==>HP

    [/autoit] [autoit][/autoit] [autoit]

    Func ban()
    $oIE = _IECreate("http://www.joymax.com/silkroad/Silkroad_Front.jmx?workURL=http://silkroadcp.joymax.com/notarget/punishment/punishment_list.asp?")

    [/autoit] [autoit][/autoit] [autoit]

    EndFunc ;==>ban

    [/autoit] [autoit][/autoit] [autoit]

    Func forum()
    $oIE = _IECreate("http://www.silkroadonline.de/")

    [/autoit] [autoit][/autoit] [autoit]

    EndFunc ;==>forum

    [/autoit] [autoit][/autoit] [autoit]

    Func Start()
    GUICtrlRead($pfad)

    [/autoit] [autoit][/autoit] [autoit]

    $pass = GUICtrlRead($pass)
    $acc = GUICtrlRead($acc)
    Run(GUICtrlRead($pfad))
    Sleep(10000)
    $handle = WinGetHandle("[CLASS:CLIENT]")
    ControlSend($handle, "", "Edit1", "{TAB},{TAB}")
    Sleep(200)
    ControlSend($handle, "", "Edit1", $acc)
    Sleep(150)
    ControlSend($handle, "", "Edit1", "{TAB}")
    ControlSend($handle, "", "Edit1", $pass)
    Sleep(1000)
    ControlSend($handle, "", "Edit1", "{ENTER}")
    Run(GUICtrlRead($pot))

    [/autoit] [autoit][/autoit] [autoit]

    EndFunc ;==>Start

    [/autoit] [autoit][/autoit] [autoit]

    Func save()
    IniWrite("settings.ini", "char1", "Acc-name", GUICtrlRead($acc))
    IniWrite("settings.ini", "char1", "Silkroadordner", GUICtrlRead($pfad))
    IniWrite("settings.ini", "char1", "Autopotter", GUICtrlRead($pot))
    IniWrite("settings.ini", "char1", "Passwort", GUICtrlRead($pass))
    EndFunc ;==>save

    [/autoit] [autoit][/autoit] [autoit]

    Func load()
    $1 = IniRead("settings.ini", "char1", "Silkroadordner", GUICtrlRead($pfad))
    $2 = IniRead("settings.ini", "char1", "Acc-name", GUICtrlRead($acc))
    $3 = IniRead("settings.ini", "char1", "Autopotter", GUICtrlRead($pot))
    $4 = IniRead("settings.ini", "char1", "Passwort", GUICtrlRead($pass))
    GUICtrlSetData($pfad, $1)
    GUICtrlSetData($acc, $2)
    GUICtrlSetData($pot, $3)
    GUICtrlSetData($pass, $4)
    EndFunc ;==>load

    [/autoit] [autoit][/autoit] [autoit]

    Func save2()
    IniWrite("settings.ini", "char2", "Acc-name", GUICtrlRead($acc))
    IniWrite("settings.ini", "char2", "Silkroadordner", GUICtrlRead($pfad))
    IniWrite("settings.ini", "char2", "Autopotter", GUICtrlRead($pot))
    IniWrite("settings.ini", "char2", "Passwort", GUICtrlRead($pass))
    EndFunc ;==>save2

    [/autoit] [autoit][/autoit] [autoit]

    Func load2()
    $1 = IniRead("settings.ini", "char2", "Silkroadordner", GUICtrlRead($pfad))
    $2 = IniRead("settings.ini", "char2", "Acc-name", GUICtrlRead($acc))
    $3 = IniRead("settings.ini", "char2", "Autopotter", GUICtrlRead($pot))
    $4 = IniRead("settings.ini", "char2", "Passwort", GUICtrlRead($pass))
    GUICtrlSetData($pfad, $1)
    GUICtrlSetData($acc, $2)
    GUICtrlSetData($pot, $3)
    GUICtrlSetData($pass, $4)
    EndFunc ;==>load2

    [/autoit] [autoit][/autoit] [autoit]

    Func save3()
    IniWrite("settings.ini", "char3", "Acc-name", GUICtrlRead($acc))
    IniWrite("settings.ini", "char3", "Silkroadordner", GUICtrlRead($pfad))
    IniWrite("settings.ini", "char3", "Autopotter", GUICtrlRead($pot))
    IniWrite("settings.ini", "char3", "Passwort", GUICtrlRead($pass))
    EndFunc ;==>save3

    [/autoit] [autoit][/autoit] [autoit]

    Func load3()
    $1 = IniRead("settings.ini", "char3", "Silkroadordner", GUICtrlRead($pfad))
    $2 = IniRead("settings.ini", "char3", "Acc-name", GUICtrlRead($acc))
    $3 = IniRead("settings.ini", "char3", "Autopotter", GUICtrlRead($pot))
    $4 = IniRead("settings.ini", "char3", "Passwort", GUICtrlRead($pass))
    GUICtrlSetData($pfad, $1)
    GUICtrlSetData($acc, $2)
    GUICtrlSetData($pot, $3)
    GUICtrlSetData($pass, $4)
    EndFunc ;==>load3

    [/autoit] [autoit][/autoit] [autoit]

    Func save4()
    IniWrite("settings.ini", "char4", "Acc-name", GUICtrlRead($acc))
    IniWrite("settings.ini", "char4", "Silkroadordner", GUICtrlRead($pfad))
    IniWrite("settings.ini", "char4", "Autopotter", GUICtrlRead($pot))
    IniWrite("settings.ini", "char4", "Passwort", GUICtrlRead($pass))
    EndFunc ;==>save4

    [/autoit] [autoit][/autoit] [autoit]

    Func load4()
    $1 = IniRead("settings.ini", "char4", "Silkroadordner", GUICtrlRead($pfad))
    $2 = IniRead("settings.ini", "char4", "Acc-name", GUICtrlRead($acc))
    $3 = IniRead("settings.ini", "char4", "Autopotter", GUICtrlRead($pot))
    $4 = IniRead("settings.ini", "char4", "Passwort", GUICtrlRead($pass))
    GUICtrlSetData($pfad, $1)
    GUICtrlSetData($acc, $2)
    GUICtrlSetData($pot, $3)
    GUICtrlSetData($pass, $4)
    EndFunc ;==>load4

    [/autoit]

    Das mit der 0 kann ich nicht nachvollziehen, wann kommt die den genau!

    PS: Ist kein BOT!

  • TCPRecv auf W2k3 Server

    Du solltest deinem Client auch die Zeit geben was zu senden:

    Spoiler anzeigen
    [autoit]

    $Empfaenger_IP = "193.196.108.5"
    $Port = 33891
    $Text = InputBox("Text senden","Text eingeben, der gesendet werden soll","")
    If @error = 1 Then Exit

    [/autoit] [autoit][/autoit] [autoit]

    TCPStartUp()

    [/autoit] [autoit][/autoit] [autoit]

    $ConnectedSocket = TCPConnect($Empfaenger_IP, $Port)
    TCPSend($ConnectedSocket, $Text)
    Sleep(1000)
    TCPShutdown ()

    [/autoit]