⚲
Project
General
Profile
Sign in
Register
Home
Projects
Help
Search
:
Backport187
All Projects
Ruby
»
Backport187
Overview
Activity
Issues
Like
Download (1.05 KB)
Backport #1124
» VistaHTTPGetOpenFilename.rb
jmaki (James Maki)
, 02/07/2009 04:23 AM
require
'vr/vruby'
require
'vr/vrtimer'
require
'socket'
require
'net/http'
require
'vr/vrcontrol'
module
MyForm
include
VRMenuUseable
include
VRTimerFeasible
def
construct
self
.
caption
=
"DialogTest"
setMenu
(
newMenu
.
set
([
[
"&File"
,[[
"&Open"
,
"mopen"
],[
"E&xit"
,
"mexit"
]]]
]))
killer
end
def
blah
puts
"blah!!!!"
end
def
killer
addTimer
1000
,
"blah"
Thread
.
new
{
while
true
begin
#t = TCPSocket.open("www.google.com", 80)
#t.write("GET / HTTP/1.0\r\n\r\n")
#puts t.read
#t.close
req
=
Net
::
HTTP
::
Get
.
new
(
"/"
)
res
=
Net
::
HTTP
.
start
(
"www.google.com"
,
80
)
{
|
http
|
http
.
request
(
req
)
}
puts
res
.
body
rescue
Exception
=>
e
puts
e
.
to_s
end
sleep
1
end
}
end
def
mopen_clicked
openFilenameDialog
([
"*.*"
,
"*.*"
])
end
def
mexit_clicked
self
.
close
end
end
frm
=
VRLocalScreen
.
newform
frm
.
extend
MyForm
frm
.
create
.
show
VRLocalScreen
.
messageloop
« Previous
1
2
Next »
(1-1/2)
Loading...