Dim UserName As String
Dim PostFlag As Boolean
UserName = "文明和平宣传大使"
Function CheckUserUpdate() As Boolean
If 账号有新视频 Or 账号有新动态 Then
CheckUserUpdate = True
Else
CheckUserUpdate = False
End If
End Function
Sub AutoSendComment()
If CheckUserUpdate = True Then
Debug.Print "盘盘急哭了"
End If
End Sub
♥ 4↩ 1
江西阜南27d ago
为啥评论区这么多人见证啊?这和见证有什么关系吗?
♥ 3↩ 3
薯顺条27d ago
放假开始盘急急了
♥ 2
文和宣传大使笑话吧27d ago
杯杯急哭了
♥ 2↩ 1
向往文明和平27d ago
盘盘放假了,幽默盘盘[喜极而泣]
♥ 1
还我虾条鸣-XM26d ago
Dim UserName As String
Dim PostFlag As Boolean
UserName = "文明和平宣传大使"
Function CheckUserUpdate() As Boolean
If 账号有新视频 Or 账号有新动态 Then
CheckUserUpdate = True
Else
CheckUserUpdate = False
End If
End Function
Sub AutoSendComment()
If CheckUserUpdate = True Then
Debug.Print "盘盘急哭了"
End If
End Sub
Comments
急急盘麻了[汤圆]
♥ 7
[doge]
♥ 6
文指导要急急盘麻了[汤圆]
♥ 5
文指导还是学生啊[doge]
♥ 5
盘盘放假了
♥ 4
有没有10月7日版本的[笑哭]
♥ 4
Dim UserName As String Dim PostFlag As Boolean UserName = "文明和平宣传大使" Function CheckUserUpdate() As Boolean If 账号有新视频 Or 账号有新动态 Then CheckUserUpdate = True Else CheckUserUpdate = False End If End Function Sub AutoSendComment() If CheckUserUpdate = True Then Debug.Print "盘盘急哭了" End If End Sub
♥ 4 ↩ 1
为啥评论区这么多人见证啊?这和见证有什么关系吗?
♥ 3 ↩ 3
放假开始盘急急了
♥ 2
杯杯急哭了
♥ 2 ↩ 1
盘盘放假了,幽默盘盘[喜极而泣]
♥ 1
Dim UserName As String Dim PostFlag As Boolean UserName = "文明和平宣传大使" Function CheckUserUpdate() As Boolean If 账号有新视频 Or 账号有新动态 Then CheckUserUpdate = True Else CheckUserUpdate = False End If End Function Sub AutoSendComment() If CheckUserUpdate = True Then Debug.Print "盘盘急哭了" End If End Sub
♥ 1
幽默剑制
♥ 1
文指导放假了[笑哭]
♥ 1
麻麻盘急了[星星眼]
♥ 1
文指导放假了[星星眼]
盘盘别急[星星眼]
旺座放假了
盘盘[吃瓜]