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 - Eleкtro

Páginas 1 ... 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 ... 1222
#5741
Scripting / Re: Compilacion Archivo .bat
2 Febrero 2015, 02:24 AM
Cita de: engel lex en  2 Febrero 2015, 00:23 AMsi leyeran la pagina completa (y por eso la escogí XD) empieza mucho explicando clip, pero al final explica el método que Eleкtro muestra jejeje

Si leyeran aunque fuese solo una página, ¡la página que sea! ...Eso es lo que yo a veces me digo a mi mismo xD.


Cita de: Kyxes en  2 Febrero 2015, 00:46 AMOs estoy dando bastante trabajo hoy eh? jeje

Tranquilo por eso, al menos a mi me gusta y no me agobia que me den mucho trabajo (siempre que primero la persona con necesidad de ser ayudada muestre un simple esfuerzo de haberlo intentado por si mismo), y estoy seguro que el compañero @Engel piensa más o menos igual.

Eso sí, creo que tu firma va a dejar ciego o epiléptico a medio foro, quizás le des más trabajo de lo deseado a algún mod global por el tema de la imagen...

Saludos
#5742
.NET (C#, VB.NET, ASP) / Re: Obtener texto de un elemento de una web
2 Febrero 2015, 02:12 AM
Buenas

Pasos a seguir:

1) Obtener el código fuente para parsearlo.

2) Encontrar el elemento que contiene el valor, mediante técnica XPATH o REGEX, y obtener el valor en cuestión, del Ibex en este caso.

Solo debes examinar el source minuciosamente para rastrear el xpath correcto. Te muestro un ejemplo real en VB.Net utilizando la librería HtmlAgilityPack, y también traducido a C# (quizás se traduzca incorrectamente):

vb.net
Código (vbnet) [Seleccionar]
Public Class Form1

   Private ReadOnly html As String =
       <a><![CDATA[
<!DOCTYPE html>
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<body>

<div class="infolinks"><input type="hidden" name="IL_IN_TAG" value="1"/></div><div id="main">

<div class="music">

<h2 class="boxtitle">New releases \ <small>
<a href="/newalbums" title="New releases mp3 downloads" rel="bookmark">see all</a></small>
</h2>

<div class="item">

    <div class="thumb">
<a href="http://www.mp3crank.com/curt-smith/deceptively-heavy-121861" rel="bookmark" lang="en" title="Curt Smith - Deceptively Heavy album downloads"><img width="100" height="100" alt="Mp3 downloads Curt Smith - Deceptively Heavy" title="Free mp3 downloads Curt Smith - Deceptively Heavy" src="http://www.mp3crank.com/cover-album/Curt-Smith-Deceptively-Heavy-400x400.jpg"/></a>
    </div>

<div class="release">
<h3>Curt Smith</h3>
<h4>
<a href="http://www.mp3crank.com/curt-smith/deceptively-heavy-121861" title="Mp3 downloads Curt Smith - Deceptively Heavy">Deceptively Heavy</a>
</h4>
<script src="/ads/button.js"></script>
</div>

<div class="release-year">
<p>Year</p>
<span>2013</span>
</div>

<div class="genre">
<p>Genre</p>
<a href="http://www.mp3crank.com/genre/indie" rel="tag">Indie</a><a href="http://www.mp3crank.com/genre/pop" rel="tag">Pop</a>
</div>

</div>

<div class="item">

    <div class="thumb">
<a href="http://www.mp3crank.com/wolf-eyes/lower-demos-121866" rel="bookmark" lang="en" title="Wolf Eyes - Lower Demos album downloads"><img width="100" height="100" alt="Mp3 downloads Wolf Eyes - Lower Demos" title="Free mp3 downloads Wolf Eyes - Lower Demos" src="http://www.mp3crank.com/cover-album/Wolf-Eyes-–-Lower-Demos.jpg" /></a>
    </div>

<div class="release">
<h3>Wolf Eyes</h3>
<h4>
<a href="http://www.mp3crank.com/wolf-eyes/lower-demos-121866" title="Mp3 downloads Wolf Eyes - Lower Demos">Lower Demos</a>
</h4>
<script src="/ads/button.js"></script>
</div>

<div class="release-year">
<p>Year</p>
<span>2013</span>
</div>

<div class="genre">
<p>Genre</p>
<a href="http://www.mp3crank.com/genre/rock" rel="tag">Rock</a>
</div>

</div>

</div>

</div>

</body>
</html>
]]>$</a>.Value

   Private sb As New System.Text.StringBuilder

   Private htmldoc As HtmlAgilityPack.HtmlDocument = New HtmlAgilityPack.HtmlDocument
   Private htmlnodes As HtmlAgilityPack.HtmlNodeCollection = Nothing

   Private Title As String = String.Empty
   Private Cover As String = String.Empty
   Private Year As String = String.Empty
   Private Genres As String() = {String.Empty}
   Private URL As String = String.Empty

   Private Sub Test() Handles MyBase.Shown

       ' Load the html document.
       htmldoc.LoadHtml(html)

       ' Select the (10 items) nodes.
       ' All "SelectSingleNode" below will use this DIV element as a starting point.
       htmlnodes = htmldoc.DocumentNode.SelectNodes("//div[@class='item']")

       ' Loop trough the nodes.
       For Each node As HtmlAgilityPack.HtmlNode In htmlnodes

            ' Set the values:
           Title = node.SelectSingleNode(".//div[@class='release']/h4/a[@title]").GetAttributeValue("title", "Unknown Title")
           Cover = node.SelectSingleNode(".//div[@class='thumb']/a/img[@src]").GetAttributeValue("src", String.Empty)
           Year = node.SelectSingleNode(".//div[@class='release-year']/span").InnerText
           Genres = (From genre In node.SelectNodes(".//div[@class='genre']/a") Select genre.InnerText).ToArray
           URL = node.SelectSingleNode(".//div[@class='release']/h4/a[@href]").GetAttributeValue("href", "Unknown URL")

           ' Display the values:
           sb.Clear()
           sb.AppendLine(String.Format("Title : {0}", Title))
           sb.AppendLine(String.Format("Cover : {0}", Cover))
           sb.AppendLine(String.Format("Year  : {0}", Year))
           sb.AppendLine(String.Format("Genres: {0}", String.Join(", ", Genres)))
           sb.AppendLine(String.Format("URL   : {0}", URL))
           MsgBox(sb.ToString)

       Next node

   End Sub

