UC知道VB 在输出文本数据前加顺序编号怎么弄?
来源：百度知道 编辑：UC知道 时间：2024/07/07 02:53:52
以下是我写研究的VB外挂的雏形
已经可以进行脱机模拟登陆
Private Sub cmdConnect_Click()
If tcpClient.State <> sckClosed Then
tcpClient.Close '关闭服务器连接
End If
tcpClient.RemoteHost = Trim(txtHost)
tcpClient.RemotePort = Trim(txtPort)
tcpClient.Connect '连接服务器
t = Timer
Do Until tcpClient.State = 7
DoEvents
If Timer - t >= 3 Then
txtOutput = txtOutput & Chr(13) & Chr(10) & "连接失败"
txtOutput.SelStart = Len(txtOutput)
Exit Sub
End If
Loop
txtOutput = txtOutput & Chr(13) & Chr(10) & "连接成功"
txtOutput.SelStart = Len(txtOutput)
End Sub
Private Sub comdSendDate_Click()
'发送
On Error GoTo errbar
tcpClient.SendData txtSendDate
Exit Sub
errbar:
MsgBox Error & Space(2) & Err
End Sub
Private Sub Form_Load()
txtHost = "218.57.240.205"
txtPort = "6414&
已经可以进行脱机模拟登陆
Private Sub cmdConnect_Click()
If tcpClient.State <> sckClosed Then
tcpClient.Close '关闭服务器连接
End If
tcpClient.RemoteHost = Trim(txtHost)
tcpClient.RemotePort = Trim(txtPort)
tcpClient.Connect '连接服务器
t = Timer
Do Until tcpClient.State = 7
DoEvents
If Timer - t >= 3 Then
txtOutput = txtOutput & Chr(13) & Chr(10) & "连接失败"
txtOutput.SelStart = Len(txtOutput)
Exit Sub
End If
Loop
txtOutput = txtOutput & Chr(13) & Chr(10) & "连接成功"
txtOutput.SelStart = Len(txtOutput)
End Sub
Private Sub comdSendDate_Click()
'发送
On Error GoTo errbar
tcpClient.SendData txtSendDate
Exit Sub
errbar:
MsgBox Error & Space(2) & Err
End Sub
Private Sub Form_Load()
txtHost = "218.57.240.205"
txtPort = "6414&
在全局(在其他方法的外边)的定义一个变量,例如:
dim receiveCount as long
然后在把DataArrival事件改成
Private Sub tcpClient_DataArrival(ByVal bytesTotal As Long)
receiveCount = receiveCount + 1
Dim strData As String
tcpClient.GetData strDate
txtOutput = txtOutput & Chr(13) & Chr(10) & receiveCount & "." & strDate
txtOutput.SelStart = Len(txtOutput)
End Sub
这样统计的编号会一直累加下去
如果希望每次发送数据后,重新统计接受的编号,就在
tcpClient.SendData txtSendDate
后加上
receiveCount = 0