Mensajes

Veamos si te sirve el siguiente code como orientación:

Código (vb) [Seleccionar] Expandir

Dim s_word, s_find As String
Private Sub Command1_Click()
    s_word = InputBox("Cadena a buscar:")
    ' Find string in text.
    s_find = InStr(Text1.Text, s_word)
    If s_find Then
        Text1.SetFocus
        Text1.SelStart = s_find - 1
        Text1.SelLength = Len(s_word)
    Else
        MsgBox "No se encuentra la cadenas"
    End If
End Sub

Private Sub Form_Load()
Text1.Text = "Los gatos tienen cuatro patas"
Command1.Caption = "Buscar"
End Sub

Gracias POR Ese Codigo

PEro ME DIcuenta que lo que hace ese COdigo es Buscar un texto y seleccionarlo

En SI LO que yo queria Es Como esta en la IMG

Si lo pudieras encontrar te lo agradeceria =)

En otras palabras buscas un programador para que te lo programe?

Dulces Lunas

Para mi un Videotutorial no es muy servible, en mi opinion es mejor LEER que VER.

Se que al ver algo se entiende mejor, pero a la larga se causan dudas, cuando se cree que se a entendido, al ver un source es mejor se comprende definitivamente mejor, se aprenden conocimientos externos a uno mismo, en un video tutorial NO, a que voy con esto? es sencillo, lo mejor es leer que ver las cosas, la lectura NO fomenta flojera a responder por si mismo si no que genera soluciones, cosa contraria en videos y demás ( Hoy en dia las personas que tienen mas dudas son aquellas q No tienen la costumbre de lectura ).

Alguien me dijo una vez que:

!Los mejores libros, NO contienen imagenes¡

P.D.: Pareciera que estamos en la Edad Oscura...¡!

Dulces Lunas.¡!

hola tengo un module que no me acuerdo de donde me lo descargue . pero cuando intento yamar a esta funcion   me da argumento no opcional

Ese error aparece cuando FALTAN ARGUMENTOS EN UNA FUNCION (Estos argumentos deben ser del mismo tipo del argumento de la funcion/proceso/etc.) para que esta Trabaje adecuadamente por ejemplo:

Código (vb) [Seleccionar] Expandir


public function sumar(byval num1 as integer,byval num2 as integer,optional byval num3 as integer) as integer
    'Se requiere que metas el valor de la variable Num1 y de Num2 sIEMPRE NUMERICOS DE TIPO ENTERO 'Integer'
    'NUM3 es opcionla y puede o no ser asignado un 'X' Numero
    suma=num1+num2+num3
end function


En algún proceso 'X'
Por ende esta se puede llamar de DOS formas

Código (vb) [Seleccionar] Expandir


    dim res as integer
    res= sumar(10,10)
    msgbox res

o de igual forma

Código (vb) [Seleccionar] Expandir


    dim res as integer
    res=sumar(10+10+12)
    msgbox res


Cabe destacar que cuando se asigna opcional un parametro de una funcion este si no le es asignado un valor al momento de llamalo obtiene el valor POR DEFAULT esn este caso será cero por ser tipo numerico y si es textual seria nada de texto, igual podria ser el valor que se le implanta a la Funcion/Proseso/X en cuention

Código (vb) [Seleccionar] Expandir


public function sumar(byval num1 as integer,byval num2 as integer,optional byval num3 as integer=999) as integer
    'Se requiere que metas el valor de la variable Num1 y de Num2 sIEMPRE NUMERICOS DE TIPO ENTERO 'Integer'
    'NUM3 es opcionla y puede o no ser asignado un 'X' Numero
    suma=num1+num2+num3
end function


en la funcion anterior si no se asigna un valor a num3 este por default obtendra el valor 999 si es que se llegase a llamar de la siguiente manera

Código (vb) [Seleccionar] Expandir


dim res=sumar(10,10)
msgbox res 'Da como resultado 1019 por el valor de Num3 q se tomo el valor por default