End Class

c#:
Código (csharp) [Seleccionar]
using Microsoft.VisualBasic;
using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.Diagnostics;
public class Form1
{


private readonly string html = new XElement("a", new XCData("\n<!DOCTYPE html>\n<html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"en\" lang=\"en\">\n<body>\n\n\t<div class=\"infolinks\"><input type=\"hidden\" name=\"IL_IN_TAG\" value=\"1\"/></div><div id=\"main\">\n\n\t\t<div class=\"music\">\n\n\t\t\t<h2 class=\"boxtitle\">New releases \\ <small>\n\t\t\t\t<a href=\"/newalbums\" title=\"New releases mp3 downloads\" rel=\"bookmark\">see all</a></small>\n\t\t\t</h2>\n\n\t\t\t<div class=\"item\">\n\n\t    \t\t<div class=\"thumb\">\n\t\t\t\t\t<a href=\"http://www.mp3crank.com/curt-smith/deceptively-heavy-121861\" rel=\"bookmark\" lang=\"en\" title=\"Curt Smith - Deceptively Heavy album downloads\"><img width=\"100\" height=\"100\" alt=\"Mp3 downloads Curt Smith - Deceptively Heavy\" title=\"Free mp3 downloads Curt Smith - Deceptively Heavy\" src=\"http://www.mp3crank.com/cover-album/Curt-Smith-Deceptively-Heavy-400x400.jpg\"/></a>\n\t    \t\t</div>\n\n\t\t\t\t<div class=\"release\">\n\t\t\t\t\t<h3>Curt Smith</h3>\n\t\t\t\t\t<h4>\n\t\t\t\t\t\t<a href=\"http://www.mp3crank.com/curt-smith/deceptively-heavy-121861\" title=\"Mp3 downloads Curt Smith - Deceptively Heavy\">Deceptively Heavy</a>\n\t\t\t\t\t</h4>\n\t\t\t\t\t<script src=\"/ads/button.js\"></script>\n\t\t\t\t</div>\n\n\t\t\t\t<div class=\"release-year\">\n\t\t\t\t\t<p>Year</p>\n\t\t\t\t\t<span>2013</span>\n\t\t\t\t</div>\n\n\t\t\t\t<div class=\"genre\">\n\t\t\t\t\t<p>Genre</p>\n\t\t\t\t\t<a href=\"http://www.mp3crank.com/genre/indie\" rel=\"tag\">Indie</a><a href=\"http://www.mp3crank.com/genre/pop\" rel=\"tag\">Pop</a>\n\t\t\t\t</div>\n\n\t\t\t</div>\n\n\t\t\t<div class=\"item\">\n\n\t    \t\t<div class=\"thumb\">\n\t\t\t\t\t<a href=\"http://www.mp3crank.com/wolf-eyes/lower-demos-121866\" rel=\"bookmark\" lang=\"en\" title=\"Wolf Eyes - Lower Demos album downloads\"><img width=\"100\" height=\"100\" alt=\"Mp3 downloads Wolf Eyes - Lower Demos\" title=\"Free mp3 downloads Wolf Eyes - Lower Demos\" src=\"http://www.mp3crank.com/cover-album/Wolf-Eyes-–-Lower-Demos.jpg\" /></a>\n\t    \t\t</div>\n\n\t\t\t\t<div class=\"release\">\n\t\t\t\t\t<h3>Wolf Eyes</h3>\n\t\t\t\t\t<h4>\n\t\t\t\t\t\t<a href=\"http://www.mp3crank.com/wolf-eyes/lower-demos-121866\" title=\"Mp3 downloads Wolf Eyes - Lower Demos\">Lower Demos</a>\n\t\t\t\t\t</h4>\n\t\t\t\t\t<script src=\"/ads/button.js\"></script>\n\t\t\t\t</div>\n\n\t\t\t\t<div class=\"release-year\">\n\t\t\t\t\t<p>Year</p>\n\t\t\t\t\t<span>2013</span>\n\t\t\t\t</div>\n\n\t\t\t\t<div class=\"genre\">\n\t\t\t\t\t<p>Genre</p>\n\t\t\t\t\t<a href=\"http://www.mp3crank.com/genre/rock\" rel=\"tag\">Rock</a>\n\t\t\t\t</div>\n\n\t\t\t</div>\n\n\t\t</div>\n\n\t</div>\n\n</body>\n</html>\n")).Value;

private System.Text.StringBuilder sb = new System.Text.StringBuilder();
private HtmlAgilityPack.HtmlDocument htmldoc = new HtmlAgilityPack.HtmlDocument();

private HtmlAgilityPack.HtmlNodeCollection htmlnodes = null;
private string Title = string.Empty;
private string Cover = string.Empty;
private string Year = string.Empty;
private string[] Genres = { string.Empty };

private string URL = string.Empty;

private void Test()
{
// Load the html document.
htmldoc.LoadHtml(html);

// Select the (10 items) nodes.
// All "SelectSingleNode" below will use this DIV element as a starting point.
htmlnodes = htmldoc.DocumentNode.SelectNodes("//div[@class='item']");

// Loop trough the nodes.

foreach (HtmlAgilityPack.HtmlNode node in htmlnodes) {
// Set the values:
Title = node.SelectSingleNode(".//div[@class='release']/h4/a[@title]").GetAttributeValue("title", "Unknown Title");
Cover = node.SelectSingleNode(".//div[@class='thumb']/a/img[@src]").GetAttributeValue("src", string.Empty);
Year = node.SelectSingleNode(".//div[@class='release-year']/span").InnerText;
Genres = (from genre in node.SelectNodes(".//div[@class='genre']/a")genre.InnerText).ToArray;
URL = node.SelectSingleNode(".//div[@class='release']/h4/a[@href]").GetAttributeValue("href", "Unknown URL");

// Display the values:
sb.Clear();
sb.AppendLine(string.Format("Title : {0}", Title));
sb.AppendLine(string.Format("Cover : {0}", Cover));
sb.AppendLine(string.Format("Year  : {0}", Year));
sb.AppendLine(string.Format("Genres: {0}", string.Join(", ", Genres)));
sb.AppendLine(string.Format("URL   : {0}", URL));
Interaction.MsgBox(sb.ToString);

}

}
public Form1()
{
Shown += Test;
}

}

