qddoit 发表于 2009-11-3 03:50:29

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

本帖最后由 qddoit 于 2009-11-9 17:04 编辑

建立网址 快捷方式代码

jxpxfeiw 发表于 2009-11-3 08:52:15

#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 发表于 2009-11-3 14:19:01

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

qddoit 发表于 2009-11-3 14:39:27

:face (6):

boyhong 发表于 2009-11-3 15:47:38

谢谢楼上的。
补充一下，是用命令直接建立个url文件
qddoit 发表于 2009-11-3 14:19 http://www.autoitx.com/images/common/back.gif

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

qddoit 发表于 2009-11-7 15:52:46

非常感谢，去试试~

qddoit 发表于 2009-11-7 18:27:43

如何建立个
Internet 快捷方式

sonny 发表于 2009-11-7 19:13:58

路过， 学习一下 ~~

menfan1 发表于 2009-11-8 08:44:54

FileCreateShortcut，看帮助哦
页: [1]
查看完整版本: 帮忙给个au建立网址快捷方式代码