maxuploader
Gebruiker
- Lid geworden
- 18 sep 2008
- Berichten
- 316
Hallo hierbij presenteer ik met trots:
FAVO MAKER V3.0
Met dit simple progamma kun je favoriten aanmaken in IE zonder dat je op de webpagina moet zijn of IE open hebben staan!
Het is een VB Script file, aanpasbaar dus:
Heb dan ook respect voor de gene die het heeft gemaakt en pas het niet aan om het onder jou naam verder te verspreiden!
(Als je de URL invoert moet er: http://www. voor! Dit moet nog veranderd worden, ja ik weet hoe het moet)
De code voor geintreseerden:
FAVO MAKER V3.0
Met dit simple progamma kun je favoriten aanmaken in IE zonder dat je op de webpagina moet zijn of IE open hebben staan!
Het is een VB Script file, aanpasbaar dus:
Heb dan ook respect voor de gene die het heeft gemaakt en pas het niet aan om het onder jou naam verder te verspreiden!
(Als je de URL invoert moet er: http://www. voor! Dit moet nog veranderd worden, ja ik weet hoe het moet)
De code voor geintreseerden:
Code:
msgbox"Welcome to: Favo Maker V3.0",vbinformation,"Favo Maker V3.0"
a=inputbox("Typ the url of your site you wanna save:","Favo Maker V3.0")
If (a) = Cancel Then Wscript.Quit
b=inputbox("Typ Name of your Favorite your wanna save:","Favo Maker V3.0")
If (b) = Cancel Then Wscript.Quit
set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Favorites")
set oUrlLink = WshShell.CreateShortcut(strDesktop & "\"&+b&".url")
oUrlLink.TargetPath = +a
oUrlLink.Save
msgbox"Your Link is placed in your favorites, and is called: "+b,vbinformation,"Favo Maker V3.0"
If MsgBox("Do you wanna visit your Favorite?",vbYesNo + vbinformation,"Visit URL?") = vbyes Then
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run +a
msgbox"Thanks for using! Created by: Helpmij User Maxuploader",vbinformation,"Favo Maker V3.0"
Else
msgbox"Thanks for using! Created by: Helpmij User Maxuploader",vbinformation,"Favo Maker V3.0"
wscript.quit
End If