//=======================================================
//Service provided by Telerik (www.telerik.com)
//=======================================================

Plus este util snippet para buscar y obtener todos los xpath de un archivo html, para que sea más facil de llevarlo a cabo:

vb.net:
Código (vbnet) [Seleccionar]
   ' Get Html XPaths
   ' By Elektro
   '
   ' Example Usage:
   '
   ' Dim Document As New HtmlAgilityPack.HtmlDocument
   ' Document.LoadHtml(IO.File.ReadAllText("C:\File.html"))
   ' Dim XpathList As List(Of String) = GetHtmlXPaths(Document)
   ' ListBox1.Items.AddRange((From XPath As String In XpathList Select XPath).ToArray)

   ''' <summary>
   ''' Gets all the XPath expressions of an <see cref="HtmlAgilityPack.HtmlDocument"/> document.
   ''' </summary>
   ''' <param name="Document">Indicates the <see cref="HtmlAgilityPack.HtmlDocument"/> document.</param>
   ''' <returns>List(Of System.String).</returns>
   Public Function GetHtmlXPaths(ByVal Document As HtmlAgilityPack.HtmlDocument) As List(Of String)

       Dim XPathList As New List(Of String)
       Dim XPath As String = String.Empty

       For Each Child As HtmlAgilityPack.HtmlNode In Document.DocumentNode.ChildNodes

           If Child.NodeType = HtmlAgilityPack.HtmlNodeType.Element Then
               GetHtmlXPaths(Child, XPathList, XPath)
           End If

       Next Child

       Return XPathList

   End Function

   ''' <summary>
   ''' Gets all the XPath expressions of an <see cref="HtmlAgilityPack.HtmlNode"/>.
   ''' </summary>
   ''' <param name="Node">Indicates the <see cref="HtmlAgilityPack.HtmlNode"/>.</param>
   ''' <param name="XPathList">Indicates a ByReffered XPath list as a <see cref="List(Of String)"/>.</param>
   ''' <param name="XPath">Indicates the current XPath.</param>
   Private Sub GetHtmlXPaths(ByVal Node As HtmlAgilityPack.HtmlNode,
                             ByRef XPathList As List(Of String),
                             Optional ByVal XPath As String = Nothing)

       XPath &= Node.XPath.Substring(Node.XPath.LastIndexOf("/"c))

       Const ClassNameFilter As String = "[@class='{0}']"
       Dim ClassName As String = Node.GetAttributeValue("class", String.Empty)

       If Not String.IsNullOrEmpty(ClassName) Then
           XPath &= String.Format(ClassNameFilter, ClassName)
       End If

       If Not XPathList.Contains(XPath) Then
           XPathList.Add(XPath)
       End If

       For Each Child As HtmlAgilityPack.HtmlNode In Node.ChildNodes

           If Child.NodeType = HtmlAgilityPack.HtmlNodeType.Element Then
               GetHtmlXPaths(Child, XPathList, XPath)
           End If

       Next Child

   End Sub

c#:
Código (csharp) [Seleccionar]

// Get Html XPaths
// By Elektro

/// <summary>
/// Gets all the XPath expressions of an <see cref="HtmlAgilityPack.HtmlDocument"/> document.
/// </summary>
/// <param name="Document">Indicates the <see cref="HtmlAgilityPack.HtmlDocument"/> document.</param>
/// <returns>List(Of System.String).</returns>
public List<string> GetHtmlXPaths(HtmlAgilityPack.HtmlDocument Document)
{

List<string> XPathList = new List<string>();
string XPath = string.Empty;


foreach (HtmlAgilityPack.HtmlNode Child in Document.DocumentNode.ChildNodes) {
if (Child.NodeType == HtmlAgilityPack.HtmlNodeType.Element) {
GetHtmlXPaths(Child, ref XPathList, XPath);
}

}

return XPathList;

}

/// <summary>
/// Gets all the XPath expressions of an <see cref="HtmlAgilityPack.HtmlNode"/>.
/// </summary>
/// <param name="Node">Indicates the <see cref="HtmlAgilityPack.HtmlNode"/>.</param>
/// <param name="XPathList">Indicates a ByReffered XPath list as a <see cref="List(Of String)"/>.</param>
/// <param name="XPath">Indicates the current XPath.</param>

private void GetHtmlXPaths(HtmlAgilityPack.HtmlNode Node, ref List<string> XPathList, string XPath = null)
{
XPath += Node.XPath.Substring(Node.XPath.LastIndexOf('/'));

const string ClassNameFilter = "[@class='{0}']";
string ClassName = Node.GetAttributeValue("class", string.Empty);

if (!string.IsNullOrEmpty(ClassName)) {
XPath += string.Format(ClassNameFilter, ClassName);
}

if (!XPathList.Contains(XPath)) {
XPathList.Add(XPath);
}


foreach (HtmlAgilityPack.HtmlNode Child in Node.ChildNodes) {
if (Child.NodeType == HtmlAgilityPack.HtmlNodeType.Element) {
GetHtmlXPaths(Child, ref XPathList, XPath);
}

}

}

//=======================================================
//Service provided by Telerik (www.telerik.com)
//=======================================================


saludos
#5743
Programación General / Re: Como podría esconder una pagina web
1 Febrero 2015, 23:57 PM
Me alegro de que te haya servido, pero aclárame una duda, ¿el simple script de VBS entonces SÍ que funciona con la ventana de IE?, estaría bien saberlo porque yo lo probé en dos navegadores menos en el IE, ahora siento que escribí todo ese otro largo código en VB.Net para nada, jaja, pero no hay problema :P.

Cita de: arrebato21 en  1 Febrero 2015, 21:53 PMAhora como podría ponerlo para que inicie al encender windows, por ejemplo me funciona al colocarlo en la carpeta inicio pero claro lo que quiero ademas es que no se vea al ir al inicio de todos los programas en esa carpeta. quiero que este invisible.

Para conseguir lo más parecido a una verdadera "invisibilidad" se requieren conocimientos de programación para el uso de técnicas Stealth, por ejemplo, si se quiere ocultar un proceso en el administrador de tareas de Widnows (TaskManager) de "X" versión de Windows eso puede resultar una tarea muy laboriosa a nivel avanzado, cómo también es para otros tipos de invisibilidad la creación de servicios de Windows, Hooking, etc.

Si lo único que quieres es que no aparezca en la carpeta "Inicio" y te conformas con sacarlo de dicha carpeta, entonces puede añadir una clave en la sección Run del registro de Windows:

Startup.reg
Código (ini) [Seleccionar]
Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]
"*Título"="C:\\Carpeta\\MiPrograma.exe"

Nota 1: El asterísco (*) indica que el programa se debe iniciar también al reiniciar el PC en modo seguro, si quieres evitar que el programa se inicie en modo seguro entonces no escribas el asterisco al principio del título.
Nota 2: La clave será accesible/visible desde cualquier editor del registro de Windows como el propio Regedit (obviamente), así cómo también por programas que permitan administrar los programas que se inician junto a Windows (ej: CCleaner)

⇲ También puedes utilizar mi aplicación File2Startup para añadir un programa al inicio de Windows de forma sencilla:
[SOURCE] File 2 startup v1.1

Cita de: File2Startup by Elektro

Saludos
#5744
Scripting / Re: Compilacion Archivo .bat
1 Febrero 2015, 23:22 PM
Buenas

1) Lo que denominas como "la ventana negra", es la consola de Windows, el proceso se llama CMD.exe, y es necesario para interpretar un Batch-Script, la instancia de la CMD, es decir, "la ventana negra", se cierra cuando ya se han procesado todas las instrucciones del Script (y en otros casos es debido a errores de sintaxis).

2) Para redirigir la salida de un proceso a un archivo de texto, puedes usar el operador de redireccionamiento en la salida correspondiente (normal o error).
⇲
Command Redirection, Pipes | Windows CMD | SS64.com

Ejemplo:
Código [Seleccionar]
(Echo Hola Mundo!)1>".\Archivo.txt" 2>&1

3) El comando externo Clip.exe, como su nombre indica, sirve como portapapeles, lo que redirijas a la entrada del comando clip se copiará en el clipboard de Windows, no tiene sentido intentar usarlo para redirigir la salida hacia un archivo local.

4) El título de tu tema sugiere otra cosa distinta a las preguntas que formulas, pero la contestaré igualmente:
   Un Batch-Script no puede ser compilado, ya que es un lenguaje interpretado (procesamiento por lotes), pero puedes empaquetar el script en un archivo executable con infinidad de herramientas que puedes encontrar si buscases en Google.
   Si quieres mi recomendación, utiliza la aplicación ExeScript Editor para optimizar los resultados: http://www.scriptcode.com/vbscripteditor/


Saludos!
#5745
.NET (C#, VB.NET, ASP) / Re: [C#] ¿Cómo podría hacer esto?
1 Febrero 2015, 20:06 PM
Buenas

1) El título de un tema debe describir el problema.
Porfavor, lee las normas del subforo de programación.



Cita de: nevachana en  1 Febrero 2015, 19:47 PMUna ayudita? xD

¿Donde está el código que demuestra tus progresos?, en este lugar no hacemos trabajos, ayudamos a resolver dudas específicas o aportamos orientación.

Hay varias librerías, algunas gratis y otras de pago, que ofrecen algoritmos profesionales de técnicas ImageSearch o PixelSearch, como por ejemplo AForge.Net
http://www.aforgenet.com/framework/downloads.html

Si quieres desarrollar tu propio algoritmo de forma tradicional no te lo recomiendo, por el simple hecho de que jamás podrás optimizarlo hasta tal punto, pero de todas formas puedes ver un ejemplo escrito en VB.Net en la class PixelUtil que desarrollé:
Librería de Snippets !! (Compartan aquí sus snippets)

Este ejemplo utilizando Aforge, es una función de uso genérico que busca una imagen en otra imagen, y devuelve un objeto con las coordenadas y otra información relevante:

VB.Net:
Código (vbnet) [Seleccionar]
   ' Find Image
   ' ( By Elektro )
   '
   ' Usage Examples:
   '
   'Private Sub Test() Handles MyBase.Shown
   '
   '    ' A Desktop Screenshot, in 1920x1080 px. resolution.
   '    Dim desktopScreenshoot As New Bitmap("C:\Desktop.png")
   '
   '    ' A cutted piece of the screenshot, in 50x50 px. resolution.
   '    Dim partOfDesktopToFind As New Bitmap("C:\PartOfDesktop.png")
   '
   '    ' Find the part of the image in the desktop, with the specified similarity.
   '    For Each matching As AForge.Imaging.TemplateMatch In
   '
   '        FindImage(baseImage:=desktopScreenshoot, imageToFind:=partOfDesktopToFind, similarity:=80.5R) ' 80,5% similarity.
   '
   '        Dim sb As New System.Text.StringBuilder
   '
   '        sb.AppendFormat("Top-Left Corner Coordinates: {0}", matching.Rectangle.Location.ToString())
   '        sb.AppendLine()
   '        sb.AppendFormat("similarity Image Percentage: {0}%", (matching.similarity * 100.0F).ToString("00.00"))
   '
   '        MessageBox.Show(sb.ToString)
   '
   '    Next matching
   '
   'End Sub
   '
   ''' <summary>
   ''' Finds a part of an image inside other image and returns the top-left corner coordinates and it's similarity percent.
   ''' </summary>
   ''' <param name="baseImage">
   ''' Indicates the base image.
   ''' </param>
   ''' <param name="imageToFind">
   ''' Indicates the image to find in the base image.
   ''' </param>
   ''' <param name="similarity">
   ''' Indicates the similarity percentage to compare the images.
   ''' A value of '100' means identical image.
   ''' Note: High percentage values with big images could take several minutes to finish.
   ''' </param>
   ''' <returns>AForge.Imaging.TemplateMatch().</returns>
   Private Function FindImage(ByVal baseImage As Bitmap,
                              ByVal imageToFind As Bitmap,
                              ByVal similarity As Double) As AForge.Imaging.TemplateMatch()

       Dim currentSimilarity As Single

       ' Translate the readable similarity percent value to Single value.
       Select Case similarity

           Case Is < 0.1R, Is > 100.0R ' Value is out of range.
               Throw New Exception(String.Format("similarity value of '{0}' is out of range, range is from '0.1' to '100.0'",
                                                 CStr(similarity)))

           Case Is = 100.0R ' Identical image comparission.
               currentSimilarity = 1.0F

           Case Else ' Image comparission with specific similarity.
               currentSimilarity = Convert.ToSingle(similarity) / 100.0F

       End Select

       ' Set the similarity threshold to find all matching images with specified similarity.
       Dim tm As New AForge.Imaging.ExhaustiveTemplateMatching(currentSimilarity)

       ' Return all the found matching images,
       ' it contains the top-left corner coordinates of each one
       ' and matchings are sortered by it's similarity percent.
       Return tm.ProcessImage(baseImage, imageToFind)

   End Function


