Voll die Baustelle

1. offizieller Beitrag

    Hallo vllt kennt ihr das kleine Tool von GTAspider um das neuste thema im Forum zu ssehen ich wollte es nun mal neu machen da es nicht mehr funktioniert. (Habe ihn gefragt er hat gesgat wäre kein problem, wers net glaub kann ja selba fragen)

    Also hier der Code

    Spoiler anzeigen
    [autoit]


    #include <file.au3>
    #include <array.au3>
    #include <GUIConstants.au3>

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

    #NoTrayIcon
    $Form1 = GUICreate("AutoIt.de Checker", 135, 320, -1, -1, -1, $WS_EX_TOOLWINDOW)
    $n = GUICtrlCreatePic(@DesktopDir & "\AutoIt.jpg",-1,-1, 140,320)
    GUISetBkColor(0x000000)

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

    $Input1 = GUICtrlCreateInput("Bitte Warten...", 8, 15, 121, 21, $ES_READONLY, $WS_EX_CLIENTEDGE)
    GUICtrlCreateLabel("Titel", 10, 0, 29, 14)
    GUICtrlSetBkColor(-1, 0x000000)
    GUICtrlSetColor(-1,0xDE6F41)

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

    $Input2 = GUICtrlCreateInput("Bitte Warten...", 8, 60, 121, 21, $ES_READONLY, $WS_EX_CLIENTEDGE)
    GUICtrlCreateLabel("Autor", 10, 45, 29, 14)
    GUICtrlSetBkColor(-1, 0x000000)
    GUICtrlSetColor(-1,0xDE6F41)

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

    $Input3 = GUICtrlCreateInput("Bitte Warten...", 8, 105, 121, 21, $ES_READONLY, $WS_EX_CLIENTEDGE)
    GUICtrlCreateLabel("Geschrieben", 10, 90, 29, 14)
    GUICtrlSetBkColor(-1, 0x000000)
    GUICtrlSetColor(-1,0xDE6F41)

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

    $Input4 = GUICtrlCreateInput("Bitte Warten...", 8, 165, 121, 21, $ES_READONLY, $WS_EX_CLIENTEDGE)
    GUICtrlCreateLabel("Letzter Beitrag von", 10, 150, 40, 14)
    GUICtrlSetBkColor(-1, 0x000000)
    GUICtrlSetColor(-1,0xDE6F41)

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

    $Input5 = GUICtrlCreateInput("Bitte Warten...", 8, 210, 121, 21, $ES_READONLY, $WS_EX_CLIENTEDGE)
    GUICtrlCreateLabel("Geschrieben", 10, 195, 29, 14)
    GUICtrlSetBkColor(-1, 0x000000)
    GUICtrlSetColor(-1,0xDE6F41)

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

    $Button = GUICtrlCreateButton("&Aktualisieren", 8, 245, 121, 21)
    GUISetState(@SW_SHOW)

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

    GetLastPost()

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

    While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
    Case $msg = $Button
    GetLastPost()
    ;;;;;;
    EndSelect
    WEnd
    Exit
    Func GetLastPost($setdata = 1)
    $file = @TempDir&"\wg.php"
    Dim $array

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

    If $setdata = 1 Then
    GUICtrlSetState($Button,$GUI_DISABLE)
    GUICtrlSetData($Input1,"Bitte Warten...")
    GUICtrlSetData($Input2,"Bitte Warten...")
    GUICtrlSetData($Input3,"Bitte Warten...")
    GUICtrlSetData($Input4,"Bitte Warten...")
    GUICtrlSetData($Input5,"Bitte Warten...")
    EndIf

    InetGet("http://www.autoit.de/portal.php",$file,1)

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

    $string = FileRead($file,FileGetSize($file))

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

    $strings = StringSplit($string,'<a href="thread.php?threadid=',1)
    $strings = StringSplit($strings[2],">",1)
    $strings = StringSplit($strings[2],"</a",1)
    $threadtitle = $strings[1]

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

    $strings = StringSplit($string,"<br /><b>",1)
    $strings = StringSplit($strings[3],"</b>",1)
    $threadday = $strings[1]

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

    $strings = StringSplit($string,'<span class="time">',1)
    $strings = StringSplit($strings[2],'</span>',1)
    $threadtime = $strings[1]

    _FileReadToArray($file,$array)
    $threaddayline = _ArraySearch($array,@TAB&'<br /><b>'&$threadday&'</b>, <span class="time">'&$threadtime&'</span></span></td>')

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

    $strings = StringSplit($array[$threadlastdayline-2],'<a href="profile.php?userid=',1)

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

    $strings = StringSplit($strings[2],">",1)
    $strings = StringSplit($strings[2],"<",1)
    $threadautor = $strings[1]

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

    $strings = StringSplit($string,"<br /><b>",1)
    $strings = StringSplit($strings[4],"</b>",1)
    $threadlastday = $strings[1]

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

    $strings = StringSplit($string,'<span class="time">',1)
    $strings = StringSplit($strings[3],'</span>',1)
    $threadlasttime = $strings[1]

    $threadlastdayline = _ArraySearch($array,@TAB&'<td class="tablea" align="right"><table border="0" cellspacing="0" cellpadding="1"><tr><td align="right" nowrap="nowrap"><span class="smallfont">')
    $strings = StringSplit($array[$threadlastdayline+3],'<a href="profile.php?userid=',1)
    $strings = StringSplit($strings[2],"<b>",1)
    $strings = StringSplit($strings[2],"<",1)
    $threadlastwrite = $strings[1]

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

    If $setdata = 1 Then
    GUICtrlSetState($Button,$GUI_ENABLE)
    GUICtrlSetData($Input1,$threadtitle)
    GUICtrlSetData($Input2,$threadautor)
    GUICtrlSetData($Input3,$threadday&" "&$threadtime)
    GUICtrlSetData($Input4,$threadlastwrite)
    GUICtrlSetData($Input5,$threadlastday&" "&$threadlasttime)
    GUICtrlSetTip($Input1,$threadtitle)
    Else
    Return $threadtitle&"<&-$.6"&$threadlastday&"<&-$.6"&$threadtime&"<&-$.6"&$threadautor&"<&-$.6"&$threadlastwrite&"<&-$.6"&$threadlastday&"<&-$.6"&$threadlasttime
    EndIf
    EndFunc

    [/autoit]

    Er sagt an alle möglichen stellen das Fehler sind

    vllt könnt ihr helfen vllt findet ihr die fehler im Code.

    GTAspider hat gesagt der https://autoit.de/www.autoit.de Quelltext (quellcode) hat sich geändert deswegen funtz es nicht mehr.

    Also ich hoffe ihr könnt helfen.

    Thx im Voraus :comp2: :comp2: :comp2:

    Einmal editiert, zuletzt von König Mickey (24. September 2007 um 19:40)

    fKurzfassung:

    Das da oben ist eine 1 zu 1 kopie von Gta Spider
    Du hast mal vorsichtshalber GtaSpider mit deinem Namen ersetzt
    und jetzt dürfen wir für dich die Fehler suchen und ausbessern? :)

    VERZICHTE!

    ne das mit dem namen ist weil er gesagt hat eine GTAspider Version und eine König Mickey Version

    Kannst ja selba frage

    ja ich hab net so die anu von sowas wie dem da

    deswegen i need help

    Sorry aber was raus muss mus raus..

    1) In ICQ nerven - aber meine Signatur gut ignorieren :)
    2) Rechtschreibung wie SAU! Nix gegen Rechtschreibfehler-aber das??
    3) Andere die Arbeit machen lassen - Frecheit
    4) Threads editieren wenn gelöst
    5) Mal bissle überlegen wie man Fragen richtig stellt (sie Pees signatur)

    Mfg..

    Ja ok ich werde das alles mal änder aber siehst du denn überhaupt ein fehler denn ich finde da nix

    z.b zeile 95

    [autoit]

    $strings = StringSplit($array[$threadlastdayline-2],'<a href=profile.php?userid=',1)

    [/autoit]

    da sagt der das, dass

    % falsch ist

    [autoit]

    [$threadlastdayline-2]

    [/autoit]

    kann mir mal einer sagen was an der zeile falsch ist

    [autoit]

    $strings = StringSplit($array[$threadlastdayline-2],'<a href=profile.php?userid=',1)

    [/autoit]
    • Offizieller Beitrag

    Also wenn du es selber neu machen willst, dann mach es auch selber.
    Einfach den Code reinstellen und sagen: "geht nicht", ist wohl ein Witz.
    Das es nicht geht wissen wir alle.
    Ich habe dir auch den Ansatz gesagt.
    Neuen Quelltext laden und mit der Selektion in GTA's Skript vergleichen.
    Warum machst du das nicht?

    BugFix

    Habe ich ja getan aber es sind keine unterschiede da deswegen weiß ich ja nicht weiter.

    Ich weiß einfach nicht was das problem sein soll


    Ihr seit ja besser seht ihr denn Fehler???

    Mickey - was bringt es, wenn ein Medizienstudent im Ersten Semester ne Herz OP durchführt, die er nicht kann.

    NIX - oder (wie auch hier) : Noch mehr Ärger (oder ebe Blutungen, usw).

    Lern die Basics von Autoit, nimm Bugfix Rat ans Herz und werd ( sei) kein Script Kiddy der einfach nur will will will hacken / proggen / cracken usw ohne ne Ahnung zu haben was er amcht - hauptsache , er kann sagen "Ich bin cool - ich kann proggen!"...

    Bringt nix - sinnlos.

    Zitat

    [ Montag | 19:57 ] <huggy> auja ich liebe aufforderungen :) Und so höflich :)

    Ja ne is kla

    Ok werd ich lerne aber so en scheiße wie

    "Ich bin Cool - Ich kann Proggen"

    das is ja sowas von kindisch und ausserdem stimmt es ja nichtmal und das war unhöflich.

    Also ich lerne und versuchs dann noma

    Kindisch meinst du...

    Wenn du wüsstest wieviele tausende von Script Kiddys genau wegen so ner EInstellung Scheisse bauen - würdest du anders denken.

    Du liest anscheinend nichtmal die Antworten..ich sagte:
    nämlich, dass Script Kiddys sowas sagen..

    Wenn du dich jetzt damit angegriffen fühlst, hast du dich grad selber als S Kiddy bezeichnet .

    Deine Art des Schreibes hat sich nicht gebessert,obwohl du darauf Aufmerksam gemacht worden bisst.

    Ich lass mir auch nicht gerne von

    - ich leugne nicht - ich seh dich als Script Kiddy -

    Script Kiddys sagen dass ich gefälligst Antworten soll.

    Von mir kannst du keine weitere Hilfe erwarten -
    und ich wette nicht nur von mir nicht..

    Achja, schreib mich in ICQ an sooft du willst, ich ignoriere dich getrost ;)