[WebTCP] For $i schleife und quelltext auslesen

[Ludder231]

Hi ich habs ein Problem mit der For-Schleife und den arrays.

Da ich vorhabe ein script zu schreiben was mir die Höchstbietenden in DarkOrbit anzeigt (Handel) brauchte ich ein loginscript....Das loginscript hab ich fertig. Bloß jz bin ich dabei den quelltext auszulesen aber das es im quelltext vor jedem Höchstbietenden

class="fliess10px-gelb">

und hinter dem bietenden

</span></td>

das kommt muss ich das ja mit einer for schleife lösen aber ich weiß nicht ganz wie. Ich will alle in einer liste anzeigen lassen ungefähr so:

PHP Code:

$hbietender=_StringBetween($oWebTcp.body, 'class="fliess10px-gelb">', '</span></td>')

if IsArray($hbietender) then
for $i=1 to $hbietender
GUICtrlSetData($list1, $hbietender)
next
else 
    msgbox(16, "", "")
endif 


Da muss ich ja jz wie machen können das er mir alle untereinander anzeigt...

WIE?


MfG Ludder231

[Freddy​]

Du musst das wenn du es ausgelesen hast so wiedergeben

$hbietender[0],höchtbietender
$hbietender[1],2ter
$hbietender[2],3ter

[Ludder231]

Originally Posted by 'Butterkuchen

Du musst das wenn du es ausgelesen hast so wiedergeben

$hbietender[0],höchtbietender
$hbietender[1],2ter
$hbietender[2],3ter

nee nciht ganz.

Es ist so: Es ist eine Liste von Sachen auf die geboten werden kann und im quelltext steht hinter jedem Gegenstand wer zzt. der meist bietende ist. Dann müsste man doch auslesen können wie viele gegenstände es gibt(Unterschiedlich)

PHP Code:

if IsArray($hbietender) then
for $i=0 to 62 ; hier dann wie oft es im quelltext steht....(62 ersetzen)
    GUICtrlSetData($list1, $hbietender[$i])
next 


[kknb]

If IsArray($hbietender) Then
	For $i = 1 To UBound($hbietender) -1
		GUICtrlSetData($list1, $hbietender[$i])
	Next
Else
	MsgBox(16, "", "")
EndIf

allerdings wird der inhalt von list1 mit dem aktuellen stand überschrieben, wenn man das richtig machen soll musst du den ganzen source posten.

[Ludder231]

Kann es sein das es manche Sachen verschluckt?

Und wie ist es mit Sonderzeichen? Kann man die iwie auch anzeigen lassen? Weil so werden sie ja nciht richtig angezeigt...

PHP Code:

#include<WebTcp.au3>
#include<string.au3>
#include <GUIConstantsEx.au3>

#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Internal|Handel", 357, 196, 302, 218)
$Button1 = GUICtrlCreateButton("Refresh", 272, 16, 75, 25)
$Button2 = GUICtrlCreateButton("Cancel", 272, 48, 75, 25)
$List1 = GUICtrlCreateList("", 8, 8, 257, 175)
$Label1 = GUICtrlCreateLabel("Server:", 280, 88, 38, 17)
$Label2 = GUICtrlCreateLabel("???", 328, 88, 22, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

anfang()

func anfang()
$username=InputBox("", "Username:")
$password=InputBox("", "Passwort:")
while 1
$nMsg = GUIGetMsg()
Switch $nMsg
    Case $GUI_EVENT_CLOSE
        Exit
        
    case $Button1
        GUICtrlSetData($list1, "")
TCPStartup()
_autoitobject_startup()
global $owebtcp=_webtcp_create(false, true)

$oWebTcp.Navigate("Http://DarkOrbit.com")
GUICtrlSetData($list1, "Login of user "&$username)
$oWebTcp.Navigate("http://darkorbit.bigpoint.com/?locale=de&aid=0http://darkorbit.bigpoint.com/?locale=de&aid=0&aip=email_invites", "loginForm_default_username="&$username&"&loginForm_default_password="&$password&"&loginForm_default_login_submit=Login")
$sucess= _StringBetween($oWebTcp.body, 'title="Fehlermeldung">', '</div>')
if IsArray($sucess) then
    GUICtrlSetData($list1, "Login failed...");server?
    sleep(1000)
    anfang()
else
;~GUICtrlSetData($label2, $server)
$oWebTcp.Navigate("http://de1.darkorbit.bigpoint.com/GameAPI.php?req=***********************")
$oWebTcp.Navigate("http://de1.darkorbit.bigpoint.com/indexInternal.es?action=internalstart")
$oWebTcp.Navigate("http://de1.darkorbit.bigpoint.com/indexInternal.es?action=internalHandel")
endif
$hbietender=_StringBetween($oWebTcp.body, 'class="fliess10px-gelb">', '</span></td>')

If IsArray($hbietender) Then
    For $i = 1 To UBound($hbietender) -1
        GUICtrlSetData($list1, $hbietender[$i])
    Next
else 
    msgbox(16, "", "Error code 2") ;Gameapi adress failed


endif  
_autoitobject_shutdown()

TCPShutdown()

case $button2
    exit

EndSwitch
WEnd
endfunc 


[uragan]

Ui ui, darkorbit loginbot, gefährlich
Ist zwar denke ich nicht erlaubt, aber einen fehler sehe ich schon, und zwar

$oWebTcp.Navigate("http://de1.darkorbit.bigpoint.com/GameAPI.php?req=YTo0OntzOjY6Im...")

hier raus können manche schlaue füchse deine logins ermitteln, (daher schnell wegmache)
Dazu ist diese URL bei jedem Login anderes gebaut. Somit muss man mit

StringRegExp()

bisschen rum machen

[Ludder231]

Originally Posted by uragan

Ui ui, darkorbit loginbot, gefährlich
Ist zwar denke ich nicht erlaubt, aber einen fehler sehe ich schon, und zwar



hier raus können manche schlaue füchse deine logins ermitteln, (daher schnell wegmache)
Dazu ist diese URL bei jedem Login anderes gebaut. Somit muss man mit

StringRegExp()

bisschen rum machen

Oh okay *** ich lese die gameAPI jz immer aus, trozdem danke ^^