🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

1 total messages Started by Eitarou Taniai Mon, 17 Mar 1997 00:00
[Q]$B#V#B$N%=%1%C%HA`:n(J[Winsock]$B$K$*$1$k<ALd(J
#243
Author: Eitarou Taniai
Date: Mon, 17 Mar 1997 00:00
52 lines
1953 bytes
$B$3$s$K$A$O!##J#R#S$NC+9g$H?=$7$^$9!#(J

$B#V#B#4$G(Jwinsock$B$r;HMQ$7$?%/%i%$%"%s%H%W%m%0%i%`$r:n$C$F$$$^$9!#(J
$B%N%s%V%m%C%-%s%07?$G:n$C$F$$$k$N$G!"(JWSAAsynSelect$BJ8$r;HMQ$7$F$$$^$9$,!"(J
$B%5!<%P$X$N@\B3$N:]$K!"%N%s%V%m%C%-%s%07?$G$9$N$G!"(J

X = WSAAsynSelect(SocketNumber,TextBox1.hwnd,&h100,FD_CONNECT%)

$B$H$$$&Iw$J46$8$G!"%F%-%9%H%\%C%/%9$K(JKeyDown$B%$%Y%s%H$r5/$3$5$;$F$$$^$9!#(J
$B$=$3$G!"%F%-%9%H%\%C%/%9(J"TextBox1#$B$N(JKeyDown$B%$%Y%s%H$O0J2<$N$h$&$K$7$^$7$?!#(J

Function TextBox1_KeyDown(KeyCode as Integer,Shift as integer)
....
  debug.print "KeyCode is " & KeyCode &  "/ " & "Shift is " & Shift
....
End  Function

$B$9$k$H!"%5!<%P$,(JListen$B$7$F$$$J$$;~$K%3%M%/%H$7$K9T$/$H$-$K!"%G%P%C%0%&%$%s(J
$B%I%&$K(J

KeyCode is 48/Shift is 4

$B$HI=<($5$l$^$9!#$=$7$F%5!<%P$,(JListen$B$7$F$$$k;~$O!"(J

KeyCode is 48/Shift is 0

$B$HI=<($5$l$^$9!#(J

$B<ALd-!$3$N7k2L$+$i!"(JShift$B$,(J"$B#0(J#$B$N;~$O!"%3%M%/%H40N;$G!"(JShift$B$,(J"$B#4(J#$B$N;~$O%3(J
$B%M%/%H<:GT(J
$B!!!!!!!!$H$$$&$3$H$G!":FEY%3%M%/%H$7$K$$$1$P$h$$$HH=CG$9$l$P$$$$$N$G$7$g$&(J
$B$+!)(J

$B<ALd-"$^$?!"$3$N$H$-$N(JKeyCode$B$O;~$K$h$C$F$^$A$^$A$^$N$G$9$,!"$I$&$$$&0UL#$J(J
$B$N$G(J
$B!!!!!!!!$7$g$&$+!)(J


$B$b$7!"$H$s$A$s$+$s$J<ALd$r$7$F$$$?$i!"$9$_$^$;$s!#(J


-- 
$B#J#R%7%9%F%`(J($B3t(J)

$B!!C+9g!!1QB@O:(J <eitarou_taniai@jrs.co.jp>


-- 
$B#J#R%7%9%F%`(J($B3t(J)

$B!!C+9g!!1QB@O:(J <eitarou_taniai@jrs.co.jp>
Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads