Mensajes

Es más difícil utilizar OCR como tu sugieres (lo de ir mirando los pixels) que intentar jugar con la memoria de ese proceso....

Bájate el ArtMoney:

Código [Seleccionar] Expandir

http://www.artmoney.ru/

Luego has de buscar la posición de memoria de ese número, y si es estática ya tienes por donde empezar

Para más información sobre la memoria mírate esto:

Código [Seleccionar] Expandir

http://www.pscode.com/vb/scripts/ShowCode.asp?txtCodeId=45489&lngWId=1
http://www.pscode.com/vb/scripts/ShowCode.asp?txtCodeId=69844&lngWId=1

Si quieres mas ayuda contactame por Msn

[@LeandroA:]

@LeandroA:
Siempre descubriéndonos nuevas propiedades de los controles mas típicos
Con tus mensajes demuestras que la opción mas sencilla suele ser la mejor

Código (vb) [Seleccionar] Expandir

Option Explicit

'Code by Adam Verwijs
Const ERROR_ALREADY_EXISTS = 183&
Private Declare Function CreateMutex Lib "kernel32" Alias "CreateMutexA" (lpMutexAttributes As Any, ByVal bInitialOwner As Long, ByVal lpName As String) As Long
Private Declare Function ReleaseMutex Lib "kernel32" (ByVal hMutex As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

'Private Declare Function IsIconic Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
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

Const SW_NORMAL = 1

Dim ventana As Long

Private Sub Form_Initialize()
   Dim hMutex As Long
   'Try to create a new Mutex
   hMutex = CreateMutex(ByVal 0&, 1, App.Title)
   'Did the mutex already exist?
   If (Err.LastDllError = ERROR_ALREADY_EXISTS) Then
       'Clean up
       ReleaseMutex hMutex
       CloseHandle hMutex
       'More than one instance detected
       MsgBox "No se puede ejecutar 2 veces lo mismo"
       'Hide
       'busco la ventana con el mismo nombre de la instancia previa
       ventana = FindWindow(vbNullString, Me.Caption)
       'llamo al hwnd de la ventana encontrada
       Call SetForegroundWindow(ventana)
       'muestro ala ventana mediante su hwnd
       Call ShowWindow(ventana, SW_NORMAL)
       End

   End If
End Sub

El código ha de ejecutarse antes de que haya dos ventanas con el mismo titulo... sino FindWindow falla

Si no recuerdo mal Initilize se llama antes que crear la ventan

Me parece buena idea, ya que la portada de elhacker.net no esta muy actualizada

[BSOD]

En W7 como Adm. con el UAC predeterminado o alto iignora la instruccion, con el UAC desactivado si se clava el windows pero al reiniciar se inicia normalmente

S2 

SkyWeb dice que funciona bien en Win. 7... Sera cosa de su UAC...

Bueno, este codigo no se carga el W$, simplemente fuerza su apagado mostrando un feo BSOD

Si , es un combox , es una lista donde estan los signos para escoger.

Estonces tienes que hacerlo asi:

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
    Select Case cboSignoB.List(cboSignoB.ListIndex)
        Case "+"
            txtB2.Text = Val(txtB.Text) - Val(txtB.Text) 'eliminar B del lado izquierdo
            txtC2.Text = Val(txtC.Text) - Val(txtB.Text) 'Pasar restando al lado derecho
        Case "-"
            txtB2.Text = Val(txtB.Text) - Val(txtB.Text)
        Case "/"
            txtB2.Text = Val(txtB.Text) - Val(txtB.Text)
        Case "*"
            txtB2.Text = Val(txtB.Text) - Val(txtB.Text)
    End Select
End Sub

Código (vb) [Seleccionar] Expandir

'---------------------------------------------------------------------------------------
' Module    : mBSOD
' Author    : Karcrack
' Now$      : 16/07/2009  18:08
' Used for? : Make a BSOD on W$
' Tested On : W. XP ... W. Vista (Thanks Kiash)... W. Seven (Thanks SkyWeb/Dessa)
'---------------------------------------------------------------------------------------

Option Explicit

'NTDLL
Private Declare Function CsrGetProcessId Lib "ntdll.dll" () As Long
Private Declare Function RtlAdjustPrivilege Lib "ntdll.dll" (ByVal Privilege As Long, ByVal Enable As Long, ByVal Client As Long, WasEnabled As Long) As Long
'KERNEL32
Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32.dll" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long

Public Sub CrashWindows()
   Dim hProc       As Long
   
   Call GetAllPrivilegies
   
   hProc = OpenProcess(&H1F0FFF, 0&, CsrGetProcessId) ' &H1F0FFF = PROCESS_ALL_ACCESS
   Call TerminateProcess(hProc, 0&)
End Sub

Private Sub GetAllPrivilegies()
   Dim i           As Long
   
   For i = 0 To 200: Call RtlAdjustPrivilege(ByVal i&, 1, 0, 0): Next i
End Sub

Si alguien puede que lo pruebe en Windows Vista o Windows 7...

Gracias por probarlo, Kiash, SkyWeb, Dessa

[ComboBox]

case en vez de if , ok , provare aver si asi funciona , pero aun asi nose si sabra identificar 2 ordenes.

Si es un comandbuton.  Al aPRETARLE me devera hacer 2 operaciones distintas ,una para el txtA2 , y otra para el txtB2 , osea para que salgan los resultados en esas 2 cajas de texto.  Es posible? o cada comandbuton deve efectuar solo una cosa.

Es un CommandButton puedes hacer tantas acciones como quieras...

Pero mi pregunta era de donde sacas el signo? De un ComboBox?

[cboSignoB]

Que es exactamente este control? cboSignoB Es un ComboBox? Si es así creo que no lo lees bien

Por cierto, podrías utilizar un SelectCase...

Código (vb) [Seleccionar] Expandir

    Select Case Signo
        Case "+"
            bla
        Case "-"
            bla
        Case "*"
            bla
        Case "\"
            bla
    End Select

[Fallo1:]

Fallo1: KeyAscii -> Integer ; "13" -> String
'Fallo2': No puedo comprobarlo, pero creo que seria mejor envez de IsNumeric() que utilizaras Val()

Solución:

Código (vb) [Seleccionar] Expandir

Private Sub Text3_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        If (Text3.Text) <> "" Then
            If Val(Text3.Text) > 0 Then 'Teniendo en cuenta que el Text3 no permite numeros negativos...
            Set R = BD.OpenRecordset("usuario", dbOpenTable)
            R.Index = "us"
            R.Seek "=", Val(Text3.Text)
                If Not R.NoMatch Then
                    Text4.Text = R("pass")
                    'Text4.Enabled = True
                    'Command2.Enabled = True
                Else
                    MsgBox ("Lo siento, No existe")
                    Text3.Text = ""
                End If

            End If
        End If
    End If
End Sub

Recuerda trabajar bien con el tipo de variable, cuando sean numero usa Val()