Mensajes

El color naranja de tu htm es eso, un color sólido.

El gradiante no es un color, es un efecto de varios tonos de colores conjuntos, y los estilos (efectos, gradiantes) se hacen manejando CSS, si usas DreamWeaver los estilos de CSS te los hace en 1 segundo casi sin esfuerzo vaya!

Un saludo!

¿Entonces lo de añadir datos a la base desde la consola ya no quieres?

A ver si no he entendido mal:
Ahora sólo sería obtener el valor numérico de la tercera palabra de la primera línea, o sería de cada tercera palabra de cada línea? y en fín si el número es mayor de "X", que te mande un email.

La manera más sencilla desde Windows es Batch, para lo del email puedes usar esta utilidad Commandline (no requiere autentificación de ningún tipo): https://www.zeta-uploader.com/es

Esto comprueba el tercer token de cada línea, si es mayor que "X" envía un email.
He usado como delimitador el caracter del espacio, quizás debas modificarlo a tus necesidades...

Código (dos) [Seleccionar] Expandir

@Echo OFF

Set "Max=100"
Set "Interval=5"

:Loop
Echo [%TIME:~0,-3%] Checkando...
For /F "Usebackq Tokens=1-3* Delims= " %%A in ("Archivo.txt") Do (
If %%C GTR %MAX% (
Echo [%TIME:~0,-3%] Variable: %%C es mayor que %MAX%, enviando email...
Zulc.exe -receivers="tuemail@hot.com" -remarks="Test remark" -subject="Test subject")
)
)
(Ping -n %INTERVAL% Localhost >NUL) & (GOTO :LOOP)

@arts
la verdad es que según tengo entendido entre las comprbocaciones de IF y Select Case no hay diferencia así que creo que deben ser igual.




Generador de captchas.

Código (vbnet) [Seleccionar] Expandir

#Region " Captcha Generator Function "

    ' [ Captcha Generator Function ]
    '
    ' Instructions:
    ' Copy the Captcha Class into a new Class "Captcha.vb"
    '
    ' Examples :
    ' Dim myCaptcha As New Captcha
    ' PictureBox1.Image = myCaptcha.GenerateCaptcha(5) ' Generate a captcha of 5 letters
    ' MsgBox(myCaptcha.Check(TextBox1.Text, True)) ' Check if the given text is correct


    ' Captcha.vb
