Description: 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
File list (Check if you may need any files):
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
Download