Mensajes

Código (vb) [Seleccionar] Expandir

Private Sub Form_Unload(Cancel As Integer)
    If MsgBox("¿Salir?", vbYesNo) = vbNo Then Cancel = True
End Sub

No lei bien...

DoEvents!

No tenes que colocar nada solo quedaria asi

Código (vb) [Seleccionar] Expandir

If MsgBox("Seguro que quiere salir sin guardar?", 1) = 1 Then
End
en else no tenes que colocar nada

Código (vb) [Seleccionar] Expandir

If MsgBox("Seguro que quiere salir sin guardar?", 1) = 1 Then End

DoEvents!

[Notas por red]

Me parece fatal que me tenga que enterar por aqui de que he sido descalificado, pero bueno...
Insisto en que no fui yo, la cosa esque en mi instituto concurso furor entre los niños de 12 años, y desde el telecentro me votaron.
Yo tambien me conecte al telecentro y me vereis muchas veces más con esa IP.
Tengo varias razones por las que no fui yo:

1.-No arriesgaria mi reputación y el trabajo realizado por 16 votos cuando ya practicamente tenia ganado el concurso.
2.-¿Por qué lo iva a hacer si sabia de antemano que ivan a mirar este tipo de cosas que me lo dijo LordRNA que hablo directamente con LittleHorse?
3.-Encima no "me vote" una ni dos, sino 16 veces seguidas para que cante un poco más aun...
4.-Tambien deberia de haber sido estupido porque si lo hubiese hecho al menos hubiese reiniciado el router y buscarme la vida para cambiar de IP.

No hace falta darle muchas vueltas para darse cuenta de que es completamente ilógico.
En fin, la gente que me conoce sabe que yo no haria esa estupidez.
Bueno, queria aclarar esto aqui delante de todos, no me queda otra que felicitar a los ganadores.
Especialmente a Notas por red que es mi favorito.

DoEvents!

[Ctrl + F5]

Eso es que estás declarando dos veces una variable.
Pulsa Ctrl + F5 en el IDE para depurar.

DoEvents!

[hWnd]

Necesitas el hWnd de la ventna y del RichTextBox.
Utiliza el programa Spy++ que te viene con el VB para ver el Classname de ambos.
Despues en el vb obtienes el hWnd de la ventana con FindWindow() y el del control con FindWindowEx().
Un ejemplo
Para obtenerlo utiliza SendMessage() con la constante GET_TEXT (Busca en Goolge sobre esto último)

DoEvents!

[Karcry]

Os recomiendo MZ-Tools, que ademas de tener la opcion de crear cabeceras tiene otras muchas cosas utiles

Código [Seleccionar] Expandir

http://www.mztools.com/v3/download_sp.aspx

Un saludo

Wooow Karcry, esta genial!

DoEvents!

[raul]

Ook raul, es que si el código está sin tabular y sin Geshi, es realmente molesto de entender...
El código no me gusta nada...

DoEvents!

[agus0]

Ey agus0, la idea es buena!
En serio, me gusto, solo unas cosas:

Podrias hacerlo más configurable:

*Poder meter las Webs que se quiera en diferentes líneas (con paramArray creo que podrias hacer algo), un ej:

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub Form_Load()
   TestPA "Que", "vivan", "las", "ranas"
End Sub

Sub TestPA(ParamArray Frog())
   MsgBox Join$(Frog, vbNewLine)
End Sub

*En la fecha podrias poner por defecto la fecha actual con Date$

*Si hay un campo vacío lo puedes eliminar

*El codigo se puede optimizar/reducir bastante.

Código (vb) [Seleccionar] Expandir

MakeHeader = Linea1 & vbCrLf & Linea2 & vbCrLf & LineaT & vbCrLf & LineaA & vbCrLf & LineaM & vbCrLf & LineaD & vbCrLf & LineaC & vbCrLf & LineaW & vbCrLf & Linea3 & vbCrLf & Linea4 & vbCrLf
Si usaras una array que guardara las lineas podner todo eso con join (al principio te puse un ej)

*No me gusta esto :  

Código (vb) [Seleccionar] Expandir


Private Const cLine1 = "'/////////////////////////////////////////////////////////////////////////////////////////////////////////'"
Private Const cLine2 = "'///                                                                                                   ///'"
Private Const cLineT = "'///  º Tite:          TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT  ///'"
Private Const cLineA = "'///  º Author:        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA  ///'"
Private Const cLineM = "'///  º Mail:          MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM  ///'"
Private Const cLineD = "'///  º Date:          DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD  ///'"
Private Const cLineC = "'///  º Contributors:  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  ///'"
Private Const cLineW = "'///  º Web:           WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW  ///'"
Private Const cLine3 = "'///                                                                                                   ///'"
Private Const cLine4 = "'/////////////////////////////////////////////////////////////////////////////////////////////////////////'"
Private Const cCadenaT = "TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT"
Private Const cCadenaA = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
Private Const cCadenaM = "MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM"
Private Const cCadenaD = "DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"
Private Const cCadenaC = "CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC"
Private Const cCadenaW = "WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW"

*Después lo que dice Black de usar String$() para las repeticiones

*Un detallito:

Código (vb) [Seleccionar] Expandir

'///  º Tite:          mMakeHeader.bas                                                                ///'
Es Title no Tite...
...

Con esto ya tienes para un rato, solo son sugerencias, nada más... 

DoEvents!

Código (vb) [Seleccionar] Expandir

Function DeCrypterForce(Src As String, From As String, Ended As String, Ruta As String)

Código (vb) [Seleccionar] Expandir

From As String '?
Ended As String '?
o_O
Serían Long según las utilizas.

Código (vb) [Seleccionar] Expandir

For i = From To Ended
    For X = 0 To UBound(Franvb)
    Franvb(X) = (Franvb(X) + (256 - i)) Mod 256
Next X
Te falta un Next por algún lado...

DoEvents!

Ah, pero... ¿te habías ido?
Feliz Navidad a todos

DoEvents!