#Region " Captcha Class "

    Imports System.Drawing
    Imports System.Drawing.Drawing2D

    Public Class Captcha

        Dim cap As String

        Public ReadOnly Property CaptchaString As String
            Get
                Return cap
            End Get
        End Property

        ' Generate Captcha
        Function GenerateCaptcha(ByVal NumberOfCharacters As Integer) As Bitmap
            Dim R As New Random
            Dim VerticalLineSpaceing As Integer = R.Next(5, 10) ' The space between each horizontal line
            Dim HorisontalLineSpaceing As Integer = R.Next(5, 10) ' The space between each Vertical line
            Dim CWidth As Integer = (NumberOfCharacters * 120) 'Generating the width
            Dim CHeight As Integer = 180 ' the height
            Dim CAPTCHA As New Bitmap(CWidth, CHeight)
            Dim allowedCharacters() As Char = "qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM123456789".ToCharArray 'Guess
            Dim str(NumberOfCharacters - 1) As Char ' The String to turn into a captcha

            For i = 0 To NumberOfCharacters - 1
                str(i) = allowedCharacters(R.Next(0, 61)) ' Generating random characters
            Next

            Using g As Graphics = Graphics.FromImage(CAPTCHA)

                ' the gradient brush for the background
                Dim gradient As New Drawing2D.LinearGradientBrush(New Point(0, CInt(CHeight / 2)), New Point(CWidth, CInt(CHeight / 2)), Drawing.Color.FromArgb(R.Next(&HFF7D7D7D, &HFFFFFFFF)), Drawing.Color.FromArgb(R.Next(&HFF7D7D7D, &HFFFFFFFF)))

                g.FillRectangle(gradient, New Rectangle(0, 0, CWidth, CHeight))
                Dim plist As New List(Of Point) ' the list of points the curve goes through

                For i = 0 To str.Length - 1
                    Dim FHeight As Integer = R.Next(60, 100) 'Font height in EM
                    Dim Font As New Font("Arial", FHeight)
                    Dim Y As Integer = R.Next(0, (CHeight - FHeight) - 40) 'Generating the Y value of a char: will be between the top  and (bottom - 40) to prevent half characters
                    Dim X As Integer = CInt((((i * CWidth) - 10) / NumberOfCharacters))  'Some formula that made sense At the time that I typed it to generate the X value
                    Dim p As New Point(X, Y)

                    g.DrawString(str(i).ToString, Font, Brushes.Black, p)

                    plist.Add(New Point(X, R.Next(CInt((CHeight / 2) - 40), CInt((CHeight / 2) + 40)))) ' add the points to the array
                Next

                plist.Add(New Point(CWidth, CInt(CHeight / 2))) 'for some reason it doesn't go to the end so we manually add the last point
                Dim ppen As New Pen(Brushes.Black, R.Next(5, 10)) ' the pen used to draw the curve
                g.DrawCurve(ppen, plist.ToArray)
                Dim pen As New Pen(Brushes.SteelBlue, CSng(R.Next(1, 2))) 'the pen that will draw the horisontal and vertical lines.

                ' Drawing the vertical lines
                For i = 1 To CWidth
                    Dim ptop As New Point(i * VerticalLineSpaceing, 0)
                    Dim pBottom As New Point(i * VerticalLineSpaceing, CHeight)
                    g.DrawLine(pen, ptop, pBottom)
                Next

                ' Drawing the horizontal lines
                For i = 1 To CHeight
                    Dim ptop As New Point(0, i * HorisontalLineSpaceing)
                    Dim pBottom As New Point(CWidth, i * HorisontalLineSpaceing)
                    g.DrawLine(pen, ptop, pBottom)
                Next

                ' Drawing the Black noise particles
                Dim numnoise As Integer = CInt(CWidth * CHeight / 25) 'calculating the  number of noise for the block. This will generate 1 Noise per 25X25 block of pixels if im correct

                For i = 1 To numnoise / 2
                    Dim X As Integer = R.Next(0, CWidth)
                    Dim Y As Integer = R.Next(0, CHeight)
                    Dim int As Integer = R.Next(1, 2)
                    g.FillEllipse(Brushes.Black, New Rectangle(X, Y, R.Next(2, 5), R.Next(2, 5))) 'Size of the white noise
                Next

                ' Drawing the white noise particles
                For i = 1 To numnoise / 2
                    Dim X As Integer = R.Next(0, CWidth)
                    Dim Y As Integer = R.Next(0, CHeight)
                    Dim int As Integer = R.Next(1, 2)
                    g.FillEllipse(Brushes.White, New Rectangle(X, Y, R.Next(2, 5), R.Next(2, 5))) 'Size of the white noise
                Next

            End Using

            cap = str
            Return CAPTCHA
        End Function

        ' Check captcha
        Function Check(ByVal captcha As String, Optional ByVal IgnoreCase As Boolean = False) As Boolean
            If IgnoreCase Then
                If captcha.ToLower = CaptchaString.ToLower Then
                    Return True
                Else
                    Return False
                End If
            Else
                If captcha = CaptchaString Then
                    Return True
                Else
                    Return False
                End If
            End If
        End Function

    End Class

#End Region

#End Region

Esto es lo que te respondí en otro foro (por si no lo llegases a ver):

ya he comprobado que no me aparezca en los programas

La solución no es ocultarlo, sinó desinstalarlo. ¿Te refieres a la barra de programas de Firefox, o en la lista de programas instalados de Windows?


De todas formas sigue los pasos oficiales de desinstalación de IMVU:

http://imvuinc.ourtoolbar.com/help/

How do I uninstall the IMVU Inc toolbar?

Firefox users

   In the Firefox browser menu, select Add-ons > Extensions.
   Select the IMVU Inc Community Toolbar.
   Click Remove.

How do I enable or disable the search page that appears when I open a new tab?

Firefox users

   Open the toolbar's main menu (by clicking on the arrow immediately to the right of the toolbar's logo).
   Select Toolbar Options and then click the Additional Settings tab.
   Select or clear the check box next to: "Show a search box on new browser tabs."

How do I remove the IMVU Inc toolbar's customized Web Search?

Firefox users

   Open your browser's Search Engine menu (upper-right corner of your browser) by clicking the arrow.
   Choose Manage Search Engines...
   Select IMVU Inc Customized Web Search.
   Click the Remove button, and then click OK.

[AddData.bat]

Bueno, no somos adivinos, ¿Windows o Linux?

No manejo las bases de datos MySQL así que desconozco como hacerlo, pero podría ser algo así:

AddData.bat

Código (dos) [Seleccionar] Expandir

@Echo OFF
For /F "Usebackq Tokens=*" %%X in ("Archivo.txt") Do (... "campo1" "%%X")


Quizás esto te sirva:

Google + "commandline add entry to mysql"

To insert data into MySQL table you would need to use SQL INSERT INTO command. You can insert data into MySQL table by using mysql> prompt or by using any script like PHP.
Syntax:

Here is generic SQL syntax of INSERT INTO command to insert data into MySQL table:

INSERT INTO table_name ( field1, field2,...fieldN )

www.tutorialspoint.com/mysql/mysql-insert-query.htm

http://www.ntchosting.com/mysql/insert-data-into-table.html

http://www.iis-aid.com/articles/how_to_guides/creating_mysql_database_via_the_command_line

http://dev.mysql.com/doc/refman/5.0/en/

Si creo una aplicación y uso los metodos de "IO" o por ejemplo "My.Computer.FileSystem.CopyFile" para copiar un archivo de 50 GB, y cierro la aplicación, la operación de copiado reside en segundo plano y no se detiene hasta que el archivo haya sido copiado, así que parece ser que Windows es quien decide esto...

Mi pregunta es: ¿Se puede cancelar una operación de copiado?
y: ¿Se puede hacer de alguna manera segura? (no me gustaría que se corrompieran los datos del disco duro, o algo parecido)

No encuentro info en ningún lado

un saludo!

[Acciones sobre archivos de texto. [Batch]]

@XWatmin

Acciones sobre archivos de texto. [Batch]

¿Que tiene que ver tu pregunta con la temática de este hilo?

La máquina Arcade es la que se llama "Sega model 2", el emulador todavía no sabemos cual es su nombre, hay muchos emuladores que corren roms de la SM2.

Infórmate sobre el nombre real del emulador que estás usando, después ve a la página oficial del emulador y descárgatelo, debe incluir un archivo de documentación y allí te debe indicar las opciones CommandLine del emulador para ejecutar una ROM, si la documentación no está en el emulador entonces debe estar en la página web oficial, así encontrarás lo que necesitas.

De todas formas has puesto mal el slash (la barra vertical), prueba así:

Código [Seleccionar] Expandir

Emulator.exe ".\roms\daytona.zip"

Si te quedan dudas no sigas este tema aquí o me veré obligado a eliminarlo, haz el favor de crear un nuevo post para formular preguntas que no estén relacionadas con archivos de texto.

Saludos.

[OmarHack]

@OmarHack

Son Bots, esos usuarios son registros con nombres aleatórios y los mensajes se postean automáticamente del mismo modo, con scripts o software dedicado.

PD: Te lo comento para que no malgastes el tiempo hablándole a una máquina!

PD2: El spam dudo que séa ilegal en ningún país, prohibido sí (y sólo a criterio del Administrador de "X" página, no al criterio de ninguna ley), ilegal no.
En España tenemos algo que se llama "Libertad de expresión", spam virtual, spam visual, spam oral, y spam táctil, en fín los tiempos de Franco quedaron atrás...

Saludos!

Bueno, ya he encontrado la manera de hacerlo:

Código (vbnet) [Seleccionar] Expandir

Public Class Main
    Dim MyFont As New CustomFont(My.Resources.kakakaka)

    Private Sub Main_Disposed(sender As Object, e As System.EventArgs) Handles Me.Disposed
        MyFont.Dispose()
    End Sub

    Private Sub Main_Load(sender As System.Object, e As System.EventArgs) Handles Me.Load
        Me.Label1.Font = New Font(MyFont.Font, 12.0!)
    End Sub
End Class

Saludos!

Hola!

Desde que empecé a aprender VisualStudio siempre tuve interés por poder instalar controles de una manera automatizada, ya que suelo hacer mis própios instaladores personalizados, y mis tests  con la IDE de VS en máquinas virtuales, y allí tengo que instalar cada control que necesito manuálmente...

Actualmente hay varias (pocas) aplicaciones que nos ayudan a instalar controles de forma automática, el gran problema es que todas están desactualizadas para poder instalar un control en la versión 11 de VisualStudio (VS2012), hasta ahora...

Un usuario al que le estoy muy agradecido ha renovado el source de un antiguo proyecto (TCI), es una utilidad CommandLine para poder instalar controles en cualquier versión de VS, y la verdad es que es magnifica, se instalan en pocos segundos.

Aquí tienen el source:
http://www.imagingshop.com/download/toolbox-integration.zip

Y aquí la utilidad compilada:
http://elektrostudios.tk/DTE.zip

Instrucciones de uso:

Código [Seleccionar] Expandir

DteToolboxInstaller.exe [install|uninstall] [vs2005|vs2008|vs2010|vs2012] [tab name] [assembly path]

Por ejemplo, si quieren instalar el control "SampleControl.dll" que va incluido en el zip, en la ToolBar de VS2012, hay que usarlo de esta manera:

Código [Seleccionar] Expandir

DteToolboxInstaller.exe install vs2012 "Nombre del TAB" "SampleControl.dll"

Artículo completo: http://www.componentowl.com/articles/visual-studio-toolbox-control-integration#integration-dte

Espero que a muchos les sirva...

Un saludo!