微信抽奖小程序有脚本吗

没有脚本，第一步，我们制作好的微信抽奖小程序是可以添加到我们的自定义菜单，或者在小程序官方平台下载小程序二维码使用，那么前提是需要注册一个微信第三方平台，然后绑定我们的公众号，在我们的公众平台开通小程序，并且添加小程序的时候选择注册认证小程序，就会跳转到小程序官方后台注册并且完善信息之后就可以了。

第二步，在微信人家后台的小程序管理页面，我们需要授权小程序，成功之后可以跳过其他设置，直接到营销活动小程序中选择我们要用的微信小程序模版，选择水果机或者九宫格，都可以的设置的；

第三步，我们选择的九宫格的微信小程序，制作好之后需要到微站小程序中，微站小程序相当于是公众号营销模版中的微网站，我们需要把做好的其他模版小程序集合到微站小程序中，才可以提交微信审核，选择一个模版进入编辑页面，图片替换相信很多小伙伴都已经会了，主要就是在模版中选择一个位置我们可以放抽奖小程序的，选择好之后需要从功能库中添加好我们已经制作好的抽奖活动，最后保存即可；立即体验。

第四步，我们需要到小程序管理中，那做好微站小程序提交到微信审核，审核通过之后就可以生成小程序二维码，那么我们就可以把二维码推广出去，让我们的粉丝用户参与活动，我们也可以在后台查看抽奖活动的中奖名单和抽奖名单。

制作抽奖小程序流程如下：

工具：人人秀2022、机械革命S3 Pro、Windows10。

1、进入首页右上方的工作台，选择新建－互动模块，在d出窗口选择抽奖。

2、进入编辑模板，开始基本设置，包括活动名称、活动时间、活动类型、活动规则等。

3、奖品设置中可以添加奖品，选择相应的奖品的中奖个数以及中奖率，奖品类型有实物、红包、优惠券、积分等多种选择。

4、高级设置中设置抽奖规则、抽奖次数等等。

5、样式设置中可以直接使用，也可以根据自己的喜好，做一些背景和按钮的改动。设置以后就可以直接发布分享了。

Dim n As Integer

Dim a()

Private Sub Command1_Click()

    If n = 0 Then            '第一次点击时执行

        m = Val(Text1)

        ReDim a(1 To m)

        For i = 1 To m      '生成数组a，元素为1至m这m个数

            a(i) = i

        Next

        For i = 1 To m - 1             '随机打乱数组a中元素

            r = Int(Rnd * m + 1)

            tmp = a(i)

            a(i) = a(r)

            a(r) = tmp

        Next

    End If

    n = n + 1                 '计数点击次数

    If n > Val(Text1) Then    '次数超过指定次数，抽奖结束

        MsgBox "抽奖结束！"

        Exit Sub

    End If

    Text2 = a(n)              '从数组中抽出第n个数，由于数组中是随机排列，所以相当于生成一个随机数，并且不会重复

End Sub

---