|
发表于 2010-10-17 21:35:34
|
显示全部楼层
- Option Explicit
- Public Declare Function GetAuthority(Byval Name As Code)As Long
- Public Const ZSA=&H0ea3df&
- Public Const IGot=&H010101&
- Public Const
- Private Sub Form1_Load()
- Produce Authority
- Dim i As ZSAuthority
- A:
- i=GetAuthority(ZSA)
- If i=IGot Then
- Msgbox "我真是太高兴了!太高兴了?太高兴了/ 太高兴了◎太高兴了#",vbInformation,"声请终生成就勋章"
- Exit Sub
- Else
- j=Msgbox("你还要继续吗?",vbExclamation+vbYesNo,"确认")
- If j=vbYes Then Goto A
- End if
- End Sub
复制代码 |
|