十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
我刚学过c语言,看老师用vb编过,那个应该是所见即所得的吧,感觉程序设计语言没有什么基础不基础的,只是一个工具而已,但每种语言在编某些方面的程序时候会有效率高低之分的,现在大学普遍都是先教c或是c++的吧,可以说明c应该是初学者的较好选择,但是非计算机专业的学生考2级大多选择 vb。
创新互联建站总部坐落于成都市区,致力网站建设服务有网站制作、网站建设、网络营销策划、网页设计、网站维护、公众号搭建、成都小程序开发、软件开发等为企业提供一整套的信息化建设解决方案。创造真正意义上的网站建设,为互联网品牌在互动行销领域创造价值而不懈努力!
c语言编译器的版本很多,建议新手且英文水平不高的就用汉化版的吧
我用的编译器是turbo c2.0汉化版
查看文章 安装.NET Framework 2.0碰到的问题 2009年02月06日 星期五 上午 11:36 今天安装完Microsoft .NET Framework 2.0 (x86) 多国语言版之后想测试一下网站,谁知道在浏览的时候出现了这样的文字,Server Application Unavailable The web application you are attempting to access on this web server is currently unavailable. Please hit the "Refresh" button in your web browser to retry your request.Administrator Note: An error message detailing the cause of this specific request failure can be found in the application event log of the web server. Please review this log entry to discover what caused this error to occur.翻看事件查看器出现如下的错误信息事件类型: 错误
事件来源: ASP.NET 2.0.50727.0
事件种类: 无
事件 ID: 1088
日期: 2007-1-10
事件: 16:43:15
用户: N/A
计算机: HZH
描述:
Failed to execute request because the App-Domain could not be created. Error: 0x80131902有关更多信息,请参阅在 的帮助和支持中心。事件类型: 警告
事件来源: ASP.NET 2.0.50727.0
事件种类: 无
事件 ID: 1073
日期: 2007-1-10
事件: 16:43:15
用户: N/A
计算机: HZH
描述:
Failed to initialize the AppDomain:/LM/W3SVC/1/ROOTException: System.Configuration.ConfigurationErrorsException
Message: Exception of type 'System.Configuration.ConfigurationErrorsException' was thrown.
StackTrace: at System.Web.Configuration.ErrorRuntimeConfig.ErrorConfigRecord.System.Configuration.Internal.IInternalConfigRecord.GetLkgSection(String configKey)
at System.Web.Configuration.RuntimeConfigLKG.GetSectionObject(String sectionName)
at System.Web.Configuration.RuntimeConfig.GetSection(String sectionName, Type type, ResultsIndex index)
at System.Web.Configuration.RuntimeConfig.get_HostingEnvironment()
at System.Web.Hosting.HostingEnvironment.StartMonitoringForIdleTimeout()
at System.Web.Hosting.HostingEnvironment.Initialize(ApplicationManager appManager, IApplicationHost appHost, IConfigMapPathFactory configMapPathFactory, HostingEnvironmentParameters hostingParameters)
at System.Web.Hosting.HostingEnvironment.Initialize(ApplicationManager appManager, IApplicationHost appHost, IConfigMapPathFactory configMapPathFactory, HostingEnvironmentParameters hostingParameters)
at System.Web.Hosting.ApplicationManager.CreateAppDomainWithHostingEnvironment(String appId, IApplicationHost appHost, HostingEnvironmentParameters hostingParameters)
at System.Web.Hosting.ApplicationManager.CreateAppDomainWithHostingEnvironmentAndReportErrors(String appId, IApplicationHost appHost, HostingEnvironmentParameters hostingParameters)有关更多信息,请参阅在 的帮助和支持中心。可以看到有两个错误,而且每浏览一次就会出现一次循环写入以前没碰到过还真是汗啊,首先把IIS及ASP.NET的一些相关服务重新启动,还是没有解决,然后到网上找找,在网上有很多人碰到类似的问题但都没有解决的方法.只好自己动手了.首先怀疑是装了.NET2.0的原因,因为IIS能正常解析ASP文件,于是把它给CUT掉了,再装一次还是不行(后来才知道最好是重启机子出现这样问题的机会就少了,呵呵)于是在网上找了关于ASP.NET的组件加载的方法.于是出现了如下的步骤:我这里懒得写了,直接复制CMD的内容:I had to give the IIS_WPG group (which contains ASPNET, IWAM_MachineName, LOCAL SERVICE, NETWORK SERVICE SYSTEM) read/write access to our web root directory everything beneath.Microsoft Windows XP [版本 5.1.2600]
(C) 版权所有 1985-2001 Microsoft Corp.C:\Documents and Settings\ahcd %systemroot%C:\WINDOWS2cd microsoft.netC:\WINDOWS2\Microsoft.NETcd frameworkC:\WINDOWS2\Microsoft.NET\Frameworknet stop w3svc
World Wide Web Publishing 服务正在停止.
World Wide Web Publishing 服务已成功停止。
C:\WINDOWS2\Microsoft.NET\Frameworkdir
驱动器 C 中的卷是 VAIO
卷的序列号是 54A5-8EF0C:\WINDOWS2\Microsoft.NET\Framework 的目录2007-01-10 15:18 DIR .
2007-01-10 15:18 DIR ..
2005-09-23 07:28 72,704 NETFXSBS10.exe
2005-09-23 07:28 41,392 netfxsbs12.hkf
2005-09-23 07:28 7,680 sbscmp10.dll
2005-09-23 07:28 7,680 sbscmp20_mscorwks.dll
2005-09-23 07:28 7,680 sbscmp20_perfcounter.dll
2005-09-23 07:29 5,120 sbs_diasymreader.dll
2005-09-23 07:29 5,120 sbs_iehost.dll
2005-09-23 07:29 5,120 sbs_microsoft.jscript.dll
2005-09-23 07:29 5,632 sbs_microsoft.vsa.vb.codedomprocessor.dll
2005-09-23 07:29 5,120 sbs_mscordbi.dll
2005-09-23 07:29 5,120 sbs_mscorrc.dll
2005-09-23 07:29 5,120 sbs_mscorsec.dll
2005-09-23 07:29 5,120 sbs_system.configuration.install.dll
2005-09-23 07:29 5,120 sbs_system.data.dll
2005-09-23 07:29 5,120 sbs_system.enterpriseservices.dll
2005-09-23 07:29 5,120 sbs_VsaVb7rt.dll
2005-09-23 07:29 5,120 sbs_wminet_utils.dll
2005-09-23 07:28 7,680 SharedReg12.dll
2007-01-10 15:18 DIR v1.0.3705
2007-01-10 15:18 DIR v1.1.4322
2007-01-10 16:40 DIR v2.0.50727
18 个文件 206,768 字节
5 个目录 700,616,704 可用字节C:\WINDOWS2\Microsoft.NET\Frameworkcd v2.0.50727C:\WINDOWS2\Microsoft.NET\Framework\v2.0.50727aspnet_regiis.exe -ua
Start uninstalling all versions of ASP.NET.
.............
Finished uninstalling all versions of ASP.NET.
Setup has detected some errors during the operation. For details, please read th
e setup log file C:\DOCUME~1\ah\LOCALS~1\Temp\ASPNETSetup_00001.logC:\WINDOWS2\Microsoft.NET\Framework\v2.0.50727aspnet_regiis.exe -i
Start installing ASP.NET (2.0.50727).
..........................
Finished installing ASP.NET (2.0.50727).C:\WINDOWS2\Microsoft.NET\Framework\v2.0.50727net start w3svc
World Wide Web Publishing 服务正在启动 .
World Wide Web Publishing 服务已经启动成功。
C:\WINDOWS2\Microsoft.NET\Framework\v2.0.50727之后再打开就可以了.上面的方法是先把IIS给停止,aspnet_regiis.exe -ua把.NET给全部卸载,aspnet_regiis.exe -i再安装一次,然后把IIS启动.个人观点:基本上这种情况最可能发生在第一次.NET或是.NET异常的时候才会出现,原因大概是.NET没有能正常加载,这些是我的个人观点,还希望大家能补充.
VB 用Visual Basic 6.0
C 用turbo c 2.0(有点过时了,但很经典) 或Visual C++ 6.0
我个人认为VB比较简单
但是要真正会 编程 的话,你就必须懂C语言!
意思是数字电子产品质量监督检验中心。
数字电子产品质量监督检验中心,英文:NETC,National Digital Electronic Product Testing Center。
位于深圳市南山区,该中心依托深圳市计量质量检测研究院雄厚的人才、技术、装备,总投资近3亿元。数字电子产品质量监督检验中心规划用地1.2万平方米,设有涉及产品安全性、电磁兼容性、环境可靠性、节能环保性、射频技术、电信终端界面检测、有害物质检测等8个专业实验室。
国检中心的背后
国检中心将成为为企业提供质检的新窗口和新平台。投入使用后的国检中心将全力推进监督抽查、风险监测和质量分析等各项工作,为政府综合管理和行政执法提供强有力的技术支撑,解决企业参与国际分工时在不同区域市场上所遇到的产品质量问题。
数字电子产品质量监督检验中心,采用智能电力仪表、采集配电现场的各种电参量和开关信号。系统采用现场就地组网的方式,组网后通过现场总线通讯并远传至后台,通过Acrel-2000型电力监控系统实现配电室配电回路用电的实时监控和管理。
选择与哪个电脑建立连接。连接前加个连接请求,同意了才让它连接,并且在已连接情况下主动拒绝(就是不响应连接请求);
不能断开与某人的连接.发送一个命令,对方收到命令后主动断开连接.
给你一个本人的远程控制部分源码.
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