Cool_manager
所属分类:网络编程
开发工具:Visual Basic
文件大小:960KB
下载次数:53
上传日期:2008-11-15 21:57:21
上 传 者:
gongxd
说明: 一个很久以前自己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 (0, 2008-11-14)
Cool_manager\BIN (0, 2008-11-14)
Cool_manager\BIN\client.exe (385024, 2008-11-14)
Cool_manager\BIN\server.exe (65536, 2008-11-14)
Cool_manager\BIN\shuoming.txt (18, 2008-11-14)
Cool_manager\BIN\桌面.rar (313818, 2008-11-14)
Cool_manager\client周三 (0, 2006-06-27)
Cool_manager\client周三\ab.frm (2106, 2008-11-14)
Cool_manager\client周三\ab.frx (51256, 2008-11-14)
Cool_manager\client周三\cheangeform.bas (2231, 2006-07-07)
Cool_manager\client周三\client.vbp (1418, 2008-11-14)
Cool_manager\client周三\client.vbw (186, 2008-11-14)
Cool_manager\client周三\client22.exe (442368, 2008-11-14)
Cool_manager\client周三\edcode.bas (411, 2006-07-07)
Cool_manager\client周三\Icon1.ico (766, 2006-07-07)
Cool_manager\client周三\Icon2.ico (766, 2006-07-07)
Cool_manager\client周三\main.frm (58456, 2008-11-14)
Cool_manager\client周三\main.frx (310533, 2008-11-14)
Cool_manager\client周三\MSSCCPRJ.SCC (191, 2006-06-25)
Cool_manager\client周三\myico (0, 2006-07-07)
Cool_manager\client周三\myico\jpg.ico (2238, 2006-06-28)
Cool_manager\client周三\screen (0, 2006-07-07)
Cool_manager\client周三\screen\Demo4.bas (574, 2005-06-02)
Cool_manager\client周三\screen\frmMain.frm (4487, 2005-06-02)
Cool_manager\client周三\screen\frmMain.frx (778, 2005-06-02)
Cool_manager\client周三\screen\MSSCCPRJ.SCC (190, 2004-12-26)
Cool_manager\client周三\screen\工程1.vbp (901, 2005-06-02)
Cool_manager\client周三\screen\工程1.vbw (81, 2006-07-07)
Cool_manager\client周三\shuoming.txt (18, 2008-11-14)
Cool_manager\client周三\udps (0, 2006-06-27)
Cool_manager\client周三\udps\.ICO (766, 2005-05-28)
Cool_manager\client周三\udps\drekery.bas (3358, 2006-07-07)
Cool_manager\client周三\udps\MAIN.frm (4447, 2008-11-14)
Cool_manager\client周三\udps\MAIN.frx (924, 2008-11-14)
Cool_manager\client周三\udps\MSSCCPRJ.SCC (187, 2005-05-28)
Cool_manager\client周三\udps\process.bas (4613, 2006-06-28)
Cool_manager\client周三\udps\prose.bas (6044, 2006-07-07)
Cool_manager\client周三\udps\qq.frm (4545, 2008-11-14)
Cool_manager\client周三\udps\qq.frx (2627, 2008-11-14)
Cool_manager\client周三\udps\recive.bas (1773, 2005-05-31)
... ...
近期下载者:
相关文件:
收藏者: