李显龙第一任妻子:[超高分悬赏]——VB远程传值(采乃后追加100分!)
申明:绝对不是非法用途。求大家回答。注意,不要只贴代码,最好有源码文件。采乃为正确答案之后追加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通讯