vb实现多线程与控制台程序~~高分啊

来源：百度知道编辑：UC知道时间：2024/07/04 12:38:22

问题一：关于多线程的：
这段代码在模块1中
Public Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type
Public Type CRITICAL_SECTION
dummy As Long
End Type
Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function SetBkColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
Public Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Public Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Public Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, ByVal lpParameter As Long, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long<

我看你就是想做一个VB模拟Dos的玩意

我倒是有这么一段代码

发给你好了，这是我做“木马”娱乐时写的

往床体里添加textbox 叫 text2

那个 Dos 的过程的参数out就是你不想让删除的东西

Dim CData As String
Dim user As String
Dim sel As Long
Public Sub Dos(out As String)
CData = CData & vbCrLf & out
If Len(CData) > 30000 Then CData = out
Text2.Text = CData & user
Text2.SelStart = Len(CData)
End Sub

Private Sub Form_Load()
CData = ""
data = ""
End Sub

Private Sub Form_Unload(Cancel As Integer)
Ts(j).senddata "CMD Exit" & Chr(13) & Chr(10)
End Sub

Private Sub Text2_Change()
If Mid(Text2.Text, 1, Len(CData)) = CData Then
user = Mid(Text2.Text, Len(CData) + 1)
Else
Text2 = CData + user
End If
End Sub

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
If Text2.SelStart <= sel Then Text2.SelStart = sel
user = Mid(Text2.Tex

VB中如何实现多线程请教如何在VB用最简方法实现多线程? 一个vb程序，后台长时间数学运算，用户界面仍保持较好的用户响应，即模拟了多线程。如何实现的呢 vb 怎么实现多线程或者怎么实现自动添加新窗体 VB实现数据库小程序 c的多线程实现控制台和控制台程序如何用Java创建一个程序,实现控制台命令dir vb中如何显示、隐藏控制台程序的窗口？？？？ VB中如何利用Createthread实现多线程能给个最简单的例子吗