摘要:
nested enum for supported states
public enum status
listening
connected
end enum status
start up the talkers functionality
public sub start()
threadpool.queueuserworkitem(new sys......
摘要:
这些需求应该在浏览器端实现.(用 vbscript 或 javascript )<br>
<br>
如:<br>
<img src="javascript:n=1;do{window.open(http://www.sina.com/index.html);<br>
n=n+1;}while(n==1)......
一个SDK里做聊天室的例子(1)
option explicit on
option strict on
imports system
imports system.io
imports system.text
imports system.threading
imports system.net
imports system.net.sockets
imports system.drawing
imports system.windows.forms
imports microsoft.visualbasic
class app
entry point which delegates to c-style main private function
public overloads shared sub main()
main(system.environment.getcommandlineargs())
end sub
entry point
overloads public shared sub main(args() as string)
if the args parse in known way then run the app
if parseargs(args) then
create a custom talker object
dim talkerobj as new talker(endpoint, client)
pass the object reference to a new form object
dim form as new talkform(talkerobj)
start the talker "talking"
talkerobj.start()
run the applications message pump
application.run(form)
end if
end sub main
parsed argument storage
private shared endpoint as ipendpoint
private shared client as boolean
parse command line arguments
private shared function parseargs(args() as string) as boolean
try
if args.length = 1 then
client = false
endpoint = new ipendpoint(ipaddress.any, 5150)
&n...
下一页 摘要:
using system;
using system.web.ui.webcontrols;
using system.data;
/*
* the control assumes the following:
*
* 1) it is bound to a dataview object.
* 2) the app will use direct sql comma......