[HILFE] THX Checker ERROR

Page 1 of 2 1 2
07/18/2011 14:05 Dr.N00B#1
Hi,
ich hab ein THX Checker gemacht...leider kapier ich den ERROR nicht.
Wäre nett wenn jemand den THX Checker vollenden würde.

Gäbe 5 THX (von mir in anderen Themen) und Credit!

Nun das Script:
Code:
#include <GUIConstants.au3>
#include-once
#include <INet.au3>
#include <String.au3>


$URL = "http://www.elitepvpers.com/forum/general-gaming-discussion/1234502-doodle-jump-f-r-pc.html"
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Thanks Checker", 215, 192, 206, 300)
GUISetBkColor(0x000000)
$Text1 = GUICtrlCreateLabel("Dein Nickname:", 8, 16, 113, 20)
GUICtrlSetFont(-1, 10, 800, 0, "System")
GUICtrlSetColor(-1, 0x00FF00)
$Worker = GUICtrlCreateList("", 8, 112, 193, 70, BitOR($LBS_SORT,$LBS_STANDARD,$WS_VSCROLL,$WS_BORDER)
GUICtrlSetFont(-1, 10, 800, 0, "System")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x0D0D0D)
$Username = GUICtrlCreateInput("Username", 8, 40, 193, 24)
GUICtrlSetFont(-1, 10, 800, 0, "System")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x0D0D0D)
$Check = GUICtrlCreateButton("Check", 64, 72, 75, 25, 0)
GUICtrlSetFont(-1, 10, 800, 0, "System")
GUICtrlSetBkColor(-1, 0x00FF00)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
		Case $Check
		Checking($URL,$Username)
EndSwitch
WEnd

Func Checking($URL,$Username)

	$Source = _INetGetSource($URL)
    If Not ($Source == "") Then

        $Loginname = _StringBetween($Source, '.html">', '</a>.</li>')
        If $Loginname == $Username Then
			$Username2 = StringReplace($Username, " ", "-")
            $Username2 = StringReplace($Username, ".", "-")
            $Username2 = StringReplace($Username, "!", "-")
            $Username2 = StringReplace($Username, "~", "-")
            $Username2 = StringReplace($Username, "°", "-")
            $Username2 = StringReplace($Username, "²", "-")
            $Username2 = StringReplace($Username, "³", "-")
            $Username2 = StringReplace($Username, "'", "-")
            $Username2 = StringReplace($Username, "™", "-")
            $Username2 = StringReplace($Username, "[", "-")
            $Username2 = StringReplace($Username, "]", "-")

            $Name = _StringBetween($Source, $Username2 + '.html" rel="nofollow">', $Loginname + '</a>&nbsp;')
            If IsArray($Name) Then
                $Check = StringInStr($Name[0], $Username)
                If $Check = True Then
                    Return True
                EndIf
            Else
			NoThanksError()
		EndIf
		LoginError()
        EndIf
    Else
        CheckInternetError()
    EndIf
EndFunc

Func LoginError()
	GUICTRLSETDATA($Worker,"You are not Logged in!")
EndFunc

Func ThanksError()
	GUICTRLSETDATA($Worker,"Checked... Thank you :)")
EndFunc

Func NoThanksError()
	GUICTRLSETDATA($Worker,"Checked... Give me a Thanks first!")
EndFunc

Func CheckInternetError()
		GUICTRLSETDATA($Worker,"Can't Check! Please Check your Internet Connection!")
EndFunc

BB
07/18/2011 14:19 butter123#2
sorry ich brauch das immer mit farbe ^^ :

ich guck mich mal durch


Edit:
Die ersten Errors kenn ich auch nciht, ich vermute aber, es fehlt ein include. Die errors alleine sagen halt, das die Variablen in Zeile 14 vorher nicht benannt wurden.

ERROR: GUICtrlCreateList() [built-in] called with wrong number of args.
GUICtrlSetFont(-1, 10, 800, 0, "System")

In Zeile 14 fehlt am Ende eine Klammer, daher der Fehler
07/18/2011 15:48 KDeluxe#3
Naja, wirklich bringen würde er in dieser Form sowieso nicht wirklich was. Ich würde da schon eher das HWID System von epvpers nutzen, das ist vielversprechender und fast nicht fehleranfällig. Das von dir gepostete Script würde ich niemanden empfehlen, dann doch lieber ohne.
07/18/2011 15:52 Freddy​#4
Error1: #include <ListBoxConstants.au3> fehlt
07/18/2011 17:29 Dr.N00B#5
DANKE...Leider immernoch Fehler

Quote:
#include <GUIConstants.au3>
#include-once
#include <INet.au3>
#include <String.au3>
#include <ListBoxConstants.au3>

$URL = "http://www.elitepvpers.com/forum/general-gaming-discussion/1234502-doodle-jump-f-r-pc.html"
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Thanks Checker", 215, 192, 206, 300)
GUISetBkColor(0x000000)
$Text1 = GUICtrlCreateLabel("Dein Nickname:", 8, 16, 113, 20)
GUICtrlSetFont(-1, 10, 800, 0, "System")
GUICtrlSetColor(-1, 0x00FF00)
$Worker = GUICtrlCreateList("", 8, 112, 193, 70, BitOR($LBS_SORT,$LBS_STANDARD,$WS_VSCROLL,$WS_BORD ER))
GUICtrlSetFont(-1, 10, 800, 0, "System")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x0D0D0D)
$Username = GUICtrlCreateInput("Username", 8, 40, 193, 24)
GUICtrlSetFont(-1, 10, 800, 0, "System")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x0D0D0D)
$Check = GUICtrlCreateButton("Check", 64, 72, 75, 25, 0)
GUICtrlSetFont(-1, 10, 800, 0, "System")
GUICtrlSetBkColor(-1, 0x00FF00)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Check
Checking($URL,$Username)
EndSwitch
WEnd

Func Checking($URL,$Username)

$Source = _INetGetSource($URL)
If Not ($Source == "") Then

$Loginname = _StringBetween($Source, '.html">', '</a>.</li>')
If $Loginname == $Username Then
$Username2 = StringReplace($Username, " ", "-")
$Username2 = StringReplace($Username, ".", "-")
$Username2 = StringReplace($Username, "!", "-")
$Username2 = StringReplace($Username, "~", "-")
$Username2 = StringReplace($Username, "°", "-")
$Username2 = StringReplace($Username, "²", "-")
$Username2 = StringReplace($Username, "³", "-")
$Username2 = StringReplace($Username, "'", "-")
$Username2 = StringReplace($Username, "™", "-")
$Username2 = StringReplace($Username, "[", "-")
$Username2 = StringReplace($Username, "]", "-")

$Name = _StringBetween($Source, $Username2 + '.html" rel="nofollow">', $Loginname + '</a>&nbsp;')
If IsArray($Name) Then
$Check = StringInStr($Name[0], $Username)
If $Check = True Then
Return True
EndIf
Else
NoThanksError()
EndIf
LoginError()
EndIf
Else
CheckInternetError()
EndIf
EndFunc

Func LoginError()
GUICTRLSETDATA($Worker,"You are not Logged in!")
EndFunc

Func ThanksError()
GUICTRLSETDATA($Worker,"Checked... Thank you :)")
EndFunc

Func NoThanksError()
GUICTRLSETDATA($Worker,"Checked... Give me a Thanks first!")
EndFunc

Func CheckInternetError()
GUICTRLSETDATA($Worker,"Can't Check! Please Check your Internet Connection!")
EndFunc

Zeile 14!
07/18/2011 18:16 Freddy​#6
Mach das dahinter weg das es so aussieht

$Worker = GUICtrlCreateList("", 8, 112, 193, 70)

du darfst nur bestimmte befehle hinter schreiben mit $WS_ oder so
07/18/2011 18:30 | Moep |#7
Musst noch die "WindowsConstants.au3" includieren.
Aber wie gesagt, dass HWID System wäre da die erste wahl.

Code:
#include <GUIConstants.au3>
#include-once
#include <INet.au3>
#include <String.au3>
#include <ListBoxConstants.au3>
#include <WindowsConstants.au3>


$URL = "http://www.elitepvpers.com/forum/general-gaming-discussion/1234502-doodle-jump-f-r-pc.html"
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Thanks Checker", 215, 192, 206, 300)
GUISetBkColor(0x000000)
$Text1 = GUICtrlCreateLabel("Dein Nickname:", 8, 16, 113, 20)
GUICtrlSetFont(-1, 10, 800, 0, "System")
GUICtrlSetColor(-1, 0x00FF00)
$Worker = GUICtrlCreateList("", 8, 112, 193, 70, BitOR($LBS_SORT,$LBS_STANDARD,$WS_VSCROLL,$WS_BORDER))
GUICtrlSetFont(-1, 10, 800, 0, "System")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x0D0D0D)
$Username = GUICtrlCreateInput("Username", 8, 40, 193, 24)
GUICtrlSetFont(-1, 10, 800, 0, "System")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x0D0D0D)
$Check = GUICtrlCreateButton("Check", 64, 72, 75, 25, 0)
GUICtrlSetFont(-1, 10, 800, 0, "System")
GUICtrlSetBkColor(-1, 0x00FF00)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Check
Checking($URL,$Username)
EndSwitch
WEnd

Func Checking($URL,$Username)

$Source = _INetGetSource($URL)
If Not ($Source == "") Then

