Mensajes

[EDITO:]

una aplicación que se guarda en "C:\Documents and Settings\---\Datos de programa"

Código (vb) [Seleccionar] Expandir

strRuta = "Aqui la ruta"
si pongo una ruta fija solo vale para mi ordenador

Podrían decirme como puedo optimizar este script para cualquier S.O??

Usa las variables de entorno de Windows...

Código (vb) [Seleccionar] Expandir

strRuta = CreateObject("WScript.Shell").ExpandEnvironmentStrings("%APPDATA%") & "\Carpeta\Aplicacion.exe"
WScript.Echo(strRuta)

Saludos.

EDITO: A parte de eso, no estás creando ninguna clave nueva, estás sobreescribiendo el valor por defecto de la clave... tampoco no es necesario escribir la clave en HKCU y HKLM, si la escribes en HKLM afecta a todos los usuarios quedando HKCU innecesaria, eres libre de hacerlo, pero deberías eligir la que más se adapte a tus necesidades.

Aquí tienes:

Código (vb) [Seleccionar] Expandir

KeyName = "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\"
ValName = "Mi aplicacion"
ValData = CreateObject("WScript.Shell").ExpandEnvironmentStrings("%APPDATA%") & "\Carpeta\Aplicacion.exe"

CreateObject("WScript.Shell").RegWrite KeyName & ValName, ValData

Puesto que no me creías con lo de los MsgBoxs mira:

No he dicho que no te crea, de hecho no he dicho nada al respecto sobre eso xD, solo digo que es imposible que se llame dos veces a si mismo.

El video es privado.

Saludos

Algo raro pasa. Uso el antivirus AVG. Tendrá algo que ver?

Olvida los virus.

Código [Seleccionar] Expandir

Script.vbs(1, 1) Error decompilación de Microsoft VBScript: Carácter no válido

Te está diciendo que el problema está en el caracter número 1 de la línea número 1,
Ese error solo puede deberse a una de estas dos razones:

1. Has modificado el código y has agregado un caracter no valido al principio del código.
2. Has guardado el script en una codificación distinta a ANSI, y no reconoce el primer caracter del texto porque se ha convertido a UTF-8(por ejemplo)

Asegúrate de guardar el script.vbs en codificación ANSI.

Saludos!

Le voy a buscar bugs hasta al bloc de notas.

XDDD +1

Yo me percaté que el Notepad de Windows 7 tiene un pequeño bug (Bueno, en realidad es una limitación de la aplicación, pero para mi es un bug inentendible en toda regla), pero lo han reparado en Windows 8.
(Lo que pasa es que el ajuste de línea y la barra de estado no pueden estar activas al mismo tiempo en el notepad de Win7, algo que no es nada productivo, la verdad)

+1 a la noticia, Microsoft perderá dinero, y los que solo saben usar productos de Microsoft (IE) agradecerán que estas aplicaciones sean más estables y fiables en el futuro

Saludos!.

gracias por responder electro. Al intentar ejecutarlo desde el cmd me sale esto:

hmmm...

La verdad es que no encuentro información al respecto sobre ese extraño error.

¿Usas un Windows modificado? (Lease Windows SuperLite, etc)

En lugar de usar "wscript.exe" en el código que te dije, prueba con "cscript.exe", ¿Te funciona?.

Me parece que algo falla en tu WScript, prueba a repararlo con estos tres comandos diréctamente en la CMD:

Código [Seleccionar] Expandir

regsvr32 VBScript
assoc .vbs=VBSFile
Ftype VBSFile="%SystemRoot%\System32\WScript.exe" "%1" %*

[Nov]

Implementación en C#

Gracias Nov

y las captchas?

El captcha te lo pide la web de freenode, no el protocolo IRC.
no es necesario, pruébalo xD...

[pirata]

La verdad es que me encanta todo este tipo de software pirata que "roban" y "saquean" las urls que nos interesan de una web sin tener que perder el tiempo navegando entre dichas webs, ahorra mucho tiempo, yo también he hecho algunos programas como este (mucho más simples, sin tantas pestañas) y en fin, me alucinan.

Deberías presentar la app al concurso de EHN, yo la votaría.

Por cierto, ¿Hay source de esto?, el link de descarga pesa 80kb, así que me imagino que lo subiste ya compilado.

EDITO: Pregunta estúpida, no me acordaba que la hiciste freeware pero con opciones privadas para donantes.

