últimos mensajes de: el_c0c0

Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 [9] 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 ... 31

81	Programación / Programación Visual Basic / Re: Duda GetCursorPos	en: 29 Junio 2009, 05:20 am
Cita de: 嘇FSend嘇 en 29 Junio 2009, 03:58 am Exactamente Código Private Sub Timer3_Timer() Dim x As Single Dim y As Single GetCursorPos pt Label3.Caption = "X:" & Str$(pt.x) & " Y:" + Str$(pt.y) End Sub Y ahora mi setcursorpos funciona para toda la pantalla y de manera correcta... La verdad no se si existirá una manera de sustituir mi timer con otra api... Gracias BlackZeroX SetTimer, KillTimer Cobein hizo un modulo de clase para reemplazar al timer comun, usando las apis y subclass. Pero con las apis solas va a funcionar igual! saludos

82	Programación / Programación Visual Basic / Re: no me sale winsock :S	en: 29 Junio 2009, 02:08 am
Cita de: andres_5 en 29 Junio 2009, 00:46 am Cita de: el_c0c0 en 28 Junio 2009, 22:01 pm Cita de: andres_5 en 28 Junio 2009, 21:48 pm ya, vaya braguetazo de Microsoft XD ¿Pero habria alguna forma de evadirlo o quitarto? Gracias con el CSockMaster, sacando la referencia al winsock. saludos Gracias, pero nose si te refieres a esto: Código: Public WithEvents WS1 As CSocketMaster Private Sub Form_Load() Set WS1 = New CSocketMaster End Sub si es esto no me funciona tampoco, y si te refieres a otra cosa no tengo ni idea, podria especificar... *Gracias* es eso. Igual, te debe quedar el winsock como referencia, para eso sacalo desde el menu Proyecto->Componentes. saludos

83	Programación / Programación Visual Basic / Re: no me sale winsock :S	en: 28 Junio 2009, 22:01 pm
Cita de: andres_5 en 28 Junio 2009, 21:48 pm ya, vaya braguetazo de Microsoft XD ¿Pero habria alguna forma de evadirlo o quitarto? Gracias con el CSockMaster, sacando la referencia al winsock. saludos

84	Programación / Programación Visual Basic / Re: TransBar (Barra de Tareas Transparente)	en: 28 Junio 2009, 21:06 pm
yo habia hecho algo asi, hace varios años.. muy simple, por ejemplo transbar.exe (para colmo el mismo nombre) -t 80 osea 80% opaco .. pero en fin, te quedo muy bueno seba! off: leandro alta foto de la firma :\| saludos

85	Programación / Programación Visual Basic / Re: Mi propio troyano	en: 27 Junio 2009, 05:08 am
se que no viene al caso, pero... Cita de: The_Shakah en 26 Junio 2009, 23:53 pm PD: Esa ruta del msn que mencionas es la ruta vieja donde se guardaban las contraseñas en versiones pasadas. Hasta el día de hoy (yo por lo menos) no sé en qué parte se guardan las contraseñas, y si supiera, no conozco ningun programa para desencriptarlas que funcione con la última versión. (Supongo que debe haber alguno, pero yo una vez busque y no encontre nada) cobein posteo uno, muy bueno; y funciona con las nuevas versiones. Cita de: cobein en 27 Junio 2009, 03:40 am Perdon, pero la analogia esa me mato, por poco y se me cae una lagrima. tenemos el ganador del oscar de este año saludos

86	Programación / Programación Visual Basic / Re: CallAPIByName usando solamente rtlMoveMemory	en: 14 Junio 2009, 02:51 am
muy bue aporte cobein.. siempre fumando de la buena para llegar a esto... offtopic: XD con tu firma!

87	Programación / Programación Visual Basic / Re: Encender PC remotamente, no funciona este code	en: 12 Junio 2009, 22:04 pm
Cita de: yovaninu en 12 Junio 2009, 05:00 am ... ~~probaste con algun otro programa?. ademas, la MAC que mencionas es del equipo a prender o de la portatil?~~ EDIT: el problema parece ser a donde estas conectando el sock. yo conecto asi: Código: Set objSockete = New CSocketMaster objSockete.Protocol = sckUDPProtocol objSockete.Connect "255.255.255.255", 40000 saludos

Programación / Programación Visual Basic / Re: Encender PC remotamente, no funciona este code

en: 12 Junio 2009, 03:06 am

fijate este code que uso yo. funciona bien:

Código

Function WOL(ByVal strMac As String, Optional ByVal strPass As String = "")
    Dim strItems() As String
    Dim strSend As String
    Dim strMagic As String
    Dim lngIndex As Long
 
    strItems = Split(strMac, "-")
    strMagic = Chr(CLng("&H" & strItems(0))) & Chr(CLng("&H" & strItems(1))) & Chr(CLng("&H" & strItems(2))) & _
              Chr(CLng("&H" & strItems(3))) & Chr(CLng("&H" & strItems(4))) & Chr(CLng("&H" & strItems(5)))
 
 
    For lngIndex = 1 To 16
        strSend = strSend & strMagic
    Next lngIndex
 
    If Len(strPass) >= 0 Then
        strSend = strSend & strPass
    End If
 
 
    objSockete.SendData strSend
End Function

objSockete=CSockMaster; previamente conectado al dispositivo con protocolo UDP.

a la funciona la llamas asi: WOL "00-16-76-2A-CD-85"
(dejas el segundo valor en blanco en el caso de no tener contraseña)

saludos

89	Programación / Programación Visual Basic / Re: Hide DLL [SRC]	en: 11 Junio 2009, 18:25 pm
Cita de: ctlon en 8 Junio 2009, 21:09 pm Esta bien, pero fijate que aunque la escondas del peb..... prueba a usar EnumProcessModules y divide entre 4 el parametro cb y veras como algo no cuadra . proba el ejemplo de cobein, el ultimo.. fijate que no es como vos decis. luego de ocultarla, aparece una menos. saludos

90	Programación / Programación Visual Basic / Re: TEB y PEB [SRC]	en: 6 Junio 2009, 19:25 pm
muy bueno cobein. lo del IsDebuggerPresent creo que es mejor que usar el api. (hasta que se den cuenta xd) en fin, omitis llamar a 2 o 3 apis conocidas con la info que te da esto. saludos

Páginas: 1 2 3 4 5 6 7 8 [9] 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 ... 31