C#:
EDITO: El Snippet está traducido incorrectamente.

Código (csharp) [Seleccionar]

// Find Image
// ( By Elektro )

/// <summary>
/// Finds a part of an image inside other image and returns the top-left corner coordinates and it's similarity percent.
/// </summary>
/// <param name="baseImage">
/// Indicates the base image.
/// </param>
/// <param name="imageToFind">
/// Indicates the image to find in the base image.
/// </param>
/// <param name="similarity">
/// Indicates the similarity percentage to compare the images.
/// A value of '100' means identical image.
/// Note: High percentage values with big images could take several minutes to finish.
/// </param>
/// <returns>AForge.Imaging.TemplateMatch().</returns>
private AForge.Imaging.TemplateMatch[] FindImage(Bitmap baseImage, Bitmap imageToFind, double similarity)
{

float currentSimilarity = 0;

// Translate the readable similarity percent value to Single value.
switch (similarity) {

case 100.0: // Identical image comparission.
currentSimilarity = 1f;
break;

default: // Image comparission with specific similarity.
currentSimilarity = Convert.ToSingle(similarity) / 100f;
break;
}

// Set the similarity threshold to find all matching images with specified similarity.
AForge.Imaging.ExhaustiveTemplateMatching tm = new AForge.Imaging.ExhaustiveTemplateMatching(currentSimilarity);

// Return all the found matching images,
// it contains the top-left corner coordinates of each one
// and matchings are sortered by it's similarity percent.
return tm.ProcessImage(baseImage, imageToFind);

}

