<!-- begin banner code -->

<table bgcolor="#000000" align="center" border="0" cellpadding="1" cellspacing="0" width="728">
<tr>
<td width="100%">
    <table background="/nf-images/nf_back.gif" border="0" cellpadding="0" cellspacing="0" width="100%" bgcolor="#E7E7E7">
    <tr>
 
        <td width="10%">
        <a href="http://www.netfirms.com"><img alt="Free Web Hosting by Netfirms" align="absmiddle" border="0" src="/nf-images/Freewebhosting.gif" width="184" height="24"></a><br />
        </td>

        <td width="90%">

        <font size="2"><a href="http://www.netfirms.com">Web Hosting by <b>Netfirms</b></a> | <a href="http://www.netfirms.com/domain-names">Free Domain Names by <b>Netfirms</b></a></font>
        </td>

    </tr>
    </table>   
    
</td>
</tr>
</table>

<table align="center" border="0" cellpadding="1" cellspacing="0" width="728">
<tr>
<td width="100%">

<img src="/nf-images/freewebhosting.webhosting.asis" width="1" height="3"><br />

<script type="text/javascript"><!--
google_ad_client = "pub-3488059345083622";
google_ad_width = 728;
google_ad_height = 90;
google_ad_format = "728x90_as";
google_ad_type = "text_image";
google_ad_channel = "";
google_color_border = "FFFFFF";
google_color_bg = "FFFFFF";
google_color_link = "0000FF";
google_color_text = "000000";
google_color_url = "008000";
//-->
</script>
<script type="text/javascript"
 src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>


</td>
</tr>
</table>

<!-- end banner code -->
;-install.asm v0.2-----------------------------------------------------------
;          x86 - Dos & Win32 - Assembly Language Programming                ;
;                                                                           ;
; Written by: John A Lyons                                                  ;
; Email     : sysop@megablast.8k.com                                        ;
; Page      : http://asmsource.cjb.com                                      ;
; Compiler  : Masm32 v6.15 Microsoft Macro Assembler                        ;
; Date      : 7-Jan-2002                                                    ;
; Purpose   : Install a bunch of files to a folder.                         ;
;                                                                           ;
;   v0.1    : Reads in the install.ini file, and prints out the files that  ;
; (3Feb02)     will be created. Nothing useful yet                          ;
;   v0.2    :                                                               ;
; (3Feb02)                                                                  ;
;                                                                           ;
;                                                                           ;
;----------------------------------------------------------------------------

.386
.MODEL  FLAT , STDCALL
option casemap:none

include windows.inc
include user32.inc
include kernel32.inc
include shell32.inc
include gdi32.inc
includelib user32.lib
includelib kernel32.lib
includelib shell32.lib
includelib gdi32.lib
include wsock32.inc
includelib wsock32.lib


; procedures declared later
WinMain         proto :DWORD,:DWORD,:DWORD,:DWORD
AboutDlgProc         proto hWnd:HWND,iMsg:DWORD,wParam:WPARAM, lParam:LPARAM
iniscan         proto  hWnd:HWND
openini         proto  hWnd:HWND

.data
ClassName       db "DLGCLASS",0
MenuName        db "MyMenu",0
DlgName         db "MainDialog",0
AppName         db "Install Class",0
AbtName         db "AboutDialog",0
progfile	db "C:\Program Files\",0
buff            db 256 dup(?)

num1            db "%%"
errornum        db "Error "
num2            db "%lu",0

hInstance       HINSTANCE ?
CommandLine     LPSTR ?
mem1            db "Load %"
menuhand        DWORD ?
first           BOOL FALSE

;about data
hwnd            HWND ?
hover           BOOL ?

listno		DWORD ?

hFinger         dd ?
orgStatic       dd ?
hwndDlg         dd ?
szOpen          db "open",0
szname		db "Name",0

;ini info
filehand1       dword ?
memhand         dword ?
filesize        dword ?
mem             dword ?
sizeread        dword ?
temp		DWORD ?
memdata         dword ?
parts           dword ?
memmax          dword ?
index           dword ?
mainhwnd	dword ?

Child1Name      DB "IDD_CHILD1",0
Child2Name      DB "INSTALL",0

