Mensajes

como Elektro cerro el tema pues abro este.

Yo no lo cerré, no soy moderador de esta sección, también me cerraron mi post por desgracia.

Código (vbnet) [Seleccionar] Expandir

       Dim Texto As String = My.Computer.FileSystem.ReadAllText("C:\Archivo.txt")
       Dim Pos As Integer = InStr(Texto, "String")
       MsgBox(Pos)

Código (vbnet) [Seleccionar] Expandir

        Dim Text_Pos As String = InStr(My.Computer.FileSystem.ReadAllText("C:\Archivo.txt"), "String")
        MsgBox(Text_Pos)

Para cambiar los cursores de Windows (En el sistema, fuera del form)

Código (vbnet) [Seleccionar] Expandir

#Region " Set System Cursor Function "

   ' [ Set System Cursor Function ]
   '
   ' Examples :
   '
   ' Set_System_Cursor("C:\Cursors\Arrow.ani", System_Cursor.ARROW))
   ' MsgBox(Set_System_Cursor("C:\Cursors\Cross.cur", System_Cursor.CROSS))

   ' Set System Cursor [ API declarations ]
   Private Declare Function SetSystemCursor Lib "user32.dll" (ByVal hCursor As IntPtr, ByVal id As Integer) As Boolean
   Private Declare Function LoadCursorFromFile Lib "user32.dll" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As IntPtr

   ' Set System Cursor [ API Constants ]
   Private Enum System_Cursor As UInt32
       APP_STARTING = 32650
       ARROW = 32512
       CROSS = 32515
       HAND = 32649
       HELP = 32651
       I_BEAM = 32513
       NO = 32648
       SIZE_ALL = 32646
       SIZE_NESW = 32643
       SIZE_NS = 32645
       SIZE_NWSE = 32642
       SIZE_WE = 32644
       UP = 32516
       WAIT = 32514
   End Enum

   ' Set System Cursor [ Function ]
   Private Function Set_System_Cursor(ByVal Cursor_File As String, ByVal Cursor_Type As System_Cursor) As Boolean
       If SetSystemCursor(LoadCursorFromFile(Cursor_File), Cursor_Type) = 0 Then Return False ' Error loading cursor from file
       Return True
   End Function

#End Region




Hotmail sender (Envía correos desde hotmail)

* Es necesario descargar la librería EASENDMAIL (Es gratis aunque se puede comprar licencia): http://www.emailarchitect.net/webapp/download/easendmail.exe  

PD: Sé que esto se puede hacer con la class system.net.mail, pero con esto no dependemos de puertos, y el SSL de los servidores que usemos en la librería se detecta automáticamente...

Código (vbnet) [Seleccionar] Expandir

#Region " Hotmail Sender Function "

   ' [ Hotmail Sender Function ]
   '
   ' // By Elektro H@cker
   '
   ' * First add a reference to "EASendMail" into the project.
   '
   ' Examples :
   '
   '  MsgBox(Hotmail_Sender("ElektroHacker@hotmail.com", "MyPass", "Anonym@gmail.com", "Test subject", "Test body", {"C:\File1.txt", "C:\File2.txt"}))

   Private Function Hotmail_Sender(ByVal Account_User As String, ByVal Account_Password As String, ByVal Mail_To As String, ByVal Mail_Subject As String, ByVal Mail_Body As String, Optional ByVal Mail_Attachments() As String = Nothing) As Boolean

       Dim Hot_Mail As New EASendMail.SmtpMail("TryIt")
       Dim Hot_Server As New EASendMail.SmtpServer("smtp.live.com")
       Dim Hot_Smtp As New EASendMail.SmtpClient()

       Hot_Server.User = Account_User
       Hot_Server.Password = Account_Password
       Hot_Server.ConnectType = EASendMail.SmtpConnectType.ConnectSSLAuto

       Hot_Mail.From = Account_User
       Hot_Mail.To = Mail_To
       Hot_Mail.Subject = Mail_Subject
       Hot_Mail.TextBody = Mail_Body
       If Mail_Attachments IsNot Nothing Then For Each Attachment In Mail_Attachments : Hot_Mail.AddAttachment(Attachment) : Next

       Try : Hot_Smtp.SendMail(Hot_Server, Hot_Mail) : Return True
       Catch ex As Exception : Return False : End Try

   End Function

#End Region

[Keyen]

Keyen, muchas gracias por la info, a pesar de que ahora pienses que soy un vago quizás por culpa de lo que siempre anda comentando spiritdead... a mi cualquier información que me den me sirve para empezar, y no te preocupes que buscaré.

Me dejas bastante perdido porque yo siempre he usado la API de windows para realizar funciones y cambios, sin necesidad de hacer gran cosa, pero no para recibir/interceptar/monitorizar datos, y no sé si será tán fácil como almacenarlo en una variable cada cierto tiempo para comprobar el valor del resultado y ya está, pero bueno, ya lo busco.

Saludos

si fuera novlucker ya estubieras baneado te lo digo claro

Pero no lo eres, y eso es lo que diferencia a moderadores de usuarios:
Novlucker: madurez + buen juicio + saber hacer
Tú: payasadas + insultos + amenazas (en resumen, lo que se denomina como "troll", sin odenfer)

Tranquilo, que por suerte nunca serás moderador por esa personalidad.

Y con esto me despido de esta discusión,
saludos.

si muy bien spiritdead, yo ya sabía que la class system.io tiene methods que lo hacen mucho más extensivo que usar my.computer.filesystem, que este último se queda corto en "opciones", y también sé que downloadfile necesita escribir mediante un stream, que no hace mágia, vale, pero no por eso yo iba a ser adivino y saber que es una mala práctica usar my.computer, porqué lo vi en los snippets de Microsoft al empezar en VB.NET, que como te recuerdo, llevo poco tiempo,
y cuando ves que en la propia información del VS usan my.computer para todo, tanto tu, como yo, y cualquiera, tendería a pensar que está ahí porque es lo más correcto, no lo más sencillo, ahora, gracias por la aclaración, a pesar de tus insultos.

Saludos.

Puedes intentar putear todo lo que quieras, es lo que hacen los payasos, pero ahora díme, de entre todas las gilipolleces que acabas de decirme, ¿que tiene que ver con lo de ponerse a investigar cosas que uno no sabe que tiene que investigarlas?, ¿también eres mago aparte de payaso?.

Saludos

Y como esperabas que me pusiera a investigar en Google "¿Es mejor system.io que my.computer"? así porque sí sin venir a cuento, si la primera referencia que he tenido de dicha diferencia es ahora mismo por parte de Keyen?,
¿Acaso tu buscas las cosas cuando no sabes ni siquiera que necesitas buscarlas?,
creo que tu tampoco sabes mucho lo que dices cuando te pones a criticar, spiritdead.

saludos

[Keyen]

al igual que métodos como My.Computer.FileSystem tienen su uso correcto en System.IO, entre otros ejemplos.

Hola,
no quiero poner en duda lo que dices Keyen, porque te considero muy avanzado en .NET, pero al leer eso, pienso que más que ser de uso incorrecto en realidad es una simple preferencia de gustos, por una contundente razón:

• Los snippets originales que incorpora el VS, usan My.Computer. para casi todo, en lugar de usar System.IO. u otros métodos como tu indicas.
  Y por esa razón, pienso que los propios desarrolladores del VisualStudio no habrían empleado malas prácticas para sus propios snippets... ¿No estás deacuerdo conmigo?.
  
  Sé que no tiene mucho que ver con el tema de este post, pero bueno, cualquier lugar es bueno para aprender algo, por eso te quiero preguntar, ¿Es más bien una cuestión de gustos, o en realidad se considera una mala práctica el uso de My.computer.?, ¿Puedes dar más datos de porqué se considera una mala práctica?
  
  Gracias por leer.

[EDITO:]

Los lenguajes de scripting no se pueden compilar, se interpretan (añades el intérprete + tu script, lo juntas todo en un .exe y tachán), así que la velocidad en ese aspecto es la misma, porque se usa el intérprete en los dos casos xD, aunque al ""compilar"", el código y las librerías que uses tienen que descomprimirse a una carpeta temporal, y eso puede ralentizar bastante el tiempo de inicio de ejecución si se trata de librerías muy pesadas de tamaño.

Sobre lo otro, al menos yo no te lo puedo aclarar al 100%, pero sin duda alguna Batch es el más lento de la lista, porque tiene que usar executables para casi todo, y porque es procesamiento por lotes.

Siempre he escuchado que el más veloz es Perl, aunque debe estar bastante equilibrado Perl/python/ruby,
Pero de todas formas no tiene mucha importancia si python/perl/ruby es más rápido o más lento, si la idea es programar aplicaciones no vas a notar la diferencia entre uno y otro... (Menos en Batch, ahí si que se nota mucho).

Pero si se quiere conseguir el máximo performance para usar python/ruby/perl en programación web, eso ya me parece más útil, y hay varios tests en Google:

Código [Seleccionar] Expandir

Ruby vs. Python: Web Performance

Everything was benchmarked by running multiple iterations of apache-bench from the terminal on my MBP. I used Green Unicorn as my test WSGI server, and Thin for Rack apps.

WSGI (PyPy 1.6.0): ~5300 req/sec
WSGI (Python 2.6.1): ~3200 req/sec
WSGI (Python 2.7.2): ~3000 req/sec

Rack (Ruby 1.9.2 MRI):  ~4500 req/sec
Rack (Ruby 1.8.7 MRI): ~4050 req/sec

Rawr/WSGI (PyPy 1.6.0): ~4900 req/sec
Rawr/WSGI (Python 2.6.1): ~2750 req/sec
Rawr/WSGI (Python 2.7.2): ~2700 req/sec

Sinatra/Rack (Ruby 1.9.2 MRI): ~1900 req/sec
Sinatra/Rack (Ruby 1.8.7 MRI): ~1399 req/sec

EDITO: Aquí tienes otro test Ruby 1.9 vs Python 3, algunas cosas las procesa más rápido Ruby, y en otras Python: http://benchmarksgame.alioth.debian.org/u32/benchmark.php?test=all&lang=yarv&lang2=python

Un saludo.

yo me registre el primero de los 3 y mira lo que se

Nah, yo os gano a los dos,
Creo que no conoces a mi otro yo en el foro, un tál Pitoloko registrado en el 2009, con 2.500 mensajes.
http://foro.elhacker.net/profiles/pitoloko-u345950.html

PD: Ya me podrían sumar todos esos mensajes a esta cuenta, tener +5.000 mensajes en el perfil tiene que acojonar bastante x'D

Saludos x'DDD