获取微信小程序的源代码

微信在去年年底已经发布了小程序的游戏,引起了大家的关注,而且现在已经有达人破解了里面的算法,也顺带破解了微信小程序的机制。如何下载小程序我找了几个月了没有方案,这回被大牛破解了,赶紧记录一下

找到小程序的ID

先用fiddler进行截包,在里面找到微信小程序的ID,以跳一跳为例

跳一跳的请求头里面包含如下的信息:

https://servicewechat.com/wx7c8d593b2c3a7703/5/page-frame.html

其中 wx7c8d593b2c3a7703就是我们要找的小程序ID,后面跟着的5为版本号,可以理解为发布了5次,这两个都需要

拼接实际地址

找到ID后我们根据实际的下载地址,拼接相应的下载链接

https://servicewechat.com/weapp/release/{appid}/{version_num}.wxapkg

跳一跳的地址拼接后如下:

https://servicewechat.com/weapp/release/wx7c8d593b2c3a7703/5.wxapkg

下载后需要对包进行解压

git地址如下:

https://github.com/thedreamwork/unwxapkg

这个代码是python2的,3要修改print和在data.name后加decode(‘utf-8’)将byte转化成字符串

解压完成后就是源代码了

参考资料

https://www.v2ex.com/t/419056

https://www.v2ex.com/t/419352

参考资料里面有直接在IOS和android的微信中找wxapkg的方法,十分实用

SQL LocalDB出现错误无法获取本地应用程序数据路径的解决办法

SQL LocalDB在IIS部署时出现错误:

无法获取本地应用程序数据路径。很可能是因为未加载用户配置文件。如果在 IIS 下执行 LocalDB,请确保为当前用户启用配置文件加载。

QQ截图20150303143331

解决办法:

在IIS管理器中找到你所部署网站对应的应用程序池,选中,点击右边菜单的高级设置

找到“加载用户配置文件”,把它设置为True,重启网站和IIS即可

QQ截图20150303143901

VBA获取文件夹中的文件名的函数

'说明:获取指定文件夹中的文件
'参数:
'   path:字符串,指定的文件夹路径
'   searchOption:布尔值,True 所有文件; False 当前文件夹中的文件
'返回值:数组
'注意:数组第1项(GetFiles(0))始终为空,应从第2项(GetFiles(1))开始计算
Public Function GetFiles(path As String, searchOption As Boolean) As String()
    Dim result() As String
    Dim arr() As String
    Dim i, j As Integer
    
    arr = getFiles_(path, searchOption)
    For i = 0 To UBound(arr)
        If arr(i) <> "" Then
            j = j + 1
        End If
    Next
    If j > 0 Then '防止下标越界
        ReDim result(j) As String
        j = 1
        For i = 0 To UBound(arr)
            If arr(i) <> "" Then
                result(j) = arr(i)
                j = j + 1
            End If
        Next
    End If
    GetFiles = result
End Function

'本函数为私有函数,获取指定文件夹中的文件
'因返回的数组可能包含空元素,需由GetFiles进行过滤排除
Private Function getFiles_(path As String, searchOption As Boolean) As String()
    Dim oFso As FileSystemObject
    Dim oFolder, oFolder2 As Folder
    Dim oFile As File
    Dim i, j As Integer
    Dim list() As String
    ReDim result(0) As String
    
    Set oFso = CreateObject("Scripting.FileSystemObject")
    Set oFolder = oFso.GetFolder(path)
    
    '检查文件夹存在
    If Not oFso.FolderExists(path) Then
        getFiles_ = result
        Set oFile = Nothing
        Set oFolder2 = Nothing
        Set oFolder = Nothing
        Set oFso = Nothing
        Exit Function
    End If
    
    '当前文件夹中的文件
    If oFolder.files.Count > 0 Then
        ReDim Preserve result(oFolder.files.Count - 1)
        For Each oFile In oFolder.files
            result(i) = oFile.path
            i = i + 1
        Next
    End If
    
    '子文件夹中的文件
    If searchOption And oFolder.SubFolders.Count > 0 Then
        For Each oFolder2 In oFolder.SubFolders
            list = getFiles_(oFolder2.path, searchOption)
            i = UBound(result)
            ReDim Preserve result(i + UBound(list) + 1)
            For j = 0 To UBound(list)
                result(i + j + 1) = list(j)
            Next
        Next
    End If
    
    getFiles_ = result
    
    Set oFile = Nothing
    Set oFolder2 = Nothing
    Set oFolder = Nothing
    Set oFso = Nothing
End Function

VB.Net获取打印机列表

For Each sPrint As String In PrinterSettings.InstalledPrinters
    listBox1.Items.Add(sPrint)
Next

暗黑破坏神3测试码获取完全指南

相信大家都在心急火燎的等待着任何一点关于D3的消息,目前测试的客户端已经流出!当然没有测试码也是没用的,那么小编今天就来总结一下获取《暗黑破坏神3》测试码的几大途径:

1.官方微博发号

昨日,游戏的官方微博如是表示:随着测试日期的临近,我们将在接下来的几条微博中公布一些测试的相关细节,并会在测试开始后通过暗黑破坏神官方微博发放一定数量的测试账号,敬请关注!
所以,从今天开始,要记得关注游戏的官方微博,并保证敏锐的关注,在官方微博有发号举动的时候迅速拿下实为上策。

2.在BN上提交配置信息

如果你在暴雪的外服战网(北美、台服、欧服均可)拥有绑定的游戏,那么可以在战网上提交自己的电脑配置信息,暴雪为了游戏能在更多的配置下进行测试通常会根据配置发放邀请码。

3.参加官方活动

前不久,官方微博与北美官网一起推出了“大波胡”(Diableards)活动,玩家只要把留有胡子的照片在微博上发到# Diableards #话题内,就有机会获得游戏的测试帐号。当然如果是女性玩家或者胡子不茂密的玩家也不要紧,高质量的PS以及各种创意也是被接受的。最终官方将挑选出5张令人印象最深刻的照片,照片的主人将获得测试帐号!
以上就是目前看起来最靠谱的三种获得游戏激活码的方法,当然还有一种终极大法就是:你舅舅在暴雪!另外,大家别忘了多做好事攒RP,比如扶老奶奶过马路什么的……好了,希望大家能早日玩到《暗黑破坏神3》,希望暴雪早日推出这部让人期待的作品!