Child1hWnd      HANDLE ?
Child2hWnd      HANDLE ?

.const

;buttons
IDC_NEXT        equ 3000
IDC_PREV        equ 3001
IDC_EXIT        equ 32003

;menu
IDM_UPDATE      equ 32000
IDM_EXIT        equ 32003
IDM_ABOUT       equ 32002

;dialog

IDI_ICON1       equ 5
IDC_URL         equ 9
IDI_CUR1        equ 101

;ini info
ininame         db "install.ini",0

inidata         db "acco"
                db "smtp"
                db "pop3"
                db "name"
                db "pass"
;inidata2        dword 502,504,505,507,508,509


.code
start:
	invoke GetModuleHandle, NULL
	mov    hInstance,eax
	invoke GetCommandLine
	invoke WinMain, hInstance,NULL,CommandLine, SW_SHOWDEFAULT
	invoke ExitProcess,eax
WinMain proc hInst:HINSTANCE,hPrevInst:HINSTANCE,CmdLine:LPSTR,CmdShow:DWORD
	LOCAL wc:WNDCLASSEX
	LOCAL msg:MSG
	LOCAL hDlg:HWND
	mov   wc.cbSize,SIZEOF WNDCLASSEX
	mov   wc.style, CS_HREDRAW or CS_VREDRAW
	mov   wc.lpfnWndProc, OFFSET WndProc
	mov   wc.cbClsExtra,NULL
	mov   wc.cbWndExtra,DLGWINDOWEXTRA
	push  hInst
	pop   wc.hInstance
	mov   wc.hbrBackground,COLOR_BTNFACE+1
	mov   wc.lpszMenuName,NULL;OFFSET MenuName
	mov   wc.lpszClassName,OFFSET ClassName
        invoke LoadIcon, hInstance, IDI_ICON1
	mov   wc.hIcon,eax
	mov   wc.hIconSm,eax
        invoke LoadCursor,NULL,IDC_ARROW
	mov   wc.hCursor,eax
	invoke RegisterClassEx, addr wc

	invoke CreateDialogParam,hInstance,ADDR DlgName,NULL,NULL,NULL
	;invoke CreateDialogParam,hInstance,ADDR Child2Name,NULL,NULL,NULL
	mov   hDlg,eax

	INVOKE ShowWindow, hDlg,SW_SHOWNORMAL
	INVOKE UpdateWindow, hDlg


	.WHILE TRUE
                INVOKE GetMessage, ADDR msg,NULL,0,0
                .BREAK .IF (!eax)
                invoke IsDialogMessage, hDlg, ADDR msg
                .if eax==FALSE
                        INVOKE TranslateMessage, ADDR msg
                        INVOKE DispatchMessage, ADDR msg
                .endif
	.ENDW
	mov     eax,msg.wParam
	ret
WinMain endp
AddCol proc hwndListView:DWORD, iColIndex:DWORD, iColMask:DWORD, iColFormat:DWORD, iColImage:DWORD, iColWidth:DWORD, pszColText:DWORD
        LOCAL lcNew:LVCOLUMN

        mov eax,[iColMask]
        mov [lcNew.imask],eax
        mov eax,[iColImage]
        mov [lcNew.iImage],eax
        mov eax,[iColFormat]
        mov [lcNew.fmt],eax
        mov eax,[iColWidth]
        mov [lcNew.lx],eax
        mov eax,[iColIndex]
        mov [lcNew.iSubItem],eax

	mov	eax, [pszColText]
	mov	[lcNew.pszText], eax

	invoke	lstrlen, eax
	mov	[lcNew.cchTextMax], eax
	and	[lcNew.iOrder], 0

	invoke	SendMessage, [hwndListView], LVM_INSERTCOLUMN, [iColIndex], ADDR lcNew

	ret
