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.
Cita de: 50l3r en 20 Diciembre 2009, 02:00 AM
esque es una x en forma de estrella
la verdad me sorprende que con tanto tiempo sacado a la luz lo detecten tan pocos
Private Sub Form_Click()
Dim vResultado As Double
vResultado = CDbl(FormatNumber((CDbl(Text1.Text) + CDbl(Text2.Text)) / CDbl(Text3.Text), 4))
MsgBox vResultado
End Sub
Cita de: 50l3r en 20 Diciembre 2009, 01:56 AM
gracias por aportar blackzero
'
' /////////////////////////////////////////////////////////////
' // Web: http://InfrAngeluX.Sytes.Net/ //
' // //
' // |-> Pueden Distribuir Este Codigo siempre y cuando //
' // no se eliminen los creditos originales de este codigo //
' // No importando que sea modificado/editado o engrandesido //
' // o achicado, si es en base a este codigo es requerido //
' // el agradacimiento al autor. //
' /////////////////////////////////////////////////////////////
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const EM_GETLINE = &HC4
Private Const EM_GETLINECOUNT = &HBA
Private Const EM_LINEFROMCHAR = &HC9
Private Const EM_LINEINDEX = &HBB
Private Const EM_LINELENGTH = &HC1
Private vhwnd As Long
Public Property Get Textbox_hwnd() As Long: Textbox_hwnd = vhwnd: End Property
Public Property Let Textbox_hwnd(vData As Long): vhwnd = vData: End Property
Public Function LineCount() As Long
LineCount = SendMessage(vhwnd, EM_GETLINECOUNT, 0&, 0&)
End Function
Public Function LineLen(CharPos As Long)
LineLen = SendMessage(vhwnd, EM_LINELENGTH, CharPos, 0&)
End Function
Public Function GetLineFromChar(CharPos As Long) As Long
GetLineFromChar = SendMessage(vhwnd, EM_LINEFROMCHAR, CharPos, 0&)
End Function
Public Function GetCharFromLine(LineIndex As Long)
If LineIndex < LineCount Then GetCharFromLine = SendMessage(vhwnd, EM_LINEINDEX, LineIndex, 0&)
End Function
Public Function GetLineStr(LineIndex As Long) As String
Dim StrArray() As Byte
Dim lngLineLen As Long
If Not LineIndex >= LineCount Then
lngLineLen = LineLen(GetCharFromLine(LineIndex))
If Not lngLineLen < 1 Then
ReDim StrArray(lngLineLen + 1)
StrArray(0) = lngLineLen And 255
StrArray(1) = lngLineLen \ 256
SendMessage vhwnd, EM_GETLINE, LineIndex, StrArray(0)
GetLineStr = Left$(StrConv(StrArray, vbUnicode), lngLineLen)
End If
End If
End Function
Private Sub Form_Load()
Dim ct As clsTexboX
Dim i As Long
Set ct = New clsTexboX
With Text1
.Text = "Clase By HTTP://InfrAngeluX.Sytes.Net/" & vbCrLf & _
"Miguel" & vbCrLf & _
"Angel" & vbCrLf & _
"Ortega" & vbCrLf & _
"Avila" & vbCrLf & _
"Alias" & vbCrLf & _
"BlackZeroX"
End With
With ct
.Textbox_hwnd = Text1.hwnd
For i = 0 To .LineCount - 1
MsgBox .GetLineStr(i)
Next i
End With
End Sub
' API de Windows SendMessage
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Const EM_GETLINECOUNT = &HBA
Const EM_LINEFROMCHAR = &HC9
Const EM_LINELENGTH = &HC1
Const EM_LINEINDEX = &HBB
Cita de: seba123neo en 5 Septiembre 2009, 02:46 AM
he visto 1000 mas o menos de este tipo, este esta bastante bien porque esta en .NET...pero yo siempre me pregunte ¿hay algun ser humano en el planeta que caiga en este tipo de programas? , tiene que ser un extraterreste que no s pa lo que es el messegner y capaz que caiga, pero alguien que abrio por lo menos 1 vez el messenger ya se da cuenta de que algo no esta bien
