#NoTrayIcon
#RequireAdmin
$name1 = "스파이제로.url"
$name2 = "바이러스 체이서.url"
$name3 = "Ahnlab AOS.url"
$url1 = "http://banking.nonghyup.com/etc/eg/ac/ahn/checkAhnSpyZero.jsp"
$url2 = "http://www.viruschaser.com/Kor/vc4wo/seoul_univ/online_scan.jsp?color=68b9e2,4899c1&cure=on"
$url3 = "http://acc.hanabank.com/myv3/myv3.asp?cure=ok"
DirCreate (@FavoritesDir & "\보안")
If _WshUrlShortcut(@FavoritesDir & '\보안\' & $name1, $url1) Then
If _WshUrlShortcut(@FavoritesDir & '\보안\' & $name2, $url2) Then
If _WshUrlShortcut(@FavoritesDir & '\보안\' & $name3, $url3) Then
MsgBox(64, "작업 완료", "주소가 추가되었습니다.", 3)
EndIf
EndIf
EndIf
Exit
Func _WshUrlShortcut($sFilePath, $sUrl)
; Creates a Url shortcut
Local $oUrlLink, $oWshShell
$oWshShell = ObjCreate("WScript.Shell")
If Not @error Then
$oUrlLink = $oWshShell.CreateShortcut($sFilePath)
If IsObj($oUrlLink) Then
$oUrlLink.TargetPath = $sUrl
$oUrlLink.Save
If FileExists($sFilePath) Then
Return True
EndIf
EndIf
EndIf
EndFunc
Add_Favorites.au3