$Loginname = _StringBetween($Source, '.html">', '</a>.</li>')
If $Loginname == $Username Then
$Username2 = StringReplace($Username, " ", "-")
$Username2 = StringReplace($Username, ".", "-")
$Username2 = StringReplace($Username, "!", "-")
$Username2 = StringReplace($Username, "~", "-")
$Username2 = StringReplace($Username, "°", "-")
$Username2 = StringReplace($Username, "²", "-")
$Username2 = StringReplace($Username, "³", "-")
$Username2 = StringReplace($Username, "'", "-")
$Username2 = StringReplace($Username, "™", "-")
$Username2 = StringReplace($Username, "[", "-")
$Username2 = StringReplace($Username, "]", "-")

$Name = _StringBetween($Source, $Username2 + '.html" rel="nofollow">', $Loginname + '</a>&nbsp;')
If IsArray($Name) Then
$Check = StringInStr($Name[0], $Username)
If $Check = True Then
Return True
EndIf
Else
NoThanksError()
EndIf
LoginError()
EndIf
Else
CheckInternetError()
EndIf
EndFunc

Func LoginError()
GUICTRLSETDATA($Worker,"You are not Logged in!")
EndFunc

Func ThanksError()
GUICTRLSETDATA($Worker,"Checked... Thank you ")
EndFunc

Func NoThanksError()
GUICTRLSETDATA($Worker,"Checked... Give me a Thanks first!")
EndFunc

Func CheckInternetError()
GUICTRLSETDATA($Worker,"Can't Check! Please Check your Internet Connection!")
EndFunc
07/18/2011 18:49 Dr.N00B#8
Und wie geht des mit HWID???
07/18/2011 18:59 | Moep |#9
Quote:
Originally Posted by KingTLL View Post
Und wie geht des mit HWID???
[Only registered and activated users can see links. Click Here To Register...]
07/18/2011 20:45 Dr.N00B#10
Kapier ich zu 0% mit HWID und der THX check funkt au net bei meim script,
bitte nochmal hilfe!
07/18/2011 21:02 Furkan#11
Hast du Skype? wenn ja add: Shaiya-K01
07/18/2011 21:06 KDeluxe#12
Das Script würde dir im Endeffekt sowieso nicht viel bringen, es ist viel zu fehleranfällig. Mehr als nervende Kinder wirst du damit nicht erreichen.
Ich habe vor längerem aus Langeweile einen "Thanks-Checker-Generator" gebastelt. Das Prinzip ist einfach: Mit Hilfe der HWID kommst du bzw. dein Script an die User ID des jeweiligen Members. Anschließend musst du diese nur noch mit den User IDs aus der "erhaltene Thanks" Liste vergleichen. Ist die User ID vorhanden hat dir die jeweilige Person ein "Thanks" gegeben, andernfalls nicht. Falls du dich fragst, wieso man die User ID benutzen sollte: Sofern man beachtet, wie sie in der URL vorkommt, ist diese zu 100% einmalig. Zudem besteht sie nur aus zahlen, Sonderzeichen oder Benutzerfarben des Members spielen dabei keine Rolle, somit ist der Vergleich, wie oben schon geschrieben, fast fehlerfrei.
Diesen Checker habe ich in Form eines AutoIt Scripts und einer .dll (C++). Zweiteres könnte man einfach per DllCall() nutzen. Aushändigen werde ich allerdings keins von beiden. Ich bin schlichtweg dagegen, dass so etwas für jedes nichtsnutzige Release missbraucht werden kann. Schwer ist es ohnehin nicht, jeder der etwas vernünftiges releasen kann, hat keine Probleme mit so einem Checker.

Ich nutze AutoIt schon länger nicht mehr selber. Ich weiß zwar nicht, wie es AutoIt handhabt, aber müssten die "+" bei "_StringBetween() nicht mit einem "&" ausgetauscht werden?
07/19/2011 15:17 Dr.N00B#13
sorry, aber ich check zu 2% des zeug! es ist neuland für mich...
07/19/2011 20:35 KDeluxe#14
Und genau aus diesem Grund bin ich davon überzeugt, dass du selber kein vernünftiges Release zu Stande bringst. Mehr als 10 Zeilen braucht man mit AutoIt eigentlich nicht.
07/20/2011 13:22 Dr.N00B#15
denkt ich au xD

muss noch viel lernen, hab au wenig zeit! bin auf gymi und muss noch 6 Jahre in die Schule

edit:

hier, hab kein bock mehr...dave hilft mir bei hwid!
hier die derzeitige version:

Nochmal ne frage! Wie machts dann dark usw.?

€: An Butterkuchen
Dark - Dark Paradise!
Er macht Hacks und hat nur ein THX-Checker dabei ohne HWID
Page 1 of 2 1 2