Script Schützen

  • Hallo EpicWorld,

    Vorschläge hast du genug, wenn du selbst nicht dazu in der Lage bist hier noch einmal:

    Da es ja offensichtlich kommerziell sein soll, solltest du dein Anliegen in Programmieranfragen mit Gegenleistung posten.
    Falls die in diesem Post erwähnte Firma http://board.gulli.com/thread/1521769…-place-to-play/ nicht deine ist solltest du auch über eine Namensänderung nachdenken, ansonsten die Seite ist nicht aufrufbar (Impressungspflicht beachten)

    mfg (Auto)Bert

  • EpicWorld: Aus deinem Scirpt Ansatz lese ich heraus das du dich noch etwas mit autoit beschäftigen solltest bevor du dich an DB und Co. wagst, das soll keine
    Beleidigung sein , aber gerade beim thema sicherheit und ähnlichem sollte man schon realtiv erfahren sein .....

    MfG Hellboy

    MfG hellboy

    [autoit]

    Do
    _help($user)
    Until $questions = 0

    [/autoit]

    Meine Werke:
    Ste`s Web-Radio

  • Nojo, dann hab ich jetzt (wieder einmal) ne kleine Frage:
    Wie kann ich eine Randomzahl ausgeben von 0-9 mit Buchstaben a-z, A-Z und dies so formatiert:
    xxxx-xxxx-xxxx-xxxx-xxxx

    Mein Ansatz funktionierte in keiner Weise und wurde wieder auf Nullstatus zurückgesetzt ^^

    MfG

  • Machs so: Du lässt dir ne Randomzahl zwischen 0 und 35 ausgeben. Dieser Zahl weißt du dann (z.B. in ner Ini steht für A= 10) usw. jeweils den Wert zu.

    Das machst du 4x4 mal und gibst dir dann den Wert als String mit Bindestrich ;D

  • _GenerateKey

    Spoiler anzeigen
    [autoit]

    $a = _GenerateKey(5, 4)
    MsgBox(0, "", $a)

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

    $b = _GenerateKey(3, 5)
    MsgBox(0, "", $b)

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

    Func _GenerateKey($iBlocks, $iLength)
    ;blubbstar
    Local $sKey = ''
    For $i = 1 To $iBlocks
    For $j = 1 To $iLength
    $iRandom = Random(55, 116, 1)
    If $iRandom < 65 Then $iRandom -= 7
    If $iRandom > 90 Then $iRandom += 6
    $sKey &= Chr($iRandom)
    Next
    $sKey &= "-"
    Next
    Return StringTrimRight($sKey, 1)
    EndFunc ;==>_GenerateKey

    [/autoit]

    Zu Epicworld,
    no comment :/

    • Offizieller Beitrag

    blubbstar: geht noch etwas kürzer ;)

    [autoit]


    MsgBox(0, 'Key', _GenKey(4, 3))

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

    Func _GenKey($iBlocks, $iLenght)
    Local $sKey = ''
    For $i = 1 To $iBlocks * $iLenght
    $sKey &= StringMid('ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890', Random(1, 36, 1), 1)
    If $i/$iLenght = Int($i/$iLenght) And $i < $iBlocks * $iLenght Then $sKey &= '-'
    Next
    Return $sKey
    EndFunc

    [/autoit]
  • Danke Blubbstar, Danke Oscar, Danke die mir helfen.
    Hm, ich glaub die Helfer erwähn ich inner Readme. Verdient hätten ses alle :)

    • Offizieller Beitrag

    Eine Möglichkeit für eine Offline-Verwendung wäre:
    - Man erstellt und speichert eine große Anzahl an Keys (je nach Verbreitungsgrad der Software). Nehmen wir mal 10.000 Keys an.
    - Von diesen Keys erstellt man die MD5-Checksummen und speichert diese Checksummen verschlüsselt in einer Datei.
    - Die verschlüsselte Checksummen-Datei gibt man zusammen mit dem Skript weiter.
    - Die gespeicherten Keys behält man für sich und gibt die Keys nur einzeln weiter.

    So kann man dann im Skript überprüfen, ob der eingegebene Key gültig ist oder nicht.
    Das ist zwar auch nicht 100%ig sicher, aber man macht es einem Angreifer schwerer. Der müsste dann schon decompilieren und sich anhand der Checksummen einen passenden Key erstellen oder gleich die Überprüfung im Skript entfernen.

  • Soo. Eine kleine GUI fürs Schützen.

    Sieht zwar relativ scheiße aus, funktioniert aber...


    Die GUI, die die Abfragen macht:


    [autoit]


    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <mysql.au3>
    $toolname = "Schrubbers Testtool"
    $short = "Schrubber"
    $dbname = "lolrofl"
    $table = "test"
    Local $UserName = "root", $Password = "root", $Database = $dbname, $MySQLServerName = "localhost"
    _MySQL_InitLibrary()
    If @error Then
    TrayTip('Error', 'libmysql.dll konnte nicht gefunden werden', 10, 3)
    Sleep(10000)
    Exit
    EndIf
    $MysqlConn = _MySQL_Init()
    $Connected = _MySQL_Real_Connect($MysqlConn, $MySQLServerName, $UserName, $Password, $Database)
    $hSQLping = _MySQL_Ping($MysqlConn)
    If $hSQLping = 1 Or $hSQLping = 3 Then
    TrayTip('Error', 'Verbindung zur Datenbank konnte nicht hergestellt werden', 10, 3)
    Sleep(10000)
    Exit
    EndIf

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

    #Region ### START Koda GUI section ### Form=
    $title = GUICreate($toolname, 386, 322, 192, 124)
    $b_login = GUICtrlCreateButton("Login", 264, 256, 113, 25, $WS_GROUP)
    $b_buyfull = GUICtrlCreateButton("Vollversion kaufen", 136, 257, 113, 23, $WS_GROUP)
    $b_XDXDXDXDXD = GUICtrlCreateButton("XDXDXDXDXD", 8, 256, 113, 25, $WS_GROUP)
    $l_headline = GUICtrlCreateLabel($short, 50, 24, 260, 58)
    GUICtrlSetFont(-1, 28, 800, 2, "Nightclub BTN")
    GUICtrlSetColor(-1, 0xFF0000)
    $i_username = GUICtrlCreateInput("", 104, 144, 233, 21)
    $i_passwort = GUICtrlCreateInput("", 104, 176, 233, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
    $l_username = GUICtrlCreateLabel("Username", 40, 144, 52, 17)
    $l_password = GUICtrlCreateLabel("Password", 40, 176, 50, 17)
    $l_info = GUICtrlCreateLabel("Sie nutzen die", 40, 224, 74, 17)
    $l_version = GUICtrlCreateLabel("Testversion", 112, 224, 59, 17)
    GUICtrlSetColor(-1, 0xFF0000)
    $l_leftinfo = GUICtrlCreateLabel("Verbleibende Zeit:", 16, 296, 90, 17)
    $l_timeleft = GUICtrlCreateLabel("(No time)", 112, 296, 45, 17)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While True
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    _quit()
    Case $b_login
    if (GUICtrlRead($i_username) = "") Then
    MsgBox(0, "Error", "Sie haben keinen Username eingegeben.")
    Elseif (GUICtrlRead($i_passwort) = "") Then
    MsgBox(0, "Error", "Sie haben kein Passwort eingegeben.")
    Else
    Local $sReturn = _mysql_checklogin($MysqlConn, GUICtrlRead($i_username))
    If GUICtrlRead($i_passwort) == $sReturn Then
    MsgBox(0, "Login erfolgreich", "Sie haben sich erfolgreich eingeloggt!")
    $version = _mysql_checkversion($MysqlConn, GuiCtrlRead($i_username))
    if($version = "V") Then
    GUICtrlSetData($l_version, "Vollversion")
    GUICtrlSetColor($l_version, 0x32CD32)
    EndIf
    GUICtrlSetData($l_timeleft, _mysql_checktime($MysqlConn, GuiCtrlRead($i_username)))
    Else
    MsgBox(0, "Login fehlgeschlagen", "Die eingegebenen Daten sind falsch. Versuchen sie es bitte erneut.")
    EndIf
    EndIf
    Case $b_buyfull
    ShellExecute("http://LinkzuderHomepage.de")
    EndSwitch
    WEnd
    Func _mysql_checklogin(Const $MysqlVerbindung, Const $sAccount)
    _MySQL_Real_Query($MysqlVerbindung, "SELECT `Password` FROM `"&$dbname&"`.`"&$table&"` WHERE `Account` = '" & $sAccount & "';")
    If @error Then
    Return SetError(-1, @error, 0)
    Else
    Local $sResult = _MySQL_Store_Result($MysqlVerbindung)
    Local $aReturn = _MySQL_Fetch_Row_StringArray($sResult)
    _MySQL_Free_Result($sResult)
    If UBound($aReturn) = 0 Then
    Return SetError(-2, @error, 0)
    Else
    Return $aReturn[0]
    EndIf
    EndIf
    EndFunc ;==>_mysql_checklogin
    Func _mysql_checkversion(Const $MysqlVerbindung, Const $sAccount)
    _MySQL_Real_Query($MysqlVerbindung, "SELECT `VVersion` FROM `"&$dbname&"`.`"&$table&"` WHERE `Account` = '" & $sAccount & "';")
    If @error Then
    Return SetError(-1, @error, 0)
    Else
    Local $sResult = _MySQL_Store_Result($MysqlVerbindung)
    Local $aReturn = _MySQL_Fetch_Row_StringArray($sResult)
    _MySQL_Free_Result($sResult)
    If UBound($aReturn) = 0 Then
    Return SetError(-2, @error, 0)
    Else
    Return $aReturn[0]
    EndIf
    EndIf
    EndFunc ;==>_mysql_checkversion
    Func _mysql_checktime(Const $MysqlVerbindung, Const $sAccount)
    _MySQL_Real_Query($MysqlVerbindung, "SELECT `Time` FROM `"&$dbname&"`.`"&$table&"` WHERE `Account` = '" & $sAccount & "';")
    If @error Then
    Return SetError(-1, @error, 0)
    Else
    Local $sResult = _MySQL_Store_Result($MysqlVerbindung)
    Local $aReturn = _MySQL_Fetch_Row_StringArray($sResult)
    _MySQL_Free_Result($sResult)
    If UBound($aReturn) = 0 Then
    Return SetError(-2, @error, 0)
    Else
    Return $aReturn[0]
    EndIf
    EndIf
    EndFunc ;==>_mysql_checktime
    Func _mysql_checklast(Const $MysqlVerbindung, Const $sAccount)
    _MySQL_Real_Query($MysqlVerbindung, "SELECT `lastcheck` FROM `"&$dbname&"`.`"&$table&"` WHERE `Account` = '" & $sAccount & "';")
    If @error Then
    Return SetError(-1, @error, 0)
    Else
    Local $sResult = _MySQL_Store_Result($MysqlVerbindung)
    Local $aReturn = _MySQL_Fetch_Row_StringArray($sResult)
    _MySQL_Free_Result($sResult)
    If UBound($aReturn) = 0 Then
    Return SetError(-2, @error, 0)
    Else
    Return $aReturn[0]
    EndIf
    EndIf
    EndFunc ;==>_mysql_checklast
    Func _mysql_checkserial(Const $MysqlVerbindung, Const $sAccount)
    _MySQL_Real_Query($MysqlVerbindung, "SELECT `Account` FROM `"&$dbname&"`.`"&$table&"` WHERE `Serial` = '" & $serial & "';")
    If @error Then
    Return SetError(-1, @error, 0)
    Else
    Local $sResult = _MySQL_Store_Result($MysqlVerbindung)
    Local $aReturn = _MySQL_Fetch_Row_StringArray($sResult)
    _MySQL_Free_Result($sResult)
    If UBound($aReturn) = 0 Then
    Return SetError(-2, @error, 0)
    Else
    Return $aReturn[0]
    EndIf
    EndIf
    EndFunc ;==>_mysql_checkserial
    Func _quit()
    _MySQL_Close($MysqlConn)
    _MySQL_EndLibrary()
    Exit
    EndFunc ;==>_quit

    [/autoit]


    Für die Datenbank (Zur Erstellung des Tables):

    [autoit]

    #include <mysql.au3>

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

    $UserName = "root"
    $Password = "root"
    $Database = "lolrofl"
    $MySQLServerName = "localhost"

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

    $SQLInstance = _MySQLConnect($UserName,$Password,$Database,$MySQLServerName)

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

    $SQLCode = "CREATE TABLE Tool( Serial VARCHAR (20), Account VARCHAR (30), Password VARCHAR (30), VVersion VARCHAR (1), Time INTEGER, lastcheck VARCHAR(8))"
    _Query($SQLInstance, $SQLCode)
    _MySQLEnd($SQLInstance)

    [/autoit]


    Und das einfügen der Daten per Script:

    [autoit]

    #include <mysql.au3>

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

    $UserName = "root"
    $Password = "root"
    $Database = "lolrofl"
    $MySQLServerName = "localhost"

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

    $SQLInstance = _MySQLConnect($UserName,$Password,$Database,$MySQLServerName)

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

    $SQLCode = "INSERT INTO Tool (Serial, Account, Password, VVersion, Time, lastcheck) VALUES('xasdzuasdgas', 'trick', '1', 'V', '30', '29062010' )"
    _Query($SQLInstance, $SQLCode)
    _MySQLEnd($SQLInstance)

    [/autoit]


    Bei mir funzt es. Sieh es als Hilfe an und nicht als Lösung, die du nun nimmst. Ist relativ hässlich, aber gut seinen Zweck.

    5 Mal editiert, zuletzt von Schrubber (1. Juli 2010 um 13:27)

  • [autoit]

    Case $b_registerserial
    $serial = InputBox("Serial-Registration", "Bitte geben sie hier Ihren Key ein (Bsp: xxxx-xxxx-xxxx-xxxx)")
    $wunschaccount = InputBox("Wunsch-Accountname", "Bitte Wunsch-Accountnamen eingeben.")
    $wunschpasswort = InputBox("Wunsch-Passwort", "Bitte Wunsch-Passwort eingeben.")
    if(_mysql_checkserial($MysqlConn, $serial) = "") Then
    _MySQL_Real_Query($MysqlConn, "UPDATE tool SET Account = '"&$wunschaccount&"' WHERE Serial = '"&$serial&"'")
    _MySQL_Real_Query($MysqlConn, "UPDATE tool SET Password = '"&$wunschpasswort&"' WHERE Serial = '"&$serial&"'")
    Else
    MSGBOX(0, "Registration fehlgeschlagen", "Ihr Serial ist entweder falsch oder bereits registriert")
    EndIf

    [/autoit]


    Vordefinierte Serials können damit auf einen Account registriert werden.
    Die Serials müssen vorher in der DB eingetragen werden, rest bleibt leer.

  • Welche mysql.au3 verwendest du denn?
    Die von Progandy? Oder die vom englischen Forum?

  • Soo. Dies ist nun das komplette Script mit der UDF von progandy.


    Das ist nurn Beispiel, deswegen ist der Wert eher auf der funktionalität, als auf dem Design zu sehen.


    Spoiler anzeigen
    [autoit]


    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <mysql.au3>
    $toolname = "Schrubbers Testtool"
    $short = "Schrubber"
    Local $UserName = "root", $Password = "root", $Database = "lolrofl", $MySQLServerName = "localhost"
    _MySQL_InitLibrary()
    If @error Then
    TrayTip('Error', 'libmysql.dll konnte nicht gefunden werden', 10, 3)
    Sleep(10000)
    Exit
    EndIf
    $MysqlConn = _MySQL_Init()
    $Connected = _MySQL_Real_Connect($MysqlConn, $MySQLServerName, $UserName, $Password, $Database)
    $hSQLping = _MySQL_Ping($MysqlConn)
    If $hSQLping = 1 Or $hSQLping = 3 Then
    TrayTip('Error', 'Verbindung zur Datenbank konnte nicht hergestellt werden', 10, 3)
    Sleep(10000)
    Exit
    EndIf
    #Region ### START Koda GUI section ### Form=
    $title = GUICreate($toolname, 386, 322, 192, 124)
    $b_login = GUICtrlCreateButton("Login", 264, 256, 113, 25, $WS_GROUP)
    $b_buyfull = GUICtrlCreateButton("Vollversion kaufen", 136, 257, 113, 23, $WS_GROUP)
    $b_gotonext = GUICtrlCreateButton("Weiter", 8, 256, 113, 25, $WS_GROUP)
    $b_registerserial = GUICtrlCreateButton("Register Serial", 8,270,113,15,$WS_GROUP)
    $l_headline = GUICtrlCreateLabel($short, 50, 24, 260, 58)
    GUICtrlSetFont(-1, 28, 800, 2, "Nightclub BTN")
    GUICtrlSetColor(-1, 0xFF0000)
    $i_username = GUICtrlCreateInput("", 104, 144, 233, 21)
    $i_passwort = GUICtrlCreateInput("", 104, 176, 233, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
    $l_username = GUICtrlCreateLabel("Username", 40, 144, 52, 17)
    $l_password = GUICtrlCreateLabel("Password", 40, 176, 50, 17)
    $l_info = GUICtrlCreateLabel("Sie nutzen die", 40, 224, 74, 17)
    $l_version = GUICtrlCreateLabel("Testversion", 112, 224, 59, 17)
    GUICtrlSetColor(-1, 0xFF0000)
    $l_leftinfo = GUICtrlCreateLabel("Verbleibende Zeit:", 16, 296, 90, 17)
    $l_timeleft = GUICtrlCreateLabel("(No time)", 112, 296, 45, 17)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    While True
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    _quit()
    Case $b_login
    if (GUICtrlRead($i_username) = "") Then
    MsgBox(0, "Error", "Sie haben keinen Username eingegeben.")
    Elseif (GUICtrlRead($i_passwort) = "") Then
    MsgBox(0, "Error", "Sie haben kein Passwort eingegeben.")
    Else
    Local $sReturn = _mysql_checklogin($MysqlConn, GUICtrlRead($i_username))
    If GUICtrlRead($i_passwort) == $sReturn Then
    MsgBox(0, "Login erfolgreich", "Sie haben sich erfolgreich eingeloggt!")
    $version = _mysql_checkversion($MysqlConn, GuiCtrlRead($i_username))
    if($version = "V") Then
    GUICtrlSetData($l_version, "Vollversion")
    GUICtrlSetColor($l_version, 0x32CD32)
    EndIf
    GUICtrlSetData($l_timeleft, _mysql_checktime($MysqlConn, GuiCtrlRead($i_username)))
    Else
    MsgBox(0, "Login fehlgeschlagen", "Die eingegebenen Daten sind falsch. Versuchen sie es bitte erneut.")
    EndIf
    EndIf
    Case $b_buyfull
    ShellExecute("http://LinkzuderHomepage.de")

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

    Case $b_registerserial
    $serial = InputBox("Serial-Registration", "Bitte geben sie hier Ihren Key ein (Bsp: xxxx-xxxx-xxxx-xxxx)")
    $wunschaccount = InputBox("Wunsch-Accountname", "Bitte Wunsch-Accountnamen eingeben.")
    $wunschpasswort = InputBox("Wunsch-Passwort", "Bitte Wunsch-Passwort eingeben.")
    if(_mysql_checkserial($MysqlConn, $serial) = "") Then
    _MySQL_Real_Query($MysqlConn, "UPDATE tool SET Account = '"&$wunschaccount&"' WHERE Serial = '"&$serial&"'")
    _MySQL_Real_Query($MysqlConn, "UPDATE tool SET Password = '"&$wunschpasswort&"' WHERE Serial = '"&$serial&"'")
    Else
    MSGBOX(0, "Registration fehlgeschlagen", "Ihr Serial ist entweder falsch oder bereits registriert")
    EndIf
    Case $b_gotonext
    if($l_timeleft = 0) then
    MSGBOX(0, "Zeit abgelaufen", "Das Programm funktioniert aufgrund der abgelaufenen Zeit nicht mehr.")
    else
    _starteprogramm()
    EndIF
    EndSwitch
    WEnd

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

    Func _mysql_checklogin(Const $MysqlVerbindung, Const $sAccount)
    _MySQL_Real_Query($MysqlVerbindung, "SELECT `Password` FROM `lolrofl`.`tool` WHERE `Account` = '" & $sAccount & "';")
    If @error Then
    Return SetError(-1, @error, 0)
    Else
    Local $sResult = _MySQL_Store_Result($MysqlVerbindung)
    Local $aReturn = _MySQL_Fetch_Row_StringArray($sResult)
    _MySQL_Free_Result($sResult)
    If UBound($aReturn) = 0 Then
    Return SetError(-2, @error, 0)
    Else
    Return $aReturn[0]
    EndIf
    EndIf
    EndFunc ;==>_mysql_checklogin

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

    Func _mysql_setlasttime(Const $Mysqlverbindung, Const $sAccount)
    $datum = @MDAY&@MON&@YEAR
    $gettime = _MySQL_Real_Query($MysqlVerbindung, "SELECT `Time` FROM `lolrofl`.`tool` WHERE `Account` = '" & $sAccount & "';")
    if(_mysql_checklast($MysqlConn, GuiCTRLRead($i_username)) = @MDAY&@MON&@YEAR) then
    else
    _MySQL_Real_Query($MysqlConn, "UPDATE tool SET lastcheck = "&$datum&" WHERE `Serial` = '" & $serial & "';")
    _MySQL_Real_Query($MysqlConn, "UPDATE tool SET time = "&$gettime&" WHERE `Serial` = '" & $serial & "';")
    EndIF
    EndFunc

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

    Func _mysql_checkversion(Const $MysqlVerbindung, Const $sAccount)
    _MySQL_Real_Query($MysqlVerbindung, "SELECT `VVersion` FROM `lolrofl`.`tool` WHERE `Account` = '" & $sAccount & "';")
    If @error Then
    Return SetError(-1, @error, 0)
    Else
    Local $sResult = _MySQL_Store_Result($MysqlVerbindung)
    Local $aReturn = _MySQL_Fetch_Row_StringArray($sResult)
    _MySQL_Free_Result($sResult)
    If UBound($aReturn) = 0 Then
    Return SetError(-2, @error, 0)
    Else
    Return $aReturn[0]
    EndIf
    EndIf
    EndFunc ;==>_mysql_checkversion

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

    Func _mysql_checktime(Const $MysqlVerbindung, Const $sAccount)
    _MySQL_Real_Query($MysqlVerbindung, "SELECT `Time` FROM `lolrofl`.`tool` WHERE `Account` = '" & $sAccount & "';")
    If @error Then
    Return SetError(-1, @error, 0)
    Else
    Local $sResult = _MySQL_Store_Result($MysqlVerbindung)
    Local $aReturn = _MySQL_Fetch_Row_StringArray($sResult)
    _MySQL_Free_Result($sResult)
    If UBound($aReturn) = 0 Then
    Return SetError(-2, @error, 0)
    Else
    Return $aReturn[0]
    EndIf
    EndIf
    EndFunc ;==>_mysql_checktime

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

    Func _mysql_checklast(Const $MysqlVerbindung, Const $sAccount)
    _MySQL_Real_Query($MysqlVerbindung, "SELECT `lastcheck` FROM `lolrofl`.`tool` WHERE `Account` = '" & $sAccount & "';")
    If @error Then
    Return SetError(-1, @error, 0)
    Else
    Local $sResult = _MySQL_Store_Result($MysqlVerbindung)
    Local $aReturn = _MySQL_Fetch_Row_StringArray($sResult)
    _MySQL_Free_Result($sResult)
    If UBound($aReturn) = 0 Then
    Return SetError(-2, @error, 0)
    Else
    Return $aReturn[0]
    EndIf
    EndIf
    EndFunc ;==>_mysql_checklast

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

    Func _quit()
    _MySQL_Close($MysqlConn)
    _MySQL_EndLibrary()
    Exit
    EndFunc ;==>_quit
    Func _starteprogramm()
    ;Hier kommt der Sourcecode rein von dem Programm, welches folgen soll!
    EndFunc ;==>_starteprogramm()

    [/autoit]


    Unten bei Func _starteprogramm() müsste mann dan nur noch den eigentlichen Sourcecode einfügen, der ausgeführt werden soll, sobald man sich erfolgreich eingeloggt hat UND die Zeit noch nicht abgelaufen ist.


    Oben müsste mann noch seine MySQL Daten eingeben und die Table mit den 2 Codes erstellen, die ich 3 Beiträge zuvor gepostet hab. Aber Achtung: Die 2 Codes, mit deenen Ihr die Table erstellt, sind mit der mysql.au3 gemacht (englisches Forum!).


    Die eigentlichen Fehler sind nur noch, dass die Serials und die EIngabe halt per Input geschehen. Dies ist bei bedarf noch in einer extra GUI zu verarbeiten. Vielleicht finde ich ja die Zeit und mache dies nochmal und stelle es dann hier online ;)

    Dann noch vielleicht bei der Zeitanzeige ein ProgressBar, der abnimmt. Und natürlich, was ich bisher noch vergessen hab, die richtige Abziehung der Tage. Bei mir macht er bisher nur, dass er immer 1nen Tag nur abzieht, egal wieviele Tage zwischen dem letzen Besuch und heute liegen. Wie ich das aber ändern soll, dass es richtig geht, habe ich selber keine Ahnung. Vielleicht hilft mir von euch ja jemand? ;D


    Kleinere Fehler werden mit bitte verziehn, da ich gerade auf der Arbeit bin und keinen Syntaxcheck / Editor hier hab, der mir meine Fehler anzeigt ;)

    Aber die geringen Fehler solltet ihr ggf. selber ausbessern können ^^


    Viel Spaß beim schauen.


    Schrubber

    Einmal editiert, zuletzt von Schrubber (1. Juli 2010 um 11:02)