AddCol endp
AddItem proc hwndListView:DWORD, iItemIndex:DWORD, iSubItemIndex:DWORD, iItemMask:DWORD, iItemImage:DWORD, iItemIndent:DWORD, lParam:DWORD, pszItemText:DWORD, lenItemText:DWORD, bAction:BYTE
        LOCAL liNew:LV_ITEM

        mov eax, [iItemMask]
        mov [liNew.imask],eax

        mov eax,[iItemIndex]
        mov [liNew.iItem],eax

        mov eax, [iSubItemIndex]
        mov [liNew.iSubItem],eax

        mov eax, [iItemImage]
        mov [liNew.iImage],eax

        mov eax,[lParam]
        mov [liNew.lParam],eax

	mov	edx, [pszItemText]
	mov	[liNew.pszText], edx

	mov	eax, [lenItemText]
	mov	[liNew.cchTextMax], eax

	.if !eax
		invoke	lstrlen, edx
		mov	[liNew.cchTextMax], eax
	.endif
	and	[liNew.state], 0
	and	[liNew.stateMask], 0

	.if ![bAction]
		invoke	SendMessage, [hwndListView], LVM_INSERTITEM, 0, ADDR liNew
	.else
		invoke	SendMessage, [hwndListView], LVM_SETITEM, 0, ADDR liNew
	.endif
	ret
AddItem endp

WndProc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM

        mov eax,uMsg
        .if ax==WM_GETMINMAXINFO ; 24

                cmp first,FALSE
                jne nob1
                invoke GetMenu,hWnd
                mov menuhand,eax

                invoke DefWindowProc,hWnd,uMsg,wParam,lParam

                invoke openini,hWnd
                mov eax,mem
                mov memdata,eax

                mov index,1
                ret
        .ELSEIF ax==WM_INITDIALOG
                ;call openini
                ;mov eax,mem
                ;mov memdata,eax

                ;push eax
                ;push offset num1
                ;push offset buff
                ;call wsprintfA
                ;
                ;invoke SendDlgItemMessage, hWnd, 506, WM_SETTEXT, 0,ADDR buff
                invoke GetWindowsDirectory,addr buff,256
                invoke SendDlgItemMessage, hWnd, 32000, WM_SETTEXT, 0,ADDR buff
                invoke SetWindowText,hWnd,ADDR buff
        	mov eax,hWnd
        	mov [mainhwnd],eax
        	invoke GetCurrentDirectory,255,addr buff
        	mov al,[buff]
        	mov [progfile],al

        	MOV EAX,OFFSET GraphDlgProc
                INVOKE CreateDialogParam,hInstance,OFFSET Child2Name,hWnd,EAX,0
                MOV Child2hWnd,EAX


                ;INVOKE ShowWindow,Child2hWnd,SW_SHOWDEFAULT
                ;invoke CreateDialogParam,hInstance,ADDR Child2Name,NULL,NULL,NULL

                invoke  AddCol, [32010], 0, LVCF_FMT OR LVCF_WIDTH OR LVCF_TEXT OR LVCF_SUBITEM, LVCFMT_LEFT, 0, 208,ADDR szname


        .ELSEIF ax==WM_ACTIVATE


                ;invoke SendDlgItemMessage, hWnd, 32000, WM_SETTEXT, 0,ADDR progfile
                ;invoke SetWindowText,hWnd,ADDR buff

        	ret
                cmp mem,0
                jne okok2
                mov eax,mem
                mov memdata,eax
                invoke openini,hWnd
okok2:

                invoke iniscan,hWnd

                mov eax,parts
                push eax
                push offset num2
                push offset buff
                call wsprintfA

                invoke SendDlgItemMessage, hWnd, 506, WM_SETTEXT, 0,ADDR buff

                ret

        .ELSEIF ax==WM_DESTROY
                invoke GlobalFree,memhand
		invoke PostQuitMessage,NULL
                ret

        .ELSEIF ax==WM_COMMAND
		mov eax,wParam
		.IF lParam==0
                         .IF ax==IDM_EXIT
                                invoke DestroyWindow,hWnd
                                ret

                         .ELSEIF ax==32002
                         	invoke MessageBox,hWnd,addr AbtName,addr AbtName,MB_OK
                                ret
                         .ELSEIF ax==IDC_PREV
                                jmp goprev


                         .ELSEIF ax==IDM_ABOUT

                                invoke CreateDialogParam,hInstance, addr AbtName,hWnd,OFFSET AboutDlgProc,NULL
                                mov hwndDlg,eax
                         .ENDIF
		.ELSE
                        .IF ax==IDC_EXIT
                                invoke SendMessage,hWnd,WM_COMMAND,IDM_EXIT,0
                                ret
                         .ELSEIF ax==32002
                         	;invoke MessageBox,hWnd,addr AbtName,addr AbtName,MB_OK

                                invoke CreateDialogParam,hInstance,ADDR Child2Name,NULL,NULL,NULL

                         	call install
                                ret

                         .ELSEIF ax==IDC_NEXT