si usas Split debes de saber el formato de la cadena enviada y en que lugar estan los "X" Datos a interpretar, no es difici y no importa si es conexión inversa, Reversa, Baja o Subida...¡! ESO NO importa,... lo que realmente importa al mandar información es la estructura de esta, te recomiendo que imprimas la cadena enviada en la ventana inmediato y por ende las separaciónes y revises como te llegan (aun que esto deberias saberlo pues lo mandas con anterioridad, pero es solo apra rectificar tu información¡!)

Para imprimir en pantalla inmediato:

Código (vb) [Seleccionar] Expandir


Debug.print variable


---------------------------------

Ahora con lo de tu linea:

Código (vb) [Seleccionar] Expandir


MsgBox Split(datos, "|")(1), vbYesNo, Split(datos, "|")(3) = vbYes ' aca no se como haceeeeeeeer!!


mas explisitamente este pedaso:

Código (vb) [Seleccionar] Expandir


Split(datos, "|")(3) = vbYes


APARECERA COMO TITULO VERDADERO O FALSE SEGUNS EA EL CASO, ya que estas asiendo el if mas sencillo...¡!

es lo mismo que esto metido en una clase...

Enviar correo con Microsoft CDO

mas abajo vez el source...

Código [Seleccionar] Expandir


Ejemplo 2
En este otro enlace , podés descargar un ejemplo similar usando CDO pero mediante un módulo de clase : Descargar ( para implementarlo mas fácilmente )


darle los creditos por agregarle...¡!

Código (vb) [Seleccionar] Expandir


'##############
'# Programado #
'# por P4|3L0 #
'##############


Dulces Lunas

che, que hace ese codigo? lo puse en el VB y no me hizo nada

(espero que no me explote la pc en 3 dias -,-

je, diganme que hace ese codigo plz

hace lo que pediste...¡!

Joe tu code no lo entendi!

Voy a empezar desde el principio. Tengo este codigo:

Private Sub Command1_Click()
DimError Frm(1 To 5) As NewError Form1
For i = 1 To 5
    FrmError(i).Show
    DoEventsError
NextError
End Sub

Le he puesto unos fallos para que no pegen y copien Que a si no se aprende nunca nada...

Pues ese codigo las abre pero no me tapan el escritorio creo que tiene que ver con las coordenadas X / Y
¿Que le faltaria al codigo?

TOP =rnd(1)* screen.wi...   (Coord Y)
LEFT =rnd(1)* screen.wi...  (Coord X)

Usa ADO.

Dulces Lunas

Hola ,,, Yo Quiero Crear Un Programa Que Envie Codigos A Servidores Remotos


Ejemplo Que Envie Paquetes Hexadecimales Tipo : C1 03 BC 48 DA


Ejemplo Este Programa Hecho Con Winsok :

pero en vez de enviar archivos .. envie paquetes


este es el code mio ....

Option Explicit


Private Declare Function GetFileTitle _
Lib "comdlg32.dll" _
Alias "GetFileTitleA" ( _
ByVal lpszFile As String, _
ByVal lpszTitle As String, _
ByVal cbBuf As Integer) As Integer

cuando lo hago y pongo el codigo y le doy enviar me dice ''El Archivo No Existe''
O.o ... cuando pngo un archivo si sirve pero lo que yo quiero es enviar codigos no archivos ^^

men hay puse el codigo que consegui .. pero cuando le envio el codigo me dice ''El Archivo No Existe'' Pero Cuando Pongo Un Archivo Si Lo Manda ^ La Idea Es Mandar Codigos Ejemplo : C1 03 BC 48 DA

Que tipos tan extraños...¡! primero q es de el, depsues que lo consigue mmm raros.¡! (Si fuera de el sabria donde esta el error...¡!).

P.D.: los paquetes si es para el muOnline no podran mas que solo teletransportase/pegar mas rapido...¡! pero en un mismo mapa (Lo mensionaron en un Post Anterior...¡!)... pero al cazo no va al tema.¡!, por cierto el codigo esta deplorable usan mucho "On Error Resume Next" y sin validaciones xS

En este foro hay un source de este mismo tema hace tiempo lo vi y hace esactamente lo mismo.¡! sacar la foto al escritorio y enviarlo, no es nada del otro mundo...¡!