VB6: console get mouse position reading input buffer events -


can me writing code in vb6 reads input buffer events console window? important part mouse cursor position in cells , rows.

i making program in vb6 uses console main gui (or should cui) , can't find example in vb code uses 'input buffer events'.

this example code want it's in c++ , i'm using vb6: https://msdn.microsoft.com/en-us/library/ms685035(v=vs.85).aspx

i have lot of trouble converting code because don't know c++. here other links gave me idea of how start:

here module, have:

private const enable_mouse_input = &h10 private const enable_window_input = &h8 private const enable_extended_flags = &h80  private const std_input_handle = -10& private const std_output_handle = -11&  private const mouse_moved = &h1  private type coord     x integer     y integer end type  private type small_rect     left integer     top integer     right integer     bottom integer end type  type input_record     ieventtype integer     abdata(0 15) byte end type  private type console_screen_buffer_info     dwsize coord     dwcursorposition coord     wattributes integer     srwindow small_rect     dwmaximumwindowsize coord end type  type key_event_record     lkeydown long     irepeatcount integer     ivirtualkeycode integer     ivirtualscancode integer     ichar integer     lcontrolkeystate long end type  type mouse_event_record     cdmouseposition coord     lbuttonstate long     lcontrolkeystate long     leventflags long end type  type focus_event_record     lsetfocus long end type  private declare sub sleep lib "kernel32" (byval dwmilliseconds long) private declare sub copymemory lib "kernel32" alias "rtlmovememory" (pdestination any, psource any, byval lbytecount long)  private declare function allocconsole lib "kernel32" () long private declare function freeconsole lib "kernel32" () long private declare function getstdhandle lib "kernel32" (byval nstdhandle long) long private declare function setconsolemode lib "kernel32" (byval hconsoleoutput long, dwmode long) long private declare function readconsoleinput lib "kernel32" alias "readconsoleinputa" (byval hconsoleinput long, lpbuffer any, byval nlength long, lpnumberofeventsread long) long  '##################################################################################################  private sub main()     allocconsole          dim hconsolein long         dim hconsoleout long          dim ir input_record         dim mer mouse_event_record         dim ret long          hconsolein = getstdhandle(std_input_handle)         hconsoleout = getstdhandle(std_output_handle)          call setconsolemode(hconsoleout, enable_window_input or enable_mouse_input or enable_extended_flags)          dim x long         dim y long                      readconsoleinput hconsolein, mer, 1, ret              select case ir.ieventtype                 case mouse_event                     call copymemory(mer, ir.abdata(0), len(mer))                     x = mer.cdmouseposition.x                     y = mer.cdmouseposition.y                      if msgbox(x & "|" & y, vbokcancel) = vbcancel exit             end select          loop      freeconsole end sub

can please me? kind regards!


Comments

Post a Comment

Popular posts from this blog

html - Outlook 2010 Anchor (url/address/link) -

i'm trying link specific pdf page msoutlook'10 or msword'10, #page=... anchor particularly useful , works fine elsewhere. unfortunately when click [ctr-k] in outlook or winword, links re-formatted assuming unc path. pdf file located on shared drive. using "file:" prefix links open pdf in adobe reader (outside of browser), , "http:" open inside browser. issue seem need open in browser "file:" prefix in order anchor work. know anchors work inside browser. outlook uses windows/explorer default program (based on file extension) seems open in adobe reader neglecting anchor. is aware of solution, link specific page or bookmark of shared-pdf ms outlook and/or winword link? common references: mailermailer.com/...anchor-tags-html-emails campaignmonitor.com/...anchor-links-in-email-newsletters/ stackoverflow.com/...anchor-in-pdf-document
Read more

javascript - Why does running this loop 9 times take 100x longer than running it 8 times? -

consider code: test = function() { } t = new test(); (var = 0; < 8; i++) { result = t instanceof test; } if change number of iterations 8 9 , loop take 100 times longer complete in latest version of firefox (41.0.1). tested on 2 different pcs , magic limit 8. here jsperf test used: http://jsperf.com/instanceof-8-times-vs-9-times does have idea why might happen? seems specific instanceof . not happen if else object, example check property. note: filed bugzilla bug this. jan de mooij mozilla team has posted details in bugzilla thread . here's simplistic interpretation of highly technical answers: in i < 8 case, firefox smart enough hoist result = t instanceof test; statement out of loop (according tests, doesn't seem omit altogether). in i < 9 case, apparently doesn't optimization . why? reason not clear, related fact 9 iterations threshold above function considered "hot" enough run through jit compiler. i < 8 cas...
Read more

Getting gateway time-out Rails app with Nginx + Puma running on Digital Ocean -

following this guide setup app on digital ocean droplet, not working. site not loading , it's throwing: "gateway time-out". the puma server works, since ps aux | grep puma prints: root 15878 0.0 0.4 376832 2168 ? sl 12:50 0:00 puma 2.13.4 (unix:///var/www/myapp/shared/tmp/sockets/myapp-puma.sock) [20150930164940] root 15881 0.0 0.7 903676 3692 ? sl 12:50 0:06 puma: cluster worker 0: 15878 [20150930164940] root 24654 0.0 0.1 11748 916 pts/2 s+ 18:00 0:00 grep --color=auto puma my nginx config: user root; worker_processes 1; events { worker_connections 1024; } http { upstream puma { server unix:///var/www/myapp/shared/tmp/sockets/myapp-puma.sock; } server { listen 80; server_name myapp.com; root /var/www/myapp/current/public; access_log /var/www/myapp/current/log/access.log; error_log /...
Read more