Mensajes

esto ya esta hablado, busca en el foro...
lo vas a encontrar en ejemplos donde hay un troyano q crea un server con determinada no-ip, etc

Código
Option Explicit

Public a As Integer

Private Sub Command1_Click()
    a = 5
    If Not IsNumeric(a) Then MsgBox ("Debe ser Numerico"): Exit Sub
    Select Case a
        Case 0 To 9
            MsgBox ("El numero esta entre 0 y 9")
        Case 10 To 19
            MsgBox ("El numero esta entre 10 y 19")
        Case 20 To 29
            MsgBox ("El numero esta entre 20 y 29")
        Case Is >= 30
            MsgBox ("El numero es mayor o igual que 30")
        Case Else
            MsgBox ("Ingresaste un Numero Negativo?? xD")
    End Select
End Sub

tenes toda la razon.. es asi como se hace


esto q habian posteado.. esta mal hecho.. seria como usar el select case como un if.. donde el numero recorreria solo un case, y solo un if...:S

Select Case (a)

case 0 (a >= 0) And (a <= 9)
          sentencias

case 1 (a >= 10) And (a <= 19)
          sentencias

case 2 (a >= 20) And (a <= 29)
          sentencias

mira... yo hice programas q se autoleen, pero no lo podes modificar.. el error tiene q estar ahi, ya q el archivo esta en uso... osea no puedes modificar algo q estas usando...

xq no guardas los datos en un *.txt? o un archivo con otra extension como *.asdf o lo q quieras, tb lo puedes poner oculto..

bueno... mira te voy a dar casi todo ya hecho xD, solamente vas a tener q adaptarlo a lo q vos quieras..

Código (vb) [Seleccionar] Expandir

Private Type POINTAPI
    X As Long
    Y As Long
End Type

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Dim Mouse As POINTAPI

Private Sub Form_Load()
    Timer1.Interval = 100
    Me.FontSize = 10
End Sub

Private Sub Timer1_Timer()
    Call GetCursorPos(Mouse)
    Me.Cls
    Me.Print "Posicion del cursor :"
    Me.Print "X:" + Str$(Mouse.X) + vbCrLf + "Y:" + Str$(Mouse.Y)
End Sub


con eso sacas las coordenadas...


ahora esto es el resto, mover el cursor y hacer clicks..

Código (vb) [Seleccionar] Expandir

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10

'aca para hacer los clicks... segun el evento q quieras.. la verdad no se como hacerlo con F10 asi q te los dejo sin evento...

'asi moves el cursor
SetCursorPos 722, 141

'asi haces un click
mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, cButt, dwEI
mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI


te hago una pregunta... es para otro cheat de AO??? xD

una de dos...
o aprendes a jugar
o aprendes a programar...

pero no sabes ninguna xD

aparte lo preguntaste hace una semana... para q insistir tantoo

mira hice este programa hace un tiempo con la idea de lograr capturas de pantalla de manera mas veloz para mi troyano. mi idea en ese entonces era tomar una captura de pantalla, enviarla al cliente y tb guardarla en el servidor, luego tomar una segunda y compararla ocn la primera y enviar solamente las partes q difieran...
bueno logre poder comparar 2 imagenes pequeñas, pero el problema es q para comparar los screen tienen q estar los dos cargaods en la pantalla... y obviamente en una pantalla no se peuden cargar 2 xD...

en fin el proyecto donde "experimente" quedo asi...
(decime si te sirve)

necesita: un combobox 2 picturebox 2 commandbutton:   (1 caption compara y el 2º limpiar)

Código (vb) [Seleccionar] Expandir

Dim Presionado As Boolean
Dim Color As ColorConstants

Private Sub Combo1_Click()
Select Case Combo1.Text
    Case "Rojo"
    Color = vbRed
    Case "Azul"
    Color = vbBlue
    Case "Verde"
    Color = vbGreen
End Select
End Sub

Private Sub Command1_Click()
Dim Ancho As Integer
Dim Alto As Integer
Dim PixX As Integer
Dim PixY As Integer
Dim PixColor As Double
Dim oPixColor As Double
Alto = Picture1.Height
Ancho = Picture1.Width
Picture1.DrawWidth = 1
Picture2.DrawWidth = 1
For PixX = 1 To Ancho Step 10
    For PixY = 1 To Alto Step 10
    PixColor = Picture1.Point(PixX, PixY)
    oPixColor = Picture2.Point(PixX, PixY)
    If Not PixColor = oPixColor Then
    Color = Picture1.Point(PixX, PixY)
    Picture2.PSet (PixX, PixY), Color
    End If
    Next PixY
Next PixX
Picture1.DrawWidth = 3
Picture2.DrawWidth = 3
End Sub

Private Sub Command2_Click()
Picture1.Cls
Picture2.Cls
End Sub

Private Sub Form_Load()
Picture1.Height = 1500
Picture2.Height = 1500
Picture1.Width = 1500
Picture2.Width = 1500
Picture1.DrawWidth = 3
Picture2.DrawWidth = 3
Picture1.BackColor = vbWhite
Picture2.BackColor = vbWhite
With Combo1
    .AddItem "Rojo"
    .AddItem "Verde"
    .AddItem "Azul"
End With
End Sub


Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Presionado = True
Picture1.CurrentX = X
Picture1.CurrentY = Y
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Presionado = False Then Exit Sub
Picture1.Line -(X, Y), Color
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Presionado = False
End Sub

Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Presionado = True
Picture2.CurrentX = X
Picture2.CurrentY = Y
End Sub

Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Presionado = False Then Exit Sub
Picture2.Line -(X, Y), Color
End Sub

Private Sub Picture2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Presionado = False
End Sub

desp tendrias q modificarlo para q x ejemplo busque los pixeles del picture1 en el picture 2

espero q sirva

SALUDOS

si es cierto.. sino cuando uno mueve el scroll de una, no coincidirian los datos =P

no entendi muy bien el problema pero creo q es algo asi...
x ejemplo en el list tenes

al darle un click
art 1
art 2
art 3

al darle el seg para agregar un 4º item

art 1
art 2
art 3
art 1
art 2
art 3
art 4

en ese caso pone en el evento del command_click al principio

Código (vb) [Seleccionar] Expandir

List1.Clear

si no es eso ni idea xD no te entendi muy bien

mira una vez necesitaba tb hacer busqueda de texto en un string... y no conocia la funcion instr... asi q esto fue lo q hice

Código (vb) [Seleccionar] Expandir

Dim TamTexto As Integer
Dim Texto As String
Dim Caracteres As Byte
Dim Busca As String

Private Sub Command1_Click()
Texto = Text1.Text
TamTexto = Len(Texto)
Busca = Text2.Text
Caracteres = Len(Busca)

Dim i As Integer
For i = 1 To TamTexto
    If Busca = Mid(Texto, i, Caracteres) Then
    Text1.SetFocus
    Text1.SelStart = i - 1
    Text1.SelLength = Caracteres
    End If
Next

End Sub


fijate si te sirve... xq ahi trabajas con una string, y en esta si se pueden cargar esa cantidad de datos