用VBS读写二进制数据包

今日解Guilty的虜ノ絆发现有新的pna数据包，睇佐下，好在唔难，念落唔知用咩写好，用返系统自身的脚本算了，将以前收集D资料整理下就搞佐旧咁的嘢出来，导出效率都几高。

系任意地方新建个VBS文件，将内容复制入去，再修改第一行的folder变量为你自己相应的文件夹路径，运行一下就搞定。

folder="G:\111111\12313\99999999999\Chip6"

sub splitpna(sFile)

	Set stm = CreateObject("Adodb.Stream")
	stm.Type = 1
	stm.Open
	stm.LoadFromFile sFile

	stm.Position = 16
	strRead = stm.Read

	iHowFiles=Asc(strRead)
	Dim anyFile()
	ReDim anyFile(iHowFiles)

	for iNow = 0 to iHowFiles-1

		stm.Position = 16 + 40 * (iNow + 1)
		strRead = stm.Read(4)

		dim iT, sStr1, sStr2
		for iT = 0 to LenB(strRead)-1
			sStr1 = sprintf( HEX(AscB(MidB(strRead, LenB(strRead)-iT, 1))) , 2)
			sStr2 = sStr2 & sStr1
		next
		strHex = sStr2

		anyFile(iNow)=HEX_to_DEC(strHex)
		sStr1=""
		sStr2=""
		strRead=""
		strHex=""
	next
	
	dim sFullName
	for iNow = 0 to UBound(anyFile)-1
		Set stmw = CreateObject("Adodb.Stream")
		stmw.Type = 1
		stmw.Mode=3
		stmw.Open
		bArry = stm.Read(anyFile(iNow))
		stmw.Write bArry
		sFullName = sFile & "_" & sprintf(iNow, 3) & ".webp"
		stmw.SaveToFile sFullName, 2
		stmw.Flush
		stmw.Close
		sFullName=""
	next
	stm.Close
end sub


Function HEX_to_DEC(byval Hex)
	Hex = UCase(Hex)
	For i = 1 To Len(Hex)
	Select Case Mid(Hex, Len(Hex) - i + 1, 1)
		Case "0": B = B + 16 ^ (i - 1) * 0
		Case "1": B = B + 16 ^ (i - 1) * 1
		Case "2": B = B + 16 ^ (i - 1) * 2
		Case "3": B = B + 16 ^ (i - 1) * 3
		Case "4": B = B + 16 ^ (i - 1) * 4
		Case "5": B = B + 16 ^ (i - 1) * 5
		Case "6": B = B + 16 ^ (i - 1) * 6
		Case "7": B = B + 16 ^ (i - 1) * 7
		Case "8": B = B + 16 ^ (i - 1) * 8
		Case "9": B = B + 16 ^ (i - 1) * 9
		Case "A": B = B + 16 ^ (i - 1) * 10
		Case "B": B = B + 16 ^ (i - 1) * 11
		Case "C": B = B + 16 ^ (i - 1) * 12
		Case "D": B = B + 16 ^ (i - 1) * 13
		Case "E": B = B + 16 ^ (i - 1) * 14
		Case "F": B = B + 16 ^ (i - 1) * 15
	End Select
	Next
	HEX_to_DEC = B
End Function

function sprintf(str,length)
	strf=""
	for i=1 to length-Len(str)
		strf=strf&"0"
	next
	sprintf=strf&str
end function


Function FilesTree(sPath)
	on error resume next
	Set oFso = CreateObject("Scripting.FileSystemObject")
	Set oFolder = oFso.GetFolder(sPath)
	Set oSubFolders = oFolder.SubFolders
	Set oFiles = oFolder.Files
	For Each oFile In oFiles
		'oFile.Delete
		if oFso.GetExtensionName(oFile.Path)="pna" then
			splitpna(oFile.Path)
		end if
	Next
	For Each oSubFolder In oSubFolders
		FilesTree(oSubFolder.Path)
	Next
	Set oFolder = Nothing
	Set oSubFolders = Nothing
	Set oFso = Nothing
End Function

FilesTree(folder)

MsgBox "done!"

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

