Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - Car0nte

#11
Lo que ha pasado es TERRIBLE. No es que hayan cerrado una página con contenido ilegal, es que han bloqueado el acceso a  TRAVÉS DE OPERADORAS a páginas de enlaces ALOJADAS FUERA DE ESPAÑA. Exactamente igual que lo que hacen en China, Corea del Norte, Turquía y otros países de nuestro nivel democrático.

Y no sólo eso. ¿Alguien ha visto, oído o leído una ***** de todo esto en algún medio de comunicación de nivel nacional? Sólo se me ocurren dos explicaciones: no lo han considerado relevante o ni se han enterado. No sé qué es peor. Lo que sí que se es que es VERGONZOSO.

Personalmente, al menos a mí, estos del cine español me tienen hasta los *****

Estamos hablando de una industria que se nutre de el famoso CANON, ilegal se mire por donde se mire y de SUBVENCIONES públicas que se pagan con los impuestos de todos los españoles.

¿Si buena parte de esas películas se pagan con el dinero de todos no sería justo decir que nos pertenecen a todos? Porque aunque no veas ni una sola de sus películas cada vez que compras un CD virgen, un reproductor mp3, un TLF, etc, etc ellos se quedan con parte.

Luego está el hecho de que aunque el 99% de lo que se baje ilegalmente sea producido por Hollywood  o sea software, música o cine extranjero el 100% del botín se lo quedan ellos. ¿Quién es el pirata?

Habría que dejar de ver cine español. ¿No se quejan? Nos tratan de ladrones (a TODOS), nos dicen que estamos en contra de la cultura y no sé cuántas cosas más (eso sí, después de echarse la mano llena al bolsillo), y luego, el día que vayamos al cine, nosotros decidiremos a quién queremos dejar la pasta: a un cine aburrido, falto de ideas, innovación y crítica (¿Alguien ha visto un policía de asuntos internos, un político corrupto o desahuciados en una película española?) o a otro que, aunque sea extranjero, al menos nos divierte y trata los problemas.
#12
Buenas:

Estoy con una pequeña extensión de Google Chrome en la que necesito que al seleccionar una palabra, ésta abra una pestaña con una web en la que se busque la palabra seleccionada.

Hace lo que se supone que debe hacer siempre que no se utilicen caracteres especiales (tildes, Ñ, etc) y necesito que sí los reconozca.

El problema CREO que está en esta función:

