Rev 485 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
31 | halyavin | 1 | ; |
2 | ; NetSend(Client) |
||
661 | ataualpa | 3 | ; |
31 | halyavin | 4 | ; Автор: Hex |
5 | ; Сайт: www.mestack.narod.ru |
||
661 | ataualpa | 6 | ; |
31 | halyavin | 7 | ; Описание: |
8 | ; Программа для обмена сообщениями в сети.Клиентская часть. |
||
9 | ; |
||
10 | ; Compile with FASM for Menuet |
||
11 | ; Компилируется FASM'ом для Менуэт ОС |
||
12 | ; |
||
661 | ataualpa | 13 | |
14 | |||
31 | halyavin | 15 | use32 |
661 | ataualpa | 16 | |
31 | halyavin | 17 | org 0x0 |
661 | ataualpa | 18 | |
131 | diamond | 19 | db 'MENUET01' ; 8 byte id |
20 | dd 1 ; header version |
||
31 | halyavin | 21 | dd START ; program start |
22 | dd I_END ; program image size |
||
131 | diamond | 23 | dd mem ; required amount of memory |
24 | dd mem ; stack pointer |
||
25 | dd 0, 0 ; param, icon |
||
661 | ataualpa | 26 | |
131 | diamond | 27 | include 'lang.inc' |
661 | ataualpa | 28 | include 'macros.inc' |
29 | |||
31 | halyavin | 30 | START: ; start of execution |
661 | ataualpa | 31 | |
31 | halyavin | 32 | mov eax,53 ; open socket |
33 | mov ebx,0 |
||
34 | mov ecx,0x4000 ; local port |
||
35 | mov edx,0x5000 ; remote port |
||
36 | mov esi,dword [remote_ip] ; node IP |
||
485 | heavyiron | 37 | mcall |
661 | ataualpa | 38 | |
31 | halyavin | 39 | mov [socketNum], eax |
131 | diamond | 40 | |
661 | ataualpa | 41 | red: |
31 | halyavin | 42 | call draw_window ; at first, draw the window |
661 | ataualpa | 43 | |
31 | halyavin | 44 | still: |
661 | ataualpa | 45 | |
131 | diamond | 46 | mov eax,10 ; wait here for event |
485 | heavyiron | 47 | mcall |
131 | diamond | 48 | |
49 | dec eax |
||
31 | halyavin | 50 | jz red |
131 | diamond | 51 | dec eax |
52 | jnz button |
||
53 | |||
31 | halyavin | 54 | key: |
131 | diamond | 55 | mov al,2 |
485 | heavyiron | 56 | mcall |
31 | halyavin | 57 | jmp still |
661 | ataualpa | 58 | |
31 | halyavin | 59 | button: |
131 | diamond | 60 | mov al,17 |
485 | heavyiron | 61 | mcall |
661 | ataualpa | 62 | |
131 | diamond | 63 | dec ah ; button id=1 ? |
31 | halyavin | 64 | jnz noclose |
65 | mov eax, 53 |
||
66 | mov ebx, 1 |
||
67 | mov ecx, [socketNum] |
||
485 | heavyiron | 68 | mcall |
69 | or eax,-1 |
||
70 | mcall |
||
31 | halyavin | 71 | noclose: |
131 | diamond | 72 | ; it was not close button, so it must be send code button |
31 | halyavin | 73 | |
74 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
||
75 | ;; ;; |
||
76 | ;; SEND CODE TO REMOTE ;; |
||
77 | ;; ;; |
||
78 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
||
661 | ataualpa | 79 | |
31 | halyavin | 80 | send_xcode: |
81 | |||
82 | mov eax,53 ; SEND CODE TO REMOTE |
||
83 | mov ebx,4 |
||
84 | mov ecx,[socketNum] |
||
85 | mov edx,end_message-send_data |
||
131 | diamond | 86 | mov esi,send_data |
485 | heavyiron | 87 | mcall |
131 | diamond | 88 | |
31 | halyavin | 89 | jmp still |
661 | ataualpa | 90 | |
91 | |||
31 | halyavin | 92 | ; ********************************************* |
93 | ; ******* WINDOW DEFINITIONS AND DRAW ******** |
||
94 | ; ********************************************* |
||
661 | ataualpa | 95 | |
96 | |||
31 | halyavin | 97 | draw_window: |
661 | ataualpa | 98 | |
31 | halyavin | 99 | mov eax,12 ; function 12:tell os about windowdraw |
100 | mov ebx,1 ; 1, start of draw |
||
485 | heavyiron | 101 | mcall |
661 | ataualpa | 102 | |
31 | halyavin | 103 | ; DRAW WINDOW |
104 | mov eax,0 ; function 0 : define and draw window |
||
105 | mov ebx,100*65536+250 ; [x start] *65536 + [x size] |
||
106 | mov ecx,60*65536+150 ; [y start] *65536 + [y size] |
||
661 | ataualpa | 107 | mov edx,0x14ffffff ; color of work area RRGGBB |
485 | heavyiron | 108 | mov edi,title ; WINDOW LABEL |
109 | mcall |
||
661 | ataualpa | 110 | |
111 | |||
31 | halyavin | 112 | mov eax,8 ; SEND MESSAGE |
113 | mov ebx,50*65536+145 |
||
114 | mov ecx,47*65536+13 |
||
115 | mov edx,2 |
||
116 | mov esi,0x667788 |
||
485 | heavyiron | 117 | mcall |
661 | ataualpa | 118 | |
485 | heavyiron | 119 | mov eax,4 |
31 | halyavin | 120 | mov ebx,25*65536+50 ; draw info text with function 4 |
121 | mov ecx,0x000000 |
||
122 | mov edx,text |
||
123 | mov esi,40 |
||
124 | newline: |
||
485 | heavyiron | 125 | mcall |
31 | halyavin | 126 | add ebx,16 |
131 | diamond | 127 | add edx,esi |
31 | halyavin | 128 | cmp [edx],byte 'x' |
129 | jnz newline |
||
661 | ataualpa | 130 | |
31 | halyavin | 131 | mov eax,12 ; function 12:tell os about windowdraw |
132 | mov ebx,2 ; 2, end of draw |
||
485 | heavyiron | 133 | mcall |
661 | ataualpa | 134 | |
31 | halyavin | 135 | ret |
661 | ataualpa | 136 | |
137 | |||
31 | halyavin | 138 | ; DATA AREA |
661 | ataualpa | 139 | |
140 | if lang eq ru |
||
31 | halyavin | 141 | text: |
142 | db ' Послать сообщение ' |
||
143 | db ' ' |
||
144 | db ' Локальный адрес : 192.168.0.1 ' |
||
145 | db ' Удалённый адрес : 192.168.0.2 ' |
||
146 | db 'Текст и адрес в конце исходника ' |
||
131 | diamond | 147 | db 'x' ; <- END MARKER, DONT DELETE |
148 | else |
||
149 | text: |
||
150 | db ' Send message ' |
||
151 | db ' ' |
||
152 | db ' Local address : 192.168.0.1 ' |
||
153 | db ' Remote address : 192.168.0.2 ' |
||
154 | db 'Text and address in end of source ' |
||
155 | db 'x' ; <- END MARKER, DONT DELETE |
||
661 | ataualpa | 156 | end if |
157 | |||
485 | heavyiron | 158 | title db 'NetSend(Client)',0 |
661 | ataualpa | 159 | |
31 | halyavin | 160 | remote_ip db 192,168,1,2 |
661 | ataualpa | 161 | |
31 | halyavin | 162 | send_data db 'Привет,это тест!Hello,this is a test!' |
163 | end_message: |
||
164 | |||
661 | ataualpa | 165 | |
31 | halyavin | 166 | I_END: |
131 | diamond | 167 | align 4 |
168 | socketNum dd ? |
||
169 | |||
170 | rb 32 ; this is for stack |
||
171 | |||
172 | mem:->-> |
||
173 |