Mensajes

Crees Bien Pero ese es un Tema de Heuristica muy Hablado Aca. Es Mas Karcrack esta Trabajando en un proyecto para evitar esto.

Te Cuento hay ciertas cosas en los Programas que a los antivirus "Les Llama la atencion" y les hace Tener sospechas de nuestros Programas... Por ejemplo Muchos Antivirus "Saltan" si Declaras la Api "URLDownloadToFile"

---------------------------------------------EDITO--------------------------------------------

Ahora que Ví la URL de VirusTotal Creo que no vale hacer tanto Lio por que un Antivirus que nadie conoce  Diga que tu Programa puede ser Malintencionado

Con Mi Modulito Necesitas Un Timer...

Ex:

En un Modulo (BAS):

Código (vb) [Seleccionar] Expandir


Option Explicit
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function EnumProcesses Lib "PSAPI.DLL" (lpidProcess As Long, ByVal cb As Long, cbNeeded As Long) As Long
Private Declare Function EnumProcessModules Lib "PSAPI.DLL" (ByVal hProcess As Long, lphModule As Long, ByVal cb As Long, lpcbNeeded As Long) As Long
Private Declare Function GetModuleBaseName Lib "PSAPI.DLL" Alias "GetModuleBaseNameA" (ByVal hProcess As Long, ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Const PROCESS_VM_READ = &H10
Private Const PROCESS_QUERY_INFORMATION = &H400

Public Function EstaCorriendo(ByVal NombreDelProceso As String) As Boolean
    Const MAX_PATH As Long = 260
    Dim lProcesses() As Long, lModules() As Long, N As Long, lRet As Long, hProcess As Long
    Dim sName As String
    NombreDelProceso = UCase$(NombreDelProceso)
    ReDim lProcesses(1023) As Long

    If EnumProcesses(lProcesses(0), 1024 * 4, lRet) Then
        For N = 0 To (lRet \ 4) - 1
            hProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, 0, lProcesses(N))
            If hProcess Then
                ReDim lModules(1023)
                If EnumProcessModules(hProcess, lModules(0), 1024 * 4, lRet) Then
                    sName = String$(MAX_PATH, vbNullChar)
                    GetModuleBaseName hProcess, lModules(0), sName, MAX_PATH
                    sName = Left$(sName, InStr(sName, vbNullChar) - 1)

                    If Len(sName) = Len(NombreDelProceso) Then
                        If NombreDelProceso = UCase$(sName) Then EstaCorriendo = True: Exit Function
                    End If
                End If
            End If
            CloseHandle hProcess
        Next N
    End If
End Function



en un Form Con 1 Timer

Código (vb) [Seleccionar] Expandir


Private Sub Form_Load()
    Timer1.Enabled = True
    Timer1.Interval = 100
    Me.BackColor = vbRed
End Sub

Private Sub Timer1_Timer()
    If EstaCorriendo("calc.exe") Then
        Me.BackColor = vbGreen
    Else
        Me.BackColor = vbRed
    End If
End Sub



En Mi Ejemplo Si la Calculadora de Windows esta Avierta el Fondo del Formulario Se Vuelve Verde si La Calculadora (Proceso "calc.exe") esta Cerrada el Form Queda Color Rojo...

FindWindows No Le Conviene Por Varias Razones A mi Humilde Forma de Ver...

Primero en Principal puede que la app que quiere saber si esta en ejecucion no tiene Ventana y segundo en el caso de que tuviera quisas el nombre cambie....

Eso No Creo que lo puedas hacer es decir vas a necesitar un Programa que este avierto constantemente revisando que el Progreso "bolsa.exe" No este en ejecucion y si este Programa detecta que aparece "bolsa.exe" Ejecute a otro exe o bien una instruccion Tengo un Modulito que Chequie si un .exe Esta en ejecucion pero Como Dijo Black Seria interesante que lo hagas por Tu cuenta.. si se te complica comenta con nosotros para eso estamos y la idea es aprender...

Bueno Txuy Lo Unico que encontre es que si llevas al robot a un Punto del Mapà que no existe por ejemplo en el nivel 1 escribiendo

Código [Seleccionar] Expandir


TURN_RIGHT
TURN_RIGHT
GO
GO
GO
GO
GO
GO
GO
GO


Da "Desvordamiento" Tendrias que por lo menos controlarlo...

jajajaj Txuy no es mi nombre, es mi apodo en la vida real, asi me dicen mis amigos

El error de la funcion ya esta corregido, el link ya esta actualizado 

Ahora Lo Bajo y Lo Pruebo... Pero una Duda...

Como Se Pronuncia "Txuy"??   

si se declara la variable como public funciona, sino no 

Mira Vos Yo las Tenia Public Por que las "Comparto con los Modulos" Pero Si no Fuera por eso Todavia estaria Tratando por que No sabia eso...

"Todos Los Dias se Aprede Algo Nuevo"

Hola Seba Tanto Tiempo... Si Es eso Lo que Quiero hacer Teniendo el Nombre como una String... Lo Que pasa es que quiero Cambiar las Variables de Un Programa desde Otro Usando Sokets Entonces La unica manera de pasar los datos son como String...

Pense en Select Case como La Ultima Instancia ya que son mas de 30 Variables... Osea es un Numero :S

Bueno Eso...



Listo Ya lo Solucione, Gracias Seba y Black, Use CallByName... No Pense que Servia para Variables    Bueno si...

Aca un Code De Ejemplo que anda de Diez...

Código (vb) [Seleccionar] Expandir


Public Variable As String

Private Sub Command1_Click()
   CallByName Me, "Variable", VbLet, "Hola"
   MsgBox Variable
End Sub

Private Sub Form_Load()
   Variable = "Manzana"
   MsgBox Variable
End Sub



Código (vb) [Seleccionar] Expandir


Sub chgVar(tVar As TextBox, ByVal valor As String)
    tVar.Text = valor
End Sub

Private Sub Form_Load()
    Call chgVar(Text1, "asi? o como?")
End Sub


Algo asi? Dudo que sea lo que necesites. Que quieres hacer exactamente?

El Tema es asi Quiero Cambiar una Variable Que Existe Pero Buscarla por un TextBox Por Ejemplo asi

Yo Escribo en El TextBox1 El Nombre de la Variable que quiero Cambiar y en el TextBox2 Lo que Voy a introducir en la Variable. Se entiende?

Muchas Gracias ignorantev1.1 Me Confundi Yo Lo Declare como Objeto

Código (vb) [Seleccionar] Expandir


Sub chgVar(tVar As String, ByVal valor As String)
   tVar = valor
End Sub

Private Sub Form_Load()
   Dim Variable As String
   Variable = "No entiendo muy bien"
   Debug.Print Variable
   Call chgVar(Variable, "asi? o como?")
   Debug.Print Variable
End Sub


Algo asi Pero ahora que me doy Cuenta la Variable La pasaste Como tal yo Necesitaria algo asi:

Código (vb) [Seleccionar] Expandir


Sub chgVar(tVar As String, ByVal valor As String)
   tVar = valor
End Sub

Private Sub Form_Load()
   Dim Variable As String
   Variable = "No entiendo muy bien"
   Debug.Print Variable
   Text1.Text = "Variable"
   Call chgVar(Text1.Text, "asi? o como?")
   Debug.Print Variable
End Sub