http://zhidao.baidu.com/link?url=IDJgSpL4z7eT81V-GHt0thNSJvZVT1p5-7aPx7zFOvMEYBuUppS2XLPSurxy98pXaOw7Fi37Y1FxAEvDXSeSyK
http://wenku.baidu.com/link?url=bHTIE4mr8DEAWsWK-zZp4EoHKRINZJBUFBfvj5Cp26AyQY-Y9Mr2IcQILbDR8C5pXSF1uDv3aK6RHVsDvHZET3oOyYz89Xrg8cfNjA7nDIC
Private Sub command1_click()WebBrowser1.navigate "http://www.shishicai.cn/Bet.aspx"
End Sub
Private Sub webbrowser1_documentcomplete(ByVal pDisp As Object, URL As Variant)
a = WebBrowser1.document.body.innertext
s = Mid(a, InStr(a, "服务器时间:") + 6, 17)
If IsDate(s) = True Then Label1.Caption = "服务器时间:" &s
End Sub
部件 添加 mircosoft internet controls
欢迎分享,转载请注明来源:夏雨云
评论列表(0条)