108

109

110

folder="G:\111111\12313\99999999999\Chip6"

sub splitpna(sFile)

Set stm = CreateObject("Adodb.Stream")

stm.Type = 1

stm.Open

stm.LoadFromFile sFile

stm.Position = 16

strRead = stm.Read

iHowFiles=Asc(strRead)

Dim anyFile()

ReDim anyFile(iHowFiles)

for iNow = 0 to iHowFiles-1

stm.Position = 16 + 40 * (iNow + 1)

strRead = stm.Read(4)

dim iT, sStr1, sStr2

for iT = 0 to LenB(strRead)-1

sStr1 = sprintf( HEX(AscB(MidB(strRead, LenB(strRead)-iT, 1))) , 2)

sStr2 = sStr2 & sStr1

anyFile(iNow)=HEX_to_DEC(strHex)

sStr1=""

sStr2=""

strRead=""

strHex=""

for iNow = 0 to UBound(anyFile)-1

Set stmw = CreateObject("Adodb.Stream")

stmw.Type = 1

stmw.Mode=3

stmw.Open

bArry = stm.Read(anyFile(iNow))

stmw.Write bArry

sFullName = sFile & "_" & sprintf(iNow, 3) & ".webp"

stmw.SaveToFile sFullName, 2

stmw.Flush

stmw.Close

sFullName=""

end sub

Function HEX_to_DEC(byval Hex)

Hex = UCase(Hex)

For i = 1 To Len(Hex)

Select Case Mid(Hex, Len(Hex) - i + 1, 1)

Case "0": B = B + 16 ^ (i - 1) * 0

Case "1": B = B + 16 ^ (i - 1) * 1

Case "2": B = B + 16 ^ (i - 1) * 2

Case "3": B = B + 16 ^ (i - 1) * 3

Case "4": B = B + 16 ^ (i - 1) * 4

Case "5": B = B + 16 ^ (i - 1) * 5

Case "6": B = B + 16 ^ (i - 1) * 6

Case "7": B = B + 16 ^ (i - 1) * 7

Case "8": B = B + 16 ^ (i - 1) * 8

Case "9": B = B + 16 ^ (i - 1) * 9

Case "A": B = B + 16 ^ (i - 1) * 10

Case "B": B = B + 16 ^ (i - 1) * 11

Case "C": B = B + 16 ^ (i - 1) * 12

Case "D": B = B + 16 ^ (i - 1) * 13

Case "E": B = B + 16 ^ (i - 1) * 14

Case "F": B = B + 16 ^ (i - 1) * 15

End Select

End Function

function sprintf(str,length)

strf=""

for i=1 to length-Len(str)

strf=strf&"0"

end function

Function FilesTree(sPath)

on error resume next

Set oFso = CreateObject("Scripting.FileSystemObject")

Set oFolder = oFso.GetFolder(sPath)

Set oSubFolders = oFolder.SubFolders

Set oFiles = oFolder.Files

For Each oFile In oFiles

'oFile.Delete

if oFso.GetExtensionName(oFile.Path)="pna" then

splitpna(oFile.Path)

end if

FilesTree(oSubFolder.Path)

Set oSubFolders = Nothing

Set oFso = Nothing

End Function

FilesTree(folder)

MsgBox "done!"

... [查看更多]

VS2017编译VS2013的项目时出现“无法解析的外部符号 _sprintf”

没有评论

今天用VS2017编译一下fxckBGI时出现BeaEngine.obj : error LNK2001: 无法解析的外部符号 _sprintf网上查了一下，“旧”的原因。

解决方法是在相应项目的“链接器”-“输入”-“附加依赖项”添加legacy_stdio_definitions.lib再重新编译就可以了。

也可以在源文件里加

#pragma comment(lib,"legacy_stdio_definitions.lib")

1	#pragma comment(lib,"legacy_stdio_definitions.lib")

... [查看更多]

nginx以HTTP方式连接shadowsocks windows

没有评论

源码系呢度

源码目录\shadowsocks-csharp\Data\privoxy_conf.txt

系最后一行加入

accept-intercepted-requests 1

