Location: The 3 Ethical Hackers Discussion Forum

Discussion: a couple vb codesReported This is a featured thread

Showing 3 posts
Mason(pkk)
Mason(pkk)
a couple vb codes
Dec 18 2007, 6:27 PM EST | Post edited: Dec 18 2007, 6:27 PM EST
the following code will type whatever you want in a notepad without you typing, replace my text with whatever you want.

Set wshshell = wscript.CreateObject("WScript.Shell")
Wshshell.run "Notepad"
wscript.sleep 1000
wshshell.sendkeys "Mason is a leet HaXoR, Biotch"

the following code holds your backspace button:
MsgBox "rewind"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop

Do you find this valuable?    
Keyword tags: bat batch code coding hack hacker vb vbs
Mason(pkk)
Mason(pkk)
1. RE: a couple vb codes
Jan 8 2008, 8:55 AM EST | Post edited: Jan 8 2008, 8:55 AM EST
i will have to replace the first code on this post, i just looked back on it and realized the HUGE mistake i just made in my coding Do you find this valuable?    
Mason(pkk)
Mason(pkk)
2. RE: a couple vb codes
Jan 8 2008, 9:00 AM EST | Post edited: Jan 8 2008, 9:00 AM EST
There is the correction:

Set wshshell = wscript.CreateObject("WScript.Shell")
Wshshell.run "Notepad"
wscript.sleep 100
wshshell.sendkeys "M"
wscript.sleep 150
wshshell.sendkeys "a"
wscript.sleep 180
wshshell.sendkeys "s"
wscript.sleep 100
wshshell.sendkeys "o"
wscript.sleep 200
wshshell.sendkeys "n"
wscript.sleep 300
wshshell.sendkeys " "
wscript.sleep 100
wshshell.sendkeys "P"
wscript.sleep 100
wshshell.sendkeys "w"
wscript.sleep 50
wshshell.sendkeys "n"
wscript.sleep 180
wshshell.sendkeys "s"
wscript.sleep 220
wshshell.sendkeys " "
wscript.sleep 100
wshshell.sendkeys "L"
wscript.sleep 150
wshshell.sendkeys "i"
wscript.sleep 170
wshshell.sendkeys "f"
wscript.sleep 190
wshshell.sendkeys "e"
Do you find this valuable?    

Related Content

  (what's this?Related ContentThanks to keyword tags, links to related pages and threads are added to the bottom of your pages. Up to 15 links are shown, determined by matching tags and by how recently the content was updated; keeping the most current at the top. Share your feedback on Wetpaint Central.)