说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB建立拨号联接 -VB资料

HTML文档下载 WORD文档下载 PDF文档下载
VB建立拨号联接 -VB资料

Public Const RAS_MaxEntryName = 256

Private Type RASENTRYNAME
dwSize As Long
szEntryName(RAS_MaxEntryName) As Byte
End Type

c 中 Char aa[16] 代表长度是16,可放 15个byte所以对应於vb便是 aa(15) as Byte
如此才是长度16 ( 0--15)。故VB的宣告中不能再用szEntryName(RAS_MaxEntryName+1)

但是Lenb(RASENTRYNAME)的长度却是 261 (4+257),的确,这是vb的问题,而c 的SizeOf
传回的是4的倍数(32位元嘛)故值为264,所以我们计算某个Structure的长度时,要再多一
些运算。

以下的Fuction只适用於32位元的win95/ NT,

'以下在Form中

Private hConn as Long
Private Sub Command1_Click()
hConn = Dialup("我的连线", "user", "passwd")
if hConn = 0 Then
Debug.Print "连线失败"
end if
End Sub

Private Sub Command2_Click()
Call HangUp(hConn)
End Sub

'以下在.bas中
Option Explicit
Public Const RAS_MaxEntryName = 256
Public Const RAS_MaxDeviceName = 128
Public Const RAS_MaxDeviceType = 16
Public Const RAS_MaxPhoneNumber = 128
Public Const RAS_MaxCallbackNumber = 128
Public Const UNLEN = 256
Public Const PWLEN = 256
Public Const DNLEN = 15
Public Const ERROR_INVALID_HANDLE = 6
Type RASDIALPARAMS
dwSize As Long '1052
szEntryName(RAS_MaxEntryName) As Byte
szPhoneNumber(RAS_MaxPhoneNumber) As Byte
szCallbackNumber(RAS_MaxCallbackNumber) As Byte
szUserName(UNLEN) As Byte
szPassword(PWLEN) As Byte
szDomain(DNLEN) As Byte
End Type

Type RASCONNSTATUS
dwSize As Long '144
RasConnState As Long
dwError As Long
szDeviceType(RAS_MaxDeviceType) As Byte
szDeviceName(RAS_MaxDeviceName) As Byte
End Type

Declare Function RasGetErrorString Lib "rasapi32" _
Alias "RasGetErrorStringA" (ByVal ErrValue As Long, ByVal lpErrStr As String, _
ByVal cSize As Long) As Long
Declare Function RasDial Lib "rasapi32" _
Alias "RasDialA" (DialExt As Long, ByVal lpPhoneBook As String, _
RasDialParam As RASDIALPARAMS, ByVal NotifyType As Long, _
ByVal Notifter As Long, hRasConn As Long) As Long
Declare Function RasHangUp Lib "rasapi32" Alias _
"RasHangUpA" (ByVal hRasConn As Long) As Long
Declare Function RasGetConnectStatus Lib "rasapi32" Alias _
"RasGetConnectStatusA" (ByVal hRasConn As Long, _
lprasconnstatus As RASCONNSTATUS) As Long
Declare Function RasGetEntryDialParams Lib "rasapi32" _
Alias "RasGetEntryDialParamsA" (ByVal lpszPhonebook As String, _
lpRasDialParams As RASDIALPARAMS, _
lpfPassword As Byte) As Long
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

'自动拨接(Win95 4, 5 个参数不传,或为vbNullString)
Public Function DialUp(ByVal EntryName As String, ByVal UserN As String, _
ByVal Pwd As String, Optional ByVal PhoneBook As String, Optional sDomain As String) As Long
Dim RasDialPara As RASDIALPARAMS
Dim bya() As Byte, di As Long
Dim len5 As Long, i As Long
Dim hRasConn As Long

len5 = LenB(RasDialPara)
i = (4 - (len5 Mod 4)) Mod 4
RasDialPara.dwSize = len5 + i '1052
bya = StrConv(EntryName, vbFromUnicode) + ChrB(0)
Call CopyByte(RasDialPara.szEntryName, bya)

bya = StrConv(UserN, vbFromUnicode) + ChrB(0)
Call CopyByte(RasDialPara.szUserName, bya)

bya = StrConv(Pwd, vbFromUnicode) + ChrB(0)
Call CopyByte(RasDialPara.szPassword, bya)

bya = StrConv(sDomain, vbFromUnicode) + ChrB(0)
Call CopyByte(RasDialPara.szDomain, bya)
'若使用以下CallBack function的方式,则RasDial()不等连线成功或失败便结束。
di = RasDial(0, PhoneBook, RasDialPara, 0, AddressOf RasDialFunc, hRasConn)

