VB 打开网络连接
2011年10月29日
Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (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
Dim StartTm&
Private Sub Command1_Click()
'网络联接
ShellExecute Me.hwnd, "open", "explorer", "::{7007ACC7-3202-11D1-AAD2-00805FC1270E}", vbNullString, 1
Call DlyTm(500)
SendKeys "{F2}"
Call DlyTm(100)
SendKeys Chr(13)
Call DlyTm(100)
SendKeys Chr(13)
End Sub
Public Sub DlyTm(Optional Dtm As Long)
On Error Resume Next
If Dtm = 0 Then Dtm = 500
StartTm = GetTickCount
Do
DoEvents
Loop Until GetTickCount >= StartTm + Dtm
End Sub
发表评论
-
hash 表
2012-01-20 12:20 524hash 表 2011年04月07日 hash 表是基于 ... -
Android的交叉编译工具
2012-01-20 12:20 1055Android的交叉编译工具 2 ... -
GNU/Linux 编程中的定时器
2012-01-20 12:20 1642GNU/Linux 编程中的定时器 2011年06月08日 ... -
Linux设备驱动开发入门――Hello world
2012-01-20 12:20 782Linux设备驱动开发入门――Hello world 201 ... -
mod_python3.2.8中文手册(1、2、3)
2012-01-19 17:01 918mod_python3.2.8中文手册(1、2、3) 201 ... -
Python2.6+PyQt4.8+eric4+汉化+开发教程
2012-01-19 17:01 1496Python2.6+PyQt4.8+eric4+汉化+开发教程 ... -
简明python教程(下)
2012-01-19 17:01 699简明python教程(下) 2010 ... -
玩手机的都来看,教祢认识Python
2012-01-19 17:01 555玩手机的都来看,教祢认识Python 2010年08月03日 ... -
简明python教程(上)
2012-01-19 17:00 635简明python教程(上) 2010年06月11日 1、 ... -
VB窗口图表化
2012-01-17 06:45 582VB窗口图表化 2011年04月20日 '本模块为实现托 ... -
VB 两小时
2012-01-17 06:45 514VB 两小时 2011年09月25日 Option Ex ... -
使用 Shell 属性及方法
2012-01-17 06:45 998使用 Shell 属性及方法 2 ... -
VB关机代码
2012-01-17 06:45 651VB关机代码 2011年07月20日 .首先在Form1 ... -
越南签证、柬埔寨签证价格表
2012-01-16 05:35 598越南签证、柬埔寨签证价格表 2011年03月31日 20 ... -
越南旅游
2012-01-16 05:35 475越南旅游 2009年11月17日 a.越南驻中国大使馆: ... -
我国驻越南的外交机构
2012-01-16 05:35 544我国驻越南的外交机构 2011年03月23日 中国驻越南 ... -
中国驻各国大使馆电话及地址
2012-01-16 05:35 675中国驻各国大使馆电话及地址 2009年08月13日 ... -
各国驻香港大使馆
2012-01-16 05:35 582各国驻香港大使馆 2011年05月10日 香港机票网 ...
相关推荐
◆ 64.htm 如何中断【拨号网络连接】 ◆ 65.htm 设计Browser及FTP程序 ◆ 66.htm 设计Chat程序 ◆ 67.htm 设计E-mail程序 ◆ 68.htm 设置计算机名称 ◆ 69.htm 使用VB获得一页的HTML...
打开本地连接.vbs打开本地连接.vbs打开本地连接.vbs打开本地连接.vbs打开本地连接.vbs打开本地连接.vbs打开本地连接.vbs
VB在线网络收音机、网络电台程序,基于MediaPlayer播放组件,从界面上来说,程序打开后自动像QQ窗口一样隐藏停靠在屏幕顶部,鼠标移过去后自动展开。功能上本程序可以自动检查播放列表并下载,双击列表中任一节目...
实现网络端口的打开与连接,可以把一个程序实现网络共享
92,email.ZIP 收发电子邮件(16KB) 93,search.ZIP 网络搜索(22KB) 94,zhuce.ZIP 远程注册程序(203KB) 95,mapdriver.zip 用VB影射网络驱动器、打开网络驱动器程序源(10KB) 96,i038_...
在Visual Basic中连接和使用Access数据库中,为了确保数据库中信息的安全,往往要求对数据库文件进行加密,以防止非法用户通过其它的常规手段(如使用ACCESS将数据库文件打开、修改)将其打开。那么,在Visual Basic...
vb网络文件下载.txt vb获取数据库的子段名.txt vb获取数据库表.txt vb获取网页源代码.txt vb读取文件夹的所有文件名称.txt VB随机函数.txt vb颜色随机.txt zwj加密或解码.txt 删除文件.txt 动态生控件.txt 图片移动....
因为要用网页登录无线网络,但又不想每次都手动输入账号密码,尤其是信号不稳定的情况,经常掉线,严重的时候一个小时内就好几次,要是每次都手动登录的话,那人都要累死,所以写了这个快速登录程序,还加了个断线...
SendMessage改变任意程序的标题 SendMessage实现获得密码 IsIconic判断窗口是否已最小化 InternetGetConnectedStateEx网络连接状态测试 ShowCursor隐藏与显示鼠标 SHGetSpecialFolderPath...
gif89.dll 又一个播放gif文件的动态链接库 gifPlayer.ocx 又一个播放gif文件控件 flash.ocx 能播放flash动画文件 Digital.ocx 数码显示数字、时间,挺漂亮 MovingChar.ocx 循环移动的字幕 wmp.ocx 提供的...
Http proxy,由VB6.0编写的代理服务器的源码,要... 收集所有必要信息后,它连接到真实服务器并传递标头数据。 打开程序后,可单击监听按钮,实现代码服务的监听功能,也可适时停止这个功能。 本源码来自于国外。
建立可自动打开超连接的Label,可以使用缺省的浏览器打开诸如http://www.apple.com类的地址,可以使用缺省的电子邮件程序打开类似于mailto:vbcode@21cn.com这样的电子邮件地址。(3KB)
实现对“我的电脑”中“拨号网络”的控制,如“新建一个连接”,打开某个“连接”的属性(2KB) 17,ime.ZIP 在VB中切换中文输入法的演示(4KB) 18,getpw.ZIP 获取密码文本密码输入框中的密码(2KB) 19,ownerdrawlist....
108.zip 微软的DirectX 7 for VB开发库文件(187KB) 38,11.zip MsgHook 用于子分类、截获消息的控件(147KB) 39,c1.zip Windows 9x注册表控件(35KB) 40,c8.zip 只要点击就可以打开超连接的...
绝对是源码,而不是文本,可以生成可...下载后打开文件,使用迅雷全部链接下载,点自动命名选择注释命名,这样下载下来的文件就是中文的,而不是讨厌的英文。 全套VB源码接近两千个,我会逐一分类上传,请大家关注。
(2)在运行第8章的实例1时,需要用户计算机连接到网络中,并与其 它机器建立了连接。否则,程序将会出现“WNetEnumResource错 误或没有发现映射驱动器”错误提示信息。 (3)在运行第12章的实例2、实例3和...
(25KB) 578,g020_zm019 一个拼图游戏,可以自己指定图片进行游戏(12KB) 579,g019_zm011 一个网络五子棋的源程序(并有聊天功能)(41KB) 580,g018_zm010.zip 中国象棋的源程序,支持网络作战(23KB)...
WNetCancelConnection 结束一个网络连接 WNetCancelConnection2 结束一个网络连接 WNetCloseEnum 结束一次枚举操作 WNetConnectionDialog 启动一个标准对话框,以便建立同网络资源的连接 WNetDisconnectDialog ...
(25KB) 578,g020_zm019 一个拼图游戏,可以自己指定图片进行游戏(12KB) 579,g019_zm011 一个网络五子棋的源程序(并有聊天功能)(41KB) 580,g018_zm010.zip 中国象棋的源程序,支持网络作战(23KB)...