Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > AutoIt
[HILFE] THX Checker ERROR [HILFE] THX Checker ERROR
You last visited: Today at 04:05

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement


Advertise with us!

[HILFE] THX Checker ERROR

Discussion on [HILFE] THX Checker ERROR within the AutoIt forum part of the Coders Den category.

Reply
Page 1 of 2 1 2
 
Old   #1
 
Dr.N00B's Avatar
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: May 2011
Posts: 47
Received Thanks: 8
Post [HILFE] THX Checker ERROR

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
Dr.N00B is offline  
Thanks
1 User
Old 07/18/2011, 14:19   #2
 
butter123's Avatar
 
elite*gold: 95
The Black Market: 5/0/0
Join Date: May 2011
Posts: 982
Received Thanks: 189
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
butter123 is offline  
Old 07/18/2011, 15:48   #3
 
elite*gold: 0
The Black Market: 9/0/0
Join Date: Mar 2009
Posts: 7,260
Received Thanks: 33,149
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.
KDeluxe is offline  
Old 07/18/2011, 15:52   #4
 
elite*gold: 0
The Black Market: 36/0/0
Join Date: Mar 2011
Posts: 8,645
Received Thanks: 3,454
Error1: #include <ListBoxConstants.au3> fehlt
Freddy​ is offline  
Thanks
1 User
Old 07/18/2011, 17:29   #5
 
Dr.N00B's Avatar
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: May 2011
Posts: 47
Received Thanks: 8
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!
Dr.N00B is offline  
Old 07/18/2011, 18:16   #6
 
elite*gold: 0
The Black Market: 36/0/0
Join Date: Mar 2011
Posts: 8,645
Received Thanks: 3,454
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
Freddy​ is offline  
Old 07/18/2011, 18:30   #7
 
| Moep |'s Avatar
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Apr 2008
Posts: 1,079
Received Thanks: 438
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
| Moep | is offline  
Thanks
1 User
Old 07/18/2011, 18:49   #8
 
Dr.N00B's Avatar
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: May 2011
Posts: 47
Received Thanks: 8
Und wie geht des mit HWID???
Dr.N00B is offline  
Old 07/18/2011, 18:59   #9
 
| Moep |'s Avatar
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Apr 2008
Posts: 1,079
Received Thanks: 438
Quote:
Originally Posted by KingTLL View Post
Und wie geht des mit HWID???
| Moep | is offline  
Old 07/18/2011, 20:45   #10
 
Dr.N00B's Avatar
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: May 2011
Posts: 47
Received Thanks: 8
Kapier ich zu 0% mit HWID und der THX check funkt au net bei meim script,
bitte nochmal hilfe!
Dr.N00B is offline  
Old 07/18/2011, 21:02   #11

 
Furkan's Avatar
 
elite*gold: 59
The Black Market: 326/0/0
Join Date: Jun 2010
Posts: 1,945
Received Thanks: 424
Hast du Skype? wenn ja add: Shaiya-K01
Furkan is offline  
Old 07/18/2011, 21:06   #12
 
elite*gold: 0
The Black Market: 9/0/0
Join Date: Mar 2009
Posts: 7,260
Received Thanks: 33,149
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?
KDeluxe is offline  
Old 07/19/2011, 15:17   #13
 
Dr.N00B's Avatar
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: May 2011
Posts: 47
Received Thanks: 8
sorry, aber ich check zu 2% des zeug! es ist neuland für mich...
Dr.N00B is offline  
Old 07/19/2011, 20:35   #14
 
elite*gold: 0
The Black Market: 9/0/0
Join Date: Mar 2009
Posts: 7,260
Received Thanks: 33,149
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.
KDeluxe is offline  
Old 07/20/2011, 13:22   #15
 
Dr.N00B's Avatar
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: May 2011
Posts: 47
Received Thanks: 8
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
Attached Files
File Type: zip THX CHECKER by KingTLL und Moep.zip (17.8 KB, 12 views)
Dr.N00B is offline  
Reply
Page 1 of 2 1 2

« vote bot | Youtube Login mit WinHTTP - was mach ich falsch ? »

Similar Threads Similar Threads
[Fehler] Patch? Error? Hier Hilfe! [Error]
12/02/2010 - Combat Arms - 14 Replies
Da ich keine Werbung machen möchte muss ich wohl alles abkopieren... Ich entschuldige mich das ich alles zuspoilern musste aber bei soviel Text....;) 1.Error Codes und ähnliches Da es nach einem neuen Update immer wieder Probleme auftreten, empfehlen wir Euch folgende Liste mit den häufigsten Fehlern durchzugehen: 1. Deinstalliere Combat Arms über Arbeitsplatz-->Software 2. Prüfe ob alle Ordner von Nexon auf der Festplatte gelöscht sind. Wenn nicht lösche...
Hilfe Thx checker
09/19/2010 - 4Story - 7 Replies
hej leute kann mir wer sagen wie ich in meinen hack einen thx checker einbaue?
classic pickit,shopbot,nip checker und char script für shop und nip checker bot
08/13/2010 - Diablo 2 - 0 Replies
hi leutz ich selber spiele zwar sogut wie kein diablo mehr, aber ich habe mich nochmal ran gesetzt und eine neuere version von meinem pickit erstellt und noch einige andere sachen enthalten sind in der rar die classic scripts "classic & shopbot" TLNipChecker bot und shopbot selbst und zu guter letzt ein voreingestellter charscript für die sorc OK NUN WOHIN MIT DEM GANZEN ZEUG??? erst eimal entpacken
[Hilfe]Parse error: syntax error
10/27/2009 - Metin2 Private Server - 6 Replies
Also hab IS -Script per xampp on und beim einloggen kommt der fehler hier Parse error: syntax error, unexpected $end in C:\xampp\htdocs\default1.php on line 875 Help pls Thx Freaky



All times are GMT +1. The time now is 04:05.

elitepvpers - play less, get more - Top

Powered by vBulletin®
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2025 elitepvpers All Rights Reserved.