VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 2285|回复: 2

请问我该怎么做

[复制链接]
 楼主| 发表于 2005-10-6 01:39:53 | 显示全部楼层
<img src="images/emoticons/sad.gif" style="vertical-align:middle" emoid="" border="0" alt="sad.gif" /> 按照某个帖子的做法,我实现了用vb运行一个快捷方式,无论指向什么内容(exe,rar,txt,文件夹)都能顺利打开,可是却不能打开ADSL的快捷方式,这其中的原因我也明白,就是因为它并不指向任何文件,windows自带PPPOE的ADSL拨号是虚拟的。<br />我想实现的就是打开快捷方式就完全等同于,我用鼠标双击它!不管它指向什么东东。。。<br />有哪位高手能帮我实现? 多谢!(不要类似按键精灵的捕捉鼠标位置模拟键盘按键的方法)<br />原始文件内容如下:VERSION 5.00<br />Begin VB.Form Form1 <br />   Caption         =   &quot;Form1&quot;<br />   ClientHeight    =   3090<br />   ClientLeft      =   60<br />   ClientTop       =   450<br />   ClientWidth     =   4680<br />   LinkTopic       =   &quot;Form1&quot;<br />   ScaleHeight     =   3090<br />   ScaleWidth      =   4680<br />   StartUpPosition =   3  &#39;窗口缺省<br />   Begin VB.CommandButton Command1 <br />      Caption         =   &quot;Command1&quot;<br />      Height          =   735<br />      Left            =   720<br />      TabIndex        =   0<br />      Top             =   480<br />      Width           =   1335<br />   End<br />End<br />Attribute VB_Name = &quot;Form1&quot;<br />Attribute VB_GlobalNameSpace = False<br />Attribute VB_Creatable = False<br />Attribute VB_PredeclaredId = True<br />Attribute VB_Exposed = False<br />rivate Declare Function ShellExecute Lib &quot;shell32.dll&quot; Alias &quot;ShellExecuteA&quot; (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long<br />Const SW_SHOW = 5<br /><br />rivate Sub Command1_Click()<br />ShellExecute Me.hwnd, &quot;open&quot;, &quot;C:\Documents and Settings\lqy\桌面\adsl.lnk&quot;, &quot;&quot;, &quot;&quot;, SW_SHOW<br />End Sub<br />
回复 支持 反对

使用道具 举报

发表于 2006-1-17 01:49:26 | 显示全部楼层
<!--quoteo(post=77291:date=2005-10-06 01&#58;39&#58;53:name=紫电狂龙)--><div class='quotetop'>QUOTE(紫电狂龙 @ 2005-10-06 01&#58;39&#58;53) [snapback]77291[/snapback]</div><div class='quotemain'><!--quotec--><br /><img src="images/emoticons/sad.gif" style="vertical-align:middle" emoid="" border="0" alt="sad.gif" /> 按照某个帖子的做法,我实现了用vb运行一个快捷方式,无论指向什么内容(exe,rar,txt,文件夹)都能顺利打开,可是却不能打开ADSL的快捷方式,这其中的原因我也明白,就是因为它并不指向任何文件,windows自带PPPOE的ADSL拨号是虚拟的。<br />我想实现的就是打开快捷方式就完全等同于,我用鼠标双击它!不管它指向什么东东。。。<br />有哪位高手能帮我实现? 多谢!(不要类似按键精灵的捕捉鼠标位置模拟键盘按键的方法)<br />原始文件内容如下:VERSION 5.00<br />Begin VB.Form Form1 <br />   Caption         =   &quot;Form1&quot;<br />   ClientHeight    =   3090<br />   ClientLeft      =   60<br />   ClientTop       =   450<br />   ClientWidth     =   4680<br />   LinkTopic       =   &quot;Form1&quot;<br />   ScaleHeight     =   3090<br />   ScaleWidth      =   4680<br />   StartUpPosition =   3  &#39;窗口缺省<br />   Begin VB.CommandButton Command1 <br />      Caption         =   &quot;Command1&quot;<br />      Height          =   735<br />      Left            =   720<br />      TabIndex        =   0<br />      Top             =   480<br />      Width           =   1335<br />   End<br />End<br />Attribute VB_Name = &quot;Form1&quot;<br />Attribute VB_GlobalNameSpace = False<br />Attribute VB_Creatable = False<br />Attribute VB_PredeclaredId = True<br />Attribute VB_Exposed = False<br />rivate Declare Function ShellExecute Lib &quot;shell32.dll&quot; Alias &quot;ShellExecuteA&quot; (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long<br />Const SW_SHOW = 5<br /><br />rivate Sub Command1_Click()<br />ShellExecute Me.hwnd, &quot;open&quot;, &quot;C:\Documents and Settings\lqy\桌面\adsl.lnk&quot;, &quot;&quot;, &quot;&quot;, SW_SHOW<br />End Sub<br /><!--QuoteEnd--></div><!--QuoteEEnd--><br /><br /><br /><br />感谢您的帖子,让我又学到的招了,谢谢了&#33;&#33;<br />另外我也提供一个方法给你,可以打开你说的那种,你试试,反正,我试过可以打开网上邻居的快捷方式的,应该是一样的吧,因为网上邻居的快捷方式也没有实指路径<br /><br />方法 :  Shell &quot;Rundll32.exe url.dll, FileProtocolHandler d:\net.lnk&quot;  <br /><br />你试试看&#33;
回复 支持 反对

使用道具 举报

发表于 2015-10-26 18:57:05 | 显示全部楼层
这写的都是什么东西呀。。。。。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-7-5 11:40

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表