04s402图集下载:[超高分悬赏]——VB远程传值（采乃后追加100分！）

来源：百度文库编辑：中科新闻网时间：2024/05/09 07:37:59

比如，得到了i的值 = "123456"，但是在别人的电脑上。现在要求远程传送这个值，不管用什么方法，如通过电子邮件等。或者把这个值写下来，然后传文件也可以。只要得到这个值的就行！！

申明：绝对不是非法用途。求大家回答。注意，不要只贴代码，最好有源码文件。采乃为正确答案之后追加100分！
3楼4楼5楼的居然抄1楼的，抄的一模一样。浪费我时间……

我不需要绕防火墙。

办法1

这需要你确定双方的IP地址，并使得双方同时在线。i就是你要发送的消息。

=====对方机器上的发送程序=====

'先插入一个winsock控件。

Private Sub Form1_Load()??

'设置网络地址

Winsock1.LocalPort=1001

Winsock1.RemoteHost="（你的IP地址）"

Winsock1.RemotePort=2001

End Sub

Private Sub Command1_Click()??

'发送用户输入的内容

Winsock1.SendData i

End Sub

=====你的机器上的接收程序====

Private Sub Form1_Load()??

'设置网络地址

Winsock1.LocalPort=1001

Winsock1.RemoteHost="（对方的IP地址）"

Winsock1.RemotePort=2001

Private Sub Winsock1_DataArrival(Byval bytesTotal As Long)?

Dim rec As String

'接收对方数据并在文本框内显示

Winsock1.GetData rec, vb String

Text2.Text=rec

End Sub

办法2

调用Outlook控件发送email，这会导致安全警报，不好用。

可以通过远程访问数据库实现
如UNIX操作系统的机器上有一数据库，类型是Informix。
VB6可以打开远程的UNIX主机上的Informix,通过ODBC访问Informix数据库。
前台：安装Informix-CLI32,即安装ODBC，再安装VB。并正确配置
Informix-ODBC及SetNet32。
后台：修改/usr/informix/sqlhosts、/usr/informix/etc/onconfig、
/etc/services文件。
有一个问题：需要绕过防火墙吗？
要是你也开电脑的话，可以用winsock来实现，这个比较简单，随便去网上下一个源代码就行了，有防火墙的话估计比较难。
有一个问题：需要绕过防火墙吗？
要是你也开电脑的话，可以用winsock来实现，这个比较简单，随便去网上下一个源代码就行了，有防火墙的话估计比较难。要是你也开电脑的话，可以用winsock来实现，这个比较简单，随便去网上下一个源代码就行了，有防火墙的话估计比较难要是你也开电脑的话，可以用winsock来实现，这个比较简单，随便去网上下一个源代码就行了，有防火墙的话估计比较难。

笨死了！你都不会，我们还说什么

要是你也开电脑的话，可以用winsock来实现，这个比较简单，随便去网上下一个源代码就行了，有防火墙的话估计比较难。

随便搞个小程序把得到的值贴到BAIDU贴吧里,呵呵,简单吧..另外的地方用浏览器就可以访问了

winsock
但是对方机器上必须要有一个接受端的程序，否则是收不到的，如果能收到，世界上就不会有那么多的木马了。
如果不会，去网上搜： winsock通讯

[超高分悬赏]——VB远程传值（采乃后追加100分！）超高分悬赏！！！！！！超高分悬赏一首歌!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 超高分悬赏一首歌!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 超高分悬赏一首歌!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 超高分悬赏猜谜!!!!!!!!!!!!! 传世宝石合成配方(超高分悬赏~) 超高分悬赏----主扳芯片组超高分悬赏关于2006河南中考 sendox高手请进！超高悬赏100分！