287 lines
8.9 KiB
PHP
287 lines
8.9 KiB
PHP
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; ;;
|
|
;; Copyright (C) KolibriOS team 2010-2015. All rights reserved. ;;
|
|
;; Distributed under terms of the GNU General Public License ;;
|
|
;; ;;
|
|
;; VNC client for KolibriOS ;;
|
|
;; ;;
|
|
;; Written by hidnplayr@kolibrios.org ;;
|
|
;; ;;
|
|
;; GNU GENERAL PUBLIC LICENSE ;;
|
|
;; Version 2, June 1991 ;;
|
|
;; ;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
BTN_H equ 22
|
|
TEXT_ECX equ 00010000b shl 24 + 0
|
|
|
|
draw_gui:
|
|
mcall 67, 160, 160, 330, 100 ; resize and move the window
|
|
mcall 66, 1, 0 ; switch keyboard to ascii mode
|
|
.first_time:
|
|
mcall 40, EVM_MOUSE + EVM_MOUSE_FILTER + EVM_REDRAW + EVM_BUTTON + EVM_KEY
|
|
|
|
.redraw:
|
|
mcall 12, 1 ; start window draw
|
|
; DRAW WINDOW
|
|
xor eax, eax ; function 0 _logon: define and draw window
|
|
mov ebx, 160 shl 16 + 330 ; [x start]:[x size]
|
|
mov ecx, 160 shl 16 + 130 ; [y start]:[y size]
|
|
mov edx, 0x34DDDDDD ; color of work area RRGGBB
|
|
mov edi, name ; WINDOW LABEL
|
|
mcall
|
|
|
|
cmp [status], STATUS_CONNECTING
|
|
ja .login?
|
|
|
|
mov ebx, 10 shl 16 + 22
|
|
mov ecx, TEXT_ECX
|
|
mov edx, serverstr
|
|
mov esi, userstr-serverstr
|
|
mcall 4 ; "server" text
|
|
|
|
invoke edit_box_draw, URLbox ; Server textbox
|
|
|
|
cmp [status], STATUS_CONNECTING
|
|
jne @f
|
|
|
|
mov ebx, 220 shl 16 + 85
|
|
mov ecx, 57 shl 16 + BTN_H
|
|
mov edx, 4
|
|
mov esi, 0xCCCCCC
|
|
mcall 8 ; Cancel button
|
|
|
|
mov ebx, 240 shl 16 + 62
|
|
mov ecx, TEXT_ECX
|
|
mov edx, cancelstr
|
|
mov esi, okstr-cancelstr
|
|
mcall 4 ; Cancel button text
|
|
|
|
jmp .redraw_done
|
|
|
|
@@:
|
|
cmp [status], STATUS_CONNECT
|
|
jne .redraw_done
|
|
|
|
mov ebx, 220 shl 16 + 85
|
|
mov ecx, 57 shl 16 + BTN_H
|
|
mov edx, 2
|
|
mov esi, 0xCCCCCC
|
|
mcall 8 ; Connect button
|
|
|
|
mov ebx, 236 shl 16 + 62
|
|
mov ecx, TEXT_ECX
|
|
mov edx, connectstr
|
|
mov esi, loginstr-connectstr
|
|
mcall 4 ; Connect button text
|
|
|
|
jmp .redraw_done
|
|
|
|
.login?:
|
|
cmp [status], STATUS_LOGIN
|
|
ja @f
|
|
|
|
mov ebx, 10 shl 16 + 12
|
|
mov ecx, TEXT_ECX
|
|
mov edx, userstr
|
|
mov esi, passstr-userstr
|
|
mcall 4 ; "user" text
|
|
|
|
add bl, 25
|
|
mov edx, passstr
|
|
mov esi, connectstr-passstr ; "password" text
|
|
mcall
|
|
|
|
invoke edit_box_draw, USERbox ; username textbox
|
|
invoke edit_box_draw, PASSbox ; password textbox
|
|
|
|
cmp [status], STATUS_REQ_LOGIN
|
|
jne .redraw_done
|
|
|
|
mov ebx, 220 shl 16 + 85
|
|
mov ecx, 67 shl 16 + BTN_H
|
|
mov edx, 3
|
|
mov esi, 0xCCCCCC
|
|
mcall 8 ; Login button
|
|
|
|
mov ebx, 120 shl 16 + 85
|
|
mov ecx, 67 shl 16 + BTN_H
|
|
mov edx, 4
|
|
mov esi, 0xCCCCCC
|
|
mcall 8 ; Cancel button
|
|
|
|
mov ebx, 240 shl 16 + 71
|
|
mov ecx, TEXT_ECX
|
|
mov edx, loginstr
|
|
mov esi, cancelstr-loginstr
|
|
mcall 4 ; Login button text
|
|
|
|
mov ebx, 140 shl 16 + 71
|
|
mov edx, cancelstr
|
|
mov esi, okstr-cancelstr
|
|
mcall 4 ; Cancel button text
|
|
|
|
jmp .redraw_done
|
|
|
|
@@:
|
|
cmp [status], STATUS_DISCONNECTED
|
|
jb .redraw_done
|
|
|
|
mov ebx, 15 shl 16 + 10
|
|
mov ecx, 0x00ca0000 ; red ASCIIZ string
|
|
mov edx, [status]
|
|
sub edx, 10
|
|
mov edx, [err_msg+4*edx]
|
|
.restart:
|
|
xor esi, esi
|
|
.pr_loop:
|
|
cmp byte[edx+esi], 0
|
|
je .last
|
|
cmp byte[edx+esi], 0x0a
|
|
je .print
|
|
inc esi
|
|
jmp .pr_loop
|
|
.print:
|
|
mcall 4
|
|
add edx, esi
|
|
inc edx
|
|
add ebx, 10
|
|
jmp .restart
|
|
.last:
|
|
mcall 4 ; print error message to window
|
|
|
|
mov ebx, 220 shl 16 + 85
|
|
mov ecx, 47 shl 16 + BTN_H
|
|
mov edx, 5
|
|
mov esi, 0xCCCCCC
|
|
mcall 8 ; OK button
|
|
|
|
mov ebx, 256 shl 16 + 52
|
|
mov ecx, TEXT_ECX
|
|
mov edx, okstr
|
|
mov esi, okstr_e-okstr
|
|
mcall 4 ; OK button text
|
|
|
|
.redraw_done:
|
|
and [work], not WORK_GUI
|
|
mcall 12, 2
|
|
|
|
.loop:
|
|
test [work], WORK_GUI
|
|
jnz .redraw
|
|
cmp [status], STATUS_CONNECTED
|
|
je connected
|
|
|
|
mcall 23, 10 ; wait for event
|
|
dec eax ; redraw request ?
|
|
jz .redraw
|
|
dec eax ; key in buffer ?
|
|
jz .key
|
|
dec eax ; button in buffer ?
|
|
jz .btn
|
|
sub eax, 3
|
|
jz .mouse
|
|
jmp .loop
|
|
|
|
|
|
.key: ; key event handler
|
|
mcall 2 ; read key
|
|
|
|
cmp [status], STATUS_CONNECT
|
|
jne @f
|
|
test [URLbox.flags], ed_focus
|
|
jz mainloop
|
|
cmp ah, 13 ; enter (return) key
|
|
je .connect
|
|
invoke edit_box_key, URLbox
|
|
jmp .loop
|
|
@@:
|
|
cmp [status], STATUS_REQ_LOGIN
|
|
jne @f
|
|
cmp ah, 13 ; enter (return) key
|
|
je .login
|
|
invoke edit_box_key, USERbox
|
|
invoke edit_box_key, PASSbox
|
|
jmp .loop
|
|
@@:
|
|
cmp [status], STATUS_DISCONNECTED
|
|
jb @f
|
|
cmp ah, 13
|
|
je .ok
|
|
@@:
|
|
jmp .loop
|
|
|
|
.btn:
|
|
mcall 17 ; get id
|
|
|
|
cmp ah, 1 ; close ?
|
|
jz .close
|
|
cmp ah, 2 ; connect ?
|
|
je .connect
|
|
cmp ah, 3 ; login ?
|
|
je .login
|
|
cmp ah, 4
|
|
je .cancel
|
|
cmp ah, 5
|
|
je .ok
|
|
|
|
jmp .loop
|
|
|
|
.connect:
|
|
mov eax, [URLbox.pos]
|
|
mov byte[serveraddr+eax], 0
|
|
call open_connection
|
|
jmp .loop
|
|
|
|
.login:
|
|
mov [status], STATUS_LOGIN
|
|
or [work], WORK_GUI
|
|
jmp .loop
|
|
|
|
.cancel:
|
|
mcall 18, 18, [thread_id] ; kill thread
|
|
.ok:
|
|
cmp [status], STATUS_LIB_ERR
|
|
je .close
|
|
|
|
and [URLbox.flags], not ed_disabled
|
|
mov [USERbox.size], 0
|
|
mov [PASSbox.size], 0
|
|
mov [status], STATUS_CONNECT
|
|
mov [name.dash], 0
|
|
mcall 71, 1, name ; reset window caption
|
|
or [work], WORK_GUI
|
|
jmp .loop
|
|
|
|
.mouse:
|
|
cmp [status], STATUS_CONNECT
|
|
jne @f
|
|
invoke edit_box_mouse, URLbox
|
|
@@:
|
|
cmp [status], STATUS_REQ_LOGIN
|
|
jne @f
|
|
invoke edit_box_mouse, USERbox
|
|
invoke edit_box_mouse, PASSbox
|
|
@@:
|
|
jmp .loop
|
|
|
|
.close:
|
|
mov [status], STATUS_CLOSED
|
|
mcall -1
|
|
|
|
|
|
open_connection:
|
|
|
|
or [URLbox.flags], ed_disabled
|
|
mov [status], STATUS_CONNECTING
|
|
|
|
; Create network thread
|
|
mcall 51, 1, thread_start, thread_stack
|
|
cmp eax, -1
|
|
jne @f
|
|
mov [status], STATUS_THREAD_ERR
|
|
@@:
|
|
mov [thread_id], eax
|
|
or [work], WORK_GUI
|
|
|
|
ret |