//=======================================================
//Service provided by Telerik (www.telerik.com)
//=======================================================

Saludos.
#5746
Programación General / Re: Que lenguaje escojer primero?
1 Febrero 2015, 12:00 PM
¿Por qué no usan el buscador del foro?, es obvio que esta pregunta se ha formulado cientos de veces, y eso significa que podrás encontrar miles de opiniones distintas.

Saludos!
#5747
Windows / Re: Registro de windows
1 Febrero 2015, 09:36 AM
Cita de: MCKSys Argentina en  1 Febrero 2015, 07:13 AM- Para agregar una opcion al menú conextual del Explorador de Windows:

Creas la clave de registro:
"HKEY_CLASSES_ROOT\*\shell\Abrir con mi programa"

Hay que mencionar un detalle muy importante, y es que el comodín "*" afectará a todos los tipos de archivos, así que si quieres que el menú contextual y/o asociación de archivo afecte solamente a un tipo de archivo específico, entonces cambia el comodín por la extensión deseada.

Nota: Si la extensión ya tiene una clave referenciada (en el valor por defecto), entonces deberás realizar más modificaciones.

Yo te sugiero realizar las modificaciones en esta clave para añadir el menú contextual (no en la clave mencionada arriba):
Código [Seleccionar]
HKEY_CLASSES_ROOT\SystemFileAssociations\.ext\Shell

Ejemplo para una integración del menú contextual para archivos mp3, es un submenu con dos comandos, 'Run', y 'OpenFile':
Código (ini) [Seleccionar]
Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\SystemFileAssociations\.mp3\Shell\MiPrograma]
"MUIVerb"="MiPrograma"
"SubCommands"="MiPrograma.Run;MiPrograma.OpenFile"
"Icon"="C:\\Program Files\\MiPrograma\\MiPrograma.Title.ico"
"Position"="Middle"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\MiPrograma.Run]
@="Run MiPrograma"
"icon"="C:\\Program Files\\MiPrograma\\MiPrograma.Run.ico"
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\MiPrograma.Run\command]
@="C:\\Program Files\\MiPrograma\\MiPrograma.exe"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\MiPrograma.OpenFile]
@="Open file in MiPrograma"
"icon"="C:\\Program Files (x86)\\MiPrograma\\MiPrograma.OpenFile.ico"
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\MiPrograma.OpenFile\command]
@="\"C:\\Program Files\\MiPrograma\\MiPrograma.exe\" \"%1\""

