Mensajes

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:

Código (vb) [Seleccionar] Expandir

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:
   

Código (vb) [Seleccionar] Expandir

x = ArcSin( Sin( x ) )
y

Código (vb) [Seleccionar] Expandir

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.

Código (vb) [Seleccionar] Expandir


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)]>