VB程序员博客

各位兄弟，有人用过微软的msrdp，或者说是mstsc的activex控件么，我想用这个控件来做远程桌面，但是要配合ssl vpn来使用，也就是mstsc控件需要通过加密通道到vpn然后由vpn解密后发送到terminal service上去，有人知道怎么做么，或者有个思路也可以啊，谢谢了！呵呵！帮顶,关注一下.

貌似这个挺少的.Up ……….
使用这个吧，分服务器和客户端的。

网站

my blog
http://ufo-crackerx.blog.163.com/Friendly Up!楼主说的是远程桌面WEB访问吧没有玩过，帮顶已不可用，2003 刚出来时，还可以，被人用做攻击软件。
因为不是所有的服务器都设立了帐号锁。

各位兄弟，有人用过微软的msrdp，或者说是mstsc的activex控件么，我想用这个控件来做远程桌面，但是要配合ssl vpn来使用，也就是mstsc控件需要通过加密通道到vpn然后由vpn解密后发送到terminal service上去，有人知道怎么做么，或者有个思路也可以啊，谢谢了！呵呵！帮顶,关注一下.

貌似这个挺少的.Up ……….
使用这个吧，分服务器和客户端的。

网站

my blog
http://ufo-crackerx.blog.163.com/Friendly Up!楼主说的是远程桌面WEB访问吧没有玩过，帮顶已不可用，2003 刚出来时，还可以，被人用做攻击软件。
因为不是所有的服务器都设立了帐号锁。

各位兄弟，有人用过微软的msrdp，或者说是mstsc的activex控件么，我想用这个控件来做远程桌面，但是要配合ssl vpn来使用，也就是mstsc控件需要通过加密通道到vpn然后由vpn解密后发送到terminal service上去，有人知道怎么做么，或者有个思路也可以啊，谢谢了！呵呵！帮顶,关注一下.

貌似这个挺少的.Up ……….
使用这个吧，分服务器和客户端的。

网站

my blog
http://ufo-crackerx.blog.163.com/Friendly Up!楼主说的是远程桌面WEB访问吧没有玩过，帮顶已不可用，2003 刚出来时，还可以，被人用做攻击软件。
因为不是所有的服务器都设立了帐号锁。

我有个小程序，需要从单位的oracle数据库中读取数据，但是不知道该怎么写，请各位高手指点，最好有实例，或源程序。谢谢了http://www.connectionstrings.com/oracle顶起连库
Dim DLYHM, DLMM, DLSLM As String
Dim Grecordset As New ADODB.Recordset
Dim Gconnection_HQ As New ADODB.Connection
DLYHM = "USER ID=" + 用户名
DLMM = "password=" + 登录密码
DLSLM = "Data Source=" + DBCS中的实例名
LSsjk = DLYHM + ";" + DLMM + ";" + DLSLM
LSsjk = "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;" + LSsjk
    Set Gconnection_HQ = New ADODB.Connection
    Gconnection_HQ.Open LSsjk

读数据
Set Grecordset = New ADODB.Recordset
Grecordset.Open "select * from 表名 where 字段名='" & 字段值 & "'", Gconnection_HQ, adOpenStatic, adLockOptimistic    ‘索引条件
变量 = Trim(Grecordset.Fields("读取字段名"))
Grecordset.Close
能不能把源程序发给我啊，我的邮箱，如果成功马上给你结分，麻烦了，偶先谢谢了！ustbzhy@163.com，谢谢自己根据代码改一下就可以了，不要什么都要源代码，咱们之间用的各种信息都不一样，给你也得自己改需要安装oracel客户端oracle客户端装上了，但是应该如何配置呢<
用ADO生成个链接字符串不行？？？随便建个工程拖个ADODC控件上去，点ADODC属性，点生成字符串，下一步，下一步。。测试连接成功后，这么下去，把那个字符串考过来不就是你要的连接字符串来么？<
配置好了测试一下即可
也可安装 Toad 等工具，操作Oracle更简单一点。

我有个小程序，需要从单位的oracle数据库中读取数据，但是不知道该怎么写，请各位高手指点，最好有实例，或源程序。谢谢了http://www.connectionstrings.com/oracle顶起连库
Dim DLYHM, DLMM, DLSLM As String
Dim Grecordset As New ADODB.Recordset
Dim Gconnection_HQ As New ADODB.Connection
DLYHM = "USER ID=" + 用户名
DLMM = "password=" + 登录密码
DLSLM = "Data Source=" + DBCS中的实例名
LSsjk = DLYHM + ";" + DLMM + ";" + DLSLM
LSsjk = "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;" + LSsjk
    Set Gconnection_HQ = New ADODB.Connection
    Gconnection_HQ.Open LSsjk

读数据
Set Grecordset = New ADODB.Recordset
Grecordset.Open "select * from 表名 where 字段名='" & 字段值 & "'", Gconnection_HQ, adOpenStatic, adLockOptimistic    ‘索引条件
变量 = Trim(Grecordset.Fields("读取字段名"))
Grecordset.Close
能不能把源程序发给我啊，我的邮箱，如果成功马上给你结分，麻烦了，偶先谢谢了！ustbzhy@163.com，谢谢自己根据代码改一下就可以了，不要什么都要源代码，咱们之间用的各种信息都不一样，给你也得自己改需要安装oracel客户端oracle客户端装上了，但是应该如何配置呢<
用ADO生成个链接字符串不行？？？随便建个工程拖个ADODC控件上去，点ADODC属性，点生成字符串，下一步，下一步。。测试连接成功后，这么下去，把那个字符串考过来不就是你要的连接字符串来么？<
配置好了测试一下即可
也可安装 Toad 等工具，操作Oracle更简单一点。

