On Error Resume Next
 
Dim fso
Dim ts
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("U1_Farmen.txt")
 
Dim strLine, strCurrentPlanetID, strGala, strSys, strPlani, strTyp, strAnz, _
  Pos, anfPos5, endPos5, anfPos4, endPos4, anfPos, anfPos2, anfPos3, endPos, _
  endPos2, endPos3, sTyp, zeilenLaenge, iim1, vorigerplani, iret, wechsel, _
  flottenklick(1000), koordklick(1000), pluenderklick(1000), i, v, _
  Geschwindigkeit, gwurl, sesid, startplani, wpos, stammurl, gleichzeichenpos
 
Geschwindigkeit="100"
Set iim1= CreateObject ("InternetMacros.iim")
iret = iim1.iimInit
v=10-cint(Geschwindigkeit)/10
 
gwurl = InputBox("URL nachm Plani Wechsel bitte (z.B." & _
  "http://galaxywars1.sat1.de/gw03/w.php?u=XXX&p=10):")
 
If Left(gwurl, 18) = "http://galaxywars1" Then
		MsgBox("OK, es geht los!")
 
	Else
		Msgbox("Hm, sicher die richtige URL bzw. das richtige Uni? Ich breche besser" & _
  "ab...")
End If
 
wpos = InStr(gwurl, "w.php")
stammurl = Left(gwurl, wpos-1)
'MsgBox(stammurl)
gleichzeichenpos = InStr(gwurl, "=")
sesid = Mid(gwurl, gleichzeichenpos+1, 10)
'MsgBox(sesid)
 
'While the end has NOT been reached
While Not ts.AtEndOfStream
 
	'Read the line
	strLine = ts.ReadLine
 
	'Get the left side of the line we just read in (the first 6 characters)
	'Then see if it equals "Planet".
	'If so, Show a message that says "Found a Planet named 'A'" or whatever the 
' Planet ID is.
 
if iret = - 3 or iret = - 5 Then
    MsgBox "Du hast abgebrochen?"
    WScript.Quit(0)
End If
 
	If Left(strLine,6) = "Planet" Then
		strCurrentPlanetID = Mid(strLine, InStr(1,strLine," ") + 1, Len(strLine))
		'MsgBox "Found a Planet named '" & strCurrentPlanetID & "'"
 
		Select Case strCurrentPlanetID
 
			Case "A" 
				startplani=""
				wechsel="1"
				vorigerplani=""
			Case "B" 
				startplani="B"
				wechsel="2"
				vorigerplani=""
[---und so weiter---]
 
		End Select
 
		iret = iim1.iimSet("-var_sesid", cstr(sesid))
		iret = iim1.iimSet("-var_wechsel", cstr(wechsel))
		iret = iim1.iimSet("-var_vorigerplani", cstr(startplani))
		iret = iim1.iimSet("-var_vorigerplani", cstr(vorigerplani))
		iret = iim1.iimSet("-var_stammurl", cstr(stammurl))
		iret = iim1.iimPlay("PF_plani_wechsel")