Favorite Maker V3.0 (TEST NU)

Status
Niet open voor verdere reacties.

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:

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
 

Bijlagen

Met dit simple progamma kun je favoriten aanmaken in IE zonder dat je op de webpagina moet zijn of IE open hebben staan!
Nou Script dan wat jij wil!
 
Internet Explorer
Dat is de bekenste afkorting voor Internet Explorer
 
Ja die site ken ik!
Maar de laatste keer dat ik daar wat converteerde kwam er een box aanhet eind van het script:
Thanks for using vbs2exe.com ofzo
of is dat nu weg?
 
Ja die site ken ik!
Maar de laatste keer dat ik daar wat converteerde kwam er een box aanhet eind van het script:
Thanks for using vbs2exe.com ofzo
of is dat nu weg?

Geen idee, heb je de offline of online converter gebruikt. Ik paste-te altijd de code via de website en ik kreeg geen box. Maar ik kan dat niet checken omdat de site te druk is. Too busy
 
Ja had ik toen ook: Server to busy!:confused:
Maar ik kreeg eerst ook geen box maar het maakte niet uit of ik de online versie gebruikte of de offline!:(

Dus het maakt niet echt uit!
 
Interresant, kan ik bij me webbrowser gebruiken:thumb:
Bedankt hé!!!
 
Graag gedaan!
De code was orgineel voor snelkoppelingen maken maar met wat inputboxen en en genoeik met de "Windows Special Folder" Kom je er!

@WILLIAMXXXX: Als die in je webbrowser verwerkt zit hoor ik het graag!
EDIT: Niemand anders intresse?
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan