我剛學過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
名稱欄目:vb.netc用戶量的簡單介紹
本文網址:http://vcdvsql.cn/article8/hegpip.html
成都網站建設公司_創新互聯,為您提供全網營銷推廣、外貿建站、定制開發、微信小程序、微信公眾號、電子商務
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