文件名称: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
本网站为编程资源及源代码搜集、介绍的搜索网站,版权归原作者所有! 粤ICP备11031372号
1999-2046 搜珍网 All Rights Reserved.