Beiträge von i2c

  • Suchscripte (Youtube, Yahoo, Google, etc) abfragen

    "bei mir schon"
    [autoit]


    $aResult = StringRegExp($string, "<li>Players\sOnline:\s(\d+)</li>", 1, 1)
    _ArrayDisplay($aResult)

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

    #cs ### Output ###
    [0] 7411
    #ce

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

    $aResult = StringRegExp($string, "<li>Server\sStatus:\s(\w+)</li>", 1, 1)
    _ArrayDisplay($aResult)

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

    #cs ### Output ###
    [0] On
    #ce

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

  • Suchscripte (Youtube, Yahoo, Google, etc) abfragen

    Spoiler anzeigen
    [autoit]

    #include <array.au3>
    $string = '<li>Players Online: 9114</li>'

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

    $aResult = StringRegExp($string, "<li>Players\sOnline:\s(\d+)</li>", 1, 1)
    _ArrayDisplay($aResult)

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

    #cs ### Output ###
    [0] 9114
    #ce

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

    $string = '<li>Server Status: On</li>'

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

    $aResult = StringRegExp($string, "<li>Server\sStatus:\s(\w+)</li>", 1, 1)
    _ArrayDisplay($aResult)

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

    #cs ### Output ###
    [0] On
    #ce

    [/autoit]

  • VBulletin Account Prüfen

    Du musst das Passwort als md5-Hash übergeben.
    Es hätte aber sowieso nicht geklappt weil ich nicht daran gedacht habe, das vB zusätzlich einen salt generiert.
    Diese Zeile bitte unter dem }else{ einfügen:

    PHP
    $password = md5($password . $vbulletin->userinfo['salt']);


    Den passenden Hash in deinem AutoIt Skript kannst du dann so erstellen:

    [autoit]

    #Include <Crypt.au3>
    $md5 = StringLower(stringtrimleft(_Crypt_HashData($passwort, $CALG_MD5),2))

    [/autoit]

  • VBulletin Account Prüfen

    Auf die Schnelle:

    &quot;verify.php&quot;


    Die Datei ins Hauptverzeichnis des vB legen. Das Autoitskript würde dann den Source von http://deinedomain.de/verify.php?username=bla&password=blub lesen.
    Wenn 1 → Benutzer existiert
    Wenn 0 → Benutzer existiert nicht
    Das ganze müsste man natürlich noch etwas absichern und evtl. um den Aktivierungszustand des Benutzers erweitern, aber ich denke das Prinzip wird damit klar.

  • VBulletin Account Prüfen

    Ich würde den Weg über ein externes PHP Skript gehen um den Query abzusetzen. Dein Tool müsste dann nur die benötigten Daten in einem GET/POST übergeben.

    Eine direkte Datenbankverbindung deines Skripts mit der Datenbank ist zu gefährlich und das ständige Auslesen des Quelltextes würde nur unnötig Traffic verursachen.

  • Formel aufstellen

    Keine Ahnung was du da für eine Formel haben willst, ist ja auch schon spät.
    Ich würd mich da einfach durch eine Verzweigung aus IF Bedingungen hangeln.
    In etwa so:

    Spoiler anzeigen
    [autoit]

    #include <array.au3>
    Dim $aSpieler1[5][2] = [["Name","Spieler1"],["Rüstung",100],["Schild",105],["Angriff", 303],["Verteidigung",124]]
    Dim $aSpieler2[5][2] = [["Name","Spieler2"],["Rüstung",75],["Schild",33],["Angriff",124],["Verteidigung",100]]

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

    $aSpieler2 = _angriff($aSpieler1, $aSpieler2)

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

    Func _angriff($aktiv,$passiv)
    If $passiv[4][1] = $aktiv[3][1] Then ;wenn Verteidigung == Angriff
    $passiv[4][1] = 0 ;Verteidigung = 0
    Return $passiv ;Angriff beendet
    ElseIf $passiv[4][1] > $Aktiv[3][1] Then ;wenn Verteidigung > Angriff
    $passiv[4][1] -= $aktiv[3][1] ;Verteidigung = Verteidigung - Angriff
    Return $passiv ;Angriff beendet
    ElseIf $passiv[4][1] < $aktiv[3][1] Then ;wenn Verteidigung kleiner als Angriff
    $rest = $aktiv[3][1] - $passiv[4][1] ;Überschuss an Angriffspunkten errechnen
    $passiv[4][1] = 0 ;Verteidigung auf 0 setzen
    If $passiv[2][1] > $rest Then ;wenn Schild > Rest
    $passiv[2][1] -= $rest ;Schild = Schild - Rest
    Return $passiv ;Angriff beendet
    ElseIf ... ;wenn Schild = Rest
    ... ;Schild = 0
    ... ;Angriff beendet
    ElseIf ... ;wenn Schild < Rest
    ... ;Rest = Schild - Rest
    ... ;Schild = 0
    If $passiv[1][1] > $rest Then ;wenn Rüstung > Rest
    ... ;Rüstung = Rüstung - Rest
    ... ;Angriff beendet
    ElseIf ... ;Rüstung = Rest
    ...
    ...
    ...
    ...
    ...
    ...
    EndIf
    EndIf
    EndIf
    EndFunc

    [/autoit]

    Mit etwas Liebe könnte man das ganze auch noch verkürzen aber das geht grad garnicht :sleeping:

  • _INet(SMTP)Mail

    1. http://translation.autoit.de/onlinehilfe/li…s/_INetMail.htm und http://translation.autoit.de/onlinehilfe/li…NetSmtpMail.htm. Bitte jeweils die erste Zeile lesen.
    2. Ansichtssache. Lies die beiden Hilfeseiten und "BILD dir deine Meinung".
    3. Da du ja hier bereits die erste Zeile gelesen hast, sollte sich diese Frage erübrigen. Für Nummer 2 entfällt dabei die Alternative.

    Zitat

    Ja ich weiß das das Thema häufig angesprochen wird ,ich habe aber nirgendwo etwas hilfreiches gefunden.


    Seltsam, wie/wo sucht ihr eigentlich immer eure Informationen?

  • Arrayproblem mit Werten

    Ich versteh's so:
    - $var1 ist bekannt (wird irgendwo anders im Skript berechnet)
    - aus den Elementen der 15 Arrays soll der nächstkleinere Wert ($nk) zu $var1 bestimmt werden
    - das selbe für den nächstgrösseren Wert ($ng)

    $nk_one und $nk_too ($nk_two?) sollen dann die Werte des ersten und zweiten Elements des Arrays beinhalten, in der $nk ermittelt wurde. Mit der Bedingung, das $nk (oder $var1?) nicht 0,0001 bzw. 75,9124 ist.

  • Array nach Primärschlüssel und Unterwerten sortieren

    Spoiler anzeigen
    [autoit]

    #include <array.au3>

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

    Dim $aSource[4][2] = [["Peter", "Gürtel"],["Peter", "Schuh"],["Maria", "Schnalle"],["Peter", "Handschuh"]]
    _ArrayDisplay($aSource, "Vorher")
    $aUnique = _ArrayUnique($aSource, 1, 0, 1)
    If Not @error Then
    Dim $aResult[$aUnique[0]][2]
    For $j = 1 To $aUnique[0]
    $aResult[$j - 1][0] = $aUnique[$j]
    $aIndex = _ArrayFindAll($aSource, $aUnique[$j])
    If Not @error Then
    For $k = 0 To UBound($aIndex) - 1
    $aResult[$j - 1][1] &= $aSource[$aIndex[$k]][1] & ","
    Next
    EndIf
    Next
    EndIf
    _ArrayDisplay($aResult, "Nachher")

    [/autoit]

  • .txt file 2 werte auslesen

    [autoit]

    $string = '250997.0,258.0,1549,32767,1518523977,689,1,False,2010-10-25 00:12:27.000,90,60003760,10000002,30000142,0,'
    $aResult = StringSplit($string, ",", 1)
    MsgBox(0, "", "Price: " & $aResult[1])

    [/autoit]

    Natürlich nur unter der Bedingung, das der Wert immer an erster Position in der Zeile steht. Ansonsten müsste man beide Zeilen am Komma splitten und im ersten Array den Index von price suchen.

    Spoiler anzeigen
    [autoit]

    #include <array.au3>
    $string1 = 'price,volRemaining,typeID,range,orderID,volEntered,minVolume,bid,issued,duration,stationID,regionID,'
    $string2 = '250997.0,258.0,1549,32767,1518523977,689,1,False,2010-10-25 00:12:27.000,90,60003760,10000002,30000142,0,'
    $aResult1 = StringSplit($string1, ",", 1)
    $aResult2 = StringSplit($string2, ",", 1)
    $index = _ArraySearch($aResult1, "price")
    MsgBox(0, "", "Price: " & $aResult2[$index])

    [/autoit]