包含界面的腳本.....................................................自己拖拽包,根據這里的控件名命名,然后自己拖拽
'打開九陰真經
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