网创优客建站品牌官网
为成都网站建设公司企业提供高品质网站建设
热线:028-86922220
成都专业网站建设公司

定制建站费用3500元

符合中小企业对网站设计、功能常规化式的企业展示型网站建设

成都品牌网站建设

品牌网站建设费用6000元

本套餐主要针对企业品牌型网站、中高端设计、前端互动体验...

成都商城网站建设

商城网站建设费用8000元

商城网站建设因基本功能的需求不同费用上面也有很大的差别...

成都微信网站建设

手机微信网站建站3000元

手机微信网站开发、微信官网、微信商城网站...

建站知识

当前位置:首页 > 建站知识

vb.netc,vbnet菜鸟教程

我想做一名程序员

我也是网络程序员,做了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是本质上不同的两个东西。别弄混了。

MFC, .NET,C++.NET,C#.NET,QT 它们有什么关系??

....

我来说一下

首先 他们 都放在一起 就没有可比性了。需要做一下划分

语言

C++

C++.NET

C#=C#.NET

C

Basic

Delphi

Erlang

Ruby

JAVA

等等

语言之间没有关系,因为是不同语言,但是他们可以通过一些跨语言机制 来协调起来。一般小项目用不到。

再说说 框架

MFC 当用Visual C++开发C++程序时候,可能会用到MFC.他是微软公司提供的一套开发库。就是帮你完成了窗口 网络 线程 等等功能的 面向对象 接口

而.NET Framework则是微软 为C++.NET C#.NET VB.NET 提供的一个框架

下面说说

QT和wxWidgets。

他们是C++的一个库。就像mfc一样。只不过mfc是微软写的,qt是另外一个组织写的,并且开源,但是他商用要收费,我建议用wxWidgets.他的开源协议开放了一些,并且书写风格和mfc非常相似。

都说完了。希望对你有帮助

还有

ASP.net

JSP

他们分别是用C#语言和JAVA语言来 开发 web程序的。也就是bs程序。

VB反向连接怎么实现

选择与哪个电脑建立连接。连接前加个连接请求,同意了才让它连接,并且在已连接情况下主动拒绝(就是不响应连接请求);

不能断开与某人的连接.发送一个命令,对方收到命令后主动断开连接.

给你一个本人的远程控制部分源码.

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

用什么软件能编写在Windows下运行的软件,用什么语言?

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。


网站题目:vb.netc,vbnet菜鸟教程
本文URL:http://bjjierui.cn/article/dsgippi.html

其他资讯