hola
  En mi opinión tu troyano se tornaría bastante sospechoso cuando te envié el audio de la pc victima.

 solo digo.

hola
  Te aconsejo que busques los módulos:

• CSocketMaster.cls
• modSocketMaster.bas
• CDownload.cls

Son complementarios y bastante útiles.
 
                                                                   54¬ i)4 477. <[(x)]>

hola


  El código q pusiste es bastante similar a el que esta en las paginas q deje por ahi arriba. 

 Pero me tome el trabajo de probar con esta =dad que saq con la calculadora científica tu código asi:

 

Private Sub Form_Load()
 Dim ArcSeno_a As Double
 
 ArcSeno_a = ArcSen(Sin(3))
 Text1.Text = ArcSeno_a
 
End Sub
 
Public Function ArcSen(y As Double) As Double
 
 Const pi = 3.14159265358979
 
 If y = 1 Or y = -1 Then
  ArcSen = pi / 2 * Sgn(y)
 Else
  ArcSen = Atn(y / Sqr(1 - y ^ 2))
 End If
 
End Function

 Dime si lo estoy utilizando mal, el valor de text1.text después de haberse ejecutado la función Form_load queda en '0,141592653589793' y tendría que ser  3.
 
 

 holas
 
 Estaba haciendo uno de mis proyc y se me planteo la necesidad de usar estas dos funciones, AcrSen y ArcCos.
 
 Anduve buscando y se encuentra bastante pero no se porque las pruebo y no funcionan como deberían..

 Algunos de los códigos que use son:
 
    ->http://www.a1vbcode.com/snippet-3311.asp
    ->http://www.visiblevisual.com/index.php/AutoCad-VB/ArcTan-ArcCos-ArcSin.html
    y en otras q perdí la dir y tampoko tuvo resultado.

    Las comprobé con las equivalencias:
   
 

x = ArcSin( Sin( x ) )

y
 

x = ArcCos( Cos( x) )

 Si logran sacar o ya tienen algo que pueda hacer esto les pido si pueden publicarlo aka. 

  Gr4(145 S4¬ i)4 477. <[(x)]> . 
 


   
 

Muchisisismas Gracias LeandroA es exactamente lo q buscaba .

mmm
 
gracias
y conocen alguna forma para hacer esto con un listview externo a mi aplicación??

holas

   Como dije lo q busco es obtener la la estructura rect de un item de un ListView x. Me puse a ver un cacho y logre sacar este code.

Public Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
 
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal Hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long
Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Public Declare Function GetParent Lib "user32" (ByVal Hwnd As Long) As Long
 
 
 
Public Function tapRectItem(ByVal lnghWnd As Long, ByVal Index As Integer)
 
 Dim lRet As Long
 Dim tRec As RECT
 
 lRet = SendMessage(lnghWnd, LVM_GETITEMRECT, Index, VarPtr(tRec))
 
 
 
 With Form1.Picture1
 
  .Top = tRec.Top
  .Left = tRec.Left
  .Height = tRec.Bottom - tRec.Top
  .Width = tRec.Right - tRec.Left
 
  .Visible = True
  lRet = SetParent(.Hwnd, lnghWnd)
 End With
 
End Function
 

 El  problema es que no me carga la variable 'trec' con los valores.

Espero puedan ayudarme y desde ya gracias --<[(x)]>-..
 
 

 holas estoy necesitando el esquema de uno de estos adaptadores para construir uno. ya se q se venden y todo eso.

 Les agradecería muchxo a la persona q pueda brindar esto.

 Desde ya muchas gracias saluda att <[(x)]>.

mm
 
 lo q estoy buscando es pasar algo como un pequeño videito en ese DC

 si eso q pusistes no tilda la pc y es rápido puede q me sirva.

holas

 Lo q ando buscando es la forma de obtener el controlador del DC del fondo de pantalla. (hDC)

 No es para sacar la imagen de fondo sino para poner una imagen mía la cual modificaría constante mente mientras el programa este vivo.

 les agradezco por leer, y les agradecería MAS si pudieran poner algo q pueda ayudarme ..

 54¬ui) att: <[(x)]>