EDITO 2: la pestaña de donaciones creo que es muy molesta que esté en medio de las demás, yo la pondría a la derecha del todo xD.

EDITO 3: Aunque no he probado la aplicación (el primer enlace no va y de los otros no puedo descargar ahora mismo), la opción de renombrado automático no la entiendo, si las urls que obtiene el programa son de hostings tipo bitshare,uploaded,etc, que pueden tardar siglos en descargarse varios capítulos, ¿entonces la idea es mantener el programa abierto? hasta que se descarguen todos para rneombrarlos? no entiendo esa parte de verdad, pero bueno, aún no la he podido probar para ver como es exáctamente.

Bueno, tu app promete,
un saludo!

Un Bot para IRC.

No soy experto en IRC, lo hice basándome en wl webchat de freenode, pero imagino que funcionará en todos los canales de IRC.

...Extender y/o modificar el código como querais, esto solo e sun ejemplo, dejar volar vuestra imaginación:


Un ejemplo de uso:

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

   Dim IRC_Thread_Var As Threading.Thread = New Threading.Thread(AddressOf IRC_Thread)

   Private Sub Form1_shown(sender As Object, e As EventArgs) Handles MyBase.Shown
       IRC_Thread_Var = New Threading.Thread(AddressOf IRC_Thread)
       IRC_Thread_Var.Start()
   End Sub

   Sub IRC_Thread()
       IRC_Bot.Connect("irc.freenode.org", "#ircehn", "ElektroBot")
   End Sub

End Class

...La class del Bot:

Código (vbnet) [Seleccionar] Expandir

