Baumstrukturmodus | Linearer Modus

FfFC-VipeR · 15.01.2007, 15:11 Uhr

Hmm, wenn das Script erst gar nicht gestartet werden kann, muss einer am Code ge(ver)fummelt haben. Bei mir läuft es astrein Smile

Hier noch mal der Code:

Code:

'###############################################################################​########

'# Wetter Script by Spiky                                                              #

'###############################################################################​########

'#                                                                                     #

'# Copyright 2006 by Spiky                                                             #

'#                                                                                     #

'###############################################################################​########

'###############################################################################​########

'# Verfügbare Variablen                                                                #

'#                                                                                     #

'#  %PLZ%   -   Postleitzahl                                                   #

'#  %TEMP%   -   Temperatur                                                     #

'#  %STATUS%   -   Bewölkt oder Sonnig etc.                                       #

'#  %WIND%   -   Windrichtung und Stärke                                        #

'#  %FEUCHT%   -   Luftfeuchtigkeit in Prozent                                    #

'#  %SICHT%   -   Sicht in Km                                                    #

'#  %DRUCK%   -   Luftdruck                                                      #

'#                                                                                     #

'###############################################################################​########

 Const vSkin = "1,0[7ø1] Wetter für %PLZ% 7¬1 %TEMP%, %STATUS% mit Wind %WIND% 1[7ø1] Die Luftfeuchtigkeit liegt bei %FEUCHT% und die Sicht beträgt %SICHT% 1[7ø1]"

'###############################################################################​########

'###############################################################################​########

'# Zeit in Sekunden zwischen jeder Abfrage                                             #

'###############################################################################​########

 Const vFlood = 1

'###############################################################################​########

Dim vChan, vNick, vOrt, HTML, Temp, vCheck, vGet

Const vHost = "de.weather.com"

Sub Init()

  Script "Wetter Script by Spiky"

  Hook "Chan_Msg"

End Sub

Sub Chan_Msg(Chan, Nick, RegUser, Line)

  If LCase(Param(Line, 1)) = CommandPrefix & "wetter" And vCheck = 0 Then

    If IsNumeric(Param(Line,2)) Then

      vCheck = 1: vChan = Chan: vNick = Nick: vOrt = Param(Line,2)

      vSock = SockConnect(vHost, 80, "SockEvent")

        If vSock = 0 Then

          SpreadFlagMessage 0, "+s", "4*** " & vHost & ": Couldn't create socket"

        End If

    Else

      SendLine "Notice " & vNick & " :Sie müssen eine PLZ angeben.",3

    End If

  End If

End Sub