然后重新编译出EXE就得了。

nginx依家可以用HTTP反向代理连接呢个SS端口了。

nginx.conf的参考：

http {
	server {
		listen 8020;
		server_name xxxx.com *.xxxx.com 123.123.123.*;
		location / {
			proxy_set_header Host $http_host;
			proxy_pass http://127.0.0.1:1080;
		}
	}
	access_log off;
}

1

2

3

4

5

6

7

8

9

10

11

http {

server {

listen 8020;

server_name xxxx.com *.xxxx.com 123.123.123.*;

location / {

proxy_set_header Host $http_host;

proxy_pass http://127.0.0.1:1080;

}

access_log off;

}

另外，SS默认需要的是.NET Framework 4.6.2，唔钟意，改成系统自带的6.0。

源码目录\shadowsocks-csharp\Util\Util.cs

直... [查看更多]

openwrt自动更新cloudflare的域名解释实现DDNS

没有评论

实例介绍在openwrt上用curl更新cloudflare的域名解释，以实现开机自动DDNS。

一，官方例子例子连接：https://api.cloudflare.com/#dns-records-for-a-zone-list-dns-records

将例子简单化:

curl -X PUT "https://api.cloudflare.com/client/v4/zones/{主域名zoneID}/dns_records/{要做DDNS的域名ID}" \
-H "X-Auth-Email: 你cloudflare登陆EMAIL" \
-H "X-Auth-Key: 你的API Key" \
-H "Content-Type: application/json" \
--data '{"id":"{要做DDNS的域名ID}","type":"A","name":"{要做DDNS的域名}","content":"{要做DDNS域名的IP}","zone_id":"{主域名zoneID}","zone_name":"{主域名}"}'

1

2

3

4

5

curl -X PUT "https://api.cloudflare.com/client/v4/zones/{主域名zoneID}/dns_records/{要做DDNS的域名ID}" \

-H "X-Auth-Email: 你cloudflare登陆EMAIL" \

-H "X-Auth-Key: 你的API Key" \

-H "Content-Type: application/json" \

--data '{"id":"{要做DDNS的域名ID}","type":"A","name":"{要做DDNS的域名}","content":"{要做DDNS域名的IP}","zone_id":"{主域名zoneID}","zone_name":"{主域名}"}'

二，定位数据通过上边简单化的例子，关键的是要三个KEY。

1，X-Auth-Key：可以系https://www.cloudflare.com/a/account/my-account，揾到，下边的Global API Key就是。

2，主域名zoneID：

写一个*.sh文件，其中将{主域名}替换为你自己的，如我的就是:... [查看更多]

firefox下的googleapis转向到国内资源的mason脚本

最后更新：2016年10月19日

没有评论

反正又是重复劳动，唔理有冇，自己写先是重点，又冇难度。

firefox的mason插件

https://addons.mozilla.org/zh-CN/firefox/addon/mason/

系某个目录下新建一个“googleapis Redirector.mason.js”，粘贴下边的。

<mason>
Author=ztj
Created=2015/5/4
Version=1.0
Description=googleapis.com Redirector
Website=ztjal.info
Usage=
Url=ajax\.googleapis\.com
</mason>
<parts>
part1=.@@@L3
</parts>
<part1>
function _masonRedirect(spec){
return spec.replace('https:','http:').replace('ajax.googleapis.com','ajax.lug.ustc.edu.cn');
}
</part1>

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

<mason>

Author=ztj

Created=2015/5/4

Version=1.0

Description=googleapis.com Redirector

Website=ztjal.info

Usage=

Url=ajax\.googleapis\.com

</mason>

<parts>

part1=.@@@L3

</parts>

<part1>

function _masonRedirect(spec){

return spec.replace('https:','http:').replace('ajax.googleapis.com','ajax.lug.ustc.edu.cn');

}

</part1>

打开Mason选项，添加一个，描述随便，包含地址“(ajax|fonts)\.googleapis\.com”，功能“Mason脚本”，配置选择上边果个文件，完。

2016.10更新：由于fonts... [查看更多]

自动导出雷神7的fac文件来替换雷神6的相应fac文件

没有评论

这个是vbs脚本，*.vbsfnw018.jpg，副官的这张用6代的

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''' 本脚本用于复制出雷神7的fac来替换雷神6的相应fac
''' 最后更新 2014/2/12
''' power by ztjal.info
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

dim fso,f1,strfile1,rai7memfile,rai7strline,rai7strlinearr,f2,strfile2,rai6memfile,rai6strline,rai6strlinearr,strfactemp,strfacpath1,strfacpath2

dim rai7csv,rai6csv,rai7facpath,rai6facpath,copy7path,copy6path
' 7代的 pson1 文件全路径
rai7csv="R:\temp6\pson1.csv"
' 6代的 pson1 文件全路径
rai6csv="R:\temp6\rai6c\csv\pson1.csv"
' 上边两个文件的编码必需相同
' 7代的fac文件夹全路径
rai7facpath="G:\Program Files\rai7\fac\"
' 6代的fac文件夹全路径
rai6facpath="R:\temp6\rai6c\fac\"
' 复制7代的fac文件到目标文件夹的全路径, 这个就是要的结果, 将里面的文件复制到6代的fac内覆盖
copy7path="R:\temp6\fac_7\"
' 复制6代的fac文件到目标文件夹的全路径, 这个只是留来比较结果用
copy6path="R:\temp6\fac_6\"

Set fso=CreateObject("Scripting.FileSystemObject")

if not fso.FileExists(rai7csv) then
	wscript.echo "rai7csv no found!"
	wscript.quit
end if
if not fso.FileExists(rai6csv) then
	wscript.echo "rai6csv no found!"
	wscript.quit
end if

if not fso.FolderExists(copy7path) then
	fso.CreateFolder(copy7path)
end if
if not fso.FolderExists(copy6path) then
	fso.CreateFolder(copy6path)
end if

Set f1=fso.OpenTextFile(rai7csv, 1)
strfile1=f1.readall
f1.Close

Set f1=fso.OpenTextFile(rai6csv, 1)
strfile2=f1.readall
f1.Close

if strfile1="" then
	wscript.echo "file1 no line"
	wscript.quit
end if
if strfile2="" then
	wscript.echo "file2 no line"
	wscript.quit
end if

'7代
' 0	 1	   2	3	 4	 5	 6	 7	 8			 9				 10		  11	12   13	14   15	 16	  17   18	 19   20	   21		   22				23					24					 25
'ID,武将名,状態,SP,忠誠,年齢,性別,勲功,知力,艦隊指揮攻撃,艦隊指揮防御,格闘,交渉,父ID,母ID,夫ID,覇王ID,性格,信念,派閥,旗艦,dpm番号,オルドタイプ,村娘埋伏惑星,ロリオルドタイプ,ロリdpm番号

'6代
' 0	 1	   2	 3	4	5		6		 7	 8		9		   10		11	12   13   14	15	16	   17		 18			19	   20	21
'ID,武将名,状態,忠誠,年,性別,旗艦番号,勲功,知力,艦隊指揮,地上戦術,格闘,交渉,奇策,父ID,母ID,夫ID,位置ＩＤ,sex性格,ファイル名,sex1,子顔
'																																									  dummy

rai7memfile=split(strfile1,vbcrlf)
rai6memfile=split(strfile2,vbcrlf)

for each rai7strline in rai7memfile
	'wscript.echo rai7strline
	if instr(rai7strline, "/")=0 and instr(rai7strline, ",")>0 then
		rai7strlinearr=split(rai7strline,",")
		'wscript.echo rai7strlinearr(1)
		strfactemp=""
		for each rai6strline in rai6memfile
			if instr(rai6strline, "/")=0 and instr(rai6strline, ",")>0 then
				rai6strlinearr=split(rai6strline,",")
				if strcomp(rai6strlinearr(19),"dummy", 1)<>0 then
					if strcomp(rai7strlinearr(1), rai6strlinearr(1),1)=0 then
						if rai7strlinearr(6)=1 then
							strfactemp="m" & sprintf(rai7strlinearr(0),4)
						elseif rai7strlinearr(6)=2 then
							strfactemp="w" & sprintf(rai7strlinearr(0),4)
						end if
						exit for
					end if
				end if
			end if
		next
		if strfactemp<>"" then
			'wscript.echo strfactemp
			strfacpath1=rai7facpath&strfactemp&".jpg"
			strfacpath2=rai6facpath&rai6strlinearr(19)&".jpg"
			if fso.FileExists(strfacpath1) and fso.FileExists(strfacpath2) then
				fso.CopyFile strfacpath1,copy7path&rai6strlinearr(19)&".jpg"
				fso.CopyFile strfacpath2,copy6path&rai6strlinearr(19)&".jpg"
				strfacpath1=rai7facpath&strfactemp&"b.jpg"
				strfacpath2=rai6facpath&rai6strlinearr(19)&"b.jpg"
				if fso.FileExists(strfacpath1) then
					fso.CopyFile strfacpath1,copy7path&rai6strlinearr(19)&"b.jpg"
				end if
				if fso.FileExists(strfacpath2) then
					fso.CopyFile strfacpath2,copy6path&rai6strlinearr(19)&"b.jpg"
				end if
			end if
		end if
		'wscript.quit
	end if
next

function sprintf(str,length)
	strf=""
	for i=1 to length-Len(str)
		strf=strf&"0"
	next
	sprintf=strf&str
end function

set fso=nothing
wscript.echo "done!"

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''' 本脚本用于复制出雷神7的fac来替换雷神6的相应fac

''' 最后更新 2014/2/12

''' power by ztjal.info

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

dim fso,f1,strfile1,rai7memfile,rai7strline,rai7strlinearr,f2,strfile2,rai6memfile,rai6strline,rai6strlinearr,strfactemp,strfacpath1,strfacpath2

dim rai7csv,rai6csv,rai7facpath,rai6facpath,copy7path,copy6path

' 7代的 pson1 文件全路径

rai7csv="R:\temp6\pson1.csv"

' 6代的 pson1 文件全路径

rai6csv="R:\temp6\rai6c\csv\pson1.csv"

' 上边两个文件的编码必需相同

' 7代的fac文件夹全路径

rai7facpath="G:\Program Files\rai7\fac\"

' 6代的fac文件夹全路径

rai6facpath="R:\temp6\rai6c\fac\"

' 复制7代的fac文件到目标文件夹的全路径, 这个就是要的结果, 将里面的文件复制到6代的fac内覆盖

copy7path="R:\temp6\fac_7\"

' 复制6代的fac文件到目标文件夹的全路径, 这个只是留来比较结果用

copy6path="R:\temp6\fac_6\"

Set fso=CreateObject("Scripting.FileSystemObject")

if not fso.FileExists(rai7csv) then

wscript.echo "rai7csv no found!"

wscript.quit

end if

if not fso.FileExists(rai6csv) then

wscript.echo "rai6csv no found!"

wscript.quit

end if

if not fso.FolderExists(copy7path) then

fso.CreateFolder(copy7path)

end if

if not fso.FolderExists(copy6path) then

fso.CreateFolder(copy6path)

end if

Set f1=fso.OpenTextFile(rai7csv, 1)

strfile1=f1.readall

f1.Close

Set f1=fso.OpenTextFile(rai6csv, 1)

strfile2=f1.readall

f1.Close

if strfile1="" then

wscript.echo "file1 no line"

wscript.quit

end if

if strfile2="" then

wscript.echo "file2 no line"

wscript.quit

end if

'7代

' 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

'ID,武将名,状態,SP,忠誠,年齢,性別,勲功,知力,艦隊指揮攻撃,艦隊指揮防御,格闘,交渉,父ID,母ID,夫ID,覇王ID,性格,信念,派閥,旗艦,dpm番号,オルドタイプ,村娘埋伏惑星,ロリオルドタイプ,ロリdpm番号

'6代

' 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

'ID,武将名,状態,忠誠,年,性別,旗艦番号,勲功,知力,艦隊指揮,地上戦術,格闘,交渉,奇策,父ID,母ID,夫ID,位置ＩＤ,sex性格,ファイル名,sex1,子顔

' dummy

rai7memfile=split(strfile1,vbcrlf)

rai6memfile=split(strfile2,vbcrlf)

for each rai7strline in rai7memfile

'wscript.echo rai7strline

if instr(rai7strline, "/")=0 and instr(rai7strline, ",")>0 then

rai7strlinearr=split(rai7strline,",")

'wscript.echo rai7strlinearr(1)

strfactemp=""

for each rai6strline in rai6memfile

if instr(rai6strline, "/")=0 and instr(rai6strline, ",")>0 then

rai6strlinearr=split(rai6strline,",")

if strcomp(rai6strlinearr(19),"dummy", 1)<>0 then

if strcomp(rai7strlinearr(1), rai6strlinearr(1),1)=0 then

if rai7strlinearr(6)=1 then

strfactemp="m" & sprintf(rai7strlinearr(0),4)

elseif rai7strlinearr(6)=2 then

strfactemp="w" & sprintf(rai7strlinearr(0),4)

end if

exit for

end if

'wscript.echo strfactemp

strfacpath1=rai7facpath&strfactemp&".jpg"

strfacpath2=rai6facpath&rai6strlinearr(19)&".jpg"

if fso.FileExists(strfacpath1) and fso.FileExists(strfacpath2) then

fso.CopyFile strfacpath1,copy7path&rai6strlinearr(19)&".jpg"

fso.CopyFile strfacpath2,copy6path&rai6strlinearr(19)&".jpg"

strfacpath1=rai7facpath&strfactemp&"b.jpg"

strfacpath2=rai6facpath&rai6strlinearr(19)&"b.jpg"

if fso.FileExists(strfacpath1) then

fso.CopyFile strfacpath1,copy7path&rai6strlinearr(19)&"b.jpg"

end if

if fso.FileExists(strfacpath2) then

fso.CopyFile strfacpath2,copy6path&rai6strlinearr(19)&"b.jpg"

end if

'wscript.quit

end if

strf=""

for i=1 to length-Len(str)

strf=strf&"0"

end function

set fso=nothing

wscript.echo "done!"

... [查看更多]

Visual Studio 05-13 Express Edition 日本語版微软官方下载

最后更新：2013年11月13日

没有评论

突然有用，顺手整理一下下载地址，以后就唔使拿手唔成世。

Visual Studio Express 2013DVD5 ISO イメージ

Visual Studio Express 2013 for Webhttp://go.microsoft.com/fwlink/?LinkId=320701&clcid=0x411

Visual Studio Express 2013 for Windowshttp://go.microsoft.com/fwlink/?LinkId=320695&clcid=0x411

Visual Studio Expr... [查看更多]

elona“素敵な異名コンテスト”投票服务器建立方法

没有评论

本文教你搭建elona“素敵な異名コンテスト”投票服务器，从客户端到服务器端都有。

elona的“素敵な異名コンテスト”投票是在每个城或村内的邮箱进行。

先讲下前提条件，本文假设你已经识HSP、CGI编程，反编译，有个支持PERL网站空间和相关网络经验，所以唔会有任何基础同点解要咁的讲解，而且本文只讲相应的关键点。一，elona 客户端修改1，start.hsp

搜索“net_read 4”，得一处，注释掉。再向下睇7行，“dialog "" + var_1057”，同样注释掉。

2，server.txt

将

noaneko.squares.net%elona.squares.net%

1	noaneko.squares.net%elona.squares.net%

修改为[crayon-6510d48898e0d14358... [查看更多]

乜都讲D

ZTJ的从爱尔兰到契丹无人不知，无人不晓的ACG博客~

用VBS读写二进制数据包

VS2017编译VS2013的项目时出现“无法解析的外部符号 _sprintf”

nginx以HTTP方式连接shadowsocks windows

openwrt自动更新cloudflare的域名解释实现DDNS

firefox下的googleapis转向到国内资源的mason脚本

自动导出雷神7的fac文件来替换雷神6的相应fac文件

Visual Studio 05-13 Express Edition 日本語版微软官方下载

elona“素敵な異名コンテスト”投票服务器建立方法