Public Class IRC_Bot

   ' Channel Moderators
   Public Shared Gods As String() = "Elektro Elektro-H Elektro-H_ Drvy kili4n Ikillnukes Caster_ OmarHack OmarHack_ Carloswaldo _0xDani".Split(ChrW(32)).ToArray

   ' Commands
   Private Shared Line As String = Nothing
   Private Shared Name As String = Nothing
   Private Shared IP As String = Nothing
   Private Shared Command As String = Nothing
   Private Shared Argument As String = Nothing

   ' Bot Status
   Public Shared Activated As Boolean = True
   Private Shared Elapsed_Time As New Stopwatch
   Private Shared Total_Messages As Int64 = 0

   ' Connection
   Private Shared Ident_Listener As Net.Sockets.TcpListener = Nothing
   Private Shared Ident_Client As Net.Sockets.TcpClient = Nothing
   Private Shared Ident_NetworkStream As Net.Sockets.NetworkStream = Nothing
   Private Shared Ident_Reader As IO.StreamReader = Nothing
   Private Shared Ident_Writer As IO.StreamWriter = Nothing
   Private Shared Ident_ResponseString As String = Nothing
   Private Shared TCP_client As Net.Sockets.TcpClient = Nothing ' Main connection to the IRC network.
   Private Shared Network_Stream As Net.Sockets.NetworkStream = Nothing ' Break TCP connection down to a network stream.
   Private Shared IRC_Reader As IO.StreamReader = Nothing ' Stream to read messages from the Server.
   Private Shared IRC_Writer As IO.StreamWriter = Nothing ' Stream to write messages to the server.

   ' To attach Console (If needed)
   ' Private Declare Function AllocConsole Lib "kernel32.dll" () As Boolean

   Public Shared Sub Connect(ByVal Server As String, _
                      ByVal Channel As String, _
                      ByVal NickName As String, _
                      Optional ByVal Port As Int32 = 6667, _
                      Optional ByVal RealName As String = "ElektroBot", _
                      Optional ByVal UserName As String = "ElektroHacker")

       ' AllocConsole() '  Attach Console (If needed)

       ' Change CMD Window Size
       Console.SetWindowSize(200, 60)

       Try

           ' Create Connection
           Write("Creating Connection...", ConsoleColor.Yellow)
           TCP_client = New Net.Sockets.TcpClient(Server, Port)
           Network_Stream = TCP_client.GetStream
           IRC_Reader = New IO.StreamReader(Network_Stream)
           IRC_Writer = New IO.StreamWriter(Network_Stream)
           If Not IRC_Writer.AutoFlush Then IRC_Writer.AutoFlush = True

           ' Set name
           Write("Setting up name...", ConsoleColor.Yellow)
           IRC_Writer.WriteLine(String.Format("USER {0} {1} * :{2}", UserName, 0, RealName))

           ' Set Nickname
           Write("Setting Nickname...", ConsoleColor.Yellow)
           IRC_Writer.WriteLine(String.Format("NICK {0}", NickName))

           ' Join Room
           Write("Joining Room...", ConsoleColor.Yellow)
           IRC_Writer.WriteLine(String.Format("JOIN {0}", Channel))

           ' Check Ident connection
           Write("Checking Ident connection...", ConsoleColor.Yellow)
           Ident_Listener = New Net.Sockets.TcpListener(Net.IPAddress.Any, 113)
           Ident_Listener.Start()
           Ident_Client = Ident_Listener.AcceptTcpClient
           Ident_Listener.Stop()
           Ident_NetworkStream = Ident_Client.GetStream
           Ident_Reader = New IO.StreamReader(Ident_NetworkStream)
           Ident_ResponseString = Ident_Reader.ReadLine
           Write("Ident got: " & Ident_ResponseString, ConsoleColor.Cyan)
           Ident_Writer = New IO.StreamWriter(Ident_NetworkStream)
           If Not Ident_Writer.AutoFlush Then Ident_Writer.AutoFlush = True
           Ident_Writer.WriteLine(String.Format("{0} : USERID : WINDOWS 7 : {1}", Ident_ResponseString, UserName))

           ' Read messages
           Write("Reading messages...", ConsoleColor.Yellow)
           Elapsed_Time.Start()

           While True

               ' Sum the total received messages
               Total_Messages += 1

               ' Get the IRC line to read
               Line = IRC_Reader.ReadLine

               ' Print the IRC line
               Write(Line, ConsoleColor.Gray)

               ' Get User Name
               Try : Name = Line.Split("!").First.Substring(1, Line.Split("!").First.Length - 1)
               Catch : Name = Nothing
               End Try

               ' Get User IP
               Try : IP = Line.Split(" ").First.Split("/").Last.Replace("ip.", "")
               Catch : IP = Nothing
               End Try

               ' Get User Command
               Try : Command = Line.Split(" ")(3).Substring(1, Line.Split(" ")(3).Length - 1).ToLower
               Catch : Command = Nothing
               End Try

               ' Get the command argument
               Try : Argument = Line.Split(" ")(4)
               Catch : Argument = Nothing
               End Try

                    ' IRC Ping-Pong
                    if line.tolower.startswith("ping") then
                        Write("Answering Ping with Pong...", ConsoleColor.Yellow)
                        Write("PONG " & Line, ConsoleColor.Cyan)
                        IRC_Writer.WriteLine("PONG " & Line)
                    end if

               ' Parse commands
               Select Case Command

                       ' Help
                   Case "!?", "!ayuda"

                       If Line.ToLower.Contains(Channel.ToLower) Then
                           IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1}      ", Name, "[+] Comandos públicos:"))
                           IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1} | {2}", Name, "!? | !ayuda      ", "Muestra esta ayuda."))
                           IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1} | {2}", Name, "!reglas          ", "Muestra las reglas de la sala."))
                           IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1} | {2}", Name, "!reglasehn       ", "Muestra las reglas de ElHacker.Net."))
                           IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1} | {2}", Name, "!status          ", "Muestra el estado del Bot."))
                           IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1} | {2}", Name, "!Whois (IP)      ", "Muestra información geográfica de una IP."))

                           IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1}      ", Name, "[+] Comandos privados:"))
                           IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1} | {2}", Name, "!op              ", "Te otorga el estado de OP."))
                           IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1} | {2}", Name, "!op(+|-) (NOMBRE)", "Otorga o elimina el estado de OP a un usuario."))
                           IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1} | {2}", Name, "!bot (ON|OFF)    ", "Activa o Desactiva el Bot."))
                           IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1} | {2}", Name, "!q | !quit       ", "Desconecta al Bot."))
                       End If

                       ' Room Rules
                   Case "!reglas"

                       If Line.ToLower.Contains(Channel.ToLower) Then
                           IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1}", Name, "[+] Reglas de " & Channel))
                           IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1}", Name, "1. Respetar a los usuarios y no ofender de ninguna manera."))
                           IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1}", Name, "2. No preguntar como puedes hackear a personas ajenas."))
                           IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1}", Name, "3. No compartir material pornográfico o difundir la pederástia o cosas parecidas."))
                       End If

                       ' EHN Rules
                   Case "!reglasehn"

                       If Line.ToLower.Contains(Channel.ToLower) Then
                           IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1}", Name, "[+] Reglas de ElHacker.Net: http://foro.elhacker.net/reglas"))
                       End If

                       ' Geo-Locate IP
                   Case "!whois"

                       'If Line.ToLower.Contains(Channel.ToLower) Then _
                       'AndAlso Activated Then

                       'Dim GeoInfo As GeoLocation.GeoInfo = GeoLocation.Locate(Argument)
                       'IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1} {2}", Name, "[+] Información geográfica de ", Argument))
                       'IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1} {2}", Name, "País..:", GeoInfo.Country))
                       'IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1} {2}", Name, "Ciudad:", GeoInfo.City))
                       'IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1} {2}", Name, "Código:", GeoInfo.Code))
                       'IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1} {2}", Name, "Host..:", GeoInfo.Host))
                       'IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1} {2}", Name, "Ip....:", GeoInfo.Ip))
                       'GeoInfo = Nothing

                       ' End If

                       ' Give own OP+
                   Case "!op"

                       If Gods.Contains(Name) _
                       AndAlso Line.ToLower.Contains(Channel.ToLower) _
                       AndAlso Activated Then

                           IRC_Writer.WriteLine(String.Format("MODE {0} +o {1}", Channel, Name))
                           IRC_Writer.WriteLine(String.Format("PRIVMSG {0} :{1} {2}", Channel, Name, "se ha convertido en OP."))

                       ElseIf Not Gods.Contains(Name) _
                       AndAlso Line.ToLower.Contains(Channel.ToLower) _
                       AndAlso Activated Then

                           IRC_Writer.WriteLine(String.Format("PRIVMSG {0} :{1} {2}", Channel, Name, "no tienes privilegios para ser OP."))

                       End If

                       ' Give Op+ to a user
                   Case "!op+"

                       If Gods.Contains(Name) _
                       AndAlso Line.ToLower.Contains(Channel.ToLower) _
                       AndAlso Activated Then

                           IRC_Writer.WriteLine("MODE {0} +o {1}", Channel, Argument)
                           IRC_Writer.WriteLine(String.Format("PRIVMSG {0} :{1} {2} {3}", Channel, Name, "concedió OP a", Argument))

                       ElseIf Not Gods.Contains(Name) _
                       AndAlso Line.ToLower.Contains(Channel.ToLower) _
                       AndAlso Activated Then

                           IRC_Writer.WriteLine(String.Format("PRIVMSG {0} :{1} {2}", Channel, Name, "no tienes privilegios para conceder OP."))

                       End If

                       ' Give Op- to a user
                   Case "!op-"

                       If Gods.Contains(Name) _
                       AndAlso Line.ToLower.Contains(Channel.ToLower) _
                       AndAlso Activated Then

                           IRC_Writer.WriteLine("MODE {0} -o {1}", Channel, Argument)
                           IRC_Writer.WriteLine(String.Format("PRIVMSG {0} :{1} {2} {3}", Channel, Name, "denegó OP a", Argument))

                       ElseIf Not Gods.Contains(Name) _
                       AndAlso Line.ToLower.Contains(Channel.ToLower) _
                       AndAlso Activated Then

                           IRC_Writer.WriteLine(String.Format("PRIVMSG {0} :{1} {2}", Channel, Name, "no tienes privilegios para denegar OP."))

                       End If

                       ' Bot ON/OFF
                   Case "!bot"

                       If Gods.Contains(Name) _
                       AndAlso Line.ToLower.Contains(Channel.ToLower) Then

                           Select Case Argument.ToLower
                               Case "on"
                                   Activated = True
                                   Write("Bot status changed to: Enabled", ConsoleColor.Cyan)
                               Case "off"
                                   Activated = False
                                   Write("Bot status changed to: Disabled", ConsoleColor.Cyan)
                           End Select

                       ElseIf Not Gods.Contains(Name) _
                       AndAlso Line.ToLower.Contains(Channel.ToLower) Then

                           IRC_Writer.WriteLine(String.Format("PRIVMSG {0} :{1} {2}", Channel, Name, "no tienes privilegios de OP."))

                       End If

                       ' Bot Status
                   Case "!status"

                       If Line.ToLower.Contains(Channel.ToLower) Then
                           IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1}    ", Name, "[+] Status del Bot"))
                           IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1} {2}", Name, "Soy propiedad de......:", "Elektro-H"))
                           IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1} {2}", Name, "Versión de mi sistema.:", "0.2"))
                           IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1} {2}", Name, "Tiempo total online...:", Elapsed_Time.Elapsed.Hours & " H, " & Elapsed_Time.Elapsed.Minutes & " M, " & Elapsed_Time.Elapsed.Seconds & " S"))
                           IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1} {2}", Name, "Mensajes procesados...:", Total_Messages))
                       End If

                       ' Quit
                   Case "!q", "!quit"

                       If Gods.Contains(Name) _
                       AndAlso Line.ToLower.Contains(Channel.ToLower) _
                       AndAlso Activated Then

                           IRC_Writer.WriteLine("QUIT")
                           Write("Exiting...", ConsoleColor.Yellow)
                           Exit Sub

                       End If

               End Select

           End While

       Catch ex As Exception
           Write("Error: " & ex.Message, ConsoleColor.Red)
           IRC_Writer.WriteLine("QUIT")

       Finally
           IRC_Reader.Dispose()
           IRC_Writer.Dispose()
           Network_Stream.Dispose()

       End Try

   End Sub

   Private Shared Sub Write(ByVal Text As String, _
                                Optional ByVal ForeColor As System.ConsoleColor = ConsoleColor.White, _
                                Optional ByVal BackColor As System.ConsoleColor = ConsoleColor.Black)

       Dim Current_ForegroundColor As ConsoleColor = Console.ForegroundColor
       Dim Current_BackgroundColor As ConsoleColor = Console.BackgroundColor

       Console.ForegroundColor = ForeColor
       Console.BackgroundColor = BackColor
       Console.WriteLine(Text & vbNewLine)

       Console.ForegroundColor = Current_ForegroundColor
       Console.BackgroundColor = Current_BackgroundColor

   End Sub