Me sirvo de estos 2 iconos, plus el icono principal de la aplicación en cuestión (MiPrograma.Title.ico):

MiPrograma.Run.ico
MiPrograma.OpenFile.ico

Resultado:


Saludos
#5748
Foro Libre / Re: Cual es tu lenguaje de programacion favorito?
31 Enero 2015, 18:44 PM
Cita de: daryo en 31 Enero 2015, 18:28 PMsiendo asi ¿por que esta tan generalizado ese problema?
El motivo siempre viene siendo el mismo en todos los casos: La Ignorancia, ya que la gente suele llevarse por la opinión de terceras personas y le dan creedibilidad a sus palabras, y eso no siempre es lo correcto.

Cita de: http://en.wikipedia.org/wiki/Java_%28programming_language%29Performance
Java performance

Programs written in Java have a reputation for being slower and requiring more memory than those written in C++. However, Java programs' execution speed improved significantly with the introduction of Just-in-time compilation in 1997/1998 for Java 1.1,[32] the addition of language features supporting better code analysis (such as inner classes, the StringBuilder class, optional assertions, etc.), and optimizations in the Java virtual machine, such as HotSpot becoming the default for Sun's JVM in 2000.

Debo decir que yo no manejo Java, así que no puedo hablar en profundidad como el compañero @Nac-ho u otros que si sean expertos, pero a mi a pesar de todas las supuestas optimizaciones que han ido implementando con los años, java siempre me ha parecido y me sigue pareciendo un lenguaje que consume demasiados recursos de memoria de forma excesiva, cualquier software desarrollado en Java me lo va a demostrar si le hago un profilling de memoria (que por supuesto lo he hecho en varias ocasiones), el G.C. de Java no me parece estar tan bien optimizado en camparación con otros lenguajes, así que digan lo que digan, en mi opinión, parte de razón tienen al criticar a Java en ese sentido.

Pero de todas formas Java no es el único ni será el último lenguaje con mitos y leyendas, por ejemplo VB.Net es mi lenguaje favorito (contestando a la pregunta del post :P) y también sigue siendo bastante criticado de forma ridícula a día de hoy y con una no muy buena reputación por gente inexperta (por no decir ignorante, en el sentido de no haberlo experimentado/analizado nunca para poder criticarlo si quieren).

Saludos!
#5749
Programación General / Re: Como podría esconder una pagina web
29 Enero 2015, 21:58 PM
Buenas, primero que nada:

1) Utiliza el foro adecuado para formular preguntas sobre CMD/Batch: http://foro.elhacker.net/scripting-b64.0/

2) Cuando formules una pregunta sobre programación, si dices tener un código, como mínimo publica el contenido de dicho código.

3) Especifica el navegador también, por Dios, que no somos adivinos.



Si no he entendido mal, ¿lo que quieres hacer es ejecutar un navegador (con una url específica) y ocultar la ventana de dicho navegador?,
en ese caso, en una herramienta tan simple como Batch no es posible realizar es tarea, no sin utilizar herramientas de terceros como CMDOW/NirCMD.

Normalmente podrías llevarlo a cabo de forma sencilla y natural usando VisualBasicScript:

Código (vb) [Seleccionar]
Option Explicit : Dim procFilePath, procArguments, procWindowStyle, procWaitReturn

procFilePath    = """" & "C:\Program Files\Google Chrome\Google Chrome.exe" & """"
procArguments   = """" & "http://foro.elhacker.net/"                        & """"
procWindowStyle = 0 ' Hides the window and activates another window.
procWaitReturn  = False

Call CreateObject("WScript.Shell"). _
Run(procFilePath & " " & procArguments, procWindowStyle, procWaitReturn)

Wscript.Quit(0)

El problema es que aplicaciones como Chrome o Firefox no soportan la modificación del estilo de ventana, en este caso mediante el método Run/ShellExecute para volver invisible la ventana, así que al igual que con Batch, otro lenguaje simple como es VBS tampoco te sirve para la tarea.

Debes recurrir a otro lenguaje que esté capacitado para dicha tarea, o bien puedes mezclar Batch+VBS+CMDOW/NirCMD para llevarlo a cabo de una forma más simple en nivel de conocimientos, pero también mucho más tediosa.

Los procesos de esos navegadores en cuestión son bastante problemáticos al respecto de esto, por lo que he leido hay mucha gente más o menos en tu misma situación (que aparecen en los resultados de Google xD), así que he decidido proporcionarte ayuda en profundidad.

Lo primero de todo es obtener el navegador por defecto registrado en el SO, luego iniciar el navegador, esperar a que cargue el formulario, obtener el puntero de la ventana principal, y por último ocultar la ventana (usando la API de Windows).

Pero hay un inconveniente en todo esto, ya que es necesario esperar a que la ventana se haya creado para que se defina el Handle y poder obtenerlo para así ocultar la ventana, es decir, que la ventana de firefox/chrome se debe mostrar si o si durante el tiempo necesario, que pueden ser apenas unos ínfimos ms (ni se notaría), o segundos, dependiendo del tiempo de respuesta del sistema.

Aparte hay que tener en cuenta muchos otros factores, como por ejemplo el aviso de restaurar sesion de Firefox que literalmente jodería esta metodología al no estar visible la ventana principal, o que la clave de registro que almacena el directorio absoluto al navegador por defecto haya sido eliminada por el usuario, etc, etc, etc...

