Ruby » Ruby 1.8

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