Tratsch rund um Autoit / Autoit Talk | kleinere Fragen

alpines · 04/23/2014, 12:18

Image-Search und Pixel-Search sind nicht detectable und wenn dann ist es nicht erlaubt wegen PixelGetColor oder ähnlichem jemanden aus einem MMORPG zu bannen (außer er bottet regelwidrig natürlich).

ImageSearch läuft wie PixelGetColor clientsided, aber es besteht eine gefahr das das HShield des MMORPGs wegen dem AutoIt Script rumflennt und jedes au3-Script geschlossen haben will bevor es startet.

Du kannst den Bot ja "vermenschlichen" indem du ein paar Delays reinhaust und den Klickpunkt variierst, damit ist die Chance ertappt zu werden geringer.

Fragt sich nur ob ImageSearch was bringt, denn MouseClick / ControlClick / ControlSend gehen bei vielen MMORPGs leider nicht und muss über den Treiber gehandlet werden.

Zyklo · 04/23/2014, 12:43

war genau was ich wissen wollte, dank dir

milsowa · 04/27/2014, 00:52

Ich arbeite recht neu mit AutoIt und ich wollte daher fragen wie ich es hinbekomme das man nichts zweimal eingeben kann bei mir gehts erst wen ihn der ersten reihe was steht und dan nochmal auf check drückt das da steht das es zweimal nicht geht aber wen ich leertaste oder nächste zeile gehe und das gleiche rein schreibe dan gehts wieder nicht.

Code:

If $wo man es rein schreibt = GUICtrlRead($wo es dan auftaucht) Then
					MsgBox(48, "Fehler", "Bitte gib den gleichen Namen nicht zweimal ein!!")
                    Return 0
				 EndIf

alpines · 04/27/2014, 01:38

Liegt es daran das du das über einen Button handlest und nicht per live?
Also hast du einen Button für Check gemacht? Lösch den einfach und schreib es in die While Schleife rein und setz einen Sleep(50) drunter. Und das Return 0 vergiss mal lieber wieder, das hat nur mit Funktionen zu tun.

milsowa · 04/27/2014, 02:23

Quote:

Originally Posted by alpines

Liegt es daran das du das über einen Button handlest und nicht per live?
Also hast du einen Button für Check gemacht? Lösch den einfach und schreib es in die While Schleife rein und setz einen Sleep(50) drunter. Und das Return 0 vergiss mal lieber wieder, das hat nur mit Funktionen zu tun.

das ist eine Funktion und ich habe einen button für check.

alpines · 04/27/2014, 03:45

Dann würde ich mal vorschlagen das du das Problem auf ein neues Script isolierst und mal hier hochlädst.

milsowa · 04/27/2014, 03:55

Quote:

Originally Posted by alpines

Dann würde ich mal vorschlagen das du das Problem auf ein neues Script isolierst und mal hier hochlädst.

ist noch nicht komplett fertig deswegen nicht wundern.

Spoiler

Code:

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
	#include <IE.au3>
    #include <String.au3>
    #include <Array.au3>
     Local $checker = "https://minecraft.net/haspaid.jsp?user="
	 $uuid = _StringBetween("http://prem.udev.io/", "UUID: ", " ")
    Global $Form1, $Edit1, $Edit2, $Edit3, $Label1, $Label2, $Button1, $Button2, $i, $name, $uid, $uuid
    Global $c1 = 0, $c2 = 0
     
    Opt("GUIOnEventMode", 1)
    Opt("MustDeclareVars", 1)
     
    $Form1 = GUICreate("Minecraft Account Checker", 634, 695)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
    $Edit1 = GUICtrlCreateEdit("Minecraft Namen nur einer pro Zeile !!", 8, 16, 321, 609)
    $Edit2 = GUICtrlCreateEdit("", 352, 16, 265, 361)
    GUICtrlSetData(-1, "")
    $Edit3 = GUICtrlCreateEdit("", 352, 416, 265, 209)
    $Button1 = GUICtrlCreateButton("Check", 8, 640, 200, 41)
    GUICtrlSetOnEvent(-1, "Check")
	GUICtrlSetBkColor(-1, 0x3399FF)
	$Button2 = GUICtrlCreateButton("Check-Tabelle", 352, 640, 200, 41)
    GUICtrlSetBkColor(-1, 0x3399FF)
	GUICtrlSetOnEvent(-1, "Check2")
    $Label1 = GUICtrlCreateLabel("Premium:", 352, 1, 268, 17, $SS_CENTER)
    $Label2 = GUICtrlCreateLabel("ohnePremium:", 352, 400, 268, 17, $SS_CENTER)
    GUISetState(@SW_SHOW)
     
     
    While 1
            Sleep (100)
    WEnd
     
    Func Check()
            $name = GUICtrlRead($Edit1)
            If $name = "Minecraft Namen nur einer pro Zeile !!" Then
                    MsgBox(48, "Fehler", "Es wurde kein Account angegeben!!")
					Return 0
					EndIf
				   If $name = "" Then
					MsgBox(48, "Fehler", "Bitte gebe mindestens einen Namen an!!")
                    Return 0
				 EndIf
				 ;acc = GUICtrlRead($Edit2)
				 If $name = GUICtrlRead($Edit2) Then
					MsgBox(48, "Fehler", "Bitte gib den gleichen Namen nicht zweimal ein!!")
                    Return 0
				 EndIf
				 If $name = GUICtrlRead($Edit3) Then
					MsgBox(48, "Fehler", "Bitte gib den gleichen Namen nicht zweimal ein!!")
                    Return 0
				 EndIf
            $name = StringSplit($name, @CRLF, 1)
			$uid = StringSplit($uid, @CRLF, 1)
            For $i = 1 To $name[0]
                    If BinaryToString(InetRead($checker & $name[$i], 1)) = "True" Then
                            If GUICtrlRead($Edit2) = "" Then
                                    GUICtrlSetData($Edit2, $name[$i])
                            Else
                                    GUICtrlSetData($Edit2, GUICtrlRead($Edit2) & @CRLF & $name[$i])
									GUICtrlSetData($Edit2, GUICtrlRead($Edit2) & @CRLF & $name[$i] & "UUID ist: " & $uuid + $name)
                            EndIf
                            $c1 += 1
                            GUICtrlSetData($Label1, "Premium: " & $c1)
                    Else
                            If GUICtrlRead($Edit3) = "" Then
                                    GUICtrlSetData($Edit3, $name[$i])
                            Else
                                    GUICtrlSetData($Edit3, GUICtrlRead($Edit3) & @CRLF & $name[$i])
                            EndIf
                            $c2 += 1
                            GUICtrlSetData($Label2, "Kein Premium: " & $c2)
                    EndIf
            Next
    EndFunc
    Func _Exit()
            Exit 1
		 EndFunc
		 Func Check2()
         _ArrayDisplay($name)
    EndFunc
    Func _Exit2()
            Exit 1
    EndFunc

YatoDev · 04/27/2014, 05:15

ich versteh überhaupt nicht was du willst xD
Möchtest du kucken ob jemand die gleichen userdaten schonmal eingeben hat in einem string mit sehr vielen daten?

Diese func gibt zurück wie oft ein string in einem string vorhanden ist

PHP Code:


			
Func _StringFind($String,$Find_STR,$i_Case = 2)

Local $occu = 1,$location

Do

    $location = StringInStr($String,$Find_STR, $i_Case,$occu)

    $occu += 1

Until $location = 0

$occu -=2

If $occu < 1 Then

    Return False

Else

    Return $occu

EndIf

EndFunc

Rolle · 04/27/2014, 14:29

Hiho Leute, bin mal wieder ein bischen in der AutoIT-Welt unterwegs und komme grade nicht weiter :/

Ich navigiere per Code auf die Seite

Nun gebe ich namen + Stadt ein das sieht dann so aus :

klappt alles wunderbar, nun möchte ich aber auf das "Privat" oder "gewerblich" navigieren nur leider weiß ich nicht wie ich das ansteuern kann.

Hoffe mir kann da einer auf die Sprünge helfen

Requi · 04/27/2014, 14:46

Quote:

Originally Posted by Rolle

Hiho Leute, bin mal wieder ein bischen in der AutoIT-Welt unterwegs und komme grade nicht weiter :/

Ich navigiere per Code auf die Seite

Nun gebe ich namen + Stadt ein das sieht dann so aus :

klappt alles wunderbar, nun möchte ich aber auf das "Privat" oder "gewerblich" navigieren nur leider weiß ich nicht wie ich das ansteuern kann.

Hoffe mir kann da einer auf die Sprünge helfen

HTML Code:

<ul class="main">
        <li><a rel="nofollow" href="http://www3.dastelefonbuch.de/?bi=8&kw=hansen&ci=hamburg&ciid=8816&cmd=search&seed=210250211&ort_ok=1&vert_ok=1&buab=400000&cx=-33575&cy=284191&lat=53.553441&lon=9.992053&ci_kgs=02000000&mdest=sec1.www1%2Csec3.www3&recfrom=&ao1=0&ao2=2,3&sp=51&aktion=104">
                Gewerblich (99)</a></li>
         <li><a rel="nofollow" onclick="return wwa$.logAction('Trefferliste Privatsuche');" href="http://www3.dastelefonbuch.de/?bi=8&kw=hansen&ci=hamburg&ciid=8816&cmd=search&seed=210250211&ort_ok=1&vert_ok=1&buab=400000&cx=-33575&cy=284191&lat=53.553441&lon=9.992053&ci_kgs=02000000&mdest=sec1.www1%2Csec3.www3&recfrom=&ao1=1&ao2=0&sp=51&aktion=105">
            Privat (512)</a></li>
        </ul>

Dort die Links aus "href" auslesen.

milsowa · 04/27/2014, 18:26

Quote:

Originally Posted by »FlutterShy™

ich versteh überhaupt nicht was du willst xD
Möchtest du kucken ob jemand die gleichen userdaten schonmal eingeben hat in einem string mit sehr vielen daten?

Diese func gibt zurück wie oft ein string in einem string vorhanden ist

PHP Code:

Func _StringFind($String,$Find_STR,$i_Case = 2) Local $occu = 1,$location Do $location = StringInStr($String,$Find_STR, $i_Case,$occu) $occu += 1 Until $location = 0 $occu -=2 If $occu < 1 Then Return False Else Return $occu EndIf EndFunc

ich möchte zb. wen einer lol dan erscheint es und das es dan eine message kommt wen man es versucht nochmal einzugeben. Auch ihn den nächsten Reihen aber es geht halt erst ihn der ersten Reihe.

YatoDev · 04/27/2014, 19:49

wat?

milsowa · 04/27/2014, 20:42

Quote:

Originally Posted by »FlutterShy™

wat?

Also man klickt auf check dan kommt der name ihn die tabelle dan wen man nochmal auf check klickt mit den gleichen namen der schon ihn der tabelle ist kommt eine message das man nicht zweimal eingeben kann bis dahin klapt alles aber wen ich enter klicke also ihn die zweite reihe und den namen eingebe der schon ihn der tabelle ist dan kommt keine message sondern wird nochmal ihn die tabelle hinzugefügt.

alpines · 04/27/2014, 20:47

Dann split nach @CRLF und check jeden Array Eintrag einzeln durch.

YatoDev · 04/27/2014, 21:16

Quote:

Originally Posted by milsowa

Also man klickt auf check dan kommt der name ihn die tabelle dan wen man nochmal auf check klickt mit den gleichen namen der schon ihn der tabelle ist kommt eine message das man nicht zweimal eingeben kann bis dahin klapt alles aber wen ich enter klicke also ihn die zweite reihe und den namen eingebe der schon ihn der tabelle ist dan kommt keine message sondern wird nochmal ihn die tabelle hinzugefügt.

was für eine tabelle auf einmal ?
Kannst du mal deutsch schreiben?