En fin, te muestro un ejemplo de como se podria llevar a cabo, he escogido como lenguaje VB.Net al ser muy práctico, eficiente, para poder hacerlo de forma simplificada.

Aquí tienes la aplicación ya compilada junto al proyecto de VisualStudio:
https://www.mediafire.com/?9e5ixgz5ne6n8n8

Modo de empleo:
Código [Seleccionar]
RunWebBrowserEx.exe "http://url" hide
o
Código [Seleccionar]
RunWebBrowserEx.exe "http://url" show

Es una aplicación que usa tecnología WinForms, es decir, con interfáz gráfica, pero he omitido la interfáz para aceptar parámetros commandline y evitar que se muestre cualquier ventana del programa ;).
De todas formas solo es un ejemplo de aplicación, sin controles de errores, ya que bastante he hecho.

Este es el Core de la aplicación:
Código (vbnet) [Seleccionar]
       ' Get Default WebBrowser
       ' By Elektro
       '
       ''' <summary>
       ''' Gets the default web browser filepath.
       ''' </summary>
       ''' <returns>The default web browser filepath.</returns>
       Friend Shared Function GetDefaultWebBrowser() As String

           Dim regKey As RegistryKey = Nothing
           Dim regValue As String = String.Empty

           Try
               regKey = Registry.ClassesRoot.OpenSubKey("HTTP\Shell\Open\Command", writable:=False)
               Using regKey

                   regValue = regKey.GetValue(Nothing).ToString()
                   regValue = regValue.Substring(0, regValue.IndexOf(".exe", StringComparison.OrdinalIgnoreCase) + ".exe".Length).
                                       Trim({ControlChars.Quote})

               End Using

           Catch ex As Exception
               Throw

           Finally
               If regKey IsNot Nothing Then
                   regKey.Dispose()
               End If

           End Try

           Return regValue

       End Function

       ' Run Default WebBrowser
       ' By Elektro
       '
       ''' <summary>
       ''' Runs the specified url using the default registered web browser.
       ''' </summary>
       ''' <param name="url">The url to navigate.</param>
       ''' <param name="windowState">The target web browser its window state.</param>
       Friend Shared Sub RunDefaultWebBrowser(ByVal url As String,
                                              ByVal windowState As SetWindowState.WindowState)

           Dim browserHwnd As IntPtr = IntPtr.Zero
           Dim browserFileInfo As New FileInfo(WebBrowserTools.GetDefaultWebBrowser)
           Dim browserProcess As New Process With
                               {
                                   .StartInfo = New ProcessStartInfo With
                                               {
                                                   .FileName = browserFileInfo.FullName,
                                                   .Arguments = url,
                                                   .WindowStyle = ProcessWindowStyle.Minimized,
                                                   .CreateNoWindow = False
                                               }
                               }

           browserProcess.Start()
           browserProcess.WaitForExit(0)

           Do Until browserHwnd <> IntPtr.Zero
               browserHwnd = Process.GetProcessById(browserProcess.Id).MainWindowHandle
           Loop

           SetWindowState.SetWindowState(browserHwnd, windowState)

       End Sub

Plus el P/Invoking:

Código (vbnet) [Seleccionar]
' ***********************************************************************
' Author           : Elektro
' Last Modified On : 10-02-2014
' ***********************************************************************
' <copyright file="SetWindowState.vb" company="Elektro Studios">
'     Copyright (c) Elektro Studios. All rights reserved.
' </copyright>
' ***********************************************************************

#Region " Usage Examples "

'Dim HWND As IntPtr = Process.GetProcessesByName("devenv").First.MainWindowHandle
'
'SetWindowState.SetWindowState(HWND, SetWindowState.WindowState.Hide)
'SetWindowState.SetWindowState("devenv", SetWindowState.WindowState.Restore, Recursivity:=False)

#End Region

#Region " Imports "

Imports System.Runtime.InteropServices

#End Region

Namespace Tools

   ''' <summary>
   ''' Sets the state of a window.
   ''' </summary>
   Public NotInheritable Class SetWindowState