gonext:
                                mov ebx,index
                                cmp ebx,parts
                                jae toobig

                                mov esi,memdata
                                add esi,4
                                cmp esi,memmax
                                jae toobig
gosi:
                                inc esi
                                cmp esi,memmax
                                je toobig
                                cmp [esi],word ptr 0d0ah
                                jne gosi
                                add esi,3
                                mov memdata,esi
                                inc index

                                invoke iniscan,hWnd
toobig:

                         .ELSEIF ax==IDC_PREV
goprev:
                                mov ebx,index
                                or ebx,ebx
                                jz nodec

                                mov esi,memdata
                                cmp esi,mem
                                je nodec
                                sub esi,4
gosi2:
                                dec esi
                                cmp esi,mem
                                je foundtop
                                cmp [esi],word ptr 0d0ah
                                jne gosi2
                                add esi,3
foundtop:
                                mov memdata,esi
                                dec index

                                invoke iniscan,hWnd
nodec:
			.ENDIF
		.ENDIF
	.ELSE

		invoke DefWindowProc,hWnd,uMsg,wParam,lParam
		ret
	.ENDIF
nob1:
        xor    eax,eax
	ret
WndProc endp

;----------------------------------------------------ABOUT procedure
HyperLinkWndProc PROC uses ebx, hWnd:DWORD,uMsg:DWORD,wParam:DWORD,lParam:DWORD
        LOCAL tmpFont  :LOGFONT
        LOCAL rect:RECT
        LOCAL pt:POINT
        LOCAL ps:PAINTSTRUCT

    mov eax,uMsg
    .IF eax==WM_NCHITTEST
        mov eax, 1                                                  ;We want to handle the non client hit test so we return true or 1
        ret

    .ELSEIF eax == WM_CTLCOLORSTATIC
                push ebx
                push edx

                invoke SendMessage, hWnd, WM_GETFONT, 0, 0
                mov edx,eax
                invoke GetObject, edx, sizeof LOGFONT, addr tmpFont
                mov tmpFont.lfUnderline, TRUE
                invoke CreateFontIndirect, addr tmpFont
                mov ebx,eax
                invoke SelectObject, wParam, ebx

                .if hover == FALSE
                     invoke SetTextColor, wParam, Blue
                .else
                     invoke SetTextColor, wParam,Red
                .endif

                invoke GetSysColor, COLOR_MENU
                invoke SetBkColor, wParam, eax
                invoke DeleteObject,ebx
                invoke GetStockObject, HOLLOW_BRUSH
                pop edx
                pop ebx
                ret

    .ELSEIF eax==WM_MOUSEMOVE
        invoke GetParent,hWnd
        push ebx
        mov ebx,eax
        invoke GetActiveWindow
        .if eax == ebx
                invoke GetCursorPos,addr pt
                invoke GetWindowRect,hWnd,addr rect
                invoke PtInRect,addr rect,pt.x,pt.y
          .if eax
                invoke GetCapture
                .if !eax
                    invoke SetCapture,hWnd
                    mov hover,TRUE
                    invoke InvalidateRect,hWnd,FALSE,FALSE
                    invoke SetCursor,hFinger

                .endif
         .else
                invoke GetCapture

                .if eax
                    invoke ReleaseCapture
                    mov hover,FALSE
                    invoke InvalidateRect,hWnd,FALSE,FALSE
                .endif

         .endif
       .endif
       pop ebx
       xor eax,eax
       ret

    .ELSEIF eax==WM_LBUTTONDOWN

            invoke GetWindowText,hWnd,offset buff,sizeof buff       ;change this for using a preset url
            invoke ShellExecute, NULL, offset szOpen, offset buff, NULL, NULL, SW_MAXIMIZE ;change this to represent your preset url
            mov hover,FALSE
            invoke InvalidateRect,hWnd,FALSE,FALSE

            invoke SendMessage, hWnd, WM_GETFONT, 0, 0                  ;Get the defualt system font
            mov edx,eax                                             ;store result
            invoke GetObject, edx, sizeof LOGFONT, addr tmpFont ;get our font into a logfont structure
            mov tmpFont.lfUnderline, TRUE                   ;under line the link
            invoke CreateFontIndirect, addr tmpFont     ;Create the new font
            mov ebx,eax                             ;We need the return to free the memory later
            invoke SelectObject, wParam, ebx        ;Select our control
            invoke SetTextColor, wParam, Blue          ;change this to change the color of the link


            xor eax,eax
            ret
    .ENDIF

    invoke CallWindowProc, orgStatic, hWnd, uMsg, wParam, lParam
    ret