Sub SockEvent(vSock, SEvent, SData)

  Select Case SEvent

    Case SE_ConnectFailed

      SpreadFlagMessage 0, "+s", "4*** Connection to " & vHost & " failed"

    Case SE_Connected

      SockWrite vSock, "GET /weather/local/" & vORT & " HTTP/1.0"& vbCrLf & _

                       "Accept: text/html"  & vbCrLf & _

                       "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)" & vbCrLf & _

                       "Host: " & vHost & vbCrLf & _

                       "Pragma: no-cache" & vbCrLf & _

                       "Connection: close" & vbCrLf & vbCrLf

    Case SE_Read

      HTML = HTML & SData

    Case SE_Closed

      HTML = Replace(Replace(Replace(Replace(HTML, "&deg;", "°"), "&nbsp;", vbNullString), vbCr, VBNullString), vbLf, VBNullString)

      If InStr(1, HTML, "<!-- Begin Main Content Here-->", VBTextCompare) > 0 Then

        vGet = True

        Dummy = vOrt

          Temp = Right(HTML, Len(HTML) - InStr(1, HTML, Dummy, VBTextCompare) - Len(Dummy) - 182)

          vPLZ = Left(Temp, InStr(1, Temp, ",", VBTextCompare) - 1)

          vPLZ = vPLZ & ", (" & vOrt & ")"

        Dummy = "<TD COLSPAN="&CHR(34)&"2"&CHR(34)&" CLASS="&CHR(34)&"obsTempText"&CHR(34)&" VALIGN="&CHR(34)&"TOP"&CHR(34)&">"

          Temp = Right(HTML, Len(HTML) - InStr(1, HTML, Dummy, VBTextCompare) - Len(Dummy) + 1)

          vTemp = Left(Temp, InStr(1, Temp, "</TD>", VBTextCompare) - 1 )

        Dummy = "<TD colspan="&CHR(34)&"3"&CHR(34)&" align="&CHR(34)&"center"&CHR(34)&" CLASS="&CHR(34)&"obsText"&CHR(34)&">"

          Temp = Right(HTML, Len(HTML) - InStr(1, HTML, Dummy, VBTextCompare) - Len(Dummy) + 1)

          vStatus = Left(Temp, InStr(1, Temp, "</TD>", VBTextCompare) - 63 )

        Dummy = "<B>Wind:</B>"

          Temp = Right(HTML, Len(HTML) - InStr(1, HTML, Dummy, VBTextCompare) - Len(Dummy) - 227)

          vWind = Left(Temp, InStr(1, Temp, "</TD>", VBTextCompare) - 1 )

        Dummy = "<B>Luftfeuchtigkeit:</B>"

          Temp = Right(HTML, Len(HTML) - InStr(1, HTML, Dummy, VBTextCompare) - Len(Dummy) - 227)

          vLuftfeuchtigkeit = Left(Temp, InStr(1, Temp, "</TD>", VBTextCompare) - 1 )

        Dummy = "<B>Sicht:</B>"

          Temp = Right(HTML, Len(HTML) - InStr(1, HTML, Dummy, VBTextCompare) - Len(Dummy) - 227)

          vSicht = Left(Temp, InStr(1, Temp, "</TD>", VBTextCompare) - 1 )

        Dummy = "<B>Luftdruck:</B>"

          Temp = Right(HTML, Len(HTML) - InStr(1, HTML, Dummy, VBTextCompare) - Len(Dummy) - 227)

          vLuftdruck = Left(Temp, InStr(1, Temp, "</TD>", VBTextCompare) - 1 )

      ElseIf InStr(1, HTML, "Lokale Wettervorhersage", VBTextCompare) > 0 Then

        vGet = False

      End If

        If vGet = True Then

          SendLine "PRIVMSG " & vChan & " : " & Replace(Replace(Replace(Replace(Replace(Replace(Replace(vSkin, "%PLZ%", vPLZ, VBTextCompare), "%TEMP%", vTemp, VBTextCompare), "%STATUS%", vStatus, VBTextCompare), "%WIND%", vWind, VBTextCompare), "%FEUCHT%", vLuftfeuchtigkeit, VBTextCompare), "%SICHT%", vSicht, VBTextCompare), "%DRUCK%", vLuftdruck, VBTextCompare),3

          HTML = VBNullString: Temp = VBNullString: Dummy = VBNullString: vGet = VBNullString

          TimedCommand "vCheck = 0", vFlood

        Else

          SendLine "Notice " & vNick & " :Es tut mir leid aber die PLZ: [ " & vOrt & " ] kenne ich nicht.",3

          HTML = VBNullString: Temp = VBNullString: Dummy = VBNullString: vGet = VBNullString

          TimedCommand "vCheck = 0", vFlood

        End If

  End Select

End Sub

bebub · 15.01.2007, 16:55 Uhr

kommt immer noch der fehler

|16:52:40| <ichwarsnicht> Error : 1032 (Ungültiges Zeichen)
|16:52:40| <ichwarsnicht> Position: Line 1, Column 0
|16:52:40| <ichwarsnicht> Context : "ÿþ"
|16:52:40| <ichwarsnicht> *** End of error message
|16:52:40| <ichwarsnicht> *** Sorry, the script couldn't be added.

was is das für ein fehler ?

hab das wetterscript von nem bekannten bekommen ( das selbe wwas ich hatte ) und das funzt.

mach ich was beim kopieren und einfügen im Editor falsch ?

**Christian** · 15.01.2007, 20:05 Uhr

Da ich der Coder bin äußere ich mich auch mal ^^ bei mir gehts 1A ohne probleme da hasste wohl was falsch kopiert.

bebub · 16.01.2007, 10:21 Uhr

also hab das script von nem bekannten bekommen, das geht, is übrigens das selbe.
Wenn ich hier eins rauskopier kommt immer die selbe fehlermeldung.
Wir haben es mit dem bombenscript probiert, das selbe. bei gehts nicht, bei ihm schon, er schickts mir und es geht.

was mach ich da falsch ? ich fügs in den editor rein und nix geht :(
Was bedeutet eigentlich der fehler ? vllt hilft mir das ja weiter.

**Christian** · 16.01.2007, 12:36 Uhr

ja das du falsch markierst und kopierst würd ich mal sagen.

bebub · 16.01.2007, 13:04 Uhr

hab beide scripte verglichen, meines und das von meinem bekannten, sind identisch.

**Christian** · 17.01.2007, 11:43 Uhr

Zitat:(11:43:13) (@SI|Spiky) .wetter 47167
(11:43:14) (@AnGelBot) [ø] Wetter für Duisburg, (47167) ¬ 11°C, Bewoelkt< mit Wind aus dem Südsüdwesten mit 26 km/h [ø] Die Luftfeuchtigkeit liegt bei 76 % und die Sicht beträgt 10,0 km [ø]

Firefox · 02.02.2007, 21:10 Uhr

@ bebub: Speicherst du das dann als .txt oder als .asc ab ?

K1773R · 22.02.2007, 00:00 Uhr

wie kann ich die plz rausfinden? also für die schweiz Wink

bebub · 06.03.2007, 12:47 Uhr

@K1773R

http://www.romankoch.ch/geografie/gds.as...&liste=plz

hoffe das hilft weiter

Möglicherweise verwandte Themen...
Thema:		Verfasser	Antworten:	Ansichten:	Letzter Beitrag
	[NEW] TV Script Version 1.2 (Beta) by Spiky, HAPM & Hollowman	Christian	59	15.727	17.01.2012 18:58 Uhr Letzter Beitrag: Teufels-Kerl
	Bomb Script Version 1.0 (Beta) by Spiky	Christian	26	8.157	18.11.2011 11:36 Uhr Letzter Beitrag: HAPM
	OMGWord Script Version 1.0 (Beta) by Spiky	Christian	23	8.993	01.11.2010 19:54 Uhr Letzter Beitrag: Ultrawipf
	Google Script Version 1.0 (Beta) by Spiky	Christian	34	9.352	29.05.2010 15:14 Uhr Letzter Beitrag: daimianstar
	xrel Script Version 1.0 (Beta) by Spiky	Christian	8	5.706	12.07.2009 09:43 Uhr Letzter Beitrag: derAMD
	MyGames Script Version 1.0 (Beta) by Spiky	Christian	12	4.246	03.07.2009 14:56 Uhr Letzter Beitrag: coolnosveratus
	AntiAd Script Version 1.0 (Beta) by Spiky	Christian	3	1.667	24.05.2009 14:04 Uhr Letzter Beitrag: eXploder
	Slot Script Version 1.1 (Beta) by Spiky	Christian	20	5.720	24.02.2009 23:49 Uhr Letzter Beitrag: PapaMaxi
	Pferderennen Script v1.0 by Spiky	Christian	18	4.076	23.11.2008 15:34 Uhr Letzter Beitrag: Eisbaer74
	Wikipedia Script Version 1.0 (Beta) by Spiky	Christian	7	2.324	10.10.2008 17:47 Uhr Letzter Beitrag: Hirni