建站
咨詢
售后
建站咨詢
新聞中心
在vb.net 中,記錄系統(tǒng)錯(cuò)誤日志這個(gè)功能怎么實(shí)現(xiàn)
Public Sub ShowError(strModule As String, strProcedure As String, lngErrorNumber As Long, strErrorDescription As String, showMsg As String)
我們提供的服務(wù)有：做網(wǎng)站、成都網(wǎng)站建設(shè)、微信公眾號(hào)開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、馬鞍山ssl等。為成百上千家企事業(yè)單位解決了網(wǎng)站和推廣的問題。提供周到的售前咨詢和貼心的售后服務(wù)，是有科學(xué)管理、有技術(shù)的馬鞍山網(wǎng)站制作公司
'
'錯(cuò)誤處理中心過程,寫數(shù)據(jù)庫日志表或?qū)懭罩疚募?/p>
'
'strModule '模塊名稱
'strProcedure '過程名稱
'lngErrorNumber '錯(cuò)誤ID號(hào)
'strErrorDescription '錯(cuò)誤描述
'showMsg '是否顯示本過程內(nèi)錯(cuò)誤顯示信息(值:"Y" or "N")
'Error表結(jié)構(gòu)(f001 (Date)發(fā)生時(shí)間, f002 (nvarchar50)模塊名稱, f003 (nvarchar50)過程名稱, f004 (nvarchar50)錯(cuò)誤ID號(hào), _
f005 (nvarchar300)錯(cuò)誤描述,f006 (nvarchar50)版 本 號(hào), f007 (nvarchar50)用戶名稱, f008 (nvarchar50)網(wǎng)卡地址
'ErrorCode表結(jié)構(gòu) f001 (nvarchar20)錯(cuò)誤代碼, f002 (nvarchar255)錯(cuò)誤信息, f003 (numeric9)錯(cuò)誤級(jí)別
' 級(jí)別說明: '10'以下,一般錯(cuò)誤,不影響操作
' '11-20',嚴(yán)重錯(cuò)誤,不能操作,程序執(zhí)行退出
On Error GoTo ErrorHandle
Dim strMessage As String
Dim strCaption As String
Dim sVer As String
Dim intLogFile As Integer
Dim Res As New ADODB.Recordset
Dim ResErrorCode As New ADODB.Recordset
Dim strSQL As String
'對(duì)應(yīng)錯(cuò)誤號(hào),從ErrorCode表中找到對(duì)應(yīng)的錯(cuò)誤信息,0-1000 錯(cuò)誤號(hào)保留給VB
DBOpen ResErrorCode, "select * from errorcode where f001='" lngErrorNumber "'"
If Not (ResErrorCode.EOF Or ResErrorCode.BOF) Then
strMessage = ResErrorCode.Fields("f002")
If ResErrorCode.Fields("f003") 10 Then
MsgBox "產(chǎn)生一個(gè)嚴(yán)重錯(cuò)誤,可能影響到系統(tǒng)的可操作性,請(qǐng)立即聯(lián)系本系統(tǒng)開發(fā)人員!", vbCritical, "嚴(yán)重錯(cuò)誤"
End If
End If
'寫錯(cuò)誤入文件----------------------------
intLogFile = FreeFile
Open App.Path "\" strIni.LogFile For Append As #intLogFile
Print #intLogFile, "***錯(cuò)誤"; VBA.Now "*** " "Version:" _
str$(App.Major) "." str$(App.Minor) "." Format(App.Revision, "0000")
Print #intLogFile, "Error: " lngErrorNumber
Print #intLogFile, "Description: " strErrorDescription
Print #intLogFile, "Module: " strModule
Print #intLogFile, "Procedure: " strProcedure
Print #intLogFile, ""
Close #intLogFile
If Len(strMessage) 2 Then strErrorDescription = strMessage
strMessage = "錯(cuò)誤: " "(" lngErrorNumber ")" strErrorDescription vbCrLf vbCrLf _
"模塊:" strModule "; 過程:" strProcedure
sVer = Trim(str$(App.Major) "." str$(App.Minor) "." _
Format(App.Revision, "0000"))
strCaption = "錯(cuò)誤 Version: " sVer
'寫錯(cuò)誤入數(shù)據(jù)庫表--------------------------
strSQL = "insert into error(f001,f002,f003,f004,f005,f006,f007,f008) values(" _
DateFmtB VBA.Now DateFmtE "," _
IIf(Len(Trim(strModule)) = 0, "null", "'" strModule "'") "," _
IIf(Len(Trim(strProcedure)) = 0, "null", "'" strProcedure "'") "," _
IIf(Len(Trim(lngErrorNumber)) = 0, "null", "'" lngErrorNumber "'") "," _
IIf(Len(Trim(strErrorDescription)) = 0, "null", "'" Replace(strErrorDescription, "'", "") "'") "," _
IIf(Len(Trim(sVer)) = 0, "null", "'" sVer "'") "," _
IIf(Len(Trim(sUserName)) = 0, "null", "'" sUserName "'") "," _
IIf(Len(Trim(sVer)) = 0, "null", "'" EthernetNO "'") ")"
Cn.Execute strSQL
'是否顯示未知錯(cuò)誤信息
If Trim(UCase(showMsg)) = "Y" Then MsgBox strMessage, vbCritical, strCaption
PROC_EXIT:
Set Res = Nothing
Set ResErrorCode = Nothing
Exit Sub
ErrorHandle:
Resume Next
VB.NET 中怎么獲取開機(jī)時(shí)間與關(guān)機(jī)時(shí)間
2000以上系統(tǒng)系統(tǒng)日志都有記錄的，直接讀系統(tǒng)日志就可以了，多此一舉
請(qǐng)教高手，如何用vb實(shí)現(xiàn)“使用日志”？
很多種方法，最常用的一是用文本文件或數(shù)據(jù)庫記錄，二是調(diào)用API函數(shù)直接寫入系統(tǒng)日志或應(yīng)用程序日志
請(qǐng)問下在vb,vb.net或c#中添加系統(tǒng)服務(wù)時(shí)怎樣設(shè)置在服務(wù)啟動(dòng)失敗后重啟服務(wù)!找了好久都不知道怎么設(shè)置
個(gè)人意見，希望采納:
：你先了解一下：
啟動(dòng)項(xiàng)英文msconfig
alerter -錯(cuò)誤警報(bào)器，垃圾，關(guān)閉。
application layer gateway service -給與第三者網(wǎng)絡(luò)共享/防火墻支持的服務(wù)，有些防火墻/網(wǎng)絡(luò)共享軟件需要。占用1。5mb內(nèi)存。
application management-用于設(shè)定，發(fā)布和刪除軟件服務(wù)。
automatic 更新s -windows自動(dòng)更新，K，滾！
background intelligent transfer service -這個(gè)服務(wù)原是用來實(shí)現(xiàn)http1.1服務(wù)器之間的信息傳輸，微軟稱支持windows更新時(shí)斷點(diǎn)續(xù)傳
clipbook - 用與局域網(wǎng)電腦來共享 粘貼/剪貼的內(nèi)容。（K，想得出！）
com+Event system -一些 COM+ 軟件需要，檢查你的 c:\program files\ComPlus Applications 目錄，沒東西可以把這個(gè)服務(wù)關(guān)閉．
COM+Event system application －同上
COmputer browser － 用來瀏覽局域網(wǎng)電腦的服務(wù)，但關(guān)了也不影響瀏覽！垃圾
cryptographic services -windows更新時(shí)用來確認(rèn)windows 文件指紋的，我更新時(shí)才開啟一下。
DHCP client－靜態(tài)IP者需要（xDSL 等）小貓就不用了！！
Distributed link tracking client－用于局域網(wǎng)更新連接信息，比如在電腦A有個(gè)文件，在B做了個(gè)連接，如果文件移動(dòng)了，這個(gè)服務(wù)將會(huì)更 新信息。占用4兆內(nèi)存。
Distributed Transaction coordinator－無聊的東西。
DNS Client－DNS解析服務(wù)。。無聊～～
Error reporting service -錯(cuò)誤報(bào)告器，把windows中錯(cuò)誤報(bào)告給微軟，無聊～～～～～
＊Event Log- 系統(tǒng)日志紀(jì)錄服務(wù)，很有用于查找系統(tǒng)毛病．
Fast user switching compatibility－多用戶快速切換服務(wù)．．無聊
help and support -幫助，無聊，還是無聊幫助．．哈哈
Human interface device access－支持”弱智“電腦配件的。。比如鍵盤上調(diào)音量的按鈕等等。。
IMAPI CD-burning COM service －xp刻牒服務(wù)，用軟件就不用了占用1。6兆內(nèi)存
Indexing service -恐怖的xp減速的東東！！！關(guān)關(guān)關(guān)！！！
Internet Connection Firewall(ICF).........-xp防火墻。。不用就關(guān)。
IPSEC Services－大眾用戶連邊都沾不上。
Logical Disk manager －磁盤管理服務(wù)。。需要時(shí)它會(huì)通知你，所以一般關(guān)。
Logical Disk manager administrative service－同上。
messenger -不是msn，不想被騷擾的話就關(guān)。注：妖刺就是利用這個(gè)。
MS software shadow copy provider－無用，據(jù)說是備份用的。。我看什么用都沒。
Net Logon－登陸 Domain Controller 用的，大眾用戶快關(guān)！
Netmeeting remote desktop sharing－用netmeeting 實(shí)現(xiàn)電腦共享。。暈！關(guān)！！
Network Connections - 上網(wǎng)／局域網(wǎng)要用的東東！
Network DDE －和clipbook一起用的，無聊～～～～
Network DDE DSDM －同上
Network 本地 Awareness－如有網(wǎng)絡(luò)共享或ICS/ICF可能需要.(服務(wù)器端）
NT LM Security support provider－telnet 服務(wù)用的東東，關(guān)！！
NVIDIA Driver Helper service -nvidia 顯卡幫助，關(guān)！
PDEngine - perfectdisk 引擎
PDScheduler -perfectdisk 計(jì)劃服務(wù)
PerFORMance logs and alerts－記錄機(jī)器運(yùn)行狀況而且定時(shí)寫入日志或發(fā)警告，內(nèi)容可能過于專業(yè)，所以。。自己決定。
＊Plug and Play- 自動(dòng)查測(cè)新裝硬件，即插即用，開著吧～～～
Portable media serial number－絕對(duì)無用，無聊之及。
Print Spooler -打印機(jī)用的，我打印時(shí)才開一下。
Protected Storage－儲(chǔ)存本地密碼和網(wǎng)上服務(wù)密碼的服務(wù)，包括填表時(shí)的“自動(dòng)完成”功能。
QoS RSVP -關(guān)！就是那個(gè)20％的 QoS
Remote access auto connection manager－寬帶者／網(wǎng)絡(luò)共享可能需要！！
Remote desktop help session manager－遠(yuǎn)程幫助服務(wù)，傻透，占用4兆內(nèi)存。
＊Remote Procedure Call (RPC) -系統(tǒng)核心服務(wù)！
Remote Procedure Call LOCATOR－這個(gè)倒沒什么用，管理 RPC 數(shù)據(jù)庫服務(wù)，占用1兆內(nèi)存。
remote registry －遠(yuǎn)程注冊(cè)表運(yùn)行／修改。大漏洞，還不快關(guān)！！
removable storage －一般情況下不用，磁帶備份用的。
routing and remote access－哈哈。。不知者關(guān)！
secondary logon－給與administrator 以外的用戶分配指定操作權(quán)．暈～～～
security accounts manager－像 Protected Storage, IIS Admin 才需要。
server -局域網(wǎng)文件／打印共享需要的。
shell hardware detection－給有些配置自動(dòng)啟動(dòng)，像內(nèi)存棒，和有些cd驅(qū)動(dòng)等
smart card -關(guān)！1。4兆內(nèi)存
smart card helper -關(guān)！
SSDP Discovery service－沒有什么硬件利用這個(gè)服務(wù)。。
system event notification－記錄用戶登錄／注銷／重起／關(guān)機(jī)信息。。誰管這些。。
system restore service -系統(tǒng)還原服務(wù)，吃資源和內(nèi)存的怪獸。。雖然有時(shí)用到，自己決定。
task scheduler－windows 計(jì)劃服務(wù)啦，垃圾．
TCP/IP NetBIOS helper－如果你的網(wǎng)絡(luò)不用 Netbios 或WINS，關(guān)了．
Telephony - 撥號(hào)服務(wù)，如果你的寬帶不用撥號(hào)，那么關(guān)了它。
telnet -大漏洞，我第一個(gè)關(guān)的就是這個(gè)．這根dos中 telnet 命令沒關(guān)系。2兆內(nèi)存。
terminal services－實(shí)現(xiàn)遠(yuǎn)程登錄本地電腦，快速用戶切換和遠(yuǎn)程桌面功能需要，
不用這些功能就關(guān)了吧。
themes -給xp打扮的東東，不要太花鍬的就關(guān)了。
uninterruptible power supply－停電保護(hù)設(shè)備用的。。。沒有的就關(guān)。
universal plug and play device host－同SSDP Discovery Service ，沒用．
upload manager－用來實(shí)現(xiàn)服務(wù)器和客戶端輸送文件的服務(wù)，簡(jiǎn)單文件傳輸不需要這個(gè)！
volume shadow copy－同MS Software Shadow Copy Provider，無用．
webclient－可能和以后的．net技術(shù)有聯(lián)系，安全起見，我關(guān)得實(shí)實(shí)的！
Windows Audio - 控制著你聽到的聲音。關(guān)了就沒聲音了！！
Windows Installer -windows的MSI安裝服務(wù)，建議設(shè)成手動(dòng)。
windows image acquisition (WIA) -有些數(shù)碼相機(jī)和掃描器用的，我的掃描器覺得它沒用。
Windows Management Instrumentation - 滿重要的服務(wù)，是管”服務(wù)依K”的，但關(guān)
了會(huì)出現(xiàn)奇怪的問題．
windows management 包含umentat
另外,團(tuán)IDC網(wǎng)上有許多產(chǎn)品團(tuán)購,便宜有口碑
當(dāng)前名稱：vb.net系統(tǒng)日志,vbse日志報(bào)告
網(wǎng)站地址：http://www.ef60e0e.cn/article/hccoog.html
