Dim Ie
Set Ie=WScript.CreateObject("InternetExplorer.Application","UE_")
With Ie
'.MenuBar=0 '取消菜单栏'
'.AddressBar=0 '取消地址栏'
'.ToolBar=0 '取消工具栏'
'.StatusBar=0 '取消状态栏'
'.Resizable=0 '不允许用户改变窗口大小'
.fullscreen=1
.Width=640 '宽
.Height=500 '高
.Navigate "about:blank" '打开空白页面'
.Left=Fix((.Document.ParentWindow.Screen.AvailWidth-.Width)/2) '水平居中
.Top=Fix((.Document.ParentWindow.Screen.AvailHeight-.Height)/2) '垂直居中
.Document.Title="Back Jack 21"
.Document.Body.Style.lineheight="1" '行高
.Document.Body.Scroll="no"     '关闭滚动条
.Document.Body.bgcolor="#007D00"   '背景色
.Document.Body.Style.FontSize="12px" '字体
.Document.Body.InnerHTML="<P ID=Computer></P><P ID=Temp></P><P ID=Player></P><P ID=Select></P>" 'body主框架
.Document.Body.OnconTextMenu=GetRef("Disabled") '禁止右键
.Document.Body.OnSelectStart=GetRef("Disabled") '禁止选取
.Visible=1
End With
Set Dball=Ie.Document.Body.All '获取body集合按ID引用给变量
Set Phtml=Dball.Player         
Set Chtml=Dball.Computer     
Set Thtml=Dball.Temp
Set Shtml=Dball.Select
Phtml.InnerHTML="AKQJ10987654321
ddddddddddddd" '根据主框架ID注入内容
Chtml.InnerHTML="aaaaaaaaaaaaaaaaaaaaaa"
Thtml.InnerHTML="比分"
Shtml.InnerHTML="<BUTTON ID=Yes>跟牌</BUTTON><BUTTON ID=No>拒绝</BUTTON><BUTTON ID=Cancel>退出游戏</BUTTON>" 
Set Dball.No.Onclick=GetRef("Dont")        '事件绑定
Set Dball.Yes.Onclick=GetRef("Continue")
Set Dball.Cancel.Onclick=GetRef("OverGame")
Do While True
WScript.Sleep 200
Loop
Function Disabled()
Disabled=False
End Function
Sub Dont()
Phtml.InnerHTML="不要" '内容更新
End Sub
Sub Continue()
Phtml.InnerHTML="继续"
End Sub
Sub OverGame()
Ie.Quit
End Sub
Sub UE_OnQuit()
WScript.Quit
End Sub
复制代码