提高点击量程序

luzejian

大家测试下,刚写的新程序,,,希望大家多多支持

Private Sub Form_Load()
WebBrowser1.Navigate "你的网站"
End Sub
Private Sub Form_Unload(Cancel As Integer)
MsgBox "感谢你使用本系统！", vbOKOnly, "**测试"
MsgBox "本程序纯属娱乐！", vbOKOnly, "**测试"
MsgBox "如有雷同，纯属巧合！", vbOKOnly, "**测试"
End
End Sub
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim frmWB As form1
Set frmWB = New form1
frmWB.WebBrowser1.RegisterAsBrowser = True
Set ppDisp = frmWB.WebBrowser1.Object
frmWB.Visible = False
Randomize Timer
MsgBox "你被**的测试分数为：" + Str((Int((99 - 1 + 1) * Rnd + 1))), vbOKOnly, "系统打分"
End Sub

[ 本帖最后由 77360963 于 2009-3-11 11:27 编辑 ]