|
You last visited: Today at 19:24
Advertisement
[Autoit] Epvp HWID abfrage ...
Discussion on [Autoit] Epvp HWID abfrage ... within the AutoIt forum part of the Coders Den category.
05/13/2013, 20:31
|
#16
|
elite*gold: 50
Join Date: Sep 2012
Posts: 3,841
Received Thanks: 1,462
|
Quote:
Originally Posted by Logtetsch
Habe mal vor einiger Zeit ein kleines Script dazu erstellt.
Code:
;Autor: Logtetsch
;Date: 12.01.2013
#include-once
#include <array.au3>
#include <string.au3>
Global $thanks_Status = 0
Func _epvp_thankscheck($HWID, $s_Site)
if $HWID == "" Then
Return SetError(4, "", 0)
EndIf
if $s_Site == "" Then
Return SetError(5, "", 0)
EndIf
Global Const $error_NoThanks = 2
Global Const $error_NoSiteInfo = 3
Global Const $error_NoUserData = 4
Global const $success_Thanks = true
Local $Data_User = _GetHWIDData($md5_HWID)
If not @error and IsArray($Data_User) and $Data_User[0] <> "" Then
Local $thanks_Site = BinaryToString(InetRead($s_Site))
if not @error Then
Local $thanks_table = _StringBetween($thanks_Site, '.html" rel="nofollow">', '</a> ')
Local $thanks_table_Premium = _StringBetween($thanks_Site, 'rel="nofollow"><span style="color:#0099ff">', '</span></a> ')
if IsArray($thanks_table) Then
Local $a_thanks_table = UBound($thanks_table)
For $i = 0 to $a_thanks_table-1
if $Data_User[1] == $thanks_table[$i] Then $thanks_Status = 1
if $thanks_Status == 1 then ExitLoop
Next
if $thanks_Status == 1 Then
MsgBox(64, "Info", $success_Thanks)
Return True
Elseif $thanks_Status == 0 Then
For $i = 0 to UBound($thanks_table_Premium)-1
if $Data_User[1] == $thanks_table_Premium[$i] then $thanks_Status = 1
if $thanks_Status == 1 Then ExitLoop
Next
if $thanks_Status == 0 Then
MsgBox(48, "Error", $error_NoThanks)
Return SetError(2)
ElseIf $thanks_Status == 1 Then
MsgBox(64, "Info", $success_Thanks)
Return True
EndIf
EndIf
Else
MsgBox(48, "Error", $error_NoSiteInfo)
Return SetError(3)
EndIf
Else
MsgBox(0,"",$error_NoSiteInfo)
Return SetError(3)
EndIf
Else
MsgBox(48, "Error", $error_NoUserData)
Return SetError(4)
EndIf
EndFunc
Code:
;Autor: Logtetsch
;Date: 12.01.2013
;Copyright to Logtetsch
#cs
Rückgabewert mit @error: 2 = Thankschecker wurde beendet
4 = Keine HWID der Funktion mitgegeben
5 = Keine Seite der Funktion mitgegeben
#ce
#include-once
Global $Gui_Status = True
Func _epvp_thankscheck_GUI($md5_HWID, $s_Site)
if $md5_HWID == "" Then
Return SetError(4, "", 0)
EndIf
if $s_Site == "" Then
Return SetError(5, "", 0)
EndIf
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$GUI_Form1 = GUICreate("Thanks- HWIDchecker", 318, 108, 192, 124)
$grp_HWID = GUICtrlCreateGroup("HWID", 5, 5, 305, 80)
$inp_HWID = GUICtrlCreateInput($md5_HWID, 15, 25, 286, 21, BitOR($ES_CENTER, $ES_READONLY))
GUICtrlCreateGroup("", -99, -99, 1, 1)
$btn_ask = GUICtrlCreateButton("?", 265, 50, 35, 25)
$btn_enterHWID = GUICtrlCreateButton("HWID", 15, 50, 75, 25)
$btn_giveThanks = GUICtrlCreateButton("Thanks", 100, 50, 75, 25)
$lable_Copyright = GUICtrlCreateLabel("© Copyright Logtetsch", 5, 90, 311, 17)
GUICtrlSetColor(-1, 0x0000FF)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While $Gui_Status == True
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
$Gui_Status = False
GUISetState(@SW_HIDE)
Return SetError(2, "", 0)
Case $btn_ask
ShellExecute('http://www.elitepvpers.com/forum/e-pvp-news-de/981343-hwid-system-f-r-entwickler.html#post8879199')
Case $btn_enterHWID
ClipPut($md5_HWID)
ShellExecute('http://www.elitepvpers.com/forum/profile.php?do=editprofile')
Case $btn_giveThanks
ShellExecute($s_Site)
Case $lable_Copyright
ShellExecute('http://www.elitepvpers.com/forum/members/1387536-logtetsch.html')
EndSwitch
WEnd
EndFunc
Hier ein Beispiel zur Verwendung
Code:
#RequireAdmin
#include "Thankschecker_GUI.au3"
#include "Thankschecker_Func.au3"
#include "GetHWID.au3"
Global $HWID = _GetHWID()
Global $Data = _GetHWIDData()
if IsArray($Data) Then
MsgBox(0,"",$Data[1])
EndIf
Global $s_Site = 'http://www.elitepvpers.com/forum/4story/2350716-devs-revo4s.html' ;Die Seite auf der die Thanks durchsucht werden sollen
$tc = _epvp_thankscheck($HWID, $s_Site)
if $tc <> True Then
_epvp_thankscheck_GUI($HWID, $s_Site)
ElseIf $tc == True Then
ShellExecute("http://google.de") ;Downloadlink eingeben
EndIf
|
und vielleicht machste http web requests auf die seite
|
|
|
05/13/2013, 20:39
|
#17
|
elite*gold: LOCKED
Join Date: Sep 2012
Posts: 1,599
Received Thanks: 256
|
da kann ich nichts ausführen da dan immer kommt das die includes fehlen und leg ich 2 au3 datein mit den name an und kopiere die 2 include sources ab und füge sie ein kommt ne leere msgbox und dannach line23 error ....
|
|
|
05/13/2013, 20:56
|
#18
|
elite*gold: 124
Join Date: Dec 2009
Posts: 2,114
Received Thanks: 3,141
|
Poste doch erstmal dein gesamtes Script und die Fehlermeldung.
|
|
|
05/13/2013, 22:52
|
#19
|
elite*gold: LOCKED
Join Date: Sep 2012
Posts: 1,599
Received Thanks: 256
|
hir ein video , wo ich alles genau abkopiert habe!:
|
|
|
05/13/2013, 23:02
|
#20
|
elite*gold: 192
Join Date: May 2009
Posts: 2,227
Received Thanks: 3,262
|
Du benutzt meine UDF's falsch.
Code:
"Thankschecker_GUI.au3" → "_epvp_thankscheck_GUI($md5_HWID, $s_Site)"
Code:
"Thankschecker_Func.au3" → "_epvp_thankscheck($HWID, $s_Site)"
|
|
|
05/13/2013, 23:26
|
#21
|
elite*gold: 0
Join Date: Mar 2009
Posts: 2,317
Received Thanks: 1,254
|
Quote:
Originally Posted by Logtetsch
Du benutzt meine UDF's falsch.
Code:
"Thankschecker_GUI.au3" → "_epvp_thankscheck_GUI($md5_HWID, $s_Site)"
Code:
"Thankschecker_Func.au3" → "_epvp_thankscheck($HWID, $s_Site)"
|
meinst du er versteht das?
|
|
|
05/13/2013, 23:31
|
#22
|
elite*gold: 124
Join Date: Dec 2009
Posts: 2,114
Received Thanks: 3,141
|
Quote:
Originally Posted by *-Elsword_Hacker-*
hir ein video , wo ich alles genau abkopiert habe!:
|
Das Video reicht nicht aus, um dein Script zu lesen, aber die Fehlermeldung ist eindeutig:
Code:
Local $Data_User = _GetHWIDData($md5_HWID)
Local $Data_User = _GetHWIDData(^ ERROR
Error: variable used without being declared
So, was heißt das jetzt?
$md5_HWID ist nicht deklariert. Du musst also nachschauen, wo die Variable deklariert wird, was wohl nur unter irgendeiner Bedingung passiert, die allerdings nicht erfüllt ist.
|
|
|
05/14/2013, 03:33
|
#23
|
elite*gold: LOCKED
Join Date: Sep 2012
Posts: 1,599
Received Thanks: 256
|
#edit habsch geschaft
idee die generierte HWID einzutragen : von cookie
nicht deklarierte variable untersucht : ich
PS: deine UDF war fehlerhaft , in der thanschecker_func hast du in line 23 geschrieben ($md5_HWID) obwohl dies gar nicht existiert , habsch durch $HWID ersetzt , nun gehts ...
|
|
|
|
|
Similar Threads
|
AutoIt WoW Disconnect Abfrage
12/09/2011 - AutoIt - 22 Replies
Hi,
ich habe einen kleinen WoW Bot, der ständig in einer While Schleife in 2 verschiedenen WoW Fenstern (das eine ist im Hintergrund) etwas ausführt.
Wie bekomme ich es nun hin, das wenn ein Account einen Disconnect bekommt, die While Schleife des Bots unterbrochen, neu eingeloggt und die While Schleife neu von vorne ausgeführt wird? Und das möglichst in beiden WoW Fenstern (mit unterschiedlichen Accounts).
Viele Grüße
Baum
|
HWID Funktion Abfrage
11/24/2011 - AutoIt - 10 Replies
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
ClipPut(GUICtrlRead($I_HWID))
ShellExecute("http://www.elitepvpers.com/ forum/profile.php?do=editprofile")
|
[VTUT] AutoIt - MsgBox, InPutBox, Variablen & If-Abfrage
06/07/2011 - Coding Tutorials - 0 Replies
Hey,
ich habe vorhin mal ein Tutorial für AutoIt aufgenommen.
Es beinhaltet:
-MsgBox
-InPutBox
-Variablen
-If-Abfrage
|
HWID Online Abfrage
03/03/2011 - General Coding - 3 Replies
Guten Abend!
Ich Code gerade in Visual Basic 2010 eine Online HWID Abfrage.
Diese Abfrage ruft eine .TXT Datei auf einen FTP-Server ab.
(Ich weiß es ist sehr unsicher)
Das klappt auch alles soweit.
Nur ich möchte gerne das in der Textbox1 steht ob die HWID in der .TXT eingetragen ist.
(Die HWID von den "KUNDEN" sind untereinader aufgezählt in der .TXT)
|
All times are GMT +2. The time now is 19:24.
|
|