界面就是简单的两个text两个Command!分别是帐号密码还有拨号和连接!能稍微带有注释更好!谢谢各位了!
解决方案 »
- vb程序实现excel数据库的链接进行读写
- 《红遍全球》的歌词,让我好郁闷啊!
- [学习]超大数字的计算
- 如何将一文件夹下的所有文件全部备份,急!!!(up有分)
- 知道如何设置 MSHFlexGrid1 的列标头居中吗?
- treeview控件如何修改背景色和字色?
- 怎样把一整个文本文件的内容读到textbox中
- vb与vb.net的问题
- 请教各位:在VB中调用EXCEL后,可否还可以进行查询,查询后单元格的内容是否会不再规则呢?在线等候.谢谢
- 求助,判断Dir1控件中选中的文件中有没有下级文件夹的代码?
- 如何将xml直接读入到recordset
- 如何能快速将两个超大文本对比取不同呢?具体进来看!
'断开Internet网络连接
Public Function RASDisconnect()
Dim udtRASConn(255) As RASConnType, udtStatus As RASConnStatusType, lRet As Long, hRasConn As Long, GetRASHandle As Long
udtRASConn(0).dwSize = 412
lRet = RASEnumConnections(udtRASConn(0), udtRASConn(0).dwSize * 256, 0)
If lRet <> 0 Then GetRASHandle = 0 Else GetRASHandle = udtRASConn(0).hRascon
If GetRASHandle <> 0 Then Call RASHangUp(GetRASHandle)
End Function
'连接Internet网络
Public Function RASConnect(ByVal Phone_no, ByVal UserName As String, ByVal Password As String) As Boolean
Dim rp As RASDIALPARAMS, h As Long, resp As Long
rp.dwSize = Len(rp) + 6
ChangeBytes Phone_no, rp.szPhoneNumber 'Phone no. stored for Connection.
ChangeBytes "*", rp.szCallbackNumber 'Callback no. stored for Connection.
ChangeBytes UserName, rp.szUserName
ChangeBytes Password, rp.szPassword
ChangeBytes "*", rp.szDomain 'Domain stored for Connection.
resp = RasDial(ByVal 0, ByVal 0, rp, 0, ByVal 0, h) 'AddressOf RasDialFunc
RASConnect = (resp = 0)
End Function
这个我不太看得懂!难道就那么简单?就几行代码就可以了?还有就是我E文不太好!看不懂那些英文注释!麻烦各位帮翻译一下!谢谢!