Temas

hola compis!, estoy iniciándome en visual basic 6, llegue al punto donde estoy siguiendo un tutorial de base de datos tengo que agregar una referencia.
La captura lo dice todo. Alguno me diría porque me salta este error?, o como puedo solucionarlo. (error al cargar dll) porque??.
saludos y gracias.

veo que no se colgar la imagen, je,je, bueno la referencia es (microsoft activex data objets 2.1 ) tengo visual basic 6 profesional.

Hola colegas!
Exlico un poco el tema, empese hace tiempo con un proyectito.
el tema que siempre estaba trabajando sobre el mismo formulario, en este caso
"frm_main"

Private Sub menudes1_linkClick()

Open App.path & "/" & "loger de infectados.txt" For Append As #1
Write #1, frm_main.Text4.Text & Text5.Text & Label4 & Label10 & Label12       'que agregue dentro del .text (funciona ok)

Ahora quiero que :    del frm_main al hacer click en menudes1_linkClick()
copie del "form1" text2 .text  & text3.text & text4.text 

je si coloco el codigo en el form1 y lo llamo con call esta solucionado!, pero y si quiero hacerlo de el frm_main (el principal???)

Gracias a quien se enrrolle! saludos!

bue ya se que google es quien enseña todo, per creo que tiene que haber algien con un poquito de tiempo y ganas de enrrollarse.
El tema es este alguien me dice que significa este codigo????

Dim WAClase As String 'declaraciones para el boton del inicio onda kitarlo y volver a ponerlo

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

Lo que me tiene intrigado es cuando declaran esas constantes (me explicais algunas??.
Las variables se dan por entendidas.

ah! otra cosita! las apis, como se enteran quienes estan haciendo un programa que apis son llamadas cuando se ejecuta un procedimiento??' de donde se sacan estos datos??, no las apis .Digo las que se necesitan!!

si pregunte alguna burrada lo lamento solo quiero enterarme mas del tema y a si aprender un poco mas!,  muchas gracias y nos vemos!! saludos colegas!!
      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, ByVal hMenu 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

No pido detallado nada , si se enrrolan seagradece!!, es solo que quiero tener una vaga idea y ya leere mas del tema.

bueno acabo de terminar mi primer troyanito !!(basico-pero buenito)(sin delete como queria!!)je,je .
Bueno el server no es detectado por los av que lo scanearon (kim) pero, tengo que meterle algun protector como por ejemplo el themida?? que me recomendais???. saludos cark.-

Me estoy iniciando en visual basic 6 y me copie línea a línea la primera parte de el tutorial creado por xenon.
el problema que tengo es el siguiente: (alguien se anima a pillar mi proyecto  mirarlo y decirme cual es el problema?? ya que no conecta. Dirán que soy muy listillo y lo quiero todo ya funcionando??, pero de verdad que no es así!! este fin de semana eh metido mas de 30 horas entendiendo el código , un colega del foro me dio una manita y corregí un código (que no me de dejaba hacer el exe (en el servidor)y ahora ya no tengo mas opción por probar (lo ejecute el otro ordena, me canse de hacer netstat _N y na de na!! lo malo es que no quiero dejar esto tirado, ya que si no encuentro el problema  (no tengo conexión (que es la primera parte)y no tiene sentido seguir copiando y tratando de entender mas códigos que no funcionaran "por la conexión".Si alguno se anima le dejo el proyecto ---- sever--  servidor pesan 4.7MB cada uno sin comprimir.
lo que no se se!! es como se los dejo?? pero bueno posteando acá o me mandan un correo a :  cark@lycos.es  Gracias a todos los que se tomaron el trabajo de leer este post pero no tengo mas remedio que publicar un pedido (que hasta vergüenza me da de no poder llegar a solucionarlo!!! je,je,je) saludos!! cark.-

hola estoy siguiendo el tuto de xenon y tengo el problema que no me deja hacer el exe para ver si me funciona la primera parte que es la conexion. dejo el codigo.

Private Sub Ws_DataArrival(ByVal bytesTotal As Long) 'en la llegada de datos
On Error GoTo error     ((((((((((((me da error en esta linea)))))
Dim datos As String
Ws.GetData datos 'metemos e la variable datos los datos que nos lleguen
If datos = "paint" Then Shell ("mspaint") 'si los datos eran = a "paint" entonces ejecuta el paint



el error que me da al querer hacer el exe es : label not definet  (si alguien me hecha un cable lo agradecere ya que el que no pregunta no se entera)saludos.-cark
End Sub

Hola amigos!! que tal?
hace un año y medio ya casi que estoy en el foro.
Recién acabo de registrarme en una pagina ya que su contenido me parecía que estaba bastante bien.
Menuda sorpresa me eh llevado cuando me entere de que puedes adquirir un troyano indetectable pagando!! (aclaro no en esta pagina).
Antes creía que era una estafa, pero ya que pude navegar por estar registrado  me tome unos minutos y efectivamente es verdad que funciona.
Cuanto efuerzo y horas metí en este foro!! y??? cuantas victimas logre?? Todos los tutos de programación de troyanos que encontré me dejaron de culo al viento ,ya que son anti lamer como dicen y errores que hacen que no funcione .
Que a gusto me quedo cuando me tomo el trabajo de copiar línea a línea todo un código fuente y después veo que no funciona!!! (mejodo por no haber estado en su día en el post!! y ahora que?? A quien le pido ayuda?? (ninguno se enrollara en gastar tiempo en un new que tiene un troyano con muchos errores para que no funcione y( no sea  cosa que sea un lamer!!).
Quien fomenta a que los nuevos no terminen pagando un troyano y convertirse en lamer-lamer-lamer.(al punto de no saber nada de na!!).
si aguante un año sin pagar para tener un troyanito indetectable, bien puedo vivir lo que resta de mi vida sin comprar y convertirme en un lamer, pero pregunto yo????
Tan difícil es dejar a gente interesada  tener el código de un puto troyano que después de tomarse el trabajo de copiarlo línea a línea funcione poder aprender-comparar-cotejar el porque de cada declaración??
Que pasa no se puede dejar un código que no tenga la opción delete ??? que tenga unistal y dos chorradas mas como capturar una pantalla y poder seguir con el gusanillo de aprender??
Y si es detectable?? al menos me funciona!!! ya entrare en el foro y le preguntare a quien quiera colaborar en decirme cual es el camino a seguir!,pero si siguen con los anti lamer también seguirán cansando a los new y tomaran la opción de : (comprarse un troyano).
Ojo no quiero ofender a nadie ! es lo que pienso!! yo seguiré en mi misma línea y no entrare en ese saco!! algún tio que piense como yo me tirara un cable, pero no pagare!! quiero aprender, quiero ver como se hace para utilizar a mi victima como proxy (con mi troyano) quiero experimentar! pero por lo que veo la tengo cruda!! que putada no haber tenido computación en el colegio!! no haber aprendido programación en el colegio! .
A ver si con todo esto que escribí encuentro alguien que quiera ayudar de verdad y deja ese código fuente esperado por los new y (ya los tienen enganchados a aprender)ya le dejaron el caramelo!! ya no compraran!! porque no hay nada mas lindo que tener tu satisfacción personal en crear lo que te gusta!.
colegas los dejo y espero que dejen su opinión al respecto!
Saludos.- cark (un new)