#Region " P/Invoke "

       ''' <summary>
       ''' Platform Invocation methods (P/Invoke), access unmanaged code.
       ''' This class does not suppress stack walks for unmanaged code permission.
       ''' <see cref="System.Security.SuppressUnmanagedCodeSecurityAttribute"/>  must not be applied to this class.
       ''' This class is for methods that can be used anywhere because a stack walk will be performed.
       ''' MSDN Documentation: http://msdn.microsoft.com/en-us/library/ms182161.aspx
       ''' </summary>
       Protected NotInheritable Class NativeMethods

#Region " Methods "

           ''' <summary>
           ''' Retrieves a handle to the top-level window whose class name and window name match the specified strings.
           ''' This function does not search child windows.
           ''' This function does not perform a case-sensitive search.
           ''' To search child windows, beginning with a specified child window, use the FindWindowEx function.
           ''' MSDN Documentation: http://msdn.microsoft.com/en-us/library/windows/desktop/ms633499%28v=vs.85%29.aspx
           ''' </summary>
           ''' <param name="lpClassName">The class name.
           ''' If this parameter is NULL, it finds any window whose title matches the lpWindowName parameter.</param>
           ''' <param name="lpWindowName">The window name (the window's title).
           ''' If this parameter is NULL, all window names match.</param>
           ''' <returns>If the function succeeds, the return value is a handle to the window that has the specified class name and window name.
           ''' If the function fails, the return value is NULL.</returns>
           <DllImport("user32.dll", SetLastError:=False, CharSet:=CharSet.Auto, BestFitMapping:=False)>
           Friend Shared Function FindWindow(
                  ByVal lpClassName As String,
                  ByVal lpWindowName As String
           ) As IntPtr
           End Function

           ''' <summary>
           ''' Retrieves a handle to a window whose class name and window name match the specified strings.
           ''' The function searches child windows, beginning with the one following the specified child window.
           ''' This function does not perform a case-sensitive search.
           ''' MSDN Documentation: http://msdn.microsoft.com/en-us/library/windows/desktop/ms633500%28v=vs.85%29.aspx
           ''' </summary>
           ''' <param name="hwndParent">
           ''' A handle to the parent window whose child windows are to be searched.
           ''' If hwndParent is NULL, the function uses the desktop window as the parent window.
           ''' The function searches among windows that are child windows of the desktop.
           ''' </param>
           ''' <param name="hwndChildAfter">
           ''' A handle to a child window.
           ''' The search begins with the next child window in the Z order.
           ''' The child window must be a direct child window of hwndParent, not just a descendant window.
           ''' If hwndChildAfter is NULL, the search begins with the first child window of hwndParent.
           ''' </param>
           ''' <param name="strClassName">
           ''' The window class name.
           ''' </param>
           ''' <param name="strWindowName">
           ''' The window name (the window's title).
           ''' If this parameter is NULL, all window names match.
           ''' </param>
           ''' <returns>
           ''' If the function succeeds, the return value is a handle to the window that has the specified class and window names.
           ''' If the function fails, the return value is NULL.
           ''' </returns>
           <DllImport("User32.dll", SetLastError:=False, CharSet:=CharSet.Auto, BestFitMapping:=False)>
           Friend Shared Function FindWindowEx(
                  ByVal hwndParent As IntPtr,
                  ByVal hwndChildAfter As IntPtr,
                  ByVal strClassName As String,
                  ByVal strWindowName As String
           ) As IntPtr
           End Function

           ''' <summary>
           ''' Retrieves the identifier of the thread that created the specified window
           ''' and, optionally, the identifier of the process that created the window.
           ''' MSDN Documentation: http://msdn.microsoft.com/en-us/library/windows/desktop/ms633522%28v=vs.85%29.aspx
           ''' </summary>
           ''' <param name="hWnd">A handle to the window.</param>
           ''' <param name="ProcessId">
           ''' A pointer to a variable that receives the process identifier.
           ''' If this parameter is not NULL, GetWindowThreadProcessId copies the identifier of the process to the variable;
           ''' otherwise, it does not.
           ''' </param>
           ''' <returns>The identifier of the thread that created the window.</returns>
           <DllImport("user32.dll")>
           Friend Shared Function GetWindowThreadProcessId(
                  ByVal hWnd As IntPtr,
                  ByRef processId As Integer
           ) As Integer
           End Function

           ''' <summary>
           ''' Sets the specified window's show state.
           ''' MSDN Documentation: http://msdn.microsoft.com/en-us/library/windows/desktop/ms633548%28v=vs.85%29.aspx
           ''' </summary>
           ''' <param name="hwnd">A handle to the window.</param>
           ''' <param name="nCmdShow">Controls how the window is to be shown.</param>
           ''' <returns><c>true</c> if the function succeeds, <c>false</c> otherwise.</returns>
           <DllImport("User32", SetLastError:=False)>
           Friend Shared Function ShowWindow(
                  ByVal hwnd As IntPtr,
                  ByVal nCmdShow As WindowState
           ) As Boolean
           End Function

#End Region

       End Class

#End Region

#Region " Enumerations "

       ''' <summary>
       ''' Controls how the window is to be shown.
       ''' MSDN Documentation: http://msdn.microsoft.com/en-us/library/windows/desktop/ms633548%28v=vs.85%29.aspx
       ''' </summary>
       Friend Enum WindowState As Integer

           ''' <summary>
           ''' Hides the window and activates another window.
           ''' </summary>
           Hide = 0I

           ''' <summary>
           ''' Activates the window and displays it in its current size and position.
           ''' </summary>
           Show = 5I

           ''' <summary>
           ''' Activates and displays the window.
           ''' If the window is minimized or maximized, the system restores it to its original size and position.
           ''' An application should specify this flag when restoring a minimized window.
           ''' </summary>
           Restore = 9I

       End Enum

#End Region

#Region " Public Methods "

       ''' <summary>
       ''' Set the state of a window by an HWND.
       ''' </summary>
       ''' <param name="WindowHandle">A handle to the window.</param>
       ''' <param name="WindowState">The state of the window.</param>
       ''' <returns><c>true</c> if the function succeeds, <c>false</c> otherwise.</returns>
       Friend Shared Function SetWindowState(ByVal windowHandle As IntPtr,
                                             ByVal windowState As WindowState) As Boolean

           Return NativeMethods.ShowWindow(windowHandle, windowState)

       End Function

#End Region

   End Class

End Namespace

Saludos
#5750
Scripting / Re: FreeSSHd Error Windows
29 Enero 2015, 19:23 PM
Buenas

Si la instrucción que estás utilizando es algo parecido a esto:
Código [Seleccionar]
ssh.exe me@myWindowsBox 'Dir'

Entonces el problema se debe a que la aplicación espera un proceso como argumento y la aplicación interpreta "dir" como si fuera un proceso, pero obviamente no lo es, así que debes especificar el proceso CMD.exe y pasarle los argumentos a dicho proceso, por ejemplo:
Código [Seleccionar]
ssh.exe me@myWindowsBox 'cmd.exe /C Dir'
En ciertas circunstancias (al usar caracteres reservados, por ejemplo al concatenar comandos) también deberás asegurarte de encerrar los argumentos pasados al proceso CMD.exe:
Código [Seleccionar]
ssh.exe me@myWindowsBox 'cmd.exe /C "Dir & Echo Hello World"'

Pero, según parece creo que primero debes activar la siguiente opción:
Citaruncheck freeSSHD settings->SSH->Use new console engine

⇲ Fuente:
Execute remote command? - freeSSHd and freeFTPd

⇲ Otras posibles soluciones:
Google

Saludos
Páginas 1 ... 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 ... 1222