HyperLinkWndProc endp
AboutDlgProc PROC hWnd:HWND,iMsg:DWORD,wParam:WPARAM, lParam:LPARAM
         LOCAL hdc:DWORD
         LOCAL ps:PAINTSTRUCT
         LOCAL rect:RECT

        mov eax,iMsg
        .if eax==WM_INITDIALOG
                invoke GetDlgItem, hWnd, IDC_URL
                invoke SetWindowLong, eax, GWL_WNDPROC, ADDR HyperLinkWndProc
                mov orgStatic,eax
                invoke LoadCursor,hInstance,IDI_CUR1
                mov hFinger,eax


                xor eax,eax
                ret

        .ELSEIF eax == WM_CTLCOLORSTATIC
                invoke SendMessage,lParam,iMsg,wParam,lParam
                ret
        .elseif eax==WM_CLOSE
		invoke EndDialog,hWnd,NULL
		mov hwndDlg,0

        .elseif eax==WM_COMMAND
                push edx
		mov eax,wParam
		mov edx,eax
		shr edx,16
                .if eax==IDC_EXIT
                      invoke SendMessage,hWnd,WM_CLOSE,NULL,NULL
                      invoke EndDialog,hWnd,NULL
                      mov hwndDlg,0
                .endif
                pop edx
        .else
		mov eax,FALSE
		ret
        .endif
        mov  eax,TRUE
        ret
AboutDlgProc endp

;----------------------------------------------------ABOUT procedure
openini proc hWnd:HWND

        invoke CreateFile,ADDR ininame,\
                GENERIC_READ ,0,\
                NULL,OPEN_EXISTING,FILE_ATTRIBUTE_ARCHIVE,\
                NULL
        cmp eax,INVALID_HANDLE_VALUE
        je notop1

        mov filehand1,eax

        invoke GetFileSize,filehand1,addr temp
        mov filesize,eax

        invoke GlobalAlloc,GMEM_MOVEABLE + GMEM_ZEROINIT,filesize
        mov memhand,eax
        invoke GlobalLock,eax
        mov mem,eax
        mov esi,eax
        mov [esi],dword ptr 1

        invoke ReadFile,filehand1,mem,filesize,addr sizeread,NULL

        mov esi,mem
        mov ecx,filesize
        mov ebx,ecx
        add ebx,esi
        mov memmax,ebx

        xor eax,eax
notset:
        inc esi
        cmp [esi],dword ptr 06f636361h
        jne notset2
        inc eax
notset2:
        loop notset
        inc eax
        mov parts,eax


notop1:
                ret
openini         endp

iniscan proc  hWnd:HWND

        mov esi,memdata

bigtry:
        lea edi,inidata
        xor ecx,ecx

retry:
        mov al,[esi]
        cmp al,[edi]
        jne notit

        xor ch,ch
        push esi
        push edi
retry1:
        inc esi
        inc edi
        mov al,[esi]
        cmp al,[edi]
        jne notit2
        inc ch
        cmp ch,3
        jb retry1


        xor eax,eax
        mov al,cl
        add eax,501

        inc esi
        inc esi

        invoke SendDlgItemMessage, hWnd, eax, WM_SETTEXT, 0,esi
