文件名称:Cool_manager
-
所属分类:
- 标签属性:
- 上传时间:2012-11-16
-
文件大小:960.1kb
-
已下载:0次
-
提 供 者:
-
相关连接:无下载说明:别用迅雷下载,失败请重下,重下不扣分!
介绍说明--下载内容来自于网络,使用问题请自行百度
一个很久以前自己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/
Cool_manager/BIN/
Cool_manager/BIN/client.exe
Cool_manager/BIN/server.exe
Cool_manager/BIN/shuoming.txt
Cool_manager/BIN/桌面.rar
Cool_manager/client周三/
Cool_manager/client周三/ab.frm
Cool_manager/client周三/ab.frx
Cool_manager/client周三/cheangeform.bas
Cool_manager/client周三/client.vbp
Cool_manager/client周三/client.vbw
Cool_manager/client周三/client22.exe
Cool_manager/client周三/edcode.bas
Cool_manager/client周三/Icon1.ico
Cool_manager/client周三/Icon2.ico
Cool_manager/client周三/main.frm
Cool_manager/client周三/main.frx
Cool_manager/client周三/MSSCCPRJ.SCC
Cool_manager/client周三/myico/
Cool_manager/client周三/myico/jpg.ico
Cool_manager/client周三/screen/
Cool_manager/client周三/screen/Demo4.bas
Cool_manager/client周三/screen/frmMain.frm
Cool_manager/client周三/screen/frmMain.frx
Cool_manager/client周三/screen/MSSCCPRJ.SCC
Cool_manager/client周三/screen/工程1.vbp
Cool_manager/client周三/screen/工程1.vbw
Cool_manager/client周三/shuoming.txt
Cool_manager/client周三/udps/
Cool_manager/client周三/udps/.ICO
Cool_manager/client周三/udps/drekery.bas
Cool_manager/client周三/udps/MAIN.frm
Cool_manager/client周三/udps/MAIN.frx
Cool_manager/client周三/udps/MSSCCPRJ.SCC
Cool_manager/client周三/udps/process.bas
Cool_manager/client周三/udps/prose.bas
Cool_manager/client周三/udps/qq.frm
Cool_manager/client周三/udps/qq.frx
Cool_manager/client周三/udps/recive.bas
Cool_manager/client周三/udps/screen/
Cool_manager/client周三/udps/screen/Demo4.bas
Cool_manager/client周三/udps/screen/frmMain.frm
Cool_manager/client周三/udps/screen/frmMain.frx
Cool_manager/client周三/udps/screen/MSSCCPRJ.SCC
Cool_manager/client周三/udps/screen/工程1.vbp
Cool_manager/client周三/udps/screen/工程1.vbw
Cool_manager/client周三/udps/scrrens.frm
Cool_manager/client周三/udps/scrrens.frx
Cool_manager/client周三/udps/sever.exe
Cool_manager/client周三/udps/windowlistt.bas
Cool_manager/client周三/udps/WS.vbp
Cool_manager/client周三/udps/WS.vbw
Cool_manager/client周三/user.bas
Cool_manager/pic.JPG
Cool_manager/BIN/
Cool_manager/BIN/client.exe
Cool_manager/BIN/server.exe
Cool_manager/BIN/shuoming.txt
Cool_manager/BIN/桌面.rar
Cool_manager/client周三/
Cool_manager/client周三/ab.frm
Cool_manager/client周三/ab.frx
Cool_manager/client周三/cheangeform.bas
Cool_manager/client周三/client.vbp
Cool_manager/client周三/client.vbw
Cool_manager/client周三/client22.exe
Cool_manager/client周三/edcode.bas
Cool_manager/client周三/Icon1.ico
Cool_manager/client周三/Icon2.ico
Cool_manager/client周三/main.frm
Cool_manager/client周三/main.frx
Cool_manager/client周三/MSSCCPRJ.SCC
Cool_manager/client周三/myico/
Cool_manager/client周三/myico/jpg.ico
Cool_manager/client周三/screen/
Cool_manager/client周三/screen/Demo4.bas
Cool_manager/client周三/screen/frmMain.frm
Cool_manager/client周三/screen/frmMain.frx
Cool_manager/client周三/screen/MSSCCPRJ.SCC
Cool_manager/client周三/screen/工程1.vbp
Cool_manager/client周三/screen/工程1.vbw
Cool_manager/client周三/shuoming.txt
Cool_manager/client周三/udps/
Cool_manager/client周三/udps/.ICO
Cool_manager/client周三/udps/drekery.bas
Cool_manager/client周三/udps/MAIN.frm
Cool_manager/client周三/udps/MAIN.frx
Cool_manager/client周三/udps/MSSCCPRJ.SCC
Cool_manager/client周三/udps/process.bas
Cool_manager/client周三/udps/prose.bas
Cool_manager/client周三/udps/qq.frm
Cool_manager/client周三/udps/qq.frx
Cool_manager/client周三/udps/recive.bas
Cool_manager/client周三/udps/screen/
Cool_manager/client周三/udps/screen/Demo4.bas
Cool_manager/client周三/udps/screen/frmMain.frm
Cool_manager/client周三/udps/screen/frmMain.frx
Cool_manager/client周三/udps/screen/MSSCCPRJ.SCC
Cool_manager/client周三/udps/screen/工程1.vbp
Cool_manager/client周三/udps/screen/工程1.vbw
Cool_manager/client周三/udps/scrrens.frm
Cool_manager/client周三/udps/scrrens.frx
Cool_manager/client周三/udps/sever.exe
Cool_manager/client周三/udps/windowlistt.bas
Cool_manager/client周三/udps/WS.vbp
Cool_manager/client周三/udps/WS.vbw
Cool_manager/client周三/user.bas
Cool_manager/pic.JPG
1999-2046 搜珍网 All Rights Reserved.
本站作为网络服务提供者,仅为网络服务对象提供信息存储空间,仅对用户上载内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。
