用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!"

... [查看更多]

[GalGame解包记录]2020年5-6月

最后更新：2020年8月5日

12 条评论

我自己的GALGAME解包记录，仅解我自己喜欢的游戏，游戏跨度是2020年5-6月。

05月[200529][Norn] ぼっちで巨孚なオタク女子・陽子さん

crass：kirikiri2

[200529][tone work’s] 月の彼方で逢いましょう SweetSummerRainbow

crass：RealLive

[200529][エウシュリー] 天冥のコンキスタ

内部工具 + asmodean：exs4alf

[200529][Lilith] 魔降ル夜ノ凛 Animation

JICEFPThDbzub1mD

[200529][ωstar] 美少女万華鏡 -理と迷宮の少女-

G... [查看更多]

舰Colle本地缓存代理“KCCacheProxy”使用方法

最后更新：2020年8月28日

没有评论

教你点样用KCCacheProxy缓存舰C。

KCCacheProxy，是一个本地缓存舰C服务器端文件，并能无人管理自动更新。

无意中系github发现呢个玩具，设计理念同我预想差唔多?。

我之前一直用nginx反代舰C的缓存，定时导出缓存加try_files固定化，本来打算试下写个php来实现自动版本更新，但因为时间唔够用（就是懒?）就没搞了。一，下载地址https://github.com/Tibowl/KCCacheProxy二，下载选择releases下边有几个下载项，DOWN边个？

KCCacheProxy-x.x.x.Setup.exe，体积很大的GUI，唔好玩的，我唔用。linux同ma... [查看更多]

[GalGame解包记录]2014年5-6月

最后更新：2017年5月31日

46 条评论

我自己的GALGAME解包记录，仅解我自己喜欢的游戏，游戏跨度是2014年5-6月。

05月[140502][ピンポイント / キングピン] ケダモノ(家族)たちの住む家で～大嫌いな最低家族と彼女との●取られ同居生活～

crass：kirikiri2

[140509][Liquid] リキッドクロスオーバー～聖ダブルレイド～

asmodean：exmaotarc

[140501][田辺組] おいしゃさんレイパー

crass：kirikiri2

[140509][Crooked Navel] TS魔法少女なお

copy /b game.dat+game.001+game.002 RJ133220.dat

... [查看更多]

自动导出雷神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!"

... [查看更多]

批量转换日文编码文件为系统编码文件

最后更新：2013年3月31日

没有评论

自己写的批量将日文编码的文件转换为当前系统使用的编码的文件的工具。

一，工具有咩用可以批量快速将日文编码的文件转换为当前系统使用的编码的文件。

并自动将半角片假名（简体ANSI显示为?号）转为全角。

同时，以下常见特殊字符（简体ANSI显示为?号）会被替换为“·”

・†♪♥

1

・†♪♥

暂时4个，如果有其它又有兴趣请反馈。二，下载相关

文件: D:\Users\ztj\Desktop\ConvJpnToCn.exe大小: 43080 字节文件版本: 1.0.0.2修改时间: 2013年3月31日, 1:42:01MD5: 7AC3E2E4A369F9017B260... [查看更多]

编译VB.NET程序时自动支持大内存

没有评论

打开工程的属性，“编译”，点看右下角的“生成事件”按钮，系“后期生成事件命令行”加入

call "$(DevEnvDir)..\tools\vsvars32.bat"
editbin /LARGEADDRESSAWARE "$(TargetPath)"

1 2	call "$(DevEnvDir)..\tools\vsvars32.bat" editbin /LARGEADDRESSAWARE "$(TargetPath)"

咁就得了。

另外，你可以直接复制 vsvars32.bat 出来，然后直接加 editbin 系后边，有时用佢来改下D有需要的程序，如文明4。... [查看更多]

完整的添加，更新，删除操作 App.config 的类

没有评论

Imports System.Configuration

Public Class MyExeConfig

	Private conf As Configuration

	Public Sub New()
		conf = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)
	End Sub

	Public Sub Save()
		conf.Save(ConfigurationSaveMode.Modified)
		ConfigurationManager.RefreshSection("appSettings")
	End Sub

	Public Function getValue(ByVal sKey As String) As String
		If checkKey(sKey) Then
			Return conf.AppSettings.Settings.Item(sKey).Value
		Else
			Return String.Empty
		End If
	End Function

	Public Sub Add(ByVal sKey As String, ByVal sValue As String)
		conf.AppSettings.Settings.Add(sKey, sValue)
	End Sub

	Public Sub Remove(ByVal sKey As String)
		conf.AppSettings.Settings.Remove(sKey)
	End Sub

	Public Sub Update(ByVal sKey As String, ByVal sValue As String)
		If checkKey(sKey) Then
			conf.AppSettings.Settings.Item(sKey).Value = sValue
		End If
	End Sub

	Public Function checkKey(ByVal sKey As String) As Boolean
		Dim bFind As Boolean = False
		Dim keyarr As String() = conf.AppSettings.Settings.AllKeys
		For Each k As String In keyarr
			If 0 = String.Compare(k, sKey, StringComparison.Ordinal) Then
				bFind = True
				Exit For
			End If
		Next
		Return bFind
	End Function

End Class

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

Imports System.Configuration

Public Class MyExeConfig

Private conf As Configuration

Public Sub New()

conf = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)

End Sub

Public Sub Save()

conf.Save(ConfigurationSaveMode.Modified)

ConfigurationManager.RefreshSection("appSettings")

End Sub

Public Function getValue(ByVal sKey As String) As String

If checkKey(sKey) Then

Return conf.AppSettings.Settings.Item(sKey).Value

Else

Return String.Empty

End If

End Function

Public Sub Add(ByVal sKey As String, ByVal sValue As String)

conf.AppSettings.Settings.Add(sKey, sValue)

End Sub

Public Sub Remove(ByVal sKey As String)

conf.AppSettings.Settings.Remove(sKey)

End Sub

Public Sub Update(ByVal sKey As String, ByVal sValue As String)

If checkKey(sKey) Then

conf.AppSettings.Settings.Item(sKey).Value = sValue

End If

End Sub

Public Function checkKey(ByVal sKey As String) As Boolean

Dim bFind As Boolean = False

Dim keyarr As String() = conf.AppSettings.Settings.AllKeys

For Each k As String In keyarr

If 0 = String.Compare(k, sKey, StringComparison.Ordinal) Then

bFind = True

Exit For

End If

End Function

End Class

使用前先系窗体启动先NEW一下，MyExeConfig.exe.Config会自动加内容

  <appSettings>
    <add key="iYouKey" value="4" />
  </appSettings>

1

2

3

</appSettings>

... [查看更多]

乜都讲D

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

用VBS读写二进制数据包

[GalGame解包记录]2020年5-6月

舰Colle本地缓存代理“KCCacheProxy”使用方法

[GalGame解包记录]2014年5-6月

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

批量转换日文编码文件为系统编码文件

编译VB.NET程序时自动支持大内存

完整的添加，更新，删除操作 App.config 的类