notit2:
        pop edi
        pop esi

notit:
        add edi,4
        inc cl
        cmp cl,6
        jb retry

foundone:
        cmp esi,memmax
        jae overit

        inc esi
        cmp [esi],byte ptr 0ah
        jne foundone

        cmp esi,memmax
        jae overit
        inc esi
        cmp [esi],byte ptr 0dh
        jne bigtry
overit:

                mov eax,index
                push eax
                push offset num2
                push offset buff
                call wsprintfA

                invoke SendDlgItemMessage, hWnd, 507, WM_SETTEXT, 0,ADDR buff
        ret
iniscan endp
install		proc
		LOCAL point:DWORD

		lea edi,buff
		lea esi,progfile
noins1:
		mov ah,[esi]
		or ah,ah
		jz noins
		mov [edi],ah
		inc esi
		inc edi
		jmp noins1
noins:
		mov [point],edi

	        cmp mem,0
                jne okok2
                mov eax,mem
                mov memdata,eax
                invoke openini,mainhwnd
okok2:

                ;invoke iniscan,hWnd

                ;mov eax,parts
                ;push eax
                ;push offset num2
                ;push offset buff
                ;call wsprintfA

                ;invoke SendDlgItemMessage, hWnd, 506, WM_SETTEXT, 0,ADDR buff

		mov esi,[memdata]
		mov ecx,[sizeread]
		;lea edi,buff
		mov edi,[point]
slinea:
		mov ah,[esi]
		cmp ah,0dh
		je endlinea
		mov [edi],ah
		inc esi
		inc edi
		loop slinea

endlinea:
		inc esi
		inc esi
		mov [point],edi
		mov [edi],byte ptr 0
		;inc edi

		push ecx
		invoke CreateDirectory,addr buff,NULL
		cmp eax,TRUE
		je dirok
		invoke GetLastError
		cmp eax,183		;dir exists
		je dirok
		call error

		pop ecx
		jmp noline2
dirok:
		pop ecx

line2:
		;lea edi,buff
		mov edi,[point]
sline:
		mov ah,[esi]
		cmp ah,0dh
		je endline
		mov [edi],ah
		inc esi
		inc edi
		loop sline

endline:
		inc esi
		inc esi
		mov [edi],byte ptr 0
		inc edi


		push ecx

                ;push ecx
                ;push offset num2
                ;push offset buff
                ;call wsprintfA
                ;add esp,0ch

                ;invoke SendDlgItemMessage, hWnd, 507, WM_SETTEXT, 0,ADDR buff
		;invoke MessageBox,mainhwnd,ADDR buff,ADDR buff,MB_OK
		invoke MessageBox,mainhwnd,ADDR buff,ADDR progfile,MB_OK
                invoke  AddItem, [32010], [listno], 0, LVIF_TEXT OR LVIF_PARAM, 0, 0, [listno], ADDR buff, 100, 0

		invoke CreateFile, addr buff,GENERIC_READ+GENERIC_WRITE,FILE_SHARE_READ+FILE_SHARE_WRITE,NULL,CREATE_NEW,0,NULL
		cmp eax,INVALID_HANDLE_VALUE
		jne fileerror


		invoke CloseHandle, eax
fileerror:

		pop ecx

		cmp ecx,2
		jbe noline2
		dec ecx
		dec ecx

		jmp line2
noline2:
		ret
install		endp
error 		proc
                push eax
                push offset errornum
                push offset buff
                call wsprintfA
                add esp,0ch

                ;invoke SendDlgItemMessage, hWnd, 507, WM_SETTEXT, 0,ADDR buff
		invoke MessageBox,mainhwnd,ADDR buff,ADDR buff,MB_OK+MB_ICONEXCLAMATION

		ret
error		endp
GraphDlgProc  PROC SmallhWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM
        LOCAL hdc:DWORD
        LOCAL ps:PAINTSTRUCT

        invoke  AddCol, [32010], 0, LVCF_FMT OR LVCF_WIDTH OR LVCF_TEXT OR LVCF_SUBITEM, LVCFMT_LEFT, 0, 208,ADDR szname


	XOR EAX,EAX
	RET

GraphDlgProc    ENDP

end start