文件名称:Cool_manager
- 所属分类：
- Internet/网络编程
- 资源属性：
- [Windows] [Visual C] [Basic/ASP] [源码]
- 上传时间：
- 2012-11-26
- 文件大小：
- 960kb
- 下载次数：
- 0次
- 提 供 者：
- gon***
- 相关连接：
- 无
- 下载说明：
- 别用迅雷下载，失败请重下，重下不扣分！
介绍说明－－下载内容均来自于网络，请自行研究使用
一个很久以前自己vb写的远程控制
Cool manager
alljsj.ColumnHeaders.Add 1, "jsjb", "编号"
alljsj.ColumnHeaders.Add 2, "jsjn", "计算机名"
alljsj.ColumnHeaders.Add 3, "jsjip", "IP地址"
alljsj.ColumnHeaders.Add 4, "jsju", "用户名"
alljsj.ColumnHeaders.Add 5, "jsjp", "密码"
alljsj.ColumnHeaders.Add 6, "jsjbz", "备注"
Dim item1 As ListItem
Set item1 = alljsj.ListItems.Add(, "jsj", "1", , 5)
item1.SubItems(1) = "1"
item1.SubItems(1) = Ws(0).LocalHostName
item1.SubItems(2) = Ws(0).LocalIP
item1.SubItems(3) = "cool"
item1.SubItems(4) = "cm"
pslst.ColumnHeaders.Add , "jcm", "进程名"
pslst.ColumnHeaders.Add , "jpid", "PID"
End Sub
Private Sub alljsj_DblClick()
MsgBox alljsj.SelectedItem.SubItems(2)
Reip = alljsj.SelectedItem.SubItems(2)
sd.Close
sd.RemoteHost = Reip
sd.RemotePort = 313
sd.Connect
sb.Panels(1).Text = "正在连接" & Reip & "..."
End Sub-Vb a long time ago to write their own remote control Cool manager alljsj.ColumnHeaders.Add 1, jsjb , No. alljsj.ColumnHeaders.Add 2, jsjn , computer name alljsj.ColumnHeaders.Add 3, jsjip , IP Address alljsj.ColumnHeaders.Add 4, jsju , username alljsj.ColumnHeaders.Add 5, jsjp , password alljsj.ColumnHeaders.Add 6, jsjbz , Remarks Dim item1 As ListItemSet item1 = alljsj.ListItems.Add (, jsj , 1 ,, 5) item1.SubItems (1) = 1 item1.SubItems (1) = Ws (0). LocalHostNameitem1.SubItems (2) = Ws (0). LocalIPitem1.SubItems (3) = cool item1.SubItems (4) = cm pslst.ColumnHeaders.Add, jcm , process name pslst.ColumnHeaders.Add, jpid , PID End SubPrivate Sub alljsj_DblClick () MsgBox alljsj.SelectedItem.SubItems (2) Reip = alljsj.SelectedItem.SubItems (2) sd.Closesd.RemoteHost = Reipsd.RemotePort = 313sd.Connectsb.Panels (1). Text = Connecting
Cool manager
alljsj.ColumnHeaders.Add 1, "jsjb", "编号"
alljsj.ColumnHeaders.Add 2, "jsjn", "计算机名"
alljsj.ColumnHeaders.Add 3, "jsjip", "IP地址"
alljsj.ColumnHeaders.Add 4, "jsju", "用户名"
alljsj.ColumnHeaders.Add 5, "jsjp", "密码"
alljsj.ColumnHeaders.Add 6, "jsjbz", "备注"
Dim item1 As ListItem
Set item1 = alljsj.ListItems.Add(, "jsj", "1", , 5)
item1.SubItems(1) = "1"
item1.SubItems(1) = Ws(0).LocalHostName
item1.SubItems(2) = Ws(0).LocalIP
item1.SubItems(3) = "cool"
item1.SubItems(4) = "cm"
pslst.ColumnHeaders.Add , "jcm", "进程名"
pslst.ColumnHeaders.Add , "jpid", "PID"
End Sub
Private Sub alljsj_DblClick()
MsgBox alljsj.SelectedItem.SubItems(2)
Reip = alljsj.SelectedItem.SubItems(2)
sd.Close
sd.RemoteHost = Reip
sd.RemotePort = 313
sd.Connect
sb.Panels(1).Text = "正在连接" & Reip & "..."
End Sub-Vb a long time ago to write their own remote control Cool manager alljsj.ColumnHeaders.Add 1, jsjb , No. alljsj.ColumnHeaders.Add 2, jsjn , computer name alljsj.ColumnHeaders.Add 3, jsjip , IP Address alljsj.ColumnHeaders.Add 4, jsju , username alljsj.ColumnHeaders.Add 5, jsjp , password alljsj.ColumnHeaders.Add 6, jsjbz , Remarks Dim item1 As ListItemSet item1 = alljsj.ListItems.Add (, jsj , 1 ,, 5) item1.SubItems (1) = 1 item1.SubItems (1) = Ws (0). LocalHostNameitem1.SubItems (2) = Ws (0). LocalIPitem1.SubItems (3) = cool item1.SubItems (4) = cm pslst.ColumnHeaders.Add, jcm , process name pslst.ColumnHeaders.Add, jpid , PID End SubPrivate Sub alljsj_DblClick () MsgBox alljsj.SelectedItem.SubItems (2) Reip = alljsj.SelectedItem.SubItems (2) sd.Closesd.RemoteHost = Reipsd.RemotePort = 313sd.Connectsb.Panels (1). Text = Connecting
(系统自动生成,下载前可以参看下载内容)
下载文件列表
Cool_manager
............\BIN
............\...\client.exe
............\...\server.exe
............\...\shuoming.txt
............\...\桌面.rar
............\client周三
............\..........\ab.frm
............\..........\ab.frx
............\..........\cheangeform.bas
............\..........\client.vbp
............\..........\client.vbw
............\..........\client22.exe
............\..........\edcode.bas
............\..........\Icon1.ico
............\..........\Icon2.ico
............\..........\main.frm
............\..........\main.frx
............\..........\MSSCCPRJ.SCC
............\..........\myico
............\..........\screen
............\..........\......\Demo4.bas
............\..........\......\frmMain.frm
............\..........\......\frmMain.frx
............\..........\......\MSSCCPRJ.SCC
............\..........\......\工程1.vbp
............\..........\......\工程1.vbw
............\..........\shuoming.txt
............\..........\udps
............\..........\....\.ICO
............\..........\....\drekery.bas
............\..........\....\MAIN.frm
............\..........\....\MAIN.frx
............\..........\....\MSSCCPRJ.SCC
............\..........\....\process.bas
............\..........\....\prose.bas
............\..........\....\qq.frm
............\..........\....\qq.frx
............\..........\....\recive.bas
............\..........\....\screen
............\..........\....\......\Demo4.bas
............\..........\....\......\frmMain.frm
............\..........\....\......\frmMain.frx
............\..........\....\......\MSSCCPRJ.SCC
............\..........\....\......\工程1.vbp
............\..........\....\......\工程1.vbw
............\..........\....\scrrens.frm
............\..........\....\scrrens.frx
............\..........\....\sever.exe
............\..........\....\windowlistt.bas
............\..........\....\WS.vbp
............\..........\....\WS.vbw
............\..........\user.bas
............\BIN
............\...\client.exe
............\...\server.exe
............\...\shuoming.txt
............\...\桌面.rar
............\client周三
............\..........\ab.frm
............\..........\ab.frx
............\..........\cheangeform.bas
............\..........\client.vbp
............\..........\client.vbw
............\..........\client22.exe
............\..........\edcode.bas
............\..........\Icon1.ico
............\..........\Icon2.ico
............\..........\main.frm
............\..........\main.frx
............\..........\MSSCCPRJ.SCC
............\..........\myico
............\..........\screen
............\..........\......\Demo4.bas
............\..........\......\frmMain.frm
............\..........\......\frmMain.frx
............\..........\......\MSSCCPRJ.SCC
............\..........\......\工程1.vbp
............\..........\......\工程1.vbw
............\..........\shuoming.txt
............\..........\udps
............\..........\....\.ICO
............\..........\....\drekery.bas
............\..........\....\MAIN.frm
............\..........\....\MAIN.frx
............\..........\....\MSSCCPRJ.SCC
............\..........\....\process.bas
............\..........\....\prose.bas
............\..........\....\qq.frm
............\..........\....\qq.frx
............\..........\....\recive.bas
............\..........\....\screen
............\..........\....\......\Demo4.bas
............\..........\....\......\frmMain.frm
............\..........\....\......\frmMain.frx
............\..........\....\......\MSSCCPRJ.SCC
............\..........\....\......\工程1.vbp
............\..........\....\......\工程1.vbw
............\..........\....\scrrens.frm
............\..........\....\scrrens.frx
............\..........\....\sever.exe
............\..........\....\windowlistt.bas
............\..........\....\WS.vbp
............\..........\....\WS.vbw
............\..........\user.bas