13518219792
C/C++，C#，VB.NET，Java等都可以。
创新互联公司专注于十堰郧阳企业网站建设,成都响应式网站建设,成都商城网站开发。十堰郧阳网站建设公司,为十堰郧阳等地区提供建站服务。全流程按需求定制制作，专业设计，全程项目跟踪，创新互联公司专业和态度为您提供的服务
C/C++ 可以开发原生的 Windows 程序，对硬件和系统底层支持良好。它是最常用的开发语言之一。开发环境主要有微软C++编译器，Intel C/C++ 编译器和 GCC 。在 Windows 下的编程软件（IDE）主要是 Visual Studio 或 Visual C++ Express（都默认使用微软C++编译器）。
C# 和 VB.NET 多用于微软 .NET 平台的开发，可以在 .NET 平台之上编写 Windows 程序，开发起来比较简单，而且软件界面很美观。编程软件（IDE）是 Visual Studio。
Java 可用于 JavaSE 平台下的开发，可以在 JavaSE 平台之上编写 Windows 程序，同时 Java 程序可以在不同的操作系统下运行。开发环境主要有 Oracle JDK，编程软件（IDE）可以选 Eclipse，MyEclipse 和 NetBeans。
我也是网络程序员，做了4年多了，现在做了课程体系策划师。说下我的经历
最开始的，是先学的C和VB，这个是基础中的基础，如果想简单的话，就学VB，精力充沛可以学C。具体路线如下
VB-ASP-VB.NET-ASP.NET
C-C++-C#-ASP.NET
或者你精力更充沛可以学JAVA路线如下
JAVA-JSP-J2EE-WEBWORKS或STRUTS+FREEMARKER
如果你想一次成型，不如学PHP，这个很简单，比ASP略微简单一些。但是有点单一，不能向高端挺进。
还有一条道路，就是前台程序员，区别于上面的后台程序员路线，学JAVASCRIPT，但是记得一点，JAVASCRIPT和JAVA是本质上不同的两个东西。别弄混了。
选择与哪个电脑建立连接。连接前加个连接请求,同意了才让它连接,并且在已连接情况下主动拒绝(就是不响应连接请求);
不能断开与某人的连接.发送一个命令,对方收到命令后主动断开连接.
给你一个本人的远程控制部分源码.
Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
Dim PauseTime, Start As Long
Dim Mx As Integer, My As Integer
Dim getInfo As String
Dim bArr(0 To 4) As Byte
Winsock2.GetData getInfo, vbString
Dirtemp = ""
Winsock2.SendData "come"
DoEvents
Select Case Left(CStr(getInfo), 4) '取得信息类型
'***********************************************************************************
Case "call" '################## 客户端请求连接
Winsock2.SendData "OK" Winsock1.LocalIP
'***********************************************************************************
Case "Exit" '################## 退出程序
Unload Me
'***********************************************************************************
Case "info" '################## 处理消息数据
Dim Title As String, Number As Integer, Inform As String, Temp As Integer
Temp = Val(Mid(getInfo, 5, 2))
Title = Mid(getInfo, 9, Temp)
Number = Val(Mid(getInfo, 7, 2))
Inform = Mid(getInfo, 9 + Temp)
MsgBox Inform, Number, Title
'***********************************************************************************
Case "line" '################## 回复连接正确
If Mid(getInfo, 5) = Text1.Text Then
Winsock2.SendData "line"
Winsock5.Close
Winsock5.RemotePort = 32050
Winsock5.RemoteHost = Winsock2.RemoteHostIP
Winsock5.Connect
Winsock6.Close
Winsock6.RemotePort = 32051
Winsock6.RemoteHost = Winsock2.RemoteHostIP
Winsock6.Connect
Else
Winsock2.Close
End If
'***********************************************************************************
Case "dri$" '################## 回复磁盘信息、文件列表
Dir1.Path = Drive1.Drive
Dir1.Path = Left(App.Path, 2) "\"
Dir1.Path = Mid(getInfo, 5, 2)
List2.ListIndex = 0
For I = 0 To Drive1.ListCount - 1
Dirtemp = Dirtemp Left(Drive1.List(I), 2)
Next
Dirtemp = Dirtemp "*"
For I = 0 To List1.ListCount - 1
Dirtemp = Dirtemp List1.List(I) "*"
Next
Dirtemp = Dirtemp "?"
For I = 0 To List2.ListCount - 1
Dirtemp = Dirtemp List2.List(I) "?"
Next
Dirtemp = Dirtemp "|"
For I = 0 To File1.ListCount - 1
Dirtemp = Dirtemp File1.List(I) "|"
Next
Winsock2.SendData "dri$" Dirtemp
'***********************************************************************************
Case "driv" '################## 回复文件夹列表
On Error GoTo 10
Dir1.Path = Drive1.Drive
Dir1.Path = Left(App.Path, 2) "\"
Dir1.Path = Mid(getInfo, 5, 2)
List2.ListIndex = 0
For I = 0 To List1.ListCount - 1
Dirtemp = Dirtemp List1.List(I) "*"
Next
Dirtemp = Dirtemp "?"
For I = 0 To List2.ListCount - 1
Dirtemp = Dirtemp List2.List(I) "?"
Next
Dirtemp = Dirtemp "|"
For I = 0 To File1.ListCount - 1
Dirtemp = Dirtemp File1.List(I) "|"
Next
Winsock2.SendData "driv" Dirtemp
'***********************************************************************************
Case "dir$" '################## 回复文件列表
List2.ListIndex = Val(Mid(getInfo, 5, 5))
For I = 0 To List1.ListCount - 1
Dirtemp = Dirtemp List1.List(I) "*"
Next
'***********************************************************************************
Case "port" '################## 设置远程主机端口
Frm = Mid(getInfo, 5)
'***********************************************************************************
Case "ftpo" '################## 启动远程FTP传输
Frm = Mid(getInfo, 5)
Frm
'***********************************************************************************
Case "ftpc" '################## 关闭远程FTP传输
CommandCtrl = True
MyExit = True
Unload FrmFtp
'***********************************************************************************
Case "msgo" '################## 开启聊天模式
FrmMsg.show
'***********************************************************************************
Case "msgc" '################## 关闭聊天模式
MyExit = True
Unload FrmMsg
'***********************************************************************************
Case "msg$" '################## 接收聊天信息
FrmMsg.Text1.Text = FrmMsg.Text1.Text Mid(getInfo, 5) Chr(10) + Chr(13) + Chr(10) + Chr(13)
'***********************************************************************************
...
'***********************************************************************************
Case "shut" '################## 关闭计算机
If glngWhichWindows32 = mlngWindowsNT Then
AdjustToken
End If
ExitWindowsEx (EWX_SHUTDOWN Or EWX_FORCE), HFFFF
'***********************************************************************************
Case "root" '################## 重启计算机
ExitWindowsEx (EWX_REBOOT Or EWX_FORCE), HFFFF
'***********************************************************************************
Case "logo" '################## 注销计算机
ExitWindowsEx (EWX_LogOff Or EWX_FORCE), HFFFF
'***********************************************************************************
Case "netp" '################## 远程桌面
FrmSet.show
'***********************************************************************************
'Case "netm" '################## 远程桌面移动
'Mx = Mid(getInfo, 5, InStr(getInfo, ",") - 5) * (Screen.Width / Screen.TwipsPerPixelX)
'My = Mid(getInfo, InStr(getInfo, ",") + 1) * (Screen.Height / Screen.TwipsPerPixelY)
'Moveg Mx, My
'***********************************************************************************
Case "netb" '################## 远程桌面点击
MoveB Right(getInfo, 1)
'***********************************************************************************
Case "netc" '################## 远程关闭
FrmSet.DDClose
'***********************************************************************************
Case "quit" '################## 结束程序
End
End Select
Exit Sub
10:
Winsock2.SendData "err$" Err
End Sub
那得看是什么大学了，名牌大学还有Java、.net等流行语言，不入流的大学就落后了。我国的大学IT教育业普遍落后，大学里的计算机系讲的都是些过时的东西，现在各类大学计算机系的老师居然还给学生讲VB和VF，中国传统的大学里面的老师都是一些老教书匠，他们可能是中国首批的计算机专家，他们也可能很有资历是资深的电脑教育专家，但是他们日复一日的重复老教材里面的知识，上了年纪无法及时接触IT行业的新技术，他们沉浸在高等数学和线性代数这些古老的计算机原理里面，对窗外日新月异的世界充耳不闻，以此为师的同学将来是肯定找不到工作的，这也很好的解释了为什么大学生就业难的问题，因为他们毕业之后来到社会发现自己的知识完全没有用武之地。IT行业是个日新月异的行业，我们要学习最新的技术才行！
