Project

General

Profile

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


(1-1/2)