LOL...Was ist denn das für ein Fail Das ist ein Forum voll von Programmierern und das epvp Team schafft es nichtmal jemanden die IP zu sperren? Da brauch ich ja gar nicht fragen ob man in der Lage ist einen Hardware ID Bann vorzunehmen...
LOL...Was ist denn das für ein Fail Das ist ein Forum voll von Programmierern und das epvp Team schafft es nichtmal jemanden die IP zu sperren? Da brauch ich ja gar nicht fragen ob man in der Lage ist einen Hardware ID Bann vorzunehmen...
ein ip ban ist glaube ich rechtlich gesehen nicht möglich hwid jedoch in sonderfällen schon
Control.CheckForIllegalCrossThreadCalls = False
If My.Computer.FileSystem.FileExists("ISD") Then
'Si existe, lo borrara
My.Computer.FileSystem.DeleteFile("ISD")
End If
Dim mbsList As ManagementObjectCollection = New ManagementObjectSearcher("Select ProcessorID From Win32_processor").Get
Dim mo As ManagementObject
For Each mo In mbsList
Me.label7.Text = mo.Item("ProcessorID").ToString
Next
My.Computer.Network.DownloadFile _
("http://www.example.com/LIC.txt", "ISD")
Dim reader As New StreamReader("ISD")
Do While (reader.Peek > -1)
Me.ListBox1.Items.Add(reader.ReadLine)
Loop
reader.Close()
Timer1.Interval = 1
Timer1.Enabled = True
In Timer1.Tick
Code:
If (Me.ListBox1.FindString(Me.label7.Text) <> -1) Then
Me.Timer1.Enabled = False
MyBase.Enabled = True
Else
Me.Timer1.Enabled = False
Me.Text = (Me.Text & " - License Invalid")
MessageBox.Show(("Buy license.."))
Clipboard.SetText(Me.label7.Text)
Application.Exit()
End If
Control.CheckForIllegalCrossThreadCalls = False
If My.Computer.FileSystem.FileExists("ISD") Then
'Si existe, lo borrara
My.Computer.FileSystem.DeleteFile("ISD")
End If
Dim mbsList As ManagementObjectCollection = New ManagementObjectSearcher("Select ProcessorID From Win32_processor").Get
Dim mo As ManagementObject
For Each mo In mbsList
Me.label7.Text = mo.Item("ProcessorID").ToString
Next
My.Computer.Network.DownloadFile _
("http://www.example.com/LIC.txt", "ISD")
Dim reader As New StreamReader("ISD")
Do While (reader.Peek > -1)
Me.ListBox1.Items.Add(reader.ReadLine)
Loop
reader.Close()
Timer1.Interval = 1
Timer1.Enabled = True
In Timer1.Tick
Code:
If (Me.ListBox1.FindString(Me.label7.Text) <> -1) Then
Me.Timer1.Enabled = False
MyBase.Enabled = True
Else
Me.Timer1.Enabled = False
Me.Text = (Me.Text & " - License Invalid")
MessageBox.Show(("Buy license.."))
Clipboard.SetText(Me.label7.Text)
Application.Exit()
End If
Nice, but we will use server to make the license part and we will put the license in the account no in the computer but anyway thanks for your code.
PD: I also see that you speak spanish like me, if you want we could talk more, add me to my skype: gnome.programming
About jmpl3's idea: It's good, but can be easily emulated unless extra encryption is added. Also, I think that there is a server already to do the packet job
Control.CheckForIllegalCrossThreadCalls = False
If My.Computer.FileSystem.FileExists("ISD") Then
'Si existe, lo borrara
My.Computer.FileSystem.DeleteFile("ISD")
End If
Dim mbsList As ManagementObjectCollection = New ManagementObjectSearcher("Select ProcessorID From Win32_processor").Get
Dim mo As ManagementObject
For Each mo In mbsList
Me.label7.Text = mo.Item("ProcessorID").ToString
Next
My.Computer.Network.DownloadFile _
("http://www.example.com/LIC.txt", "ISD")
Dim reader As New StreamReader("ISD")
Do While (reader.Peek > -1)
Me.ListBox1.Items.Add(reader.ReadLine)
Loop
reader.Close()
Timer1.Interval = 1
Timer1.Enabled = True
In Timer1.Tick
Code:
If (Me.ListBox1.FindString(Me.label7.Text) <> -1) Then
Me.Timer1.Enabled = False
MyBase.Enabled = True
Else
Me.Timer1.Enabled = False
Me.Text = (Me.Text & " - License Invalid")
MessageBox.Show(("Buy license.."))
Clipboard.SetText(Me.label7.Text)
Application.Exit()
End If
WTF This code is the 3rd worsest ive ever seen... after the old futautobuyervand dorfman aka dr.toni
DeviasOnline Account Database partially 02/18/2013 - SRO Private Server - 6 Replies Have fun guys, these are ids and pws of a few thousond accounts :)
However, most of them are already cleaned out by 15-20 friends of mine, the ones remaining... well have fun :)
This ofc includes some other fun stuff, for example the passport copy of the server owner or the amount of money that ass "Silverlight" was making :O
Partially invisible char 09/16/2011 - SRO Private Server - 9 Replies Why am i half invisible.. or is this just bloodys client fault ?
http://img703.imageshack.us/img703/3237/unledkha. th.png
Any info good ty
How To Run Partially Serverfiles ReMake Highquallity 08/25/2009 - Metin2 PServer Guides & Strategies - 107 Replies Moin ,
da nico_w in seinem tut soviele fehler hatte und es viel zu schnell war hier mal ein ReMake von mir ;)
sind 23,5 MB Gepackt und entpackt 500 MB
Have Fun :
*
![[Announcement] Elixir-Bot [New and partially free]](https://www.elitepvpers.com/forum/iconimages/darkorbit/announcement-elixir-bot-new-partially-free_ltr.gif){kind=small}
Das ist ein Forum voll von Programmierern und das epvp Team schafft es nichtmal jemanden die IP zu sperren? Da brauch ich ja gar nicht fragen ob man in der Lage ist einen Hardware ID Bann vorzunehmen...
I hope you have enough time to update it(I hope it doesn't end like boxybot).
but anyway thanks for your code.
