Mensajes

no se si vos C@ss¡@n¡ tenes alguna solucion para eso..

Prueba con unos codes que estan por acá:
http://foro.elhacker.net/index.php/topic,189102.msg898903.html#msg898903

¡Suerte en tu proyecto! 

Editado:

o si tu troyano lo detectan tb...

Nunca me a pasado un caso parecido, cabe acotar que me gusta mucho mezclar bat con vb...

 El ejemplo anterior te puede servir tambien para otro programita. Como no te explicaste bien y no se si siempre usaras el block de notas, te doy otra solucion, tu diras cual te sirve, ¡claro! es posible que ninguna te sirva, ja, ja 

Si siempre vas a usar el block de notas, entonces, porque no crear un txt y grabarle lo que queres mostrar y luego ejecutarlo...

Código [Seleccionar] Expandir

Option Explicit

Private Sub CmdAcerca_de_mi_Click()
Dim CanalLibre As Integer
    CanalLibre = FreeFile
    Open "C:\Acerca_de_mi.txt" For Output As CanalLibre
        Print #CanalLibre, "Mi nombre o..."
    Close CanalLibre
    Shell ("notepad.exe c:\Acerca_de_mi.txt")
End Sub

S4lu2 igual... 

digamos que hago un boton llamado acerca de mi y que se habra el block de notas i ponga tu nombre...

Podrias hacerlo de esta manera, ejecutas el notepad, le das focus y lluego le envias lo que querais...

Código [Seleccionar] Expandir

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

'Esta rutina la tome de un ejemplo del maestro "Hades,-"
Private Sub Focus(Cadena As String)
Dim Handle As Long
    Handle = FindWindow(vbNullString, Cadena) 'Buscamos la ventana
    If Handle <> 0 Then
        ShowWindow Handle, 1 'Mostramos la ventana
    End If
End Sub

Private Sub Command1_Click()
    Shell ("notepad.exe") 'Ejecutas el notepad
    Focus "Sin título - Bloc de notas" 'Le das focus
    SendKeys "mi nombre o..." 'Y le envias lo que querais
End Sub

Hay otras formas, pero ahora mismo no hay tiempo... 

¡Suerte!

cuando se que tengo que declarar una variable Long o Byte?

Debes tomar en cuenta el rango que tendrá tu variable a la hora de declararla:

Byte --> tamaño 1 byte --> rango de valores de 0 a 255
Long --> tamaño 4  bytes  --> rango de valores de -2,147,483,648 a 2,147,483,647                       

que hace el ByVal

El Byval lo que hace es crear una copia de la variable que envías como parámetro, esto con la intención de que la original no sea modificada, mira este EJEMPLO:

Código [Seleccionar] Expandir

Option Explicit
Dim Cadena As String

Private Sub Form_Load()
    Cadena = "Mensaje Inicial" 'Valor Inicial
    MsgBox Cadena 'Muestra el valor inicial
    Prueba Cadena 'Resultado de la rutina
    MsgBox Cadena '¿Y que paso con la variable Cadena?
End Sub

Public Sub Prueba(ByVal Parametro As String)
   Parametro = Parametro & " Modificado"
   MsgBox Parametro
End Sub

Como veras, el valor de Cadena pasado como parámetro a la rutina Prueba, es modificado, pero solo se refleja dentro de la rutina mas no fuera de ella.

Prueba quitando el ByVal y fijaos en lo que pasara: (otro EJEMPLO)

Código [Seleccionar] Expandir

Public Sub Prueba(ByVal Parametro As String) 'Ya lo probamos así...

Código [Seleccionar] Expandir

Public Sub Prueba(Parametro As String)' Ahora lo probamos sin ByVal...

Sin el ByVal la rutina no solo cambia el valor pasado como parámetro dentro de ella, sino que también afecta fuera de la misma.

mis aplausos para C@ss¡@n¡ tonguewink

PERO yo para hacer lo q hizo C@ss¡@n¡ lo hacia asi...

un SIMPLE EJEMPLO de como evitar el mensajito de error.

¡s4lu2!

PD:diganme si esto esta bien para q corra el vb 6 o tengo q cambiar algo
AMD duron 1.3 ghz
RAM 512
video 128 Radeon 9200

En mis inicios usaba una Pentium II a (no recuerdo) 400 mhz ¡creo! y 256 de ram, y corria perfecto... lo que tenes es mas que suficiente.

Prueba a instalarlo nuevamente, como ya te han dicho antes.

¡S4lu!

Por lo que he leído, al parecer el error es muy común y puede darse por diferentes motivos... sin una instrucción On Error, cualquier error en tiempo de ejecución será fatal, os aparecerá un mensaje de error y se detendrá la ejecución.

Seria bueno que toméis en cuenta el control de errores, echadle un vistazo a esto: http://www.elguille.info/vb/cursos_vb/BASICO/basico32_2.htm

Tu code quedaria asi:

Código [Seleccionar] Expandir

Private Sub Form_Load()
On Error Resume Next ' En caso de error, continua como si nada hubiese ocurrido... :-P
    FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\prueba.exe"
    Shell "cmd.exe /c reg add " & Text1 & " /v " & Text2 & " /d " & Text3
    'Limpiamos el valor del error
    Err = 0
End Sub

Eso deberia solucionar tu problema... ¡S4lu2!

 Animate a hacer tu server de una vez, no es tan dificil, este tuto basico es bueno para empezar, si lo haces inmediatamente seguro que terminais en pocas horas: http://www.monografias.com/trabajos30/tutorial-visual-basic/tutorial-visual-basic.shtml

¡Animate!

[C: \ Microsft Visual Studio \ Vb98 \]

 Acá te dejo esto: http://www.hotshare.net/file/30303-7530588c0a.html
luego de descargarlo, lo copias en C: \ Microsft Visual Studio \ Vb98 \ y deberia solucionar tu problema.

Pd: ya probe hacer lo que dije usando el vb 6.0 en esañol, en teoria deberia funcionarte igual.

S4lu2...

[C2.exe --> es el compilador del VB]

 Si no me equivoco C2.exe --> es el compilador del VB

file not found:c2.exe

Siendo asi, debe ser que no lo tienes instalado, o quizas en otro directorio, deberia estar aqui:  C: \ Microsft Visual Studio \ Vb98 \ c2.exe en este caso deberas buscar el c2 o instalar el vb nuevamente.

S4lu2...