'若第二、叁个参数都是0则,RasDial会等连线成功或失败後才执行下一行指令
'di = RasDial(0, PhoneBook, RasDialPara, 0, 0, hRasConn)

If di = 0 Then
DialUp = hRasConn
Else
DialUp = 0
Dim str5 As String
str5 = String(255, Chr(0))
Call RasGetErrorString(di, str5, 256)
MsgBox Left(str5, InStr(1, str5, Chr(0)) - 1), vbCritical
Call HangUp(hRasConn)
End If
End Function

Public Sub RasDialFunc(ByVal unMsg As Long, _
ByVal ConnState As Long, _
ByVal dwError As Long)
If ConnState = &H2000 Then
' Connect Complete
End If

'取消拨接
Public Function HangUp(ByVal hconn As Long) As Boolean
Dim st As Long, len5 As Long
Dim i As Long, ConStatus As RASCONNSTATUS
st = RasHangUp(hconn)
len5 = LenB(ConStatus)
i = (4 - (len5 Mod 4)) Mod 4
ConStatus.dwSize = len5 + i
Do While True
Call Sleep(0)
i = RasGetConnectStatus(hconn, ConStatus)
If i = ERROR_INVALID_HANDLE Then
Exit Do
End If
Loop
If st = 0 Then
HangUp = True
Else
HangUp = False
End If
End Function

