如何从html调用vbscript函数？

Question

This is what I have so far. 到目前为止，这就是我所拥有的。 I'm trying to use IE for user input. 我正在尝试使用IE进行用户输入。 All I need help with is the 'OnClick' thing that is supposed to be calling myfunc(). 我需要帮助的只是应该调用myfunc（）的“ OnClick”东西。

'global variables
Dim objIE, screen, w, h


GetClient



'==============================================SUBS AND FUNCTIONS BELOW=================================================
Sub GetClient

Set objIE = CreateObject("InternetExplorer.Application")
set screen = ObjIE.Parent
w = screen.width
h = screen.height

'make IE look like an input box kinda
objIE.Navigate("about:blank")
objIE.Document.Body.Style.overflow = "auto"
objIE.document.title        = "--------------------BITB Client--------------------"
objIE.visible       = true
objIE.MenuBar       = False
objIE.ToolBar       = False
objIE.AddressBar    = false
objIE.Resizable     = False
objIE.Width         = 400
objIE.Height        = 280
objIE.Left          = (w/2) - 200
objIE.Top           = (h/2)

'html form to get input
objIE.Document.Body.InnerHTML = "<p>-Please choose a client listed below-</p>" _
    & "<form>" _
    & "<input type=""radio"" name=""client"" value=""176"">176<br>" _
    & "<input type=""radio"" name=""client"" value=""515"">515<br>" _
    & "<input type=""radio"" name=""client"" value=""760"">760<br>" _
    & "<input type=""submit"" value=""submit"" OnClick=""VBScript:myfunc()"">" _
    & "</form>"


end sub

function myfunc() 
msgbox "yay it works"
end function

I've looked everywhere and I don't understand why this doesn't work. 我到处都看过，但我不明白为什么这行不通。 If anyone could help it would be greatly appreciated. 如果有人可以帮助，将不胜感激。 =]. =]。 Also if anyone feels like making the function that could tell which radio button was selected go right ahead. 同样，如果有人希望使该功能能够告诉您选择了哪个单选按钮，请继续进行。

Answer 1

Change your code to something like this: 将您的代码更改为如下所示：

'global variables
Dim objIE, screen, w, h

GetClient
Do While objIE.document.All.OK.Value = 0 WScript.Sleep 200 Loop myfunc objIE.Quit

'==========================SUBS AND FUNCTIONS BELOW==========================
Sub GetClient
  Set objIE = CreateObject("InternetExplorer.Application")
  ...
  objIE.Top           = (h/2)

  'html form to get input
  objIE.Document.Body.InnerHTML = "<p>-Please choose a client listed below-</p>" _
    & "<!--form-->" _
    & "<input type=""radio"" name=""client"" value=""176"">176<br&g;" _
    & "<input type=""radio"" name=""client"" value=""515"">515<br>" _
    & "<input type=""radio"" name=""client"" value=""760"">760<br>" _
    & "<input type='hidden' id='OK' value='0'>" _
    & "<input type=""submit"" value=""submit"" OnClick=""VBScript:OK.Value=1"">" _
    & "<!--/form-->"
end sub

function myfunc()
  msgbox "yay it works"
end function

如何从html调用vbscript函数？

问题描述

1 个解决方案

解决方案1
1 已采纳 2013-10-23 09:24:37

如何从html调用vbscript函数？

问题描述

1 个解决方案

解决方案1 1 已采纳 2013-10-23 09:24:37

解决方案1
1 已采纳 2013-10-23 09:24:37