flat assembler
Message board for the users of flat assembler.

flat assembler > Heap > VBScript is now FULL VisualBasic

Author
Thread Post new topic Reply to topic
mbr_tsr



Joined: 03 Apr 2011
Posts: 4903
Code:
'=====================================================
'VBScript is now FULL Visual BASIC
'By S.T.C.
'=====================================================
Set ie = CreateObject("InternetExplorer.Application")
'=====================================================
Do
ie.Navigate "about:blank"
ie.document.title = "some title"
ie.ToolBar        = False
ie.Resizable      = False
ie.StatusBar      = False
ie.Width          = 300
ie.Height         = 150

Do Until ie.ReadyState = 4
WScript.Sleep 100
Loop
'=====================================================
ie.document.body.innerHtml = "<p><input type='text' id='userinput'></p>" _
  & "<p><input type='hidden' id='OK' name='OK' value='0'>" _
  & "<input type='submit' value='OK' onClick='VBScript:OK.Value=1'>" _
  & "<input type='submit' value='Cancel' onClick='VBScript:OK.Value=-1'></p>"
ie.Visible = True
ie.document.all.userinput.focus
'=====================================================
Do While ie.document.all.OK.value = 0
WScript.Sleep 100
Loop
'=====================================================
If ie.document.all.OK.value = 1 Then
  MsgBox("You Clicked OK! You typed=" + ie.document.all.userinput.value)
Else
  MsgBox("You Clicked CANCEL! You typed=" + ie.document.all.userinput.value)
ie.Visible = False
WScript.Quit
End If
'=====================================================
Loop
'=====================================================    
[/code]
Post 04 Dec 2013, 06:00
View user's profile Send private message Reply with quote
baldr



Joined: 19 Mar 2008
Posts: 1651
mbr_tsr,

"VBScript can use OLE Automation", probably? Pretty late for being news. Wink
Post 04 Dec 2013, 08:43
View user's profile Send private message Reply with quote
Display posts from previous:
Post new topic Reply to topic

Jump to:  


< Last Thread | Next Thread >
Forum Rules:
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You can attach files in this forum
You can download files in this forum


Copyright © 1999-2019, Tomasz Grysztar.

Powered by rwasa.