公司办公网段无法访问数据库，有防火墙限制。只能通过远程桌面连接到Terminal服务器，才能从服务器连接数据库。

我有一些vbs脚本，使用createobject("ADODB.Connection")的方式访问数据库；如果在服务器网段设置一台WindowsServer，在本地使用createobject("ADODB.Connection", "myWindowsServer")，这样是否就可以访问数据库了？

服务器需要进行哪些设置？防火墙需要开放哪些端口？CreateObject() 方式要用 COM+ 编程：http://topic.csdn.net/t/20031010/21/2342453.html
然后查查 COM+ 服务需要如何设置。通过远程桌面创建的"数据库链接"实际上只是运行在远程终端而已,你看到的界面只是一个远程终端的映射而已. 你的计算机实际上只是和远程桌面那台机器相连而已,实际上并没有和数据库服务器有任何实际的链接.
因此,除非你的计算机的网络允许你直接访问到数据库服务器,否则你的要求是不可能实现的.

打个粗俗的比方, 你在看A片, 你只能通过屏幕看看而已, 你没办法直接进去干什么.

如需要阅读该回复，请登录或注册

学习中，谢谢

<
学习

我的电脑是路由器adsl连接的（ip会动态变化），请问我电脑开了后，在外面我想远程桌面，vb怎么做啊（ip我可以开机用软件发送到一个网站保存，可以知道ip的）

最好不要设置密码，因为我有时想远程重启电脑，那样就会重启不了RDC?家中电脑是xp系统，一般一直是开着的，能够这样远程方便些，希望给个思路，谢谢vb冒是不行，不然可以试试连接任何电脑。
你的ip是动态的，RDC也难办。
发到Windows的论坛里试试。可以做到，不但可以保存到网站上，也可以是FTP（最佳），甚至通过飞信（有VB.NET的SDK）。
上面说的是关键了，还要编写远程桌面的客户端和服务器端程序来实现对连。数据中转需要FTP空间支持。
就给你这些提示了，看你自己的了。<
已经处理好了
1、vb程序定时保存本机外网ip到网站上存储
2、本机设置密码并且取消“要使用本机，用户必须输入用户名和密码”，这样启动不需要输入密码的
3、路由器设置端口映射
4、在其他电脑上打开本机外网ip存储的页面查看ip，进行远程桌面

满足要求！！！！

找了好久，也没找到解决办法。各位给看看怎么解决。
第一次执行没问题，再运行一次就出这个错了“实时错误462.远程服务器机器不存在或不可用”
代码出错在这
sPath = App.Path & "stencil试卷.doc"
Set wdDoc = wdApp.Documents.Open(FileName:=sPath)

wdapp，wddoc不管定义成模块的还是过程的，都解决不了。

连接远程SQL，提示：[DBNETLIB][ConnectionRead (recv()).]一般性网络错误。请检查网络文档。

请问怎么解决？谢谢先

我输入了，然后回车就是一个黑黑的屏幕，标题是：
telnet 那个IP

按了任意键，就回到dos下面、

请问怎么办？谢谢先

在控制面板中手工配置ODBC到服务端的SQL试试，(tcp/ip与named pipes都试试)

昨晚都试过了，不行，纳闷呢

这个问题我也遇到过，当时的笔记本能访问网页，但不能访问数据库，PING也不通，你试一下PING自己的IP能不能通，我最后是重装的系统。

是啊，纳闷呢
继续请教，谢谢先

Private Sub Timer1_Timer()
Dim ConnX As New ADODB.Connection
'生成连接字符串
ConnX.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=jnjw2008;Initial Catalog=tygl;Data Source=192.168.0.119"

On Error GoTo ConnErr
    '连接数据库
    ConnX.Open
    MsgBox "连接数据库成功！服务已启动…", vbInformation, "连接"
   
    Exit Sub
ConnErr:
    MsgBox "连接数据库错误！", vbInformation, "连接"
    End Sub

以上为本人用vb6.0写的个远程连接数据库的小程序，有个问题在本地机上测试完全正常，但是当我放到其他机器上的时候就不能访问请问各为是什么原因！！！

首先确定这台机子能不能访问那台机子.

在这台机子上开始运行，输入那台机子的IP地址，看能不能访问到。

能不能给个odbc的连接语句啊，谢谢

http://www.cnblogs.com/tongnaifu/archive/2008/10/21/1316141.html

1，SQL服务所在机器关闭防火墙
2，在连接不上的机器上安装mdactyp2.8mdactyp.exe
3，在连接不上的机器的控制面板中手工配制ODBC数据源到SQL

Public cn  As New ADODB.Connection
        cn.ConnectionString = "provider=" & providercob & ";server=" & servernametxt & ";uid=" & uidtxt & ";pwd=" & UserPwd & ";database=" & DatabaseName
        cn.CursorLocation = adUseClient
        cn.Open

如果再连不上，就要重点参照6楼的建议了。