Código (javascript) [Seleccionar]
function enviaOnClick(info, tab) {
var texto=escape(info['selectionText']);
var url="http://www.unapagina.es/buscatexto=";
chrome.tabs.create({"url":url+texto});


El problema está en que al seleccionar por ejemplo la cadena "búsqueda" necesito que en vez de convertirla en: http://www.unapagina.es/buscatexto=b\u00FAsqueda

se quede como: http://www.unapagina.es/buscatexto=búsqueda

No tengo mucha idea de esto. Sé que que js suele haber problemas con los tipos de codificación, así que no sé si es algo sencillo o grave.

Saludos y gracias

===============================================
Editado: Solución encontrada
===============================================

La solución era sencilla; de hecho, hay unas cuantas. La que más se adecúa a lo que buscaba es:

Código (javascript) [Seleccionar]
function enviaOnClick(info, tab) {
var texto=info.selectionText.toLowerCase();
var url="http://www.unapagina.es/buscatexto=";
chrome.tabs.create({"url":url+texto});


Saludos
#13
Cita de: 79137913 en  3 Abril 2014, 01:27 AM
HOLA!!!

Si, tienen que estar instaladas por supuesto (exepto por la de el creador de forms^FormDesigner^).

GRACIAS POR LEER!!!

Con lo que pesan no pasa nada.. se incluye en el instalador y listo. Lo que no sé es por qué  no viene de serie con Windows.

Ah! y de nada hombre.. gracias a ti por el aporte!!!

Cita de: Eleкtro en  3 Abril 2014, 10:09 AM
Imagino que, como alternativa, se podría portabilizar, empaquetando las librerías y el archivo .VBS todo en un único exe (por ejemplo con la herramienta ExeScript).

Saludos!

No sé si se puede.. lo que sí que sé es que los antivirus ya han condenado a Exescript. No sé si en todos los casos pero a mí en dos me canta: TR/ExeScript.A
#14
Una buena pregunta sería ¿Qué antivirus detecta más falsos positivos?

El 70 u 80% de detecciones son falsos positivos. Cuando creas un programita sin usar productos de grandes corporaciones tienes muchas posibilidades de que te detecten falsos positivos.

No sé a los demás, pero a mí, al compilar, empaquetar, ofuscar me ha detectado troyanos cuando en realidad no lo eran. Hace unos meses, tuve que enviar un correo a Avira y AVG porque al crear CUALQUIER EJECUTABLE CON WINRAR en un archivo solido, en RAR5, incluyendo un icono (metiendo 1 foto, 2 documentos o lo que fuera) DETECTABA UN TROYANO.

Otro ejemplo: al empaquetar cualquier proyecto usando Confuser, un popular, sencillo y GRATUITO ofuscador, para NET los antivirus detectaban TR/Trooper.MSIL.Gen aunque fuera un "Hola Mundo!". En cambio, si creas un programa en VS que formatee todo lo formateable usando el ofuscador que trae Visual Studio de Microsoft ningún antivirus cantará nada.

¿O a quién no le ha pasado que el antivirus de turno le haya empezado a detectar un troyano con un programa que lleva años utilizando sSIN QUE EL FIREWALL DETECTE NADA depués de añadirlo a la lista de excepciones?

En cambio, si te pones restrictivo con el firewall ves que tienes un montón de programas enviando NO SE SABE QUÉ INFORMACIÓN ni cuándo ni dónde ni por qué. Yo a eso, un programa que envía información sin que ningún antivirus detecte absolutamente nada lo llamo un troyano cojonudo.

#15
Cita de: 79137913 en 25 Marzo 2014, 12:23 PM
HOLA!!!

Esto sirve para crear Formularios en VBS, cosa que no se puede hacer sin estas librerias que eran casi imposibles de encontrar.

GRACIAS POR LEER!!!

De acuerdo, permite crear Forms en VBS. ¿Pero para ejecutarlos es necesario tener instaladas las dll?

Saludos
#16
Es imposible variar el hash de un .exe hecho en NET mediante My.Settings, puesto que esta información se guarda en un archivo ubicado en:

%USERPROFILE%\App Data\Local\<Nombre corporativo>\<nombre de programa>_<EID>_<HASH>\<Versión de ensamblado>\user.config

Es un XML normal y corriente. Así que el que hubiera pensado en guardar algún tipos de datos o nombres de variables delicados debería pensárselo dos veces. Por ejemplo: una contraseña o EdadDelCapullo como nombre de la variable que controla la edad de tu jefe. ;)

Saludos

Añado un mensaje en vez de editar porque responde a la pregunta incial (por si a alguien le interesa). Aunque no debería haberse posteado inicialmente en este foro y sí en el de NET.
#17
CitarCitar
Para lo que quieres tú, la manera más sencilla es utiliza la shell de Windows.. es decir, si lo puedes hacer desde la cmd lo podrás hacer desde tu aplicación con todas las ventajas que conlleva

Car0nte, me parece una pena esa forma de pensar.

Si ustedes quieren usar la CMD para las tareas, ¿porque no están programando sus aplicaicones en Batch? :P

Por supuesto que hay mejores maneras de hacer las cosas. Está claro. Pero dado el nivel de la persona que pregunta, pienso que empezar a usar NET o lenguaje que sea aprovechándose de los pocos (o muchos) conocimientos que tenga de MSDOS, es una buena manera de empezar y de que se pique. Cuando aprenda un poco ya tendrá tiempo de liarse con System.IO, librerías y todo lo demás. Para empezar a hacer casas es mejor empezar por la caseta del perro que por el Museo Guggenheim. Le puede pasar como a Santiago Calatrava y caérsele a pedazos xD

Además, aunque éste no es el caso, NET tiene algunas deficiencias (cada vez menos) especialemnte trabajando a bajo nivel. Hay veces que no te queda más remedio que tirar de shell de Windows o WSS, no entiendo por qué, pero es un hecho.

Por ejemplo, (y tiene que ver con esto), la creación de shortcuts, hasta no hace mucho no estaba incluido y tocaba tirar de WSS  sin IntelliSense y con todas sus desventajas  (creo que por eso me daba error, en este equipo tengo VS2010 y tú lo habías hecho con el 12 ó 13, además suelo trabajar con Framework 3.5 por tema de compatibilidades. Lo sé porque me he bajado algunos de tus trabajos y no puedo ver la source (los hay realmente buenos) El que quiera saber por qué que pinche aquí y vea la relación con este post)

Dicho esto esto, está claro que siempre será más eficaz utilizar los recursos propios de NET por mil razones (eficiencia, rapidez, gestión de memoria, etc, etc) (aunque no lo parezca leyendo mis últimos post)  ;D

Saludos

EDITADO:

Citarel 90% de lo que vas a encontrar es morralla de VB6.

Creo que no es muy justo tratar de morralla al trabajo que han hecho otros con el mismo trabajo (o más) y que conste que no tengo prácticamente ni idea de VB6 (yo soy del paleolítico.. cuando dejé el Basic se llamaba BASICA, no había Internet ni casi documentación y los foros se hacían con señales de humo  :laugh:). Piensa que dentrode unos años lo que tú con mucho esfuerzo has hecho, aunque sea antiguo, no será basura.
#18
Cita de: Eleкtro en 16 Febrero 2014, 18:33 PM

Me resulta extraño porque el miembro 'ShortcutInfo' sólamente es una Class con propiedades públicas,
en cada propiedad debes especificar los valores del shortcut que quieres crear (aunque algunas de las propiedades como 'IsFile' o 'IsFolder' no importa lo que pongas porque las uso para otros métodos) que luego toma el método 'CreateShortcut', al que le añadí un 'Overload' para poder pasarle un objeto 'ShortcutInfo', pero si te da problemas, en lugar de pasarle un 'ShortcutInfo' puedes pasarle todos los parámetros del shortcut de forma manual: Shortcutmanager.createshortcut("C:\Nuevo link.lnk", etc...)

No me imagino que tipo de problema te puede causar la Class 'ShortcutInfo' porque como ya digo son propiedades y nada más,
si quieres mostrar el código para ver de que forma lo estás utilizando y detallar la excepción/error de compilación o en tiempo de ejecución (si es que hubiera alguna excepción)...

un saludo!

Probablemente el error sea mio. El equipo que uso habitualmente está en en el servicio tecnico. Éste tiene muchos Km y un montón de modificaciones y funciones capadas (por necesidad, experimentos y/o estupidez xD). En cuanto me traigan el otro probaré.

La verdad es que tu método promete .. no había leído nada sobre el tema. En buena parte es mejor mires por donde lo mires porque es algo nativo integrado por completo en NET.

Saludos
#19
JodX"#!@!!! xDDD

CitarNo se hace mediante el registro, símplemente son accesos directos que se guardan en el directorio del perfil del usuario actual, en C:\Users\USUARIO\Links

GRACIAS, de verdad... ERA EXACTAMENTE ESO LO QUE BUSCABA me estaba volviendo loco. Ayer me tire dos horas buscando en el registro, carpetas especiales, etc y no caí en los Links

Por eso postee en este foro en vez del de net o el específico de VB. Imagianaba que la solución estaba en el registro o en alguna carpeta, aunque siendo sincero ya había tirado la toalla con las carpetas especiales... se me pasó!

Gracias por el pedazo de código que te has marcado, No conocía esa forma de crear Shorcuts (lo copio con tu permiso) Yo tiraba de la shell de WS

Pego la función que cree por si a alguien le sirve:

Código (vbnet) [Seleccionar]
   Function CreadorAD(ByVal Directorio As String)

       Dim ScriptShell, DirectorioShell, EnlaceShell As Object

       Try

           ScriptShell = CreateObject("WScript.Shell")

           If Directorio = "Escritorio" Then

               Dim DirEscritorio As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)

               DirectorioShell = DirEscritorio

           ElseIf Directorio = "Inicio" Then

               Dim DirInicio As String = Environment.GetFolderPath(Environment.SpecialFolder.StartMenu)

               DirectorioShell = DirInicio

           ElseIf Directorio = "Favoritos" Then

               Dim DirFavoritos As String = Environment.GetFolderPath(Environment.SpecialFolder.Favorites)

               DirectorioShell = DirFavoritos

           ElseIf Directorio = "FavoritosPanel" Then

               Dim DirUsuario As String = Environment.GetFolderPath(Environment.SpecialFolder.UserProfile)
               Dim DirLink1 As String = "\Links"

               If CompruebaDir(DirUsuario & DirLink1) = True Then

                   DirectorioShell = DirUsuario & DirLink1

               Else

                   DirLink1 = "\Vínculos"
                   DirectorioShell = DirUsuario & DirLink1

               End If

           ElseIf Directorio = "InicioWin" Then

               Dim DirInicioWin As String = Environment.GetFolderPath(Environment.SpecialFolder.UserProfile)

               DirectorioShell = DirInicioWin

           Else : DirectorioShell = Directorio

           End If

           If CompruebaArchivo(DirectorioShell & "\" & My.Application.Info.ProductName & ".lnk") = True Then

               MsgBox("El acceso directo que se pretende crear ya existe en " & DirectorioShell, _
                      MsgBoxStyle.Information)

               Return False
               Exit Function

           Else

               Dim Respuesta As MsgBoxResult

               Respuesta = MsgBox("A continuación se creará un acceso directo en " & DirectorioShell & _
                                  vbCrLf & vbCrLf & "¿Desea activar la ejecución mediante un a" & _
                                  "tajo?" & vbCrLf & "Esto significa que podrá llamar al Progr" & _
                                  "amador pulsando " & Chr(34) & "ALT + P" & Chr(34), _
                                  MsgBoxStyle.Question + MsgBoxStyle.YesNoCancel)

               If Not Respuesta = MsgBoxResult.Cancel Then


                   EnlaceShell = ScriptShell.CreateShortcut(DirectorioShell & "\" & My.Application.Info.ProductName & ".lnk")

                   EnlaceShell.TargetPath = Application.ExecutablePath
                   EnlaceShell.Description = My.Application.Info.ProductName
                   EnlaceShell.WindowStyle = 1

                   If Respuesta = MsgBoxResult.Yes Then EnlaceShell.Hotkey = "Alt+p"

                   EnlaceShell.Save()

                   If CompruebaArchivo(DirectorioShell & "\" & My.Application.Info.ProductName & ".lnk") = True Then

                       MsgBox("El acceso directo ha sido creado con éxito en " & DirectorioShell, _
                              MsgBoxStyle.Information, "Creación de acceso directo")

                   Else : MsgBox("Ocurrió un error durante el proceso" & vbCrLf & vbCrLf & _
                                 "El acceso directo no ha sido creado", MsgBoxStyle.Critical, _
                                 "Error")
                   End If
               Else

                   MsgBox("Se ha cancelado la creación del acceso directo en " & DirectorioShell, _
                          MsgBoxStyle.Information, "Operación cancelada")
                   Return False
                   Exit Function

               End If

           End If

       Catch ex As Exception

           MsgBox(ex.Message & vbCrLf & vbCrLf & "En caso de que requiera pemisos administrati" & _
                  "vos, consulte con el administrador del sistema", MsgBoxStyle.Critical, "Error")

       End Try

       Return True

   End Function


Las otras dos funciones citadas son:

Código (vbnet) [Seleccionar]
   Function CompruebaDir(ByVal Directorio As String, Optional ByVal Explicación As Boolean = False)

       If IO.Directory.Exists(Directorio) Then

           Return True

       Else

           Return False
           If Explicación = True Then MsgBox("El directorio especificado no existe", _
               MsgBoxStyle.Exclamation, "Comprobación directorio")

       End If

   End Function

   Function CompruebaArchivo(ByVal Archivo As String, Optional ByVal Explicación As Boolean = False)

           If IO.File.Exists(Archivo) Then

               Return True

           Else

               Return False
               If Explicación = True Then MsgBox("El archivo especificado no existe", _
                   MsgBoxStyle.Exclamation, "Comprobación Archivo")

           End If

   End Function


Saludos y GRACIAS

PD: Elektro, estoy probando tu código y me da problemas con ShortcutManager.ShortcutInfo Será cosa mía... echaré un vistazo en msdn. Has propocionado material para un buen rato :)

EDITADO:

Añadido "Links" a la función

EDITADO (2):

Añadidas correcciones
#20
Buenas,

Creo que para eso tan concreto deberías utilizar el shell de Windows y de ahí a DISKPART. El usuario debería escoger la letra correspondiente al dispositivo USB y a partir de ahí ponerte a trabajar.

Si no te suena nada de esto "empóllate" Process (hay un montón de información sobre el tema). Podías redireccionar los datos de la shell para recogerlos en tu aplicación, empezando por ej ..

Dim MiProceso as Process
MiProceso.UseShellExecute = False
MiProceso.StartInfo.RedirectStandardOutput = True
MiProceso.StartInfo.RedirectStandardError = True
MiProceso.StartInfo.CreateNoWindow = True
MiProceso.StartInfo.FileName = "diskpart"
MiProceso.StartInfo.Arguments = "losquesean"


No es una respuesta exacta pero para lo que tú buscas puede servir y es un lugar por donde empezar

Saludos

Editado:

Para listar, aunque requiere permisos administrativos, existe otra forma:
Fsutil fsinfo drives

Ah! antes se me olvido que la función Format no sirve para formatear unidades. Es para dar formato a ciertos tipos de datos (por ejemplo para dar un determinado formato fechas, números, etc)

Para lo que quieres tú, la manera más sencilla es utiliza la shell de Windows.. es decir, si lo puedes hacer desde la cmd lo podrás hacer desde tu aplicación con todas las ventajas que conlleva