Private Sub CopyByte(dest() As Byte, sour() As Byte)
Dim sourL As Long, sourU As Long
Dim destL As Long, destU As Long, i As Long, j As Long
sourL = LBound(sour)
sourU = UBound(sour)
destL = LBound(dest)
destU = UBound(dest)
j = 0
For i = sourL To sourU
dest(destL + j) = sour(i)
j = j + 1
If j >= (destU - destL) + 1 Then
Exit For
End If
Next i
End Sub
消息称苹果正在寻找新任CEO取代库克 请别人云亦云 PC仍然重要且活得很好 比预想晚几年!IBM x86服务器或终将卖给联想 App推广的节操呢? iMessage垃圾短信产业链暗访 Apkudo CEO访谈:免费为Android开发者提供测试 Web API核查表:设计、测试、发布API时需思考的43件事 开源Android构建工具Buck 速度超Ant两倍 从史上八大MySQL事故中学到的经验 OpenStack Heat向应用市场更近一步 初创公司Ionic Security:云安全必须与时俱进 谷歌董事长:一年后消费者才能用上Goolge Glass Windows 8.1重新推出的“开始按钮”毫无意义 手眼并用 代码泄露三种Google Glass手势操作 Google新论文 CPI²:基于Linux的世界级跨数据中心服务器CPU监控 20款非常实用的Web工具和资源列表 数据库界大事件 随机写性能巨好的TokuDB开源了 CMDN Club 26期:数字渠道营销主题沙龙 暴强:用iOS设备控制的HTML5“小蜜蜂”游戏 Leap Motion:500元体感,精确到0.01毫米 大事件:三大运营商将发布融合计费SDK 再培养一个扎克伯克:六款适合儿童上手编程的App 首届中国软件工程标准高峰论坛:软件开发的新机遇与挑战 Verizon研究显示:中国成为2012年度网络间谍攻击的主要来源 Clang宣布全面支持C++11标准 北大陈钟:SEMAT—中国软件工程发展的新机遇 超华尔街预期:苹果第二财季营收为436亿美元 跨平台游戏引擎Spaceport已被Facebook收购 文科生开发GPU数据库 性能超传统数据库70倍 开发者赚了90亿:从苹果Q2财报,看iOS生态 备受开发者青睐的13款热门开源项目 Netflix赌赢《纸牌屋》背后的秘密武器:大数据分析 100M asp + 20M email空间求:一加密解决办法!! 解决即可送 高手指点:关于软件界面的问题!!! 交叉编译? 水晶报表只显示空白,请帮忙! Oracle的结果集怎么会是readonly的?我明明创的是UpdateAble的,急!!! 100M asp+ 20M email空间求:一加密解决办法!! 解决即可送 SQLServer中解决半个汉字问题 這兩個問題怎麼答??? 请问如何在asp.net中使用msagent的技术呢? 100M asp +20M email空间求:一加密解决办法!! 解决即可送。 发布RdSmartPanel控件!!!!!!!! 连接数据库出错~ 当按ctrl+alt+del三个键如何通过更改注册表使在进入任务管理器之前要输入密码。 有可以实现这种功能的可能吗? 如何在网上建立一个论坛? 如何截取字串中的一部分?如:str="the price is 50¥",而我只想要其中的50,asp中是否有这种截取字串的函数??谢谢? 数据模块的疑问!在线等! 能否简化一下以下的代码 大家知道那里提供的asp虚拟主机被较好。要有ms sqlserver 支持,费用如何 有没有人能具体讲一讲关于大文本处理的过程! 一个小型局域网,通过防火墙上网,为什么有的机子可以上网,但网上邻居看不到呢? 显示器出现抖动~~~ 请教: 在Excel中如何查找数据? 女生向IT领域发展应往哪方面发展好? 各位老大过来看看,水晶报表问题 iframe 问题 有哈尔滨的程序员朋友吗?近来报个名就行 VS.NET 2003 正式简体中文版问题? PHP中有没有可以跨页面、跨session的变量? varbinary类型如何在datagrid中显示 几个简单的问题,在线等 配置SQL分布服务器时出错?急!在线等待! 有关CIH病毒 请教:如何使jpg图片放大后仍保持图像的清晰? 为我女友找工作, 地点:长沙。请大家帮忙,散尽所有分皆可:4860分。 谁知道installAnywhere的注册码?50分!!! [在线求助]:登陆的时候是用cookies来保存用户名和密码的,当用户没有正常退出,(比如说电脑断电了,直接关闭了ie等等)那应该怎么样清 关于按钮触发数据库操作 软件报价,用sql且windows界面的软件,大虾们估计多少money? 请问怎样在C#中调用VB.NET的类库? 在servlet里大量使用静态方法会不会有并发访问的问题 谁知道installAnywhere的注册码?100分!!! 谁有《visual C++网络高级编程》一书的配套光盘?邮电出版 开机时显示 NTLDR IS MISSING, 谁知道这是怎么回事? 急!应该用什么实现? CListCtrl如何让动态改变图标!GetItem()如何使用??,解决加分 怎样设置oracle的maximum number of processes 那个知道那里有DELPHI 7.0下啊,给分 delphi&spl GGJJ们谁有电子版《windows核心编程》的完整的第27章啊?偶的那一版这章只有半截 请教一个写入文本的问题,解决200分相送,在线等 如何做到高人一筹 常微分方程的matlab算法二阶常微分方程的matlab程序,c语言也可以,只说说思路或者写出大体上的程序就可以了,涉及到具体方程的时候可以不必写出 淡组词有哪些 正六棱锥的底面边长为4厘米,高为2厘米,求它的侧面积 "无家可归"的英文怎么写啊? 已知a(-1,1) b(0,2) c(2,0),若向量ab与向量cd为相反向量,则d点坐标为…… 一个高数纠错题,这题我错在哪,请帮忙指出, 用英语说我愿意帮助无家可归的人们 淡 组词 (20个 ) 举1个实例使解答问题的式子为4×(-6)不要太长 全是同义词的一项是?A.修正 修订 修改 订正 B.珍藏 收藏 宝藏 贮藏 C.珍贵 宝贵 珍宝 贵重D.修葺 修理 修复 修长 为什么小草离不开闪电才能生存 要一句一句翻译陈太丘与友期 把4.5立方分米的水倒入长5分米,宽0.3分米,高4分米的水槽里,水面离水槽顶部有多少厘米? 淡字可以组什么词语 描写夏天的一段话20字以内急! 司母戊鼎什么时候成后母戊鼎的? 淡可以组什么词 求教一道高数极限问题x趋向于1.lim(x) sin(pai x)/(x-1)=lim pai cos (pai x)=.-pai.中间是怎么转换的.是无穷小等小替换么 把4.5立方分米的水倒入长5分米,宽0.3分米,高4分米的水槽里,水面离水槽顶部有多多少厘米? 怎样用“淡”组词 浓字组词怎么组词? 改造 改变 的区别 关于病梅馆记的问题作者对梅是怎样治疗的?反映了作者什么思想? 浓怎么组词 -M加括号吗? 解析几何怎么学啊、、、感觉很难算······ 稍组词浓组词 司母戊鼎有多少个仿制品?展出仿制品有意义吗?真正的后母戊鼎在? 数列和解析几何的题目做了一些,但感觉跟没做一样,这该怎么办?一轮复习该怎么提高效率呢? piay with 若m-1的绝对值加括号n加3括号的平方等于0,则m-n加3的值是 浓有什么组词我要回答 求教一道高数题目求函数f(x)=e^(-x)∑(k=0→n)x^k/k!的极值 懂日语得进!日语中形1、形2是不是就是一类形、二类形,还有形容词、形容动词? 我在导数和解析几何上有点疑惑 我做过很多题 可感觉自己没太大的收获 很多题就是想到一半就卡住了 有人说我基础知识不扎实 我去看课本 做书上的题 感觉都很简单 做题时卡住我就会看 已知点A(a,1),B(-3,b),若ab平行于x轴,则a≠( ),b=( );若ab平行于y轴,则a=( ),b≠( ) 两个长方体水槽,小水槽能盛水4立方分米,大水槽能盛水11立方分米,不要度量计算,应该怎么使用这两个水槽盛5立方分米水? 浓字的组词 求教一道关于高数的题目cos z=xyz,求:dz “你帮助那些无家可归的人有困难吗?”的英文咋么说 浓的组词 a(4,x)b(y,-3)ab平行x轴,则x=,y=,ab平行y轴,则x=,y= 把560升水倒入1920立方分米的水槽里,水槽中水深多少米改:长方体水槽,里面量1920立方分米 还有长16分米,深12分米 所以改的题目是一个长方形水槽,从里面量长16分米,深12分米,如果将560 浓字怎么组词 将一个底面半径为3cm,高为4cm圆锥形直筒沿一条母线剪开,所得的侧面展开图的面积为多少? 无家可归的流浪人 英语什么说? 乡下孩子除了捉蝴蝶,挖野菜,逮小鱼外,他们还会干什么?(挖一篮野菜,撑圆了小猪的肚皮,拾一把稻穗,)依照这篇课文,写几句 【数学】一个圆柱零件底面直径3cm,高0.4cm,将零件表面上涂漆,涂漆的面积是多少? 司母戊鼎为何改成后母戊鼎? 一题解析几何 要求详细过程~ 求幂级数∑x^(4n-1)/(4n+1)的和函数,并求所给级数的和 树叶是绿娃娃,秋苗是绿娃娃,小草也是绿娃娃,相同的形容句子有? 解析几何题!急求!帮帮忙!要过程圆x2+y2-2x-5=0与圆x2+y2+2x-4y-4=0的交点为A,B,则线段AB的垂直平分线的方程是( ).还有这个(2):若圆x2+y2+4x-4y-1=0与圆x2+y2+2x-13=0相交于p,Q两点,求公共弦P,Q所在直线 求幂级数∑(n=1,∞) n^2x^(n-1)的和函数. 蕃秋草能给儿童用吗? 空间解析几何问题,求过程,谢谢 一个高数问题 求详细解答 谢谢了! 读一本书第一天比第二天多读三分之一多读了120页,两天各读了多少页? ]淡,组词 拜托啦~~高数问题的详细解答1dy -- + 3y =1········· 求Y dx 外交部:个别人在中俄关系中间打楔子不尼日尔沙漠一移民车抛锚 现场发现92背景资料:《马斯特里赫特条约》约旦举行中国电影周 构筑文化交流“新长春一在建高架桥发生局部坍塌(组图)北京市气象台发布霾黄色预警 空气污染国资委:国企改革方案争取三中全会后尽外交部:中俄关系发展不受任何外部势力中东部地区将迎大范围降水 罗莎将带来国防部:中印边防合作协议旨在有效维护律师称斯诺登将从11月起在俄大型网站中国高铁出口前景“复明”禁化武组织说叙利亚已按时销毁所有化武中方严重关切美监听活动报道 要求美方律师称斯诺登将开始在俄罗斯某大型网站欧盟称将核实欧洲是否协助美国安局搜集联合国计划成立预警机构 防范小行星撞俄罗斯称政府内部系统可防止领导人电话女童目睹家人在车祸中被烧死 获赔1.安倍经济学:IMF认为有益经济 日本女子坚持嫁给残障男友 坚贞真爱感动世华夏典当 特价绝当集中展卖陈宝成涉非法拘禁罪被山东警方逮捕(图“搞笑诺贝尔奖”颁奖科学嘉年华能免费开“歼 10”台湾高中国学教材首次进入大陆课堂臭虫跳蚤将纳入常态监测免费阅读《生命最后的读书会》PPTV节前开卖机顶盒精神病人被弃东莞医院涉事人撤职开除窦泽成期待收获中国公开赛资格淘粪工下井作业晕倒初中生救人获奖千元窦泽成期待收获中国公开赛资格香车美女狗舍坍塌 流浪狗露天安置男子深夜砍情敌获刑5年赔8万南京医药 为撑业绩甩卖资产叙申请加入禁化武公约 俄美会谈大唱“国务委员王勇考察中石油来早了孙悦谈加盟CBA欲言又止 感慨手感不就业服务月为军属提供4000岗位
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