Mensajes

[No pretende ser un juego sino explicar basicamente el funcionamiento,]

Bueno, no será un manual pero es un ejemplo (explicado por el mismo EX3) de como funciona la libreria, No pretende ser un juego sino explicar basicamente el funcionamiento,

Nota : primero hay que instalar la libreria "DLL SETUP.exe"


http://rapidshare.com/files/348262256/matamarte.zip

Con una variable global (Boolean) y unos cuantos If dentro de la rutina (inclidos los For, while, etc)

PD: Todas las rutinas no son iguales

Bueno, despues de la exposición de EX3 poco se puede agregar, yo ví un excelente juego echo con visual (lamentablemente no encuentro el link de donde lo bajé) si lo encuentro lo posteo se llama "Desaparecido en Accion" .

http://foro.elhacker.net/programacion_vb/solucionado_como_hacer_para_llamar_a_un_form_desde_otra_instancia_del_programa-t281315.0.html

[Seba]

agus, tené en cuenta que PrevInstance no sirve en el caso de que alguien modifique el nombre  o la ruta del ejecutable, si bien esto se puede manejar con App.EXEName y App.Path lo correcto seria CreateMutex. como te indica Seba o que adaptes el code de byway.

Un saludo agus 

PrevInstance  no sirve si cambian de nonbre o ruta

Código [Seleccionar] Expandir



Option Explicit

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

Private Sub Form_Load()

Dim CaptionVerdadero As String: CaptionVerdadero = Me.Caption

If App.PrevInstance Then
 Me.Caption = "INSTANCIA 2"
 Call ShowWindow(FindWindow(vbNullString, CaptionVerdadero), 1)
 Call SetForegroundWindow(FindWindow(vbNullString, CaptionVerdadero))
 End
End If

End Sub





Fijate esto

http://foro.elhacker.net/empty-t261721.0.html

Que pena sebas , Uno de los dos esta equivicado de foro

http://foro.elhacker.net/analisis_y_diseno_de_malware-b17.0/

http://foro.elhacker.net/ingenieria_inversa-b26.0/

Código [Seleccionar] Expandir



Private Sub Command1_Click()
  Dim s() As String: s = Split(Text1, vbNewLine)
  Dim x As Integer: For x = 0 To UBound(s) - 1: MsgBox s(x): Next x
End Sub



Un split y un for son suficientes.

UBound(s) - 1

Código [Seleccionar] Expandir



Private Sub Command1_Click()
  Dim s() As String: s = Split(Text1, vbNewLine)
  Dim x As Integer: For x = 0 To UBound(s) - 1: MsgBox s(x): Next x
End Sub