End Class

[Foros:]

De dónde bajas tu las series? en que formato indica la calidad?

De muchos sitios, te digo mis 4 favoritos por orden de preferencia:

Foros:

- hdvagos.com
Aquí el 99% de videos están en formato mkv, 720/1080p.
Sin duda es mi sitio favorito para descargar videos, tanto películas como series, muy buenos uploaders, siempre están al día de las novedades, es un muy buen servicio.

- descargaya.es
La mayoría de uploaders de hdvagos.com también suelen compartir aquí, es gigantesca la gama de calidad y de nuevos aportes que hay, cuando no encuentro un mkv a 1080p en hdvagos, siempre lo encontraré aquí.

Webs tipo seriesyonkis:

- tumejortv.com
Esta web en lo que respecta a la navegación es bastante desorganizada y es un desmadre, pero dejando a un lado ese aspecto catastrófico, ofrecen un servicio "al día" y calidad.
Primero suelen subir los videos en formato avi (suelen ser rips de TV a calidad común, lo que se encuentra en seriesyonkis vaya), y luego con el paso de los días renuevan los enlaces por MKV's a 720p, pero hay pocos a 1080p.
Cuando quiero encontrar algún nuevo capítulo de manera rápida siempre recurro a esta web, porque como ya digo, están al día, pero en general la calidad que aportan no se puede comparar a la de los foros que he mencionado.
De la misma forma que podría recurrir a seriesyonkis o webs parecidas que ofrecen videos AVI en calidad pobre para salir del paso, como por ejemplo lo que he estado haciendo con la serie "Juego de Tronos", primero me descargaba el capítulo en AVI de esta web (porque me puede el ansia), y luego me lo descargaba en MKV de hdvagos, la diferencia de calidad es descomunal, y solo en 1 GB más.
PD: Me parece que hacer httprequests o en resumen buscar dentro de esta web sería un desmadre por su organización, pero no se.

- x-caleta.com
Me gusta mucho esta web, postean de forma sencilla las urls, ofrecen nuevos rips mkv a 720p/1080p tanto de series como películas, y como la página es latinoamericana siempre me encuentro alguna película a super-calidad que no está en las otras webs que he recomendado.
PD: La web ha estado offline durante unas semanas, solo le quedan 3 horas para volver a estar online, no se si seguirá siendo tán buena y sencilla de "rastrear" como lo era hasta hace unas semanas.

Saludos.