《大赛》 - vb6.0吧

level 8

撷一樱花落楼主

自制简易lol皮肤挂载器
挂载皮肤lol如果不大改永久有效
网盘链接
挂载器
网盘链接
少许皮肤

2015年12月23日 01点12分 1

level 8

撷一樱花落楼主

挂载成功的鳄鱼

2015年12月23日 01点12分 2

level 8

撷一樱花落楼主

Private Sub Command1_Click()L = Text3.TextZ = Text4.TextOpen L & Z For Output As
#1Print #
1, Text5.TextClose #1Text7.Text = ("时间" & Now & Text2.Text & "皮肤还原成功..." + Chr(13) + Chr(10)) + (Text7.Text)Text8.Text = ""Open "C:\已挂载皮肤请勿删除！.txt" For Output As #2Print
#2, Text8.TextClose #
2End SubPrivate Sub Command2_Click()Form2.ShowEnd SubPrivate Sub Command3_Click()X = Text2.TextZ = "英雄联盟\Game\"L = Text3.Textg = Text4.Texta = Text1.Textb = L & Z & XDim f1$, f2f1 = af2 = b FileCopy f1, f2Open L & g For Append As
#2Print #
2, Text2.TextClose #2If Dir(L & Z & X) <> "" ThenText7.Text = ("时间" & Now & Text2.Text & "皮肤挂载完成，，赶紧登陆游戏试试吧..." + Chr(13) + Chr(10)) + (Text7.Text)Else: asdas = MsgBox(Text2.Text & "皮肤挂载失败", , "皮肤管理器提示")End IfOpen "C:\已挂载皮肤请勿删除！.txt" For Append As #7Print
#7, Text2.TextClose #
7Open "C:\游戏路径请勿删除！.txt" For Append As
#4Print #
4, Text3.TextClose #4 Open "C:\挂载记录！.txt" For Append As #14Print
#14, Text7.TextClose #
14End SubPrivate Sub Form_Load()If Dir("C:\游戏路径请勿删除！.txt") <> "" ThenElse: Open "C:\游戏路径请勿删除！.txt" For Append As
#3Print #
3, Text3.TextClose #3End IfIf Dir("C:\已挂载皮肤请勿删除！.txt") <> "" ThenElse: Open "C:\已挂载皮肤请勿删除！.txt" For Append As
#4Print #
4, Text3.TextClose #4End IfDim S$, N As Long, AROpen "C:\游戏路径请勿删除！.txt" For Binary As #1S = StrConv(InputB(LOF(1), 1), vbUnicode)Close #1AR = Split(S, vbCrLf)N = UBound(AR)Text3.Text = AR(N - 1)Open "C:\已挂载皮肤请勿删除！.txt" For Input As
#2Do Until EOF(2)Line Input #
2, nextlineText8.Text = Text8.Text + nextline + Chr(13) + Chr(10)LoopClose #2End SubPrivate Sub Label1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)Text1.Text = Data.Files(1)Dim a$, b$b = Text1.Texta = bText2.Text = fGetlast(a) & ""End SubFunction fGetlast(ByVal originalstring As String) As StringDim tmps() As StringDim delimeter As Stringdelimeter = "\"tmps = Split(originalstring, delimeter)fGetlast = tmps(UBound(tmps))End FunctionPrivate Sub Text8_LostFocus()L = Text3.Textg = Text4.Textasdw = M

2015年12月23日 01点12分 4