帮忙给个au建立网址快捷方式代码

qddoit

建立网址 快捷方式代码

jxpxfeiw

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt('MustDeclareVars', 1)
Opt("GUIOnEventMode", 1)
add()
Func add()
        Global $Http, $ADD, $ADDGUI, $name, $MSHU
        $ADDGUI = GUICreate("创建", 286, 100, -1, -1)
        GUISetOnEvent($GUI_EVENT_CLOSE, '_exit')
        $name = GUICtrlCreateInput("请输入名称", 8, 8, 177, 21)
        $MSHU = GUICtrlCreateInput("请输入网站描述", 8, 70, 177, 21)
        $Http = GUICtrlCreateInput("请输入网站地址", 8, 40, 177, 21)
        $ADD = GUICtrlCreateButton("创建(&A)", 200, 8, 75, 21)
        GUICtrlSetOnEvent(-1, 'http')
        GUISetState()
        While 1
                Sleep(100)
        WEnd
EndFunc   ;==>add

Func _exit()
        Exit
EndFunc   ;==>_exit

Func http()
        FileCreateShortcut(@ProgramFilesDir & '\Internet Explorer\IEXPLORE.EXE', @DesktopDir & '\' & GUICtrlRead($name) & '.lnk', @ProgramFilesDir & '\Internet Explorer', ' ' & GUICtrlRead($Http), GUICtrlRead($MSHU), '', '', '', @SW_SHOWMAXIMIZED)
EndFunc   ;==>http

qddoit

谢谢楼上的。
补充一下，是用命令直接建立个url文件

qddoit

boyhong

谢谢楼上的。
补充一下，是用命令直接建立个url文件
qddoit 发表于 2009-11-3 14:19

FileCreateShortcut ( "目标文件", "lnk文件" [, "工作目录" [, "参数" [, "描述" [, "图标文件" [, "快捷键" [, 图标编号 [, 状态]]]]]]] )

qddoit

非常感谢，去试试~

qddoit

如何建立个  
Internet 快捷方式

sonny

路过， 学习一下 ~~

menfan1

FileCreateShortcut，看帮助哦