包含界面的脚本.....................................................自己拖拽包,根据这里的控件名命名,然后自己拖拽
'打开九阴真经
Event Form1.btn1.Click
Call RunApp("C:\Program Files (x86)\游戏蜗牛\9yinjh\fxlaunch.exe")
End Event
'打开WPS
Event Form1.btn2.Click
Call RunApp("C:\Users\macbook\AppData\Local\Kingsoft\WPS Office\ksolaunch.exe")
End Event
'打开QQ
Event Form1.btn4.Click
Call RunApp("C:\Program Files (x86)\Tencent\QQ\Bin\QQScLauncher.exe")
End Event
'打开百度,默认加载页面
Event Form1.Load '加载事件
Form1.WebBrowser1.Url = "www.baidu.com"
End Event
'按钮实现打开百度首页
Event Form1.btn3.Click
Form1.WebBrowser1.Url = "www.baidu.com"
Form1.btn3.Caption = "百度一下"
Form1.WebBrowser1.HtmlClick "tag:A&txt:百度一下"
End Event
'标签事件
Event Form1.Label1.Click
End Event
'打开博客园
Event Form1.Button1.Click
'外部打开
'Call Plugin.Web.Bind("WQM.exe")
'Call Plugin.Web.Go("https://www.cnblogs.com/ciscolee/")
'使用内部打开
Form1.WebBrowser1.Url = "https://www.cnblogs.com/ciscolee/"
Form1.Button1.Caption = "博客园"
'以下使用“网页按键精灵”网页分析功能查找元素特征串
Form1.WebBrowser1.HtmlClick "tag:A&txt:博客园"
End Event
'结束打开博客园
Event Form1.WebBrowser1.DocumentComplete
'网页加载完成,提示
Form1.Label1.Caption = "加载完成!!!!"
End Event