四个号都被封了,也不想说什么了,发点自己用的东西给大家,信的就下吧.
昨天在这里看到个帖子,说是什么删除游戏目录里的后缀名为keyset可以降低封号的可能,刚才一点维护的时候无聊就做了个自动删除keyset后缀文件的东东.没有毒的,自己用VB做的,在下面公布代码.另外在发一些自己用的东西.
PS:那些不信的就不要下了,免得被你们骂.............骂我的那些我先问候你全家女性.
Private Sub Command1_Click()
Select Case Command1.Caption
Case "启动"
Command1.Caption = "停止"
Label2.Caption = "软件正在运行"
Timer1.Interval = 1000
Timer1.Enabled = True
Case "停止"
Command1.Caption = "启动"
Label2.Caption = "停止运行"
Timer1.Enabled = False
End Select
End Sub
Private Sub Command2_Click()
If Dir(Text1.Text & "\DNF.exe") = "" Then
MsgBox "游戏路径设置有误!", , "系统"
Else
MsgBox "游戏路径设置正确!", , "系统"
Open App.Path & "\lujing.txt" For Output As #1
Print #1, Text1.Text
Close #1
End If
End Sub
Private Sub Form_Load()
Open App.Path & "\lujing.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, she
Text1.Text = she
Loop
Close #1
Me.Caption = "封号城与勇士(无聊版)"
Label1.Caption = "游戏路径:"
Label2.Caption = "请启动软件^^"
Command1.Caption = "启动"
Command2.Caption = "检查"
End Sub
Private Sub Timer1_Timer()
On Error Resume Next
Kill Text1.